Links mod

| www.simball.de | Links mods | Plebiusvista Mod |

Gossamer-Threads - Links 2.0 mod

Plebiusvista Mod v.1.0 - for templates only

This mod allows you to use the Altavista search without LWP, it uses IO::Socket.

See it in action: here. Instructions in a text file: follow this.

1. File: plebiusvista.pl

Download the Plebiusvista-Script Version: 1.3 from Plebius.org.
Note: That script is not freeware.

Place the Plebiusvista-Script plebiusvista.pl in your cgi-bin or where your other Links files like add.cgi or search.cgi are located.

2. File: search.cgi

Note: Change www.your.server to your location.

2.1.

In search.cgi under:

code:


my $nh   = $in{'nh'}   || 1;

Add:

code:


# AV
if ($in{'nh'} <= 1) {
($in{'location'} eq "both") and &av;
}
$location = $in{'location'};

# Automatic Redirection

# URL to the plebiusvista.pl
$engine = "http://www.your.server/cgi-bin/plebiusvista.pl?q=";
$redir = $in{'query'};

# Convert spaces to plus
$redir =~ s/\ /+/g;
if ($location eq "av") {
print "Location: $engine$redir\n\n" ;
}

2.2.

Add the following sub to search.cgi:

code:

sub av {

$query = $in{'query'};

$term2 = $in{'query'};
@term2 = $term2;
(@term2 = split (/\ /, $term2));

# Alle Leerzeichen, bis auf die Leerzeichen als Trennzeichen entfernen
	foreach $searchterm2(@term2) {
	($searchterm2) = split(/\ /, $searchterm2);	
		if ($searchterm2 ne "") {
			push @searchterm2, $searchterm2;
			}
		}

$term_len2 = @searchterm2;

# Ausgabe der Suchbegriffe
	$t2 = 1;
		foreach $word2(@searchterm2) {
			if ($t2 < $term_len2) { $test2 .= "$word2+"; }
			if ($t2 == $term_len2) { $test2 .= "$word2"; }
		$t2++;
		}

# Modified Plebiusvista
 $| = 1;
 &IOSocket;
 $output = join(" ", @output);
 $output =~ /([^ ]*?) pages found\./i;
 $total = $1;
 $total =~ s/[^\d+]//g;
 ($rsltpgs, @results, $footer) = split(/<dl>/i, $output);

$FORM{'nh'} = 0 unless($FORM{'nh'});
 $prev = $FORM{'nh'} - 10;
 $next = $FORM{'nh'} + 10;
 $rsltpgs = qq~Results Pages:\ ~;
 $rsltpgs .= qq~<a href="http://www.your.server/cgi-bin/plebiusvista.pl?q=$test2&nh=$prev">[\<\< Prev]</a>~ if ($prev >= 0);
 $Remainder = $total % 10;
 $Remainder = 10 - $Remainder;
 $Results_Pages = ($total + $Remainder) / 10;
 $Results_Pages = 20 if ($Results_Pages > 20);
 for ($i = 1; $i <= $Results_Pages; $i++)
 {
 $nh = ($i - 1) * 10;
 if ($nh == $FORM{'nh'})
 {
 $rsltpgs .= qq~\ \ $i\  ~;
 }
 else
 {
 $rsltpgs .= qq~\ \ <a href="http://www.your.server/cgi-bin/plebiusvista.pl?q=$test2&nh=$nh">$i</a>\ ~;
 }
 }
 $rsltpgs .= qq~\ \ <a href="http://www.your.server/cgi-bin/plebiusvista.pl?q=$test2&nh=$next">[Next \>\>]</a>~ if ($next < $total && $FORM{'nh'} < 190);
 $rsltpgs .= qq~ ~;

$start = $FORM{'nh'} + 1;
 $end = $start + 9;
 $end = $total if ($end > $total);
		
		if ($total == "") { $total = "0"; }
		
 $output = "Showing results $start - $end of $total$rsltpgs<ul>\n";
 my $last = $#results - 1;
 for(0..$last){
 ($result) = split(/<\/dl>/i, $results[$_]);
 $result =~ s/\[[^\]]\]//ig;
 $result =~ /<a\s+href=\"([^\"]*?)\">/ig;
 $url = $1;
 ($tmp, $title) = split(/\">/i, $result);
 ($title, $tmp) = split(/<\/a>/i, $title);
 ($ttp, $desc) = split(/<dd>/i, $tmp);
 ($desc, $tmp) = split(/ /i, $desc);
 $output .= qq~<li><a href="$url">$title</a> - $desc\n~;
 }
 $output .= qq~</ul>~;

if ($total != "0") {
			$output .= qq~$rsltpgs~;
			}

else {
		$output .= " Error: no links found\n";
		}

$link_results = "$output";

$link_results2 = $link_results;
return;

&site_html_search_results;
exit;
}

2.3.

Then Add the following sub to search.cgi:

code:

3. File: site_html_templates.pl

3.1.

In site_html_templates.pl in sub site_html_search_results below:

code:


print &load_template ('search_results.html', {

Add:

code:


link_results2 => $link_results2, # AV

3.2.

In site_html_templates.pl in sub site_html_search_failure below:

code:


print &load_template ('search_error.html', {

Add:

code:


link_results2 => $link_results2, # AV

4. Files: Templates

4.1.

In search.html template in the search form add:

code:


<p>Search:&nbsp;
<select name="location">
   <option value="dir"> In YOUR-DIRECTORY&nbsp;
   <option value="av"> In the Web
   <option value="both"> In Both
</select>

4.2.

In search_results.html AND search_error.html templates add:

code:


<%if link_results2%>
<%link_results2%>
<%endif%>

That's it. Enjoy it. For installation of modifications please visit the webservices.

Problems with installing or questions, visit the Gossamer-Threads Support Forum.

| Top |