+
+ my $glob = "$Conf{ArchiveDest}/$host.$num.*";
+
+ my @tar_parts = sort map { s/^\Q$Conf{ArchiveDest}\E\/*//; $_ } glob $glob ;
+
+ if ( ! @tar_parts ) {
+ warn "ERROR: no files for $glob";
+ return;
+ }
+
+ print curr_time, " check $host $num";
+
+ my $md5_path = "$Conf{ArchiveDest}/$host.$num.md5";
+ unlink $md5_path if -s $md5_path == 0; # fix empty
+
+ if ( ! -e $md5_path ) {
+ system_ok "cd $Conf{ArchiveDest} && /usr/bin/md5sum $host.$num.* > $md5_path";
+ } else {
+ system_ok "cd $Conf{ArchiveDest} && /usr/bin/md5sum -c $md5_path" if $opt->check;
+ }
+
+ my $md5sum;
+ foreach ( split(/\n/, read_file "$Conf{ArchiveDest}/$host.$num.md5" ) ) {
+ my ( $md5, $path ) = split(/\s+/,$_);
+ $md5sum->{$path} = $md5;
+ }