version 1.39, 2003/08/21 01:48:22
|
version 1.40, 2003/09/26 00:23:09
|
Line 307 foreach my $user (@homeusers) {
|
Line 307 foreach my $user (@homeusers) {
|
foreach my $m (@metalist) { |
foreach my $m (@metalist) { |
print LOG "- ".$m."\n"; |
print LOG "- ".$m."\n"; |
my $ref=&metadata($m); |
my $ref=&metadata($m); |
|
if ($ref->{'obsolete'}) { print LOG "obsolete\n"; next; } |
|
if ($ref->{'copyright'} eq 'private') { print LOG "private\n"; next; } |
my $m2='/res/'.&declutter($m); |
my $m2='/res/'.&declutter($m); |
$m2=~s/\.meta$//; |
$m2=~s/\.meta$//; |
# &dynamicmeta($m2); |
# &dynamicmeta($m2); |