use strict;
use autodie;
+use Data::Dump qw/dump/;
use LWP::Simple qw/mirror RC_NOT_MODIFIED/;
use Storable;
use server;
sub mirror_file {
my ( $url, $file ) = @_;
- print STDERR "mirror $url";
+ warn "mirror_file $url -> $file\n";
mirror( $url, $file )
== RC_NOT_MODIFIED
&& warn(" not modified\n")
sub files {
my $url = shift;
+ my @files = @_;
+
+ if ( ! @files ) {
+ push @files, $1 if $url =~ s{/([^/]+)$}{};
+ }
my $name = (caller(1))[3];
$name =~ s{config::}{} || die "caller isn't package config !";
my $path = "$server::base_dir/tftp/$name";
+ mkdir $path unless -d $path;
+
+ warn "# files $url ",dump( @files ), " -> $path\n";
- foreach my $file ( @_ ) {
- mirror_file "$url/$file", "$path/$file"
- if first_time( "$url/$file" );
+ foreach my $file ( @files ) {
+ mirror_file( "$url/$file", "$path/$file" )
+ if ! -e "$path/$file" || first_time( "$url/$file" );
}
}