summary |
shortlog |
log |
commit | commitdiff |
tree
raw |
patch |
inline | side by side (from parent 1:
8af32b2)
Don't know how this became a problem but I believe it to be fixed now.
$update //= 1;
my $status = 0;
$update //= 1;
my $status = 0;
- my ($rule, $hit_count);
+ my ($rule, $sequence, $hit_count);
my $statement = "select pattern, domain, comment, sequence, hit_count from list where userid = '$userid' and type = '$listtype'";
my $statement = "select pattern, domain, comment, sequence, hit_count from list where userid = '$userid' and type = '$listtype'";
last if !@row;
$hit_count = pop (@row);
last if !@row;
$hit_count = pop (@row);
- my $sequence = pop (@row);
+ $sequence = pop (@row);
my $comment = pop (@row);
my $domain = pop (@row);
my $pattern = pop (@row);
my $comment = pop (@row);
my $domain = pop (@row);
my $pattern = pop (@row);
- return ($status, $rule, $hit_count);
+ return ($status, $rule, $sequence, $hit_count);
} # CheckOnList
sub CleanEmail ($) {
} # CheckOnList
sub CleanEmail ($) {
+ open my $file, '<', $filename
or error "Unable to open $filename - $!", 1;
or error "Unable to open $filename - $!", 1;
my @fields = split;
my %item;
my @fields = split;
my %item;
$item{pattern} = $address[0];
$item{domain} = $address[1];
$item{comment} = $fields[1] ? $fields[1] : '';
$item{pattern} = $address[0];
$item{domain} = $address[1];
$item{comment} = $fields[1] ? $fields[1] : '';
- $itme{hit_count} = $fields[2] ? $fields[2] : 0;
+ $item{hit_count} = $fields[2] ? $fields[2] : 0;
push @items, \%item;
} # while
push @items, \%item;
} # while
return @items;
} # GetItems
return @items;
} # GetItems
} # if
$nextseq++;
} # while
} # if
$nextseq++;
} # while