Show middleware_test.pl syntax highlighted
#!/usr/bin/perl
use lib '/home/tkay/src/duckmail/lib';
use warnings;
use strict;
use Data::Dumper;
use Middleware;
use Carp;
my $u = shift;
my $p = shift;
my ($headers, $line, $uid, $file);
die "Specify username and password" if(!$p);
my $mw = new Middleware('imap.uoregon.edu', $u, $p);
print "There are " . $mw->getMessageCount() . " messages.\n";
my $folders = $mw->getFolderList("mail/");
print "Folders: @{$folders}\n";
while(1) {
$headers = $mw->getMessageHeaders("mail/sent", 1, 10, 'date');
print "UID Sender Subject\n";
for my $m (@$headers) {
print $m->{uid} . " " . $m->{from} . " " . $m->{subject} . "\n";
}
print "Select a UID (0 to quit)\n";
$uid = <STDIN>;
chomp $uid;
exit 0 if(!$uid);
eval {
$file = $mw->getMessage("mail/sent", $uid);
open DATA, "<$file";
while($line = <DATA>) {
print $line;
}
close DATA;
};
if($@) {
print $@;
}
}
See more files for this project here