diff options
Diffstat (limited to 'z-distfiles')
| -rwxr-xr-x | z-distfiles/scripts-gw-1.1/spamcop | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/z-distfiles/scripts-gw-1.1/spamcop b/z-distfiles/scripts-gw-1.1/spamcop index 9b5c258..28a1e60 100755 --- a/z-distfiles/scripts-gw-1.1/spamcop +++ b/z-distfiles/scripts-gw-1.1/spamcop @@ -4,6 +4,10 @@ use HTML::Form; use LWP; use HTTP::Cookies; +sub get_all_links( $ ); +sub get_login_cookie( $$$$ ); +sub report_all_spam( $$ ); + if ($ARGV[0] eq "--help" ) { print 'usage: spamcop {EMAIL-FOLDER}'."\n"; print 'usage: spamcop /home/heinz/mail/Inbox/.SpamCop'."\n"; @@ -157,7 +161,8 @@ sub report_all_spam ( $$ ) foreach my $sendform (@forms) { - if ($sendform->attr( 'name' ) eq 'sendreport') + if (defined $sendform->attr( 'name' ) + and $sendform->attr( 'name' ) eq 'sendreport') { $response = $ua->request($sendform->click()); if ( $response->is_error() ) |