--- db/prgsrc/db.cgi 2004/03/11 07:14:14 1.130
+++ db/prgsrc/db.cgi 2004/03/16 12:03:38 1.131
@@ -2,14 +2,16 @@
use DBI;
use CGI ':all';
-use strict;
+#use strict;
use Time::Local;
+my $proxyredirect=0;
use POSIX qw(locale_h);
use locale;
use vars qw($opt_z);
use Getopt::Std;
-my ($dbuser,$dbname,$dbpass,$dbhost);
+#my ($dbuser,$dbname,$dbpass,$dbhost);
require "dbdefs.pl";
+my $url=url||'';
$dbuser||="piataev";
$dbname||="chgk";
$dbpass||="";
@@ -26,6 +28,7 @@ my $reklama="../dimrub/db/reklama.html";
my $footer="../dimrub/db/footer.html";
my $datefooter="../dimrub/db/date";
+$datefooter="../../chgk/date" if $url=~/zaba/;
my $fname;
$reklama="../reklama.html" if $opt_z;
@@ -40,7 +43,7 @@ if ($^O =~ /win/i) {
{
$realHTMLDIR="/home/piataev/public_html/dimrub/db/files/";
}
-my $url=url||'';
+
my $usehtml=$opt_z||0;
$usehtml=1;
@@ -67,7 +70,7 @@ if ($url !~ /db\.chgk\.info/ && $url !~
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";
Redirect ($u);
exit;
@@ -424,6 +427,9 @@ action="/znatoki/cgi-bin/db.cgi">
+Если при попытке поиска выдаётся сообщение об ошибке,
+попробуйте воспользоваться
+зеркалом базы
EOT
@@ -1957,14 +1963,13 @@ MAIN:
my $d=$destination;
$d=~s/$HTMLDIR/$realHTMLDIR/;
# print header.$destination;
- print header."$d|".(-e "$realHTMLDIR$n.html");
+# print header."$d|".(-e "$realHTMLDIR$n.html");
if (-e $d) {
Redirect($destination);
exit
}
$d=~s/\.\d+//;
$destination=~s/\.\d+//;
-print br.br.$d;
if (-e $d) {
Redirect($destination);
exit
@@ -2052,11 +2057,17 @@ print br.br.$d;
my $title="Результаты поиска на \"". ($proxysstr||$sstr) .'"'
if ($proxysstr||$sstr);
$title||="База вопросов";
-
+ if ($url=~/zaba/) {
+ $globaloutput.=
+"
+$title
+
+";
+ } else {
$globaloutput.=start_html(-"title"=>$title,
-author=>'dimrub@icomverse.com',
-bgcolor=>'#fff0e0',
- -vlink=>'#800020');
+ -vlink=>'#800020');}
$globaloutput.="