Чтение почты через Web-интерфейс.

В последнее время довольно популярными стали почтовые системы с web-интерфейсом.
Надо заметить, это довольно удобно, особенно для пользователей,которые выходят в интернет с разных машин.
Для написания оной программы необходима библиотека

mail::pop3client
Назначение библиотеки очевидно - видно из названия.
В ней содержатся методы доступа к почтовому ящику pop3.
Простейший набор кода для проверки почтового ящика на наличие сообщений выглядит так:

use mail::pop3client;
$login = "mailuser";
$password = "parol";
$mailserver = "mail.server";
$pop = new mail::pop3client( user => $login,
password => $password,
host => $mailserver );
print "В вашем почтовом ящике ",$pop->count()," сообщений.
\n";

Все вообщем, просто:
Создать соединение;
Посчитать количество писем.
Первый пункт реализуем созданием объекта $pop,
второй - вызовом метода count() сего объекта.
Метод count() еще имеет одну особенность - если он возвращает -1,
то соединение не было создано, иными словами, не удалось соединиться с сервером.
Если мы в вышеуказанном коде последнюю строчку заменим на

if ($pop->count() == -1 ) {
print "Не удалось соединиться с сервером!
\n";
} else {
print "В вашем почтовом ящике ",$pop->count()," сообщений.
\n";
}

, то выглядеть наш скрипт будет несколько приличнее (как-никак, обработка нештатной ситуации:).
Если этот код заработал, то нужно развивать успех.
Итак, методы класса
pop3client:new( user => 'user', password => 'password', host => 'host',
port => 110, debug => 0, auth_mode => 'best', timeout => 60 )
Это конструктор класса. Разработчики библиотеки настоятельно рекомендуют
пользоваться объекным стилем написания. Аргументы метода следующие:
user = имя пользователя
password = пароль
host = почтов?й сервер
port = порт
debug = если этот параметр равен 1, то в stderr выводится трафик сокета
auth_mode = допустимые значения:'best', 'pass' and 'apop'
timeout = число по умолчанию - 60 сек.
head( message_number )
Возвращает заголовок письма с номером message_number.
Результат = строка или массив, в зависимости от контекста.
Поддерживается не всеми pop3 серверами. body(message_number)
Возвращает тело письма с номером message_number.
Результат = массив строк или массив, в зависимости от контекста. delete( message_number )
Помечает сообщение на удаление.
Удаляется после выполнения команды quit. До удаления можно отменить методом reset.
close
Закрыть соединение.
count
Возвращает количество сообщений в почтовом ящике.
Нет цели подменять этой статьей описание библиотеки,
поэтому ограничимся только этими описаниями.
В библиотеке mail::pop3client методов примерно в 2 раза больше,
и прочитать его описание в первоисточнике несколько полезней,
тем более, что для начала работы достаточно и вышеперечисленных методов.
Теперь было бы неплохо просмотреть список сообщений на сервере, от кого, тема.
Для этого сосчитаем сообщения и в цикле выведем их заголовки:

....
print "В вашем почтовом ящике ",$pop->count(),"сообщений
\n";
for( $i = 1; $i count(); $i++ ) {
foreach( $pop->head( $i ) ) {
/^(from|subject):\s+/i && print $_, "
\n";
}
}
#закрыть соединение
$pop-close();

Если заработала и сия конструкция, значит все делается правильно,
и можно переходить к написанию модуля просмотра сообщений.
Просмотреть сообщение №КАКОЙ_ТО можно, вытащив его методом body(№).
Поскольку метод нам вернет массив, то обыкновенным циклом foreach просмотрим письмо.
Вот текст процедуры просмотра тела письма:


sub get_body {
$numb_mess = shift;
foreach ($pop->body($numb_mess)) {
print $_,"
\n";
}
}

Ну, а дальше - дело вкуса, как выбирать сообщение.
Я предлагаю сделать ссылочку на тему письма для просмотра оного.
Полный листинг сего "шедевра" расположен ниже:
use mail::pop3client;

print "content-type:text/html\n\n";

$login = "mailuser";
$password = "parol";
$mailserver = "mail.server";

# Пробуем прочесть переданные параметры
# Этот способ работает только с методом get!!!

$temp=$env{'query_string'};

# Разбор строки параметров

if ($temp ne '')
{
@pairs=split(/&/,$temp);
foreach $item(@pairs)
{
($key,$content)=split (/=/,$item,2); # Режем на название ключа и значение.

# Названия параметров и значения помещаем в хэш

$data{$key}=$content;
}
}

# Открываем соединение

$pop = new mail::pop3client( user => $login,
password => $password,
host => $mailserver );

# Если был передан параметр view со значением, то просматриваем
# сообщение с номером view

if ($data{'view'} ne '')
{
&get_body($data{'view'});
}
else
{ # Не было параметров
print "В вашем почтовом ящике ",$pop->count()," сообщений.
\n";
for( $i = 1; $i count(); $i++ )
{
foreach( $pop->head( $i ) )
{
/^(from|subject):\s+/i && print "script_name?view=$i">",$_, "
\n";
}
}
#закрыть соединение
}

$pop->close();

#Процедура просмотра сообщения

sub get_body
{
$numb_mess = shift;
foreach ($pop->body($numb_mess))
{
print $_,"
\n";
}
}



Вот собственно и все. На самом деле я не советую выкладывать сей перл в интернет.
Его можно юзать на localhost-е. Почему?
Потому что в теле программы находятся значения логинов/паролей, а этого допускать не стоит.
Лучше наваять форму с парой полей, и передавать их методом post этому скрипту.
Прочесть строку параметров при передаче методом post можно кострукцией:



if ($env{'request_method'} eq 'post') {
read(stdin,$temp,$env{'content_length'});
}



т.е. читать нужно из стандартного потока ввода. Разбор строки точно такой же, как и в методе get.
Для дальнейшей работы с почтовым ящиком пару логин/пароль можно сохранить
в скрытом поле или в cookie с периодом устаревания ,например, пол-часа.
Далее, первым делом после печати строки content-type:text/html\n\n, прочтем сей куки:


$cookie = $env{'http_cookie'};


дальше его разбираем, как нам угодно. Я предлагаю следующую реализацию:



if ($data{'login'} and $data{'password'}) {

# Запомним пароль/логин в куки в виде строки:
# login::password, время устаревания = 1 час.

print "set-cookie: login=$ form{'login'}::$ form{'password'}; expires=+1h;";
print "content-type:text/html\n\n";

# попытка создать соединение с pop3 сервером

$pop = new mail::pop3client( user => $data{'login'},
password => $data{'password'},
host => $mailserver );} else {
print "content-type:text/html\n\n";
$cookie = $env{'http_cookie'};

# Разбираем строку, полученную из cookie

if ($cookie =~ "login") {
($nm,$vals) = split(/=/,$cookie);
($login,$passwd) = split(/::/,$vals);
$pop = new mail::pop3client( user => $login,
password => $password,
host => $mailserver );
# Далее по тексту....
}



Вот в принципе и все - небольшой простенький mailreader готов.
Но есть один существенный недостаток:
"Кириллические" тексты зачастую в письме хранятся в виде mime encoded.
Поэтому чтобы их прочесть, нужно использовать соответствующие библиотеки
или писать свои конвертеры. Это уже другая тема, и в этой статье обсуждаться не будет.