Perl

Send a Raw POP3 Command

Demonstrates the Chilkat MailMan.Pop3SendRawCommand method, which sends a raw command to the POP3 server and returns the server's response. The second argument specifies the charset to use if the command contains non-US-ASCII characters. This example sends the POP3 STAT command within an open session.

Background: POP3 is a simple line-based text protocol — the client sends short commands like STAT, LIST, UIDL, or RETR and the server replies with +OK or -ERR. This method is an escape hatch for issuing a command Chilkat doesn't wrap directly, or a server-specific extension. Note that the session must already be open, since a raw command assumes an authenticated connection.

Chilkat Perl Downloads

Download Chilkat for Perl

Chilkat2 Perl

use strict;
use warnings;
use Chilkat2;

# Demonstrates the MailMan.Pop3SendRawCommand method, which sends a raw command to the POP3
# server and returns the server's response.  The second argument is the charset used if the
# command contains non-US-ASCII characters.

my $mailman = Chilkat2::MailMan->new;

# Configure the POP3 server connection.
$mailman->MailHost('pop.example.com');
$mailman->MailPort(995);
$mailman->PopSsl(1);
$mailman->PopUsername('user@example.com');
$mailman->PopPassword('myPassword');

my $success = $mailman->Pop3BeginSession();
if (!$success) {
    print $mailman->LastErrorText, "\n";
    exit;
}

# Send the raw POP3 STAT command, which returns the message count and maildrop size.
my $response = $mailman->Pop3SendRawCommand('STAT', 'us-ascii');
if (!$mailman->LastMethodSuccess) {
    print $mailman->LastErrorText, "\n";
    exit;
}

print 'STAT response: ', $response, "\n";

$success = $mailman->Pop3EndSession();
if (!$success) {
    print $mailman->LastErrorText, "\n";
    exit;
}