![[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|
Return to db.cgi CVS log | Up to [Local Repository] / db / prgsrc |
| version 1.14, 2001/05/16 23:49:01 | version 1.17, 2001/05/17 03:48:31 |
|---|---|
| Line 2 | Line 2 |
| use DBI; | use DBI; |
| use CGI ':all'; | use CGI ':all'; |
| use Text::Query; | |
| use strict; | 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"; |