/[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 500 by dpavlin, Mon May 3 15:15:08 2010 UTC revision 508 by dpavlin, Wed Jul 21 16:17:46 2010 UTC
# Line 11  use once; Line 11  use once;
11    
12  sub mirror_file {  sub mirror_file {
13          my ( $url, $file ) = @_;          my ( $url, $file ) = @_;
14    
15            return if ! once::first_time $url;
16    
17          warn "mirror_file $url -> $file\n";          warn "mirror_file $url -> $file\n";
18          mirror( $url, $file )          mirror( $url, $file )
19                  == RC_NOT_MODIFIED                  == RC_NOT_MODIFIED
# Line 35  sub iso { Line 38  sub iso {
38    
39          my $iso = "$dir/$file";          my $iso = "$dir/$file";
40    
41          mirror_file( $url, $iso ) if once::first_time $url;          mirror_file( $url, $iso );
42    
43          $file =~ s{\.iso$}{}i;          $file =~ s{\.iso$}{}i;
44          my $mnt = "$server::base_dir/tftp/$name";          my $mnt = "$server::base_dir/tftp/$name";
Legend:
Removed from v.500  
changed lines
  Added in v.508
  ViewVC Help
Powered by ViewVC 1.1.26