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

1.727

Browse source
This commit is contained in:
Nick Bebout 2016-09-19 10:17:24 -05:00
parent 3eaac56812
commit 137242e609
114 changed files with 10852 additions and 8980 deletions
Download patch file Download diff file Expand all files Collapse all files

29
W/learn/create_folder Executable file
View file

@ -0,0 +1,29 @@
#!/usr/bin/perl -w
use Mail::IMAPClient;
$ARGV[2] or die "usage: $0 host user password folder1 folder2 ...\n";
$host = $ARGV[0];
$user = $ARGV[1];
$password = $ARGV[2];
my $imap = Mail::IMAPClient->new();
$imap->Debug(1);
$imap->Server($host);
$imap->connect() or die;
$imap->User($user);
$imap->Password($password);
$imap->login() or die;
$imap->Uid(1);
$imap->Peek(1);
foreach $folder (@ARGV[3..$#ARGV]) {
print "creating folder $folder\n";
$imap->create($folder);
}
$imap->logout();
# $imap->close();