|
version 1.7, 2000/10/20 05:17:03
|
version 1.8, 2000/10/21 04:25:22
|
|
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 ($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 614 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" |
![[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