#!/usr/bin/perl

use strict;
use Socket;
use Net::POP3;
use Mail::Header;
#use PromptUtil;

use lib 'd:/Programs/Perl/lib';

#use MyMailServer;
use Mail::MyMailServer;

my $host   = 'mail.nap.gsic.titech.ac.jp'; 
#my $hsot = 'lucid.msl.titech.ac.jp';
#my $host = 'sv.msl.titech.ac.jp';
my $port   = 995;
my $user   = 'kamiya.t.aa';#'tkamiya';
print "password>>";
my $passwd = '';
$passwd = <> if($passwd eq '');; #get_passwd($user, $host) || 0;

my $pop = MyMailServer->new($host, Port => $port, Timeout => 30);
if(!$pop) {
	die "Can't connect to $host: $!\n";
}
#my $messages = $pop->apop($user => $passwd) or $pop->login($user => $passwd) 
my $messages = $pop->login($user => $passwd) 
		or die "Can't log in: ", $pop->message, "\n";

print "OK\n";

my $last = $pop->last;
$messages += 0;
print "inbox has $messages messages (", $messages-$last, "new)\n";

for my $msgnum ($last+1 .. $messages) {
	my $header = $pop->top($msgnum);
	my $parsedhead = Mail::Header->new($header);
	chomp(my $subject = $parsedhead->get('Subject'));
	chomp(my $from    = $parsedhead->get('From'));
	
	print "%4d %-25s %-50s\n", $msgnum, $from, $subject;
}

$pop->quit();
#reset, uidl(msgnum), (ms_count, size)=popstat(), size==list(msgnum), arrayref=get(msgnum), delete, handle=getfh(msgnum)