• Деревья Nested Sets (25)
• Гостевая книга на PHP/MySQL (42)
• Отправка писем через PHP (81)
• ICQ-пейджер для вашего сайта (26)
• Форум, работающий с базой данных MySQL (39)

• Переходим с PHP на Perl, как это ни печально... (181)
• Отправка писем через PHP (81)
• Модульное программирование на PHP или как написать маленький портал. (68)
• Программирование на php на примере галереи в 3 вариантах. (55)
• Долой процедурное программирование, даешь объектно -ориентированное! (51)

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

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

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";

1. Создать соединение;
2. Посчитать количество писем.

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

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 )

Body( MESSAGE_NUMBER )

Delete( MESSAGE_NUMBER )

Close

Count

....
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/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()," сообщений.<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";
}

}

	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/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 );
    # Далее по тексту....
}