|
From: Mojo N. <moj...@us...> - 2004-04-01 03:57:27
|
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"; |