Opened by quetzalcoatl at 2004-05-17 16:41
User since
2004-04-01
51 Artikel
BenutzerIn
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2004-04-01
51 Artikel
BenutzerIn
Hallo,
(hoffe bin hier richtig).
hab ein kleines Problem mit Net::SMTP.
Mails verschicken geht wunderbar - leider zeigt er mir kein Datum an. :(
Hab natürlich schon relativ reichlich gegooglt - leider ohne Erfolg.
Dort kamen nur einige selbstgebastelte funktionen zu Einsatz - die aber leider nicht funktioniert haben.
Ich hab schon auf alle möglichen arten versucht ihm das Datum "unterzujubeln" - er lehnt es immer wieder ab (bzw. die mail kommt nicht an).
Momentan siehts so aus:
Leider will er's nicht.
Hier mal zwei funktionen die ich im web gefunden hab (aber nicht funktionieren):
1.
2.
Weiß jemand wie man dieses **** Datum formulieren muss, damit er es nimmt?
Gruss,
quetzal
(hoffe bin hier richtig).
hab ein kleines Problem mit Net::SMTP.
Mails verschicken geht wunderbar - leider zeigt er mir kein Datum an. :(
Hab natürlich schon relativ reichlich gegooglt - leider ohne Erfolg.
Dort kamen nur einige selbstgebastelte funktionen zu Einsatz - die aber leider nicht funktioniert haben.
Ich hab schon auf alle möglichen arten versucht ihm das Datum "unterzujubeln" - er lehnt es immer wieder ab (bzw. die mail kommt nicht an).
Momentan siehts so aus:
Code: (dl
)
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");
Leider will er's nicht.
Hier mal zwei funktionen die ich im web gefunden hab (aber nicht funktionieren):
1.
Code: (dl
)
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);
}
print
}2.
Code: (dl
)
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;
}Weiß jemand wie man dieses **** Datum formulieren muss, damit er es nimmt?
Gruss,
quetzal