/[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 276 by dpavlin, Thu Aug 20 17:36:17 2009 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 30  sub iso { Line 33  sub iso {
33          my $dir = "$server::base_dir/iso";          my $dir = "$server::base_dir/iso";
34          mkdir $dir unless -e $dir;          mkdir $dir unless -e $dir;
35    
36          my $file = $1 if $url =~ m{/([^/]+\.iso$)}i;          my $file = $1 if $url =~ m{/([^/]+\.iso)}i;
37          die "can't find iso file in $url" unless $file;          die "can't find iso file in $url" unless $file;
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.276  
changed lines
  Added in v.508
  ViewVC Help
Powered by ViewVC 1.1.26