version 1.107, 2003/04/20 12:04:25
|
version 1.109, 2003/04/20 12:21:13
|
Line 35 $outputkvo=100 if $outputkvo>100;
|
Line 35 $outputkvo=100 if $outputkvo>100;
|
|
|
if (param('debug')) {$debug=1; $printqueries=1} |
if (param('debug')) {$debug=1; $printqueries=1} |
*STDERR=*STDOUT if $debug; |
*STDERR=*STDOUT if $debug; |
if ($url !~ /db\.chgk\.info/ && $url !~ /localhost/ ) { |
if ($url !~ /db\.chgk\.info/ && $url !~ /localhost/ && $url !~ /bilbo/) { |
my $u="http://db.chgk.info/cgi-bin/db.cgi?$qs"; |
my $u="http://db.chgk.info/cgi-bin/db.cgi?$qs"; |
Redirect ($u); |
Redirect ($u); |
exit; |
exit; |
Line 224 sub tourhref {
|
Line 224 sub tourhref {
|
$res=$t; |
$res=$t; |
$res.=$a?"-a":"-q" unless $gr; |
$res.=$a?"-a":"-q" unless $gr; |
$res.=".html"; |
$res.=".html"; |
|
$res=~s/(\#\d+)(.*)$/$2$1/; |
return $res; |
return $res; |
} else { |
} else { |
$res=$url; |
$res=$url; |