db/prgsrc/db.cgi - diff

Return to db.cgi CVS log

Up to [Local Repository] / db / prgsrc

Diff for /db/prgsrc/db.cgi between versions 1.130 and 1.131

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}

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>

Removed from v.1.130
changed lines
	Added in v.1.131