foxridge-archiver/archivecheck.pl - diff

Return to archivecheck.pl CVS log

Up to [Repository] / foxridge-archiver

version 1.4, 2005/09/20 17:28:26	version 1.5, 2005/12/07 17:31:04
Line 16 $\|=1;	Line 16 $\|=1;
#	#

# program version	# program version
my $version = "0.4.1 (15.2.2005)";	my $version = "0.4.2 (7.12.2005 ROC)";

# read command line parameters	# read command line parameters
my $args = parseargs;	my $args = parseargs;
Line 29 my $namespace = "";	Line 29 my $namespace = "";

# archive name (archive-path element, usually == $docdir)	# archive name (archive-path element, usually == $docdir)
my $archname;	my $archname;
# archive storage date
my $archdate;


#######################################################	#######################################################
Line 126 sub read_resource_meta {	Line 124 sub read_resource_meta {
my $name = sstrip($fn->findvalue('child::name'));	my $name = sstrip($fn->findvalue('child::name'));
my $path = sstrip($fn->findvalue('child::path'));	my $path = sstrip($fn->findvalue('child::path'));
logger("DEBUG", "DIR: ($path)$name");	logger("DEBUG", "DIR: ($path)$name");
my $f = ($path) ? "$path/$name" : "$name";	my $f = "$name";
	if (($path)&&($path ne '.')) {
	$f = "$path/$name";
	}
$files{$f} = [$name];	$files{$f} = [$name];
}	}