|< 1 2 3 >| | 24 Einträge, 3 Seiten |
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
$username = $ARGV[0];
$password = $ARGV[1];
$server = $ARGV[2];
$debug = $ARGV[3];
use lib '.';
use POP3Client;
use Carp::Heavy;
#set up server instance
use Mail::POP3Client;
$pop = new Mail::POP3Client( USER => "me",
PASSWORD => "mypassword",
HOST => "pop3.do.main" );
$pop = new Mail::POP3Client(USER => $username,
PASSWORD => $password,
HOST => $server,
AUTH_MODE => 'PASS',
DEBUG => $debug);
$FromArray = '';
$SubjectArray = '';
$DateArray = '';
@UiDL = -1;
for ($i = 1; $i <= $pop->Count(); $i++) {
foreach ( $pop->Head( $i ) ) {
/^(From|Subject|X-Flags|Date):\s+/i and print $_, "\n";
}
print "||\n";
}
$UiString = join("//", @allhead);
$i--;
if ($i <= 0) {
$UiString = "None";
}
$ReturnList = "$i\|\\$UiString";
print $ReturnList;
1 2 3 4
$username = shift @ARGV; $password = shift @ARGV; $server = shift @ARGV; $debug = shift @ARGV;
for (1.. $pop->Count()-1){}
my $decoded = decode_base64($str);
|< 1 2 3 >| | 24 Einträge, 3 Seiten |