(Perl) POP3 Session Log

Demonstrates how the Chilkat email component keeps a log of the current POP3 session in the mailman.Pop3SessionLog property.

Chilkat Perl Downloads Perl Module for Windows, Linux, Alpine Linux, MAC OS X, Solaris, FreeBSD, OpenBSD, Raspberry Pi and other single board computers

use chilkat();

# This example assumes the Chilkat API to have been previously unlocked.
# See Global Unlock Sample for sample code.

# The mailman object is used for receiving (POP3) 
# and sending (SMTP) email.
$mailman = chilkat::CkMailMan->new();

# Set the POP3 server's hostname
$mailman->put_MailHost("pop3.example.com");

# Set the POP3 login/password.
$mailman->put_PopUsername("pop3_login");
$mailman->put_PopPassword("pop3_password");
$mailman->put_MailPort(995);
$mailman->put_PopSsl(1);

# You may explicitly begin and end POP3 sessions by calling
# Pop3BeginSession and Pop3EndSession.  However, 
# if a method is called that requires a connection to the POP3
# server, the connection and session will become established
# automatically.  Therefore, it is not required to explicitly call
# Pop3BeginSession and Pop3EndSession.  

$success = $mailman->Pop3BeginSession();
if ($success != 1) {
    print $mailman->lastErrorText() . "\r\n";
    exit;
}

# Get a list of the UIDLs for the email in the mailbox and print it.
# sa is a StringArray
$sa = $mailman->GetUidls();
$i = 0;
$n = $sa->get_Count();
while ($i < $n) {
    print $sa->getString($i) . "\r\n";
    $i = $i + 1;
}

# Examine the POP3 session log:
print $mailman->pop3SessionLog() . "\r\n";

# A sample session log:

# **** Connected to pop.example.com:995
# < +OK Dovecot ready.
# > USER ****
# < +OK
# > PASS ****
# < +OK Logged in.
# > UIDL
# < +OK
# 1 UID8226-1490455265
# 2 UID8248-1490455265
# 3 UID8624-1490455265
# 4 UID8655-1490455265
# 5 UID8706-1490455265
# 6 UID9003-1490455265
# 7 UID9204-1490455265
# 8 UID9309-1490455265
# 9 UID9311-1490455265
# 10 UID9356-1490455265
# 11 UID9802-1490455265
# 12 UID10373-1490455265
# 13 UID10543-1490455265
# 14 UID10548-1490455265
# 15 UID10558-1490455265
# 16 UID10567-1490455265
# 17 UID10573-1490455265
# .

$success = $mailman->Pop3EndSession();
if ($success != 1) {
    print $mailman->lastErrorText() . "\r\n";
    exit;
}