|< 1 2 >| | 20 Einträge, 2 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
###########
####
220 smtp011.mail.yahoo.com ESMTP..
##
EHLO localhost.tux..
#
250-smtp011.mail.yahoo.com..250-AUTH LOGIN PLAIN..250-PIPELINING..250 8BITMIME..
#
AUTH LOGIN..
#
334 VXNlcm5hbWU6..
#
bW9ocmVuZmFiaWFu..
#
334 UGFzc3dvcmQ6..
#
ZGViNWVza2Y=..
#
235 ok, go ahead (#2.0.0)..
#
MAIL FROM:<ichichichich@yahoo.de>..
#
250 ok..
#
RCPT TO:<yyyyyyy\@yahoo.de>..
#
250 ok..
#
DATA..
#
354 go ahead..
#
From: ichichich\@yahoo.de..
##
To: yyyyyyy\@yahoo.de..Subject: Hallo..Date: Mon, 17 May 2004 16:41 +0200....TEST.......
#
250 ok 1084806871 qp 61286..
#
QUIT..
#
221 smtp011.mail.yahoo.com..
##########exit
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
$smtp->mail($absender);
$smtp->to($empfaenger);
$smtp->data();
$smtp->datasend("Subject: $betreff\n");
$smtp->datasend("To: $empfaenger\n");
$smtp->datasend("From: $absender\n");
$smtp->datasend("Date: Mon, 17 May 2004 16:41 +0200\n");
$smtp->datasend("\n");
open(BODY, "$nachricht");
@text=<BODY>;
close(BODY);
foreach (@text) { $smtp->datasend("$_"); }
$smtp->datasend("\n");
$smtp->dataend();
$smtp->quit;
1
2
3
4
5
6
7
8
9
10
$smtp->mail($absender);
$smtp->to($empfaenger);
$smtp->data();
$smtp->datasend("Subject: $betreff\n");
$smtp->datasend("To: $empfaenger\n");
$smtp->datasend("From: $absender\n");
$smtp->datasend("Date: Mon, 17 May 2003 13:41\n");
$smtp->datasend("\n");
1
2
3
4
5
6
7
8
9
10
11
sub date_r {
my $ds_wanted = $params{Datestamp};
my $ds_defaulted = ($is_top and !exists($params{Datestamp}));
if (($ds_wanted or $ds_defaulted) and !exists($params{Date})) {
my ($u_wdy, $u_mon, $u_mdy, $u_time, $u_y4) =
split /\s+/, gmtime().""; ### should be non-locale-dependent
my $date = "$u_wdy, $u_mdy $u_mon $u_y4 $u_time UT";
$self->add("date", $date);
}
}
1
2
3
4
5
6
7
8
9
10
11
12
13
14
sub date_r {
my ($day, $mon, $str);
my (@lt) = ();
@lt = localtime();
$day = $lt[6];
$mon = $lt[4];
$str = $DAYS[$day] . ", " . $lt[3] . " " . $MON[$mon] . " " . ($lt[5]+1900)
. " " . sprintf("%02d:%02d:%02d", $lt[2], $lt[1], $lt[0] )
. " " . sprintf("%03d%02d", (tz_offset() / 3600), 0);
return $str;
}
|< 1 2 >| | 20 Einträge, 2 Seiten |