summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorGunnar Wrobel <wrobel@gentoo.org>2005-02-27 16:15:40 +0000
committerGunnar Wrobel <wrobel@gentoo.org>2005-02-27 16:15:40 +0000
commitcb29c472a963d6264df4d144ebbd1fa6529472b5 (patch)
tree3985d915ae0f9235a478c0f6dd458d114edec81c /z-distfiles
parentAdded the tonline and the spamcop script (diff)
downloadmisc-cb29c472a963d6264df4d144ebbd1fa6529472b5.tar.gz
misc-cb29c472a963d6264df4d144ebbd1fa6529472b5.tar.bz2
misc-cb29c472a963d6264df4d144ebbd1fa6529472b5.zip
Fixed some error messages on spamcop script
svn path=/z-distfiles/; revision=96
Diffstat (limited to 'z-distfiles')
-rwxr-xr-xz-distfiles/scripts-gw-1.1/spamcop7
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() )