11 |
use WebPAC::Input 0.16; |
use WebPAC::Input 0.16; |
12 |
use WebPAC::Store 0.15; |
use WebPAC::Store 0.15; |
13 |
use WebPAC::Normalize 0.22; |
use WebPAC::Normalize 0.22; |
14 |
use WebPAC::Output::TT; |
#use WebPAC::Output::TT; |
15 |
use WebPAC::Validate 0.11; |
use WebPAC::Validate 0.11; |
16 |
use WebPAC::Output::MARC; |
use WebPAC::Output::MARC; |
17 |
use WebPAC::Config; |
use WebPAC::Config; |
412 |
|
|
413 |
if ( $mirror ) { |
if ( $mirror ) { |
414 |
my $path = $input->{path} || die "no input path in ",dump( $input ); |
my $path = $input->{path} || die "no input path in ",dump( $input ); |
|
$log->info( "mirror ", $path, " ", -s $path, " bytes" ); |
|
415 |
|
|
416 |
$log->warn( "$path not modified" ) |
my $base = $path; |
417 |
if mirror( "$mirror/$path", $path ) == RC_NOT_MODIFIED; |
$base =~ s{/[^/]+$}{}; |
418 |
|
mkpath $base unless -e $base; |
419 |
|
|
420 |
|
my $rc = mirror( "$mirror/$path", $path ); |
421 |
|
if (is_error( $rc )) { |
422 |
|
die "can't mirror $mirror/$path -> $path [$rc]"; |
423 |
|
} else { |
424 |
|
$log->info( "mirror ", $path, " [$rc] ", -s $path, " bytes" ); |
425 |
|
} |
426 |
|
|
427 |
} |
} |
428 |
|
|
429 |
my $input_db = new WebPAC::Input( |
my $input_db = new WebPAC::Input( |