/[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 271 by dpavlin, Wed Aug 19 22:48:54 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";
Legend:
Removed from v.271  
changed lines
  Added in v.272
  ViewVC Help
Powered by ViewVC 1.1.26