version 1.71, 2005/06/08 18:49:38
|
version 1.72, 2005/06/09 21:40:37
|
Line 467 sub getresidx {
|
Line 467 sub getresidx {
|
sub makezombie { |
sub makezombie { |
my $idx=shift; |
my $idx=shift; |
my ($name,$url,$ext)=split(/\:/,$resources[$idx]); |
my ($name,$url,$ext)=split(/\:/,$resources[$idx]); |
$zombies[$idx]=$name.':'.$url.':'.$ext.':zombie'; |
my $now=time; |
|
$zombies[$idx]=$name. |
|
' [('.$now.','.$env{'user.name'}.','.$env{'user.domain'}.')]:'. |
|
$url.':'.$ext.':zombie'; |
} |
} |
|
|
# ----------------------------------------------------------- Paste into target |
# ----------------------------------------------------------- Paste into target |