zydronium/imapsync
1
0
Fork 0
mirror of https://github.com/imapsync/imapsync.git synced 2025-08-02 15:11:49 +02:00
Code Issues Projects Releases Packages Wiki Activity

1.504

Browse source
This commit is contained in:
Nick Bebout 2012-09-02 19:08:57 -05:00
parent 495d5a9526
commit c08a56e486
277 changed files with 692 additions and 10803 deletions
Download patch file Download diff file Expand all files Collapse all files

24
learn/subscribe
View file

@ -1,24 +0,0 @@
#!/usr/bin/perl -w
use Mail::IMAPClient;
$ARGV[1] or die "usage: $0 user password\n";
$host = "localhost";
$user = $ARGV[0];
$password = $ARGV[1];
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->subscribe("shared.Spam") or die;
print "$user subscribed to\n",
join("\n", $imap->subscribed()),
"\n";
$imap->close();