Форум АНТИЧАТ - Показать сообщение отдельно

Багов конечно многовато, но все равно спасибо

Из найденного:
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 сообщение, а просто разрыв связи)

Хех, сам нашел решения:

Код:

31 строчка: 		if($data =~ /charset=(.*)/) {$enc = $1; if($enc =~ /(.*?);/){$enc = $1;} $enc =~ s/"//ig;}
33 строчка: 		else {if ($enc =~ /(.*)\)/) {$enc=$1;} print FILE decode($enc,$data); }

Если не хотите, чтобы письма помечались прочитанными:

Код:

38 строчка: $pop->close;