/[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 531 by dpavlin, Mon Sep 13 18:23:02 2010 UTC revision 532 by dpavlin, Fri Sep 17 19:35:50 2010 UTC
# Line 22  sub mirror_file { Line 22  sub mirror_file {
22                  ;                  ;
23  }  }
24    
25    =head2 iso
26    
27      my $iso_path = upstream::iso 'http://example.com/bootable.iso';
28    
29    =cut
30    
31  sub iso {  sub iso {
32          my $url = shift;          my $url = shift;
33    
# Line 50  sub iso { Line 56  sub iso {
56          return $iso;          return $iso;
57  }  }
58    
59    =head2 files
60    
61      my $to_dir = upstream::files qw(http://base.url.example.com/ file1 file2 file2);
62    
63    =cut
64    
65  sub files {  sub files {
66          my $url = shift;          my $url = shift;
67          my @files = @_;          my @files = @_;
# Line 70  sub files { Line 82  sub files {
82                  mirror_file( "$url/$file", "$path/$file" )                  mirror_file( "$url/$file", "$path/$file" )
83                          if ! -e "$path/$file" || once::first_time( "$url/$file" );                          if ! -e "$path/$file" || once::first_time( "$url/$file" );
84          }          }
85    
86            return $path;
87  }  }
88    
89  1;  1;
Legend:
Removed from v.531  
changed lines
  Added in v.532
  ViewVC Help
Powered by ViewVC 1.1.26