version 1.130, 2004/03/11 07:14:14
|
version 1.131, 2004/03/16 12:03:38
|
Line 2
|
Line 2
|
|
|
use DBI; |
use DBI; |
use CGI ':all'; |
use CGI ':all'; |
use strict; |
#use strict; |
use Time::Local; |
use Time::Local; |
|
my $proxyredirect=0; |
use POSIX qw(locale_h); |
use POSIX qw(locale_h); |
use locale; |
use locale; |
use vars qw($opt_z); |
use vars qw($opt_z); |
use Getopt::Std; |
use Getopt::Std; |
my ($dbuser,$dbname,$dbpass,$dbhost); |
#my ($dbuser,$dbname,$dbpass,$dbhost); |
require "dbdefs.pl"; |
require "dbdefs.pl"; |
|
my $url=url||''; |
$dbuser||="piataev"; |
$dbuser||="piataev"; |
$dbname||="chgk"; |
$dbname||="chgk"; |
$dbpass||=""; |
$dbpass||=""; |
Line 26 my $reklama="../dimrub/db/reklama.html";
|
Line 28 my $reklama="../dimrub/db/reklama.html";
|
my $footer="../dimrub/db/footer.html"; |
my $footer="../dimrub/db/footer.html"; |
|
|
my $datefooter="../dimrub/db/date"; |
my $datefooter="../dimrub/db/date"; |
|
$datefooter="../../chgk/date" if $url=~/zaba/; |
|
|
my $fname; |
my $fname; |
$reklama="../reklama.html" if $opt_z; |
$reklama="../reklama.html" if $opt_z; |
Line 40 if ($^O =~ /win/i) {
|
Line 43 if ($^O =~ /win/i) {
|
{ |
{ |
$realHTMLDIR="/home/piataev/public_html/dimrub/db/files/"; |
$realHTMLDIR="/home/piataev/public_html/dimrub/db/files/"; |
} |
} |
my $url=url||''; |
|
|
|
my $usehtml=$opt_z||0; |
my $usehtml=$opt_z||0; |
$usehtml=1; |
$usehtml=1; |
Line 67 if ($url !~ /db\.chgk\.info/ && $url !~
|
Line 70 if ($url !~ /db\.chgk\.info/ && $url !~
|
exit; |
exit; |
} |
} |
|
|
if ($metod=~/proxy/ && $url !~ /localhost/ && $url !~ /bilbo/ && $url !~ /zaba/) { |
if ($proxyredirect && $metod=~/proxy/ && $url !~ /localhost/ && $url !~ /bilbo/ && $url !~ /zaba/) { |
my $u="http://chgk.zaba.ru/cgi-bin/db.cgi?$qs"; |
my $u="http://chgk.zaba.ru/cgi-bin/db.cgi?$qs"; |
Redirect ($u); |
Redirect ($u); |
exit; |
exit; |
Line 424 action="/znatoki/cgi-bin/db.cgi">
|
Line 427 action="/znatoki/cgi-bin/db.cgi">
|
</td> |
</td> |
</tr> |
</tr> |
</table> |
</table> |
|
<p><i>Если при попытке поиска выдаётся сообщение об ошибке, |
|
попробуйте воспользоваться |
|
<a href="http://chgk.zaba.ru/search.html">зеркалом базы</a></i> |
</center> |
</center> |
|
|
EOT |
EOT |
Line 1957 MAIN:
|
Line 1963 MAIN:
|
my $d=$destination; |
my $d=$destination; |
$d=~s/$HTMLDIR/$realHTMLDIR/; |
$d=~s/$HTMLDIR/$realHTMLDIR/; |
# print header.$destination; |
# print header.$destination; |
print header."$d|".(-e "$realHTMLDIR$n.html"); |
# print header."$d|".(-e "$realHTMLDIR$n.html"); |
if (-e $d) { |
if (-e $d) { |
Redirect($destination); |
Redirect($destination); |
exit |
exit |
} |
} |
$d=~s/\.\d+//; |
$d=~s/\.\d+//; |
$destination=~s/\.\d+//; |
$destination=~s/\.\d+//; |
print br.br.$d; |
|
if (-e $d) { |
if (-e $d) { |
Redirect($destination); |
Redirect($destination); |
exit |
exit |
Line 2052 print br.br.$d;
|
Line 2057 print br.br.$d;
|
my $title="Результаты поиска на \"". ($proxysstr||$sstr) .'"' |
my $title="Результаты поиска на \"". ($proxysstr||$sstr) .'"' |
if ($proxysstr||$sstr); |
if ($proxysstr||$sstr); |
$title||="База вопросов"; |
$title||="База вопросов"; |
|
if ($url=~/zaba/) { |
|
$globaloutput.= |
|
"<head> |
|
<title>$title</title> |
|
<META HTTP-EQUIV='Content-Type' CONTENT='text/html; charset=koi8-r'> |
|
</head><HTML><body bgcolor=#fff0e0 vlink=#800020>"; |
|
} else { |
$globaloutput.=start_html(-"title"=>$title, |
$globaloutput.=start_html(-"title"=>$title, |
-author=>'dimrub@icomverse.com', |
-author=>'dimrub@icomverse.com', |
-bgcolor=>'#fff0e0', |
-bgcolor=>'#fff0e0', |
-vlink=>'#800020'); |
-vlink=>'#800020');} |
$globaloutput.="<style> |
$globaloutput.="<style> |
td {font-size: x-small; font-family : sans-serif} |
td {font-size: x-small; font-family : sans-serif} |
th {font-size: x-small; font-family : sans-serif} |
th {font-size: x-small; font-family : sans-serif} |