[Sprawler-commits] sprawler/lib Sprawler.pm,1.8,1.9

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

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

Modified Files:
	Sprawler.pm 
Log Message:
You know you've been away to long when you forget how to commit to cvs
 
Let's see add funct mkrdir make recursive directory for helping out with config file.
added hack to checkin client to to clientdb.
 
mojo




Index: Sprawler.pm
===================================================================
RCS file: /cvsroot/sprawler/sprawler/lib/Sprawler.pm,v
retrieving revision 1.8
retrieving revision 1.9
diff -C2 -d -r1.8 -r1.9
*** Sprawler.pm	25 Mar 2004 04:40:36 -0000	1.8
--- Sprawler.pm	25 Jun 2004 02:31:05 -0000	1.9
***************
*** 70,73 ****
--- 70,88 ----
  }
  
+ sub mkrdir {
+   my $self=shift;
+   my $path=shift;
+   if (! -e "$path") {
+     foreach my $d (split(/\//,$path)) {
+       $dir.=$d."/";
+       if (! -e "$dir") {
+ 	mkdir("$dir") 
+ 	  || die "unable to create $dir\n" ;
+       }
+     }
+   }
+ }
+   
+ 
  sub logf {
    my $self=shift;
***************
*** 76,80 ****
    chomp($timestamp);
    if($self->{LOGFILE}) {
!     $logfile=$self->{LOGFILE}
    } else {
      $logfile="/dev/null";
--- 91,98 ----
    chomp($timestamp);
    if($self->{LOGFILE}) {
!     $logfile=$self->{LOGFILE};
!     my $path=$logfile;
!     $path=~s/(.*)\/(.*)$/$1/;
!     $self->mkrdir($path);
    } else {
      $logfile="/dev/null";