|
version 1.2, 2000/10/15 22:22:26
|
version 1.3, 2000/10/17 12:17:15
|
|
Line 8 use POSIX qw(locale_h);
|
Line 8 use POSIX qw(locale_h);
|
| |
|
| my ($PWD) = `pwd`; |
my ($PWD) = `pwd`; |
| chomp $PWD; |
chomp $PWD; |
| my ($SRCPATH) = "/home/stepanov/baza"; |
my ($SRCPATH) = "$PWD/../dimrub/src"; |
| my ($ZIP) = "/usr/bin/zip"; |
my ($ZIP) = "/usr/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) = |
| ('Jan', '0', 'Feb', '1', 'Mar', '2', 'Apr', '3', 'May', '4', 'Jun', '5', |
('Jan', '0', 'Feb', '1', 'Mar', '2', 'Apr', '3', 'May', '4', 'Jun', '5', |
| 'Jul', '6', 'Aug', '7', 'Sep', '8', 'Oct', '9', 'Nov', '10', |
'Jul', '6', 'Aug', '7', 'Sep', '8', 'Oct', '9', 'Nov', '10', |
| 'Dec', '11'); |
'Dec', '11', |
| |
'ñÎ×', '0', 'æÅ×', 1, 'íÁÒ', 2, 'áÐÒ', 3, 'íÁÊ', '4', |
| |
'éÀÎ', '5', 'éÀÌ', 6, 'á×Ç', '7', 'óÅÎ', '8', |
| |
'ïËÔ', '9', 'îÏÑ', '19', 'äÅË', '11'); |
| |
|
| # Determine whether the given time is within 2 months from now. |
# Determine whether the given time is within 2 months from now. |
| sub NewEnough { |
sub NewEnough { |
![[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