sslug-teknik team mailing list archive

["Erwin S. Andreasen" <erw@xxxxxx>]

On Tue, 5 Oct 1999, Mogens Kjaer wrote:

> Findes der et lille script, der kan hente mails vha. POP3 eller
> IMAP?

POP3 er en let protokol. Du kunne gøre noget simpelt med expect hvis du
kender til det. Prøv at køre autoexpect (læs man autoexpect).

Eller lidt Perl og brug af Net::POP3 pakken: (du skal muligvis hente
libwww fra www.cpan.org). Følgende hente den første besked for bruger
"wre" på maskine "halfway" med password "test" og skriver den ud til
stdout (eller exitter med error level 1 hvis den fejler).

#!/usr/bin/perl -w
use strict;

use Net::POP3;
my $pop = new Net::POP3('halfway');

$pop->user('wre') or die "User not ok";
$pop->pass('test') or die "Password not ok";

my ($count) = $pop->popstat;

if ($count > 0) {
	# > 0 message
	print join("", @{ $pop->get(1) });
        $pop->delete(1) or die "Could not DELE message #1";
	$pop->quit() or die "Could not quit?!";
	exit 0; # Success
} else {
	# No messages
	exit 1; # Failure
}




-- 
==============================================================================
Erwin Andreasen   Herlev, Denmark <erw@xxxxxx>          UNIX System Programmer
<URL:http://www.andreasen.org>              <*>              Goodbye, Richard!
==============================================================================