--- db/prgsrc/updatedb.pl	2002/11/09 01:47:23	1.25
+++ db/prgsrc/updatedb.pl	2002/11/11 09:06:23	1.26
@@ -28,7 +28,7 @@ The database, user and password are hard
 
 Dmitry Rubinstein
 
-=head1 $Id: updatedb.pl,v 1.25 2002/11/09 01:47:23 roma7 Exp $
+=head1 $Id: updatedb.pl,v 1.26 2002/11/11 09:06:23 roma7 Exp $
 
 =cut
 
@@ -144,10 +144,7 @@ sub SelectGroup {
 # Теперь, если файла нет в дереве турниров, никаких вопросов не 
 # задаётся, а вместо этого он добавляется в группу 9999
 	$ParentId = 9999;
-print STDERR "INSERT INTO Tournaments
-			      (Title, Type, ParentId, FileName) 
-			       VALUES ($TourName, 'Ч', $ParentId, 
-                                       $source)";
+		print UNSORTED $source;	
 		$sth = $dbh->prepare("INSERT INTO Tournaments
 			      (Title, Type, ParentId, FileName) 
 			       VALUES ($TourName, 'Ч', $ParentId, 
@@ -271,6 +268,7 @@ MAIN:
     my($dbh) = DBI->connect("DBI:mysql:chgk", "piataev", "")
 	or die "Can't connect to DB chgk\n";
     my @sources;	
+    open UNSORTED, ">unsorted";
     while ($source = shift) {
        push @sources,glob($source);
     }