zydronium/imapsync
1
0
Fork 0
mirror of https://github.com/imapsync/imapsync.git synced 2025-07-22 18:25:54 +02:00
Code Issues Projects Releases Packages Wiki Activity

1.411

Browse source
This commit is contained in:
Nick Bebout 2011-04-24 16:19:36 -05:00
parent 02322d6ed1
commit 09dfa9982d
72 changed files with 11829 additions and 287 deletions
Download patch file Download diff file Expand all files Collapse all files

9
paypal_reply/paypal_imapget
View file

@ -1,6 +1,6 @@
#!/usr/bin/perl -w
# $Id: paypal_imapget,v 1.6 2010/12/29 23:50:45 gilles Exp gilles $
# $Id: paypal_imapget,v 1.7 2011/03/23 17:05:24 gilles Exp gilles $
use Getopt::Long;
use Mail::IMAPClient;
@ -15,6 +15,7 @@ my $user;
my $password;
my $passfile;
my $folder = 'INBOX';
my @search ;
my $help;
my $numopt = scalar(@ARGV);
@ -24,6 +25,7 @@ my $opt_ret = GetOptions(
"password=s" => \$password,
"passfile=s" => \$passfile,
"folder=s" => \$folder,
"search=s" => \@search,
"help" => \$help,
"delete!" => \$delete,
"expunge!" => \$expunge,
@ -51,7 +53,10 @@ $imap->select($folder) or die "Error select folder [$folder] host [$host] 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');
#my @uids = $imap->search('TEXT', 'PP341');
print "@search\n" ;
@search = ('TEXT', 'PP341') if not @search ;
my @uids = $imap->search('HEADER', 'Sender','sendmail@paypal.com', @search );
print "Search: [@uids]\n";
foreach $msg (@uids) {