/[pxelator]/lib/PXElator/upstream.pm
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /lib/PXElator/upstream.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 266 by dpavlin, Wed Aug 19 17:00:46 2009 UTC revision 272 by dpavlin, Wed Aug 19 23:12:02 2009 UTC
# Line 31  sub first_time { Line 31  sub first_time {
31  sub iso {  sub iso {
32          my $url = shift;          my $url = shift;
33    
         return if ! first_time($url);  
   
34          my $name = (caller(1))[3];          my $name = (caller(1))[3];
35          $name =~ s{config::}{} || die "caller isn't package config !";          $name =~ s{config::}{} || die "caller isn't package config !";
36    
# Line 46  sub iso { Line 44  sub iso {
44    
45          my $iso = "$dir/$file";          my $iso = "$dir/$file";
46    
47          mirror_file( $url, $iso );          mirror_file( $url, $iso ) if first_time $url;
48    
49          $file =~ s{\.iso$}{}i;          $file =~ s{\.iso$}{}i;
50          my $mnt = "$server::base_dir/tftp/$name";          my $mnt = "$server::base_dir/tftp/$name";
# Line 79  sub files { Line 77  sub files {
77          }          }
78  }  }
79    
 sub mkpath {  
         my $file = shift;  
   
         my @file_parts = split m{/}, $file;  
         foreach ( 1 .. $#file_parts - 1 ) {  
                 my $path = splice @file_parts, 0, $_;  
                 warn "? $path\n";  
                 mkdir $path unless -e $path;  
         }  
 }  
   
80  1;  1;
Legend:
Removed from v.266  
changed lines
  Added in v.272
  ViewVC Help
Powered by ViewVC 1.1.26