Perl
Perl
MIME CurrentDateTime Property
See more MIME Examples
Demonstrates the read-only CurrentDateTime property, which returns the current local date and time formatted as an Internet message date including the numeric UTC offset. The example uses it to populate a Date header field.
Background. Internet message dates follow the RFC 5322 format, for example
Fri, 21 Nov 1997 09:55:06 -0600. CurrentDateTime produces a value in that form for use in message headers.Chilkat Perl Downloads
use chilkat();
$success = 0;
$mime = chilkat::CkMime->new();
$success = $mime->SetBodyFromPlainText("Message with a Date header.");
if ($success == 0) {
print $mime->lastErrorText() . "\r\n";
exit;
}
# CurrentDateTime returns the current local date and time formatted as an Internet message date,
# including the numeric UTC offset, for example: Fri, 21 Nov 1997 09:55:06 -0600
$now = $mime->currentDateTime();
print "Current date/time: " . $now . "\r\n";
# It can be used to populate a Date header field.
$mime->SetHeaderField("Date",$now);
$head = $mime->getEntireHead();
if ($mime->get_LastMethodSuccess() == 0) {
print $mime->lastErrorText() . "\r\n";
exit;
}
print $head . "\r\n";