© webmasteram.dp.ua

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

Mail::POP3Client

use Mail::POP3Client;
$login = "mailuser";
$password = "parol";
$mailserver = "mail.server";
$pop = new Mail::POP3Client( USER => $login,
PASSWORD => $password,
HOST => $mailserver );
print "В вашем почтовом ящике ",$pop->Count()," сообщений.<br>n";

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

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

....
print "В вашем почтовом ящике ",$pop->Count(),"сообщений<br>n";
for( $i = 1; $i <= $pop->Count(); $i++ ) {
foreach( $pop->Head( $i ) ) {
/^(From|Subject):s+/i && print $_, "<br>n";
}
}
#закрыть соединение
$pop-Close();

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

use Mail::POP3Client;

print "Content-type:text/htmlnn";

$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()," сообщений.<br>n";
 for( $i = 1; $i <= $pop->Count(); $i++ )
 {
  foreach( $pop->Head( $i ) )
  {
   /^(From|Subject):s+/i && print "<a href="$SCRIPT_NAME?view=$i">",$_, "</a><br>n";
  }
 }
#закрыть соединение
}

$pop->Close();

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

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

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

if ($ENV{'REQUEST_METHOD'} eq 'POST') {
read(STDIN,$temp,$ENV{'CONTENT_LENGTH'});
}

$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/htmlnn";

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

$pop = new Mail::POP3Client( USER => $data{'login'},
PASSWORD => $data{'password'},
HOST => $mailserver );} else {
print "Content-type:text/htmlnn";
$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 );
# Далее по тексту....
}