POP3: List messages in mailbox

Lists sender and subject on all mails in mailbox. MIME::WordDecoder is used to parse heads as most mails often has ISO-8859-1 encoded parts. It should be save to test it on any mailbox as it dosn’t change or remove anything from the mailbox.

#!/usr/local/bin/perl -w
use strict;
use Mail::POP3Client;
use MIME::WordDecoder;

my ($serv, $usr, $pwd) = (@ARGV); # server, username and password as comandline parameters...

my $wd = default MIME::WordDecoder;

my $pop = new Mail::POP3Client( USER => $usr, PASSWORD => $pwd, HOST => $serv );
print "Found " . $pop->Count() . " messages.n";
for (my $i = 1; $i <= $pop->Count(); $i++) {
  foreach ( $pop->Head( $i ) ) {
    if (/^(From|Subject):s+/i) {
  print $wd->decode($\_);
    }
  }
  print "n";
}

exit();

Search in a LDAP directory

This example connects to a LDAP server and makes a search for a name. The name was choosen by random (among those who returned an answer from the queried LDAP). The LDAP used in this example includes a binary certificate. To prevent this from trashing you terminal, it is not printed to the screen (binary field filtered in the attribute loop).

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

use Net::LDAP;
my $ldap = Net::LDAP->new('directory.certifikat.dk') or die "$@";
$ldap->bind ;    # an anonymous bind

my $mesg = $ldap->search (  # perform a search
                       base   => "c=DK",
                       filter => "(&(cn=Henrik Jensen))"

                      );

$mesg->code && die $mesg->error;

print STDERR "Found " . $mesg->count . "n";
foreach my $entry ($mesg->all\_entries) {
  my  @values = $entry->attributes();
  foreach my $key (@values) {
    print "$key => \\"" . $entry->get\_value($key) ."\\"n" unless ($key =~ /binary/);
  }
}

exit();

Which IMAP-folders exist?

The following script will make a list of which folders exist in an IMAP account. The script requires you pass hostname, accountname and password on the commandline, but it should be quite easy to change as you like.

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

use Mail::IMAPClient::BodyStructure;
use Mail::IMAPClient;

my ($serv, $usr, $pwd) = (@ARGV); # server, username and password as comandline parameters...

my $imap = Mail::IMAPClient->new(Server=>$serv,User=>$usr,Password=>$pwd);
my @folders = $imap->folders;

foreach my $f (@folders) {
  print 	"$f is a folder with ", $imap->message\_count($f), " messages.n";
}

exit();

No comments

The option to leave comments on this site has now been disabled. A new version of the website is coming and the pain comments – from time to time – causes with movable type (in terms of comment spam, server load and likewise issues) is really not worth the trouble. You will quite possible be able to leave a comment once the new version is launched, but until then sorry, no comments.

The legacy Pain

When your fresh young company, you can do everything right from the start – choose the right tools, use the best technology and make a lean mean profit machine. When your an elder company, you usually have a lot of legacy and history to carry on. While trying to move this website from Movable Type to a fresh Wordpress engine, I just realized, that a website almost 10 years old, also have a lot of legacy issues, which I need to handle :-)