Видел несколько тем, где люди хотели получить копию писем с разных почтовиков, не используя thebat, outlook и тп. Для работы необходим ActivePerl и модуль MIME::Base64 из репозитория. В папке со скриптом необходимо создать файл emails.txt с списком в таком виде: [email protected];password;pop.server.ru Скачать: http://stream.ifolder.ru/6716917
Багов конечно многовато, но все равно спасибо Из найденного: 1) Проблемы с кодировками (не понимает iso кодировки) ошибка: "Unknown encoding 'iso-8859-1)' at c:\Perl\bin\login.pl line 33" Лишняя скобка в общем 2) Проблема с UTF кодировкой: "Unknown encoding 'UTF-8; format=flowed' at c:\Perl\bin\login.pl line 32" 3) Если в письме есть изображения - то вместо письма только изображение остается З.Ы. ну и просьба - можно как нибудь реализовать - чтобы письма не помечались прочитанными? (aka вконце не посылалось QUIT сообщение, а просто разрыв связи) Хех, сам нашел решения: Code: 31 строчка: if($data =~ /charset=(.*)/) {$enc = $1; if($enc =~ /(.*[COLOR=Blue]?[/COLOR]);/){$enc = $1;} $enc =~ s/"//ig;} 33 строчка: else {[COLOR=Blue]if ($enc =~ /(.*)\)/) {$enc=$1;}[/COLOR] print FILE decode($enc,$data); } Если не хотите, чтобы письма помечались прочитанными: Code: 38 строчка: [COLOR=Blue]$pop->close;[/COLOR]
