Category: | E-Mail Programs |
Author/Contact Info | foo792@netzero.net |
Description: |
|
#!/usr/bin/perl use Net::POP3; usage(0) if "-h" eq $ARGV[0]; || "-help" eq $ARGV[0]; usage(1) if 2 != $#ARGV; ($hostname, $account, $password) = @ARGV; $handle = Net::POP3->new($hostname) or die "Unable to establish a POP3 + connection to $hostname.\n"; defined($handle->login($account, $password)) or die "Unable to authent +icate ($account, $password) at $hostname.\n"; $message_list = $handle->list or die "Unable to retreive list of avaib +le mesages.\n"; foreach $item (keys %$message_list) { $header = $handle->top($item); print @$header; } sub usage { print "Use this utility as 'pop_check HOSTNAME ACCOUNT PASSWORD',\n"; print " or 'pop_check -help', to see this message.\n"; exit($_[0]); } |
|
---|
Replies are listed 'Best First'. | |
---|---|
Re: pop3-check
by LupoX (Pilgrim) on Nov 20, 2001 at 19:39 UTC | |
by Anonymous Monk on Aug 21, 2003 at 03:12 UTC | |
Re: pop3-check
by khippy (Scribe) on Sep 18, 2001 at 12:34 UTC | |
by ajt (Prior) on Sep 24, 2001 at 18:08 UTC | |
RE: pop3-check (is it secure?)
by ybiC (Prior) on Jul 05, 2000 at 08:20 UTC |
Back to
Code Catacombs