[Sprawler-commits] sprawler/lib/Sprawler Master.pm,1.34,1.35

[Eric A. <de...@us...>]

Update of /cvsroot/sprawler/sprawler/lib/Sprawler
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv21944/lib/Sprawler

Modified Files:
	Master.pm 
Log Message:
minor bugfixes. still hunting for the big one

Index: Master.pm
===================================================================
RCS file: /cvsroot/sprawler/sprawler/lib/Sprawler/Master.pm,v
retrieving revision 1.34
retrieving revision 1.35
diff -C2 -d -r1.34 -r1.35
*** Master.pm	16 Mar 2004 04:19:47 -0000	1.34
--- Master.pm	20 Mar 2004 04:26:16 -0000	1.35
***************
*** 191,197 ****
    my $seed_file="./url_seed.txt";
    my @urls=();
-   my ($obj0, $fdesc0, $dbh0)=$self->open_db($url_file_statezero, "ZERO");
    
!   if (!(my ($key,$value) = each %{$dbh0})) {
      print "No urls in db to index! Seeding url index ...\n";
      open(SEEDFILE, "$seed_file");
--- 191,198 ----
    my $seed_file="./url_seed.txt";
    my @urls=();
    
!   
!   if (!(-e $url_file_statezero)) {
!     my ($obj0, $fdesc0, $dbh0)=$self->open_db($url_file_statezero, "ZERO");
      print "No urls in db to index! Seeding url index ...\n";
      open(SEEDFILE, "$seed_file");
***************
*** 209,216 ****
      my $urlsadded = @urls;
      print "$urlsadded urls added to seed list.\n";
    } else {
      print "Using original seed list.\n"
    }
-   $self->close_db($obj0, $fdesc0, "ZERO");
  }
  
--- 210,217 ----
      my $urlsadded = @urls;
      print "$urlsadded urls added to seed list.\n";
+     $self->close_db($obj0, $fdesc0, "ZERO");
    } else {
      print "Using original seed list.\n"
    }
  }