pop3 protocol TOP command.

Anonymous Monk has asked for the wisdom of the Perl Monks concerning the following question:

Hello everyone, I'm rather new to perl, so i created this horrible piece of code, trying to get access to my yahoo account. My problem lies with the TOP command which leads to unexpected results, while it works for MSN incoming mail.

use IO::Socket::SSL;
$socket = IO::Socket::SSL->new(PeerAddr=>"pop.mail.yahoo.com",
                               PeerPort=>995,
                              ) || die $SSL_ERROR; 
$host = $socket->peerhost();
$port = $socket->peerport();
print "Verbonden met $host op poort $port\n";
sysread($socket,$data,1024);
print $data;
$groet = "CAPA\n";
print $groet;
print $socket $groet;
sysread($socket,$ant,1024,0),;
print "$ant\n";
$login = 'USER ####@yahoo.com\n';
print "$login\n";
print $socket "$login\n";
sysread($socket,$ant,1024,0);
print "$ant\n";
print $socket "PASS somepass\n";
sysread($socket,$ant,180000,0);
print $ant;
print $socket "TOP 1 0\n";
sysread($socket,$ant,180000,0);
print "$ant\n";
print $socket "\n";
sysread ($socket,$ant,180000,0);
print "$ant\n";
[download]

running this code leads to this result:

C:\test>perl yahoo.pl
Verbonden met 188.125.68.106 op poort 995
+OK hello from popgate-0.8.0.504347 pop003.mail.ir2.yahoo.com
CAPA
+OK CAPA list follows
IMPLEMENTATION popgate-0.8.0.504347
XOIP
EXPIRE-NEVER
PIPELINING
RESP-CODES
TOP
UIDL
USER
SASL LOGIN PLAIN
.

USER someone@yahoo.com\n
+OK password required.

+OK maildrop ready, 1 message (4233 octets) (145818)
+OK 4232 octets
</p><p>
X-Apparently-To: someone@yahoo.com via 98.139.211.186; Fri, 06 Dec 201
+3 00:2
4:36 -0800
Received-SPF: pass (domain of gmail.com designates 209.85.215.178 as p
+ermitted s
ender)
X-YMailISG: 1DwuhyIWLDsYnXAjDP3zTFywGOvLRkp5rVaTKdCszQe3BT9Y
 dtmwkRYqMPDguvByKgpZlh2z10rOuTKWD5fgKO5HQv6hhVBOyoyST28n_sfV
 b4WnW0qHCouf8.LmyJxEokLWLYH0VD1PHrpGFlW5JHlBU4vhzpJLYrM_lYy8
 Ny9AApkv3W1CDGO4KSfqSrKm3BcV8A2m.p9aIKoKNz7Ywb8FmVoLi8Z8eTTy
 FGq4.pElwSKL4L4V0GU9vPXTAVMacBsCYgKMG16NvnBGOkvK4SOWlT013H44
 Fpj6KNFJ_jDCwp5uwjs8tydbnnO.S0AvgknGXntf5HM85cs2p0Lt2YyM66DT
 khrkvBttZi.vYyQ8oaAh5.F6K8HA8NrBc7fiF840AT24uJkFSZe5OXAiDHXw
 uKN9Uf2emgqUgNJj17pz1H3HEdioAG_dOOuowoD6zXM_p0OvKkTopJqMCG.Q
 0xcNK5nB3w4pLQGs9yVCILjb2NesQMVQOHvHeNvf.IJ57jfc5RSbz_PIr8h1
 FCQQurM9UebGInPpqfubQa9s2l05ggkaNZRsjDIWOxpQsU2y7aY4XSDXZeug
 mYhrpH3ZLzPectka_2mzSoQFgVOdmTX4EPTNCtjxY7G6SetGCS.WA9rHD9Dd
 XAC.E5HCRH7ztteP50c6HT_M6N5jQSvS87OeBSaXl52IghOFE3nLZpqgeneQ
 2u29788JGUELeitvNIzUD1XjvS2T_43ELyiSySZV3AMDp51d6KECMu3wIXyX
 6n6cx9LgzRHFI3EQHkuQeF30grNPo9gHIBqJClYYeMX9Gel74Qm7IKrxnhm7
 wiiQPM7nHgqoWBoFjNw3tFrFH4j0TLuw2_zGfTc_lU6tlj3K9EMoci0fN2kj
 yM6jHgE0.KFBmXrmG8VXhH2ZewSelbwjuXP47q6W1o1WFkRdGmRBQBnllnSe
 crW03.LK_HIpMLipB0c9g996sD4vjSzbYjY4tyKKnqkiuGDBLSpqk6g154Hi
 vXqsqydTdIAwe3OMTAHESpSTA6GTI4TYQkY0p8FhNOJZNjGOox8LkEaU16Wt
 Okev.Hk5Ar.UOPsD_VsJzX.czUD6aA8nVLMpd.e7OV.sW6Ar9Gr3U4IOzL_V
 Lxzom7yAZ26U7N6lneE3aNpWioAEdXt398_t.C01PyKMuEcws1YnPX8nV66H
 iT8jJVLz0yetBfEhbklu8kid_43uLjiZ9GdNalbMILpQLyXxqCTNmBN6EtzI
 .YxuHO5n7Rv284Up3nZ0Jb4-
X-Originating-IP: [209.85.215.178]
Authentication-Results: mta1046.mail.gq1.yahoo.com  from=gmail.com; do
+mainkeys=n
eutral (no sig);  from=gmail.com; dkim=pass (ok)
Received: from 127.0.0.1  (EHLO mail-ea0-f178.google.com) (209.85.215.
+178)
  by mta1046.mail.gq1.yahoo.com with SMTP; Fri, 06 Dec 2013 00:24:36 -
+0800
Received: by mail-ea0-f178.google.com with SMTP id d10so141291eaj.9
        for <someone@yahoo.com>; Fri, 06 Dec 2013 00:24:35 -0800 (PST)
DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed;
        d=gmail.com; s=20120113;
        h=message-id:from:to:subject:date:mime-version:content-type;
        bh=hGsfaQq+Ti+eYfDhSTX3KmGXDCXmQWrsTkhlZ1R0d3g=;
        b=dwkZHh2YGXeYsGOZ7I7jj90fM9dfybDE3HZfopRsQx0mhtjFqQql3ayenark
+u+JFK4
         xyMOOgP59/oIVo7Z9KHzIvPZUxr9rfq0t3wcyXpw/Q1iUreGowJQ5OH5LKnT9
+YBj8W3e
         JqJaRk6GZlbyrYoL2hRRAqAct2Whx3vhxSegOVP0Z22IJyEz7p5hFzmbWTFZ0
+w59Xy2C
         Uuzc071SHAsnmqRIEPBjeEl6yU/twZveVS8g+dA02qBu6g84RFynpo4feEQq/
+yxcwl5K
         NYttR0hkjXGMFiVlcAws19pabzvY5RarPvaTjQbESsKHnxZAVetUIwVfP81Sx
+HgGMCaC
         nXUA==
X-Received: by 10.15.52.73 with SMTP id o49mr1563331eew.60.13863182751
+36;
        Fri, 06 Dec 2013 00:24:35 -0800 (PST)
Received: from privec5f51620e (53520499.cm-6-3a.dynamic.ziggo.nl. [83.
+82.4.153])

        by mx.google.com with ESMTPSA id 1sm114582823eeg.4.2013.12.06.
+00
[download]

Sorry i didnt sorten this out. Anyway it seems it's giving me everything but the header, while this would work for MSN mail. Furthermore, as you can see above, the TOP command is supported. Does anyone know what is causing this or can help me get the header info? Thank you.

Comment on pop3 protocol TOP command. Select or Download Code

Replies are listed 'Best First'.
Re: pop3 protocol TOP command. by Anonymous Monk on Dec 06, 2013 at 16:41 UTC
Nevermind me asking. Must have something to do with the frequency I log in.	[reply]