diff options
Diffstat (limited to 'previousAttempts/perl')
| -rw-r--r-- | previousAttempts/perl/archiveIMAP.pl | bin | 0 -> 4986 bytes | |||
| -rw-r--r-- | previousAttempts/perl/expireIMAP.pl | bin | 0 -> 862 bytes | |||
| -rw-r--r-- | previousAttempts/perl/listFolders.pl | 23 | ||||
| -rw-r--r-- | previousAttempts/perl/playWithImap.pl | bin | 0 -> 2203 bytes |
4 files changed, 23 insertions, 0 deletions
diff --git a/previousAttempts/perl/archiveIMAP.pl b/previousAttempts/perl/archiveIMAP.pl Binary files differnew file mode 100644 index 0000000..818dad9 --- /dev/null +++ b/previousAttempts/perl/archiveIMAP.pl diff --git a/previousAttempts/perl/expireIMAP.pl b/previousAttempts/perl/expireIMAP.pl Binary files differnew file mode 100644 index 0000000..873c275 --- /dev/null +++ b/previousAttempts/perl/expireIMAP.pl diff --git a/previousAttempts/perl/listFolders.pl b/previousAttempts/perl/listFolders.pl new file mode 100644 index 0000000..5be4bc6 --- /dev/null +++ b/previousAttempts/perl/listFolders.pl @@ -0,0 +1,23 @@ +#!/usr/bin/perl + +use strict; +use warnings; +use Mail::IMAPClient; +use Data::Dumper; + +my $msg; +my $hostname = "localhost"; +my $login = "matej"; +my $passwd = "lubdkc"; + +my $imap = Mail::IMAPClient->new(); +$imap = Mail::IMAPClient->new( + Server => $hostname, + User => $login, + Password => $passwd, + UID => 1 +) or die "Cannot connect to localhost as matej: $@"; + +print "\n===============================\n"; +my @folders = $imap->folders; +print join("\n",@folders),"\n";
\ No newline at end of file diff --git a/previousAttempts/perl/playWithImap.pl b/previousAttempts/perl/playWithImap.pl Binary files differnew file mode 100644 index 0000000..f062d73 --- /dev/null +++ b/previousAttempts/perl/playWithImap.pl |