|
version 1.1, 2000/10/15 19:49:22
|
version 1.2, 2000/10/15 22:22:26
|
|
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) = "$PWD/../dimrub/src"; |
my ($SRCPATH) = "/home/stepanov/baza"; |
| my ($ZIP) = "/usr/local/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) = |
|
Line 475 sub Include_virtual {
|
Line 475 sub Include_virtual {
|
| my ($fn, $output) = (@_, ''); |
my ($fn, $output) = (@_, ''); |
| |
|
| open F , $fn |
open F , $fn |
| or die "Can't open the file $fn: $!\n"; |
or return; #die "Can't open the file $fn: $!\n"; |
| |
|
| while (<F>) { |
while (<F>) { |
| if (/<!--#include/o) { |
if (/<!--#include/o) { |
![[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