1.398

paypal_reply/paypal_imapget

@@ -0,0 +1,129 @@
+#!/usr/bin/perl -w
+
+# $Id: paypal_imapget,v 1.6 2010/12/29 23:50:45 gilles Exp gilles $
+
+use Getopt::Long;
+use Mail::IMAPClient;
+use FileHandle;
+
+
+my $host;
+my $port = 143;
+my $debugimap = 0;
+my $debug = 0;
+my $user;
+my $password;
+my $passfile;
+my $folder = 'INBOX';
+my $help;
+
+my $numopt = scalar(@ARGV);
+my $opt_ret = GetOptions(
+	"host=s"	=> \$host,
+	"user=s"	=> \$user,
+	"password=s"	=> \$password,
+	"passfile=s"	=> \$passfile,
+	"folder=s"	=> \$folder,
+	"help"		=> \$help,
+	"delete!"	=> \$delete,
+	"expunge!"	=> \$expunge,
+	"debugimap!"	=> \$debugimap,
+	"debug!"	=> \$debug,
+);
+usage() and exit if ($help or ! $numopt) ;
+
+$password = (defined($passfile)) ? firstline ($passfile) : $password;
+
+my $imap = Mail::IMAPClient->new();
+
+$imap->Server($host);
+$imap->Port($port);
+$imap->Uid(1);
+$imap->Peek(1);
+$imap->Debug($debugimap);
+$imap->connect()
+  or die "Can not open imap connection on [$host] with user [$user] : $@\n";
+$imap->User($user);
+$imap->Password($password);
+$imap->login() or die "Error login : [$host] with user [$user] : $@";
+
+$imap->select($folder) or die "Error select folder [$folder] host [$host] user [$user] : $@";
+
+#my @uids = $imap->search('HEADER', 'SUBJECT',"=?windows-1252?Q?Avis_de_r=E9ception_d=27un_paiement?=");
+#my @uids = $imap->search('HEADER', 'Sender','sendmail@paypal.com');
+my @uids = $imap->search('TEXT', 'PP341');
+print "Search: [@uids]\n";
+
+foreach $msg (@uids) {
+	my $msg_id = $imap->get_header( $msg, "Message-Id" );
+	$debug and print "$msg_id\n";
+	my $msg_code = format_msg_id($msg_id);
+	my $file = "$msg_code";
+	if (-f $msg_code and -f "../msg_id/$msg_code") {
+		$debug and print "Already have $msg_code $msg\n";
+		next;
+	}
+	print "writing message $msg to $file\n";
+	unlink($file);
+	if ($imap->message_to_file($file, $msg)) {
+		$imap->delete_message($msg) if $delete;
+		$imap->expunge() if $expunge;
+	}else{
+		print "Error writing $file: $@\n";
+	}
+	write_to_file("../msg_id/$msg_code", $msg_id);
+}
+
+$imap->logout();
+
+
+sub usage {
+        print <<EOF;
+
+usage: $0 [options]
+
+Several options are mandatory. 
+
+--host       <string> : imap server. Mandatory.
+--user       <string> : user to login. Mandatory.
+--password   <string> : password for the user1. Mandatory.
+--delete              : mark messages well dumped as deleted
+--expunge             : expunge folder.
+
+Example: 
+$0 \\
+   --host imap.troc.org --user foo --password secret
+EOF
+}
+
+sub  firstline {
+        # extract the first line of a file (without \n)
+
+        my($file) = @_;
+        my $line  = "";
+        
+        open FILE, $file or die("error [$file]: $! ");
+        chomp($line = <FILE>);
+        close FILE;
+        $line = ($line) ? $line: "error !EMPTY! [$file]";
+        return $line;
+}
+
+sub format_msg_id {
+	my $msg_id = shift;
+	
+	$msg_id =~ tr/a-zA-Z0-9/_/cs;
+	$debug and print "$msg_id\n";
+	return($msg_id);
+}
+
+sub write_to_file {
+	my $file = shift;
+	my $string = shift;
+	
+	$fh = FileHandle->new("> $file");
+	if (defined $fh) {
+		print $fh $string;
+		$fh->close;
+	}
+}