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 |
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"; |