11 lines
219 B
Plaintext
11 lines
219 B
Plaintext
{
|
|
|
|
foreach my $share (@shares){
|
|
my $name = $share->key;
|
|
my $av = $share->prop('ClamRT') || 'disabled';
|
|
next unless ($av eq 'enabled');
|
|
$OUT .= "/home/e-smith/files/shares/$name/files\n";
|
|
}
|
|
$OUT .= '';
|
|
}
|