[Sprawler-commits] sprawler/lib/Sprawler Client.pm,1.40,1.41

[Mojo N. <moj...@us...>]

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

Modified Files:
	Client.pm 
Log Message:
recursivly creates index directory.



Index: Client.pm
===================================================================
RCS file: /cvsroot/sprawler/sprawler/lib/Sprawler/Client.pm,v
retrieving revision 1.40
retrieving revision 1.41
diff -C2 -d -r1.40 -r1.41
*** Client.pm	28 Mar 2004 01:49:40 -0000	1.40
--- Client.pm	1 Apr 2004 03:45:34 -0000	1.41
***************
*** 459,467 ****
    my $tmp_db=$self->get("URL_DB");
  
    if (! -e "$index_path") {
!     mkdir("$index_path") 
!       || die "unable to create $index_path\n" ;
    }
! 
    my $urlhash=$self->checksum("$url");
    my $db_file=$index_path.$urlhash."\.db";
--- 459,473 ----
    my $tmp_db=$self->get("URL_DB");
  
+ 
    if (! -e "$index_path") {
!     foreach my $d (split(/\//,$index_path)) {
!       $dir.=$d."/";
!       if (! -e "$dir") {
! 	mkdir("$dir") 
! 	  || die "unable to create $dir\n" ;
!       }
!     }
    }
!   
    my $urlhash=$self->checksum("$url");
    my $db_file=$index_path.$urlhash."\.db";