version 1.7, 2000/10/20 05:17:03
|
version 1.10, 2000/10/23 01:24:59
|
Line 9 use POSIX qw(locale_h);
|
Line 9 use POSIX qw(locale_h);
|
my ($PWD) = `pwd`; |
my ($PWD) = `pwd`; |
chomp $PWD; |
chomp $PWD; |
my ($SRCPATH) = "$PWD/../dimrub/src"; |
my ($SRCPATH) = "$PWD/../dimrub/src"; |
my ($ZIP) = "/usr/bin/zip"; |
my ($ZIP) = "/home/piataev/bin/zip"; |
|
my $DUMPFILE = "/tmp/dump.sql"; |
my ($SENDMAIL) = "/usr/sbin/sendmail"; |
my ($SENDMAIL) = "/usr/sbin/sendmail"; |
my ($TMSECS) = 30*24*60*60; |
my ($TMSECS) = 30*24*60*60; |
my (%RevMonths) = |
my (%RevMonths) = |
Line 614 MAIN:
|
Line 615 MAIN:
|
my ($mime_type) = $text ? "plain" : "html"; |
my ($mime_type) = $text ? "plain" : "html"; |
print F <<EOT; |
print F <<EOT; |
To: $Email |
To: $Email |
From: dimrub\@icomverse.com |
From: olegstemanov\@mail.ru |
Subject: Sluchajnij Paket Voprosov "Chto? Gde? Kogda?" |
Subject: Sluchajnij Paket Voprosov "Chto? Gde? Kogda?" |
MIME-Version: 1.0 |
MIME-Version: 1.0 |
Content-type: text/$mime_type; charset="koi8-r" |
Content-type: text/$mime_type; charset="koi8-r" |
Line 634 EOT
|
Line 635 EOT
|
} elsif (param('from_year') && param('to_year')) { |
} elsif (param('from_year') && param('to_year')) { |
print &PrintDates($dbh); |
print &PrintDates($dbh); |
} elsif (param('comp')) { |
} elsif (param('comp')) { |
print header( |
print header( |
-'Content-Type' => 'application/x-zip-compressed; name="db.zip"', |
-'Content-Type' => 'application/x-zip-compressed; name="db.zip"', |
-'Content-Disposition' => 'attachment; filename="db.zip"' |
-'Content-Disposition' => 'attachment; filename="db.zip"' |
); |
); |
$tour = (param('tour')) ? param('tour') : 0; |
$tour = (param('tour')) ? param('tour') : 0; |
my (@files) = &PrintArchive($dbh, $tour); |
my (@files) = &PrintArchive($dbh, $tour); |
open F, "$ZIP -j - $SRCPATH/COPYRIGHT @files |"; |
open F, "$ZIP -j - $SRCPATH/COPYRIGHT @files |"; |
print (<F>); |
print (<F>); |
close F; |
close F; |
$dbh->disconnect; |
$dbh->disconnect; |
exit; |
exit; |
|
} elsif (param('sqldump')) { |
|
print header( |
|
-'Content-Type' => 'application/x-zip-compressed; name="dump.zip"', |
|
-'Content-Disposition' => 'attachment; filename="dump.zip"' |
|
); |
|
if (! -f $DUMPFILE) { |
|
`mysqldump -u piataev chgk > $DUMPFILE`; |
|
} |
|
open F, "$ZIP -j - $DUMPFILE |"; |
|
print (<F>); |
|
close F; |
|
$dbh->disconnect; |
|
exit; |
|
|
} else { |
} else { |
$tour = (param('tour')) ? param('tour') : 0; |
$tour = (param('tour')) ? param('tour') : 0; |
if ($tour !~ /^[0-9]*$/) { |
if ($tour !~ /^[0-9]*$/) { |