![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to updateRS1.pl CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [Local Repository] / db / prgsrc|
Return to updateRS1.pl CVS log | Up to [Local Repository] / db / prgsrc |
| version 1.9, 2002/08/01 01:20:47 | version 1.10, 2003/02/13 16:27:32 |
|---|---|
| Line 40 use POSIX qw (locale_h); | Line 40 use POSIX qw (locale_h); |
| use lib "../lib"; | use lib "../lib"; |
| use chgkfiles; | use chgkfiles; |
| use dbchgk; | use dbchgk; |
| open (STDERR,">errors"); | my $DUMPDIR = $ENV{DUMPDIR} || "../dump"; |
| open (STDERR,">$DUMPDIR/errors"); | |
| my $initime=time; | my $initime=time; |
| open TIME, ">time"; | open TIME, ">$DUMPDIR/time"; |
| do "common.pl"; | do "common.pl"; |
| do "chgk.cnf"; | do "chgk.cnf"; |