11 lines
208 B
Plaintext
11 lines
208 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";
|
||
|
}
|
||
|
|
||
|
}
|