26 lines
646 B
Plaintext
26 lines
646 B
Plaintext
{
|
|
|
|
my %db = $DB->get('clamav-unofficial-sigs')->props;
|
|
|
|
my @ss = ();
|
|
my @si = ();
|
|
my @mbl = ();
|
|
|
|
if ((${'clamav-unofficial-sigs'}{'status'} || 'disabled') eq 'enabled'){
|
|
while (my ($param,$value) = each(%db)){
|
|
if ($value eq 'ss'){
|
|
push @ss, $param;
|
|
}
|
|
elsif ($value eq 'si'){
|
|
push @si, $param;
|
|
}
|
|
elsif ($value eq 'mbl'){
|
|
push @mbl, $param;
|
|
}
|
|
}
|
|
$OUT .= "ss_dbs=\"\n " . join("\n ", @ss) . "\n\"\n" if (scalar @ss > 0);
|
|
$OUT .= "si_dbs=\"\n " . join("\n ", @si) . "\n\"\n" if (scalar @si > 0);
|
|
$OUT .= "mbl_dbs=\"\n " . join("\n ", @mbl) . "\n\"\n" if (scalar @mbl > 0);
|
|
}
|
|
}
|