--- db/prgsrc/updatedb.pl	2003/01/08 23:36:38	1.30
+++ db/prgsrc/updatedb.pl	2003/01/09 01:43:21	1.31
@@ -28,7 +28,7 @@ The database, user and password are hard
 
 Dmitry Rubinstein
 
-=head1 $Id: updatedb.pl,v 1.30 2003/01/08 23:36:38 roma7 Exp $
+=head1 $Id: updatedb.pl,v 1.31 2003/01/09 01:43:21 boris Exp $
 
 =cut
 
@@ -38,7 +38,7 @@ use Getopt::Std;
 getopts('i');
 #open STDERR, ">errors";
 my $Interactive=$opt_i || 0;
-
+my $DUMPDIR = $ENV{DUMPDIR} || "../dump";
 
 my (%RevMonths) = 
     ('Jan', '1', 'Feb', '2', 'Mar', '3', 'Apr', '4', 'May', '5', 'Jun', '6',
@@ -269,7 +269,7 @@ MAIN:
     my($dbh) = DBI->connect("DBI:mysql:chgk", "piataev", "")
 	or die "Can't connect to DB chgk\n";
     my @sources;	
-    open UNSORTED, ">unsorted";
+    open UNSORTED, ">$DUMPDIR/unsorted";
     while ($source = shift) {
        push @sources,glob($source);
     }