|
version 1.142, 2005/12/10 00:03:55
|
version 1.143, 2006/09/24 19:53:59
|
|
Line 44 if ($^O =~ /win/i) {
|
Line 44 if ($^O =~ /win/i) {
|
| $realHTMLDIR="/html/znatoki/baza/"; |
$realHTMLDIR="/html/znatoki/baza/"; |
| } else |
} else |
| { |
{ |
| $realHTMLDIR="/home/piataev/public_html/dimrub/db/files/"; |
$realHTMLDIR="/home/znatoki/chgk-db/public_html/dimrub/db/files/"; |
| } |
} |
| |
|
| |
|
|
Line 67 $outputkvo=100 if $outputkvo>100;
|
Line 67 $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/ && $url !~ /bilbo/ && $url !~ /zaba/) { |
if ($url !~ /db\.chgk\.info/ && $url !~ /localhost/ && $url !~ /bilbo/ && $url !~ /zaba/ && $url !~ /question\.chgk\.info/ ) { |
| 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 130 my $all=param('all');
|
Line 130 my $all=param('all');
|
| $all=0 if lc $all eq 'no'; |
$all=0 if lc $all eq 'no'; |
| my ($PWD) = `pwd` if $^O!~/win/i; |
my ($PWD) = `pwd` if $^O!~/win/i; |
| chomp $PWD if $PWD; |
chomp $PWD if $PWD; |
| my ($SRCPATH) = "/home/piataev/public_html/dimrub/src"; |
my ($SRCPATH) = "/home/db-chgk/public_html/dimrub/src"; |
| my ($ZIP) = "/usr/local/bin/zip"; |
my ($ZIP) = "/usr/bin/zip"; |
| my $DUMPFILE = "/tmp/chgkdump"; |
my $DUMPFILE = "/tmp/chgkdump"; |
| my ($SENDMAIL) = "/usr/sbin/sendmail"; |
my ($SENDMAIL) = "/usr/sbin/sendmail"; |
| my ($TMPDIR) = "/var/tmp"; |
my ($TMPDIR) = "/var/tmp"; |
![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to db.cgi CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [Local Repository] / db / prgsrc