help.pl, helpinfos: Proper virtual hosting on jazz.

[ircbot] / help.pl

diff --git a/help.pl b/help.pl
index 68721904bdf627f6bed5810a67f5278df49f1fad..92ed65abd7a209b33c91a13b21772ab16beb7d7b 100755 (executable)
--- a/help.pl
+++ b/help.pl
@@ -23,7 +23,8 @@ s,/[^/]+$,/helpinfos, or die "$_ ?";
 open HI, "< $_" or die $?;
 
 $tc= '-+._0-9a-z';
-$sf= $ENV{'SCRIPT_NAME'};
+##$sf= $ENV{'SCRIPT_NAME'};
+$sf = "/help";
 
 while (<HI>) {
     s/\s+$//;
@@ -93,7 +94,7 @@ if ($topic eq 'ALL') {
        printout($xr) unless $xr eq $topic;
     }
     if (length $topic) {
-       $o .= "See <A href=\"$sf\">overview</A>.\n";
+       $o .= "See <A href=\"$sf\">top level</A>.\n";
     }
     $o .= "See <A href=\"$sf/ALL\">all topics</A>.\n<hr>\n"
 }