Return to db.cgi CVS log | Up to [Local Repository] / db / prgsrc |
version 1.15, 2001/05/17 01:33:59 | version 1.17, 2001/05/17 03:48:31 |
---|---|
Line 7 use strict; | Line 7 use strict; |
use Time::Local; | use Time::Local; |
use POSIX qw(locale_h); | use POSIX qw(locale_h); |
my $debug=1; #added by R7 | my $debug=1; #added by R7 |
open STDERR, ">/home/roma7/errors" if $debug; | |
my ($PWD) = `pwd`; | my ($PWD) = `pwd`; |
chomp $PWD; | chomp $PWD; |
my ($SRCPATH) = "$PWD/../dimrub/src"; | my ($SRCPATH) = "$PWD/../dimrub/src"; |