dumptoIMAP.pl

#!/usr/bin/perl#  $Header: /mhub4/sources/imap-tools/dumptoIMAP.pl,v 1.4 2012/02/09 15:34:55 rick Exp $use Socket;use IO::Socket;use FileHandle;use File::Find;use Fcntl;use Getopt::Std;init();connectToHost($imapHost, \$conn);unless ( login($imapUser,$imapPwd, $conn) ) {    Log("Check your username and password");    print STDOUT "Login failed: Check your username and password\n";    exit;}Log("Copying messages from $dir to $mbx folder on the IMAP server");get_messages( $dir, \@msgs );foreach $_ ( @msgs ) {   my $msg; my $date;   Log("Opening $_");   unless ( open(F, "<$_") ) {      Log("Error opening $_: $!");      next;   }   Log("Opened...

Read more »

imapdump.pl

#!/usr/bin/perl# $Header: /mhub4/sources/imap-tools/imapdump.pl,v 1.12 2011/10/26 15:26:37 rick Exp $########################################################################   Program name    imapdump.pl                                       ##   Written by      Rick Sanders                                      ##   Date           ...

Read more »