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]; |
} |
} |
|
|