Perl

Get Email Date/Time

Demonstrates getting the email "Date" header field in a CkDateTime object. Perl

use chilkat();

$success = 0;

$email = chilkat::CkEmail->new();

# Load a .eml file into the email object.
$success = $email->LoadEml("/home/users/chilkat/eml/myEml.eml");

$dtTime = chilkat::CkDateTime->new();
$dtTime->SetFromRfc822($email->emailDateStr());

# Once we have the CkDateTime object, we can get the date/time in many different formats:

# Get as a RFC822 GMT string:
$bLocalTime = 0;
print $dtTime->getAsRfc822($bLocalTime) . "\r\n";

# Get as an RFC822 string in the local timezone.
# (remember, the daylight savings that existed at the given time in the past is applied)
$bLocalTime = 1;
print $dtTime->getAsRfc822($bLocalTime) . "\r\n";

# Get as a 32-bit UNIX time (local or GMT..)
# The Unix time is number of seconds since the Epoch, 1970-01-01 00:00:00 +0000 (UTC). 
$unixTime = $dtTime->GetAsUnixTime($bLocalTime);
print "Unix time: " . $unixTime . "\r\n";

# One can also get the as a "DtObj" object for accessing the individual
# parts of the date/time, such as month, day, year, hour, minute, etc.
# The DtObj can be obtained in the GMT or local timezone:
$dtObj = chilkat::CkDtObj->new();
$dtTime->ToDtObj($bLocalTime,$dtObj);

if ($dtTime->get_LastMethodSuccess() == 0) {
    print "This should never really happen!" . "\r\n";
    exit;
}

print $dtObj->get_Day() . "-" . $dtObj->get_Month() . "-" . $dtObj->get_Year() . " " . $dtObj->get_Hour()
     . ":" . $dtObj->get_Minute() . ":" . $dtObj->get_Second() . "\r\n";