equal
deleted
inserted
replaced
21 # ${perl{unseen}{$sender_host_address}} |
21 # ${perl{unseen}{$sender_host_address}} |
22 # ${perl{unseen}{$sender_host_address}{600}} |
22 # ${perl{unseen}{$sender_host_address}{600}} |
23 # ${perl{unseen}{$sender_host_address}{600}{seen.db}} |
23 # ${perl{unseen}{$sender_host_address}{600}{seen.db}} |
24 # ${perl{unseen}{$sender_host_address}{600}{/some/dir/seen.db}} |
24 # ${perl{unseen}{$sender_host_address}{600}{/some/dir/seen.db}} |
25 # |
25 # |
26 # record structure: item\0 timestamp(creation)\0 timestamp(usage)\0 |
26 # record structure: key: item\0 |
27 # (This way we're compatible with ${lookup{...}dbm{...}} |
27 # value: timestamp(creation) timestamp(usage)\0 |
|
28 # (This way we're compatible with ${lookup{...}dbm{...}}) |
28 sub unseen($;$$) { |
29 sub unseen($;$$) { |
29 my ($item, $delay, $db) = @_; |
30 my ($item, $delay, $db) = @_; |
30 $item .= "\0"; |
31 $item .= "\0"; |
31 $delay = $DEFAULT{delay} unless defined $delay; |
32 $delay = $DEFAULT{delay} unless defined $delay; |
32 $db = $DEFAULT{db} unless defined $db; |
33 $db = $DEFAULT{db} unless defined $db; |