- while (($_, $_, $pattern, $domain, $comment, $_, $hit_count, $last_hit) = GetList $sth) {
- last if !(defined $pattern or defined $domain);
-
- $pattern //= '';
- $domain //= '';
-
- if ($domain eq '') {
- print "$pattern,$comment,$hit_count,$last_hit\n";
+ FindList(
+ userid => $userid,
+ type => $type,
+ );
+
+ while (my $rec = GetList) {
+ $rec->{pattern} //= '';
+ $rec->{domain} //= '';
+ $rec->{comment} //= '';
+ $rec->{hit_count} //= 0;
+ $rec->{last_hit} //= '';
+ $rec->{retention} //= '';
+
+ if ($rec->{domain} eq '') {
+ print "$rec->{pattern},$rec->{comment},$rec->{hit_count},$rec->{last_hit},$rec->{retention}\n";