Forum Debian Users Gang

Mail: ${pop3_unseen pop3.poczta.onet.pl xxxxx@op.pl hasło -i 5}

#!/bin/bash
#-------------- CONFIG -----------------------------#
gmail_login="login"
gmail_password="haslo"
#---------------------------------------------------#

dane="$(wget --secure-protocol=TLSv1 --timeout=3 -t 1 -q -O - https://${gmail_login}:${gmail_password}@mail.google.com/mail/feed/atom --no-check-certificate | grep 'fullcount' | sed -e 's/.*<fullcount>//;s/<\/fullcount>.*//' 2>/dev/null)"

if [ -z "$dane" ]; then
    echo "Connect fail"
else
    let wynik=$dane;
    if [ $wynik = 0 ]; then
        echo "Brak wiadomości."
    elif [ $wynik = 1 ]; then
        echo " 1 wiadomość."
    else
        if [ $wynik -lt 5 ]; then
            echo "$wynik wiadomości."
        else
            echo "$wynik wiadomości"
        fi
    fi
fi

#!/usr/bin/perl

# pop3 host
$pop_host = "poczta.o2.pl";

# pop3 username (for Gmail, I didn't have to put @gmail.com at the end)
$pop_user = "login";

# pop3 password
$pop_pass = "haslo";

# ssl port number (995 is what Gmail uses)
$ssl_port = "995";

# ssl protocol
$ssl_prot = "tcp";

# number of emails to show
$dis_numb = "6";

# end of configuration

use Mail::POP3Client;
use IO::Socket::SSL;

  my $socket = IO::Socket::SSL->new( PeerAddr => $pop_host,
                                     PeerPort => $ssl_port,
                                     Proto    => $ssl_prot);
  my $pop = Mail::POP3Client->new();
  $pop->User($pop_user);
  $pop->Pass($pop_pass);
  $pop->Socket($socket);
  $pop->Connect();

$msg_count = $pop->Count();

for ($i = $msg_count, $j = 0; $i >= $msg_count-($dis_numb-1); $i--, $j++) {
  foreach ( $pop->Head( $i ) ) {
    #/^(From|Subject):\s+/i and print $_, "\n";
    if ($_ =~ m/^From:/) {
      ($from) = ($_ =~ m#^From: .*<(.*)>#);
      $from = substr($from, 0, 30);
      $out .= "$j = $from\n";
    }
  }
  #chop $out;
  `echo -e "$out wsumie $i mail(i/e)" > ~/.poczta/poczta`;
}

$pop->Close();

tail ~/.poczta/poczta

libio-socket-ssl-perl 
i
libmail-pop3client-perl