bugreport SMTP

Только что ко мне обратился тов. Elite и сказал, что смтп шлется с неправильной кодировкой. Точнее сказать - она не указывается совсем, а было бы не плохо ее указывать...
Потому вот решение тем, кто с толкнется с такой же "проблемой" Веселый

nodeny.pl

Код:

461 sub Smtp
462 {
463  my $CRLF="\015\012";
464  my $emails=0;
-465  my $message="Subject:NoDeny kernel. Critical error$CRLF$CRLF$_[0]";

Код:

461 sub Smtp
462 {
463  my $CRLF="\015\012";
464  my $emails=0;
+465  my $message="Content-Type: text/plain; charset=cp1251${CRLF}Subject:NoDeny kernel. Critical error$CRLF$CRLF$_[0]";

web/calls.pl

Код:

1181 sub Smtp
1182 {
1183  my $CRLF="\015\012";
1184  my $to_emails=$_[1] || $email_admin;
1185  $to_emails=~s| ||g;
1186  $email_admin or return(0);
1187  my $emails=0;
1188  -my $message='Subject:NoDeny Billing System'.$CRLF.$CRLF.$_[0];

Код:

1181 sub Smtp
1182 {
1183  my $CRLF="\015\012";
1184  my $to_emails=$_[1] || $email_admin;
1185  $to_emails=~s| ||g;
1186  $email_admin or return(0);
1187  my $emails=0;
1188  +my $message="Content-Type: text/plain; charset=cp1251${CRLF}Subject:NoDeny Billing System$CRLF$CRLF$_[0]";

P.S. знаки: "-" и "+" обозначают строки, которые изменились, не нужно делать тупой копи-паст! Не вставляйте "+" в КОД