{ 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 . '"' if (scalar @ss > 0); $OUT .= "si_dbs=\"\n" . join "\n", @si . '"' if (scalar @si > 0); $OUT .= "mbl_dbs=\"\n" . join "\n", @mbl . '"' if (scalar @mbl > 0); } }