diff options
author | 2005-02-27 16:15:40 +0000 | |
---|---|---|
committer | 2005-02-27 16:15:40 +0000 | |
commit | cb29c472a963d6264df4d144ebbd1fa6529472b5 (patch) | |
tree | 3985d915ae0f9235a478c0f6dd458d114edec81c | |
parent | Added the tonline and the spamcop script (diff) | |
download | misc-cb29c472a963d6264df4d144ebbd1fa6529472b5.tar.gz misc-cb29c472a963d6264df4d144ebbd1fa6529472b5.tar.bz2 misc-cb29c472a963d6264df4d144ebbd1fa6529472b5.zip |
Fixed some error messages on spamcop script
svn path=/z-distfiles/; revision=96
-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() ) |