ru.cgi.perl

 
 - RU.CGI.PERL ------------------------------------------------------------------
 From : Denis Zwerew                         2:5030/1521    08 Nov 2000  15:05:10
 To : Andrey Brindeew
 Subject : RFC-1521 (1522)
 -------------------------------------------------------------------------------- 
 

 
 Суб Hоя 04 2028 20:28, Andrey Brindeew wrote to All:
 Вот кусок из моего примера, который читает заголовок и отображает его на вебе:
 
 use MIME::Base64 ();
 ...
    print "Content-type: text/html\n\n";
    print "<HTML><HEAD><TITLE>Header of messages</TITLE>";
    print '<META HTTP-EQUIV="Content-Type" CONTENT="text/plain; charset=koi8-r"> 
 </HEAD><BODY>';
    print "<TABLE BORDER=1>";
       open(TEMP, "$dirname/$filename"); /$filename - файл с одним письмом
       while($data=<TEMP>){
          chomp($data);
          if ($data =~ /^Date:/){
             ($date = $data) =~ s/^Date://g;
          }
          if ($data =~ /^From:/){
             ($from = $data) =~ s/^From://g;
             $fromR = MIME_decoder($data);
          }
          if ($data =~ /^Subject:/){
             ($subj = $data) =~ s/^Subject://g;
             $subjR = MIME_decoder($data);
          }
       }
       close(TEMP);
       print "<TR>";
       print "<TD>$fromR</TD><TD>$subjR</TD><TD>$date</TD>";
       print "</TR>";
    print "</TABLE>";
    print "</BODY></HTML>";
 }
 
 sub MIME_decoder{
    ($decoded) = @_;
    if ($decoded =~ /iso-8859-5/){
       $decoded =~ s/^.+\?iso-8859-5\?B\?(.+)\?.+$/$1/g;
       $from_dec =
 "°±¶іґµб¶·г№д»јЅѕзАБВГДЕЖЗИЙКЛМНОПРСТУФХёЦЧШЩЪЫЬЭЮЯрстуфхцчшщъыьэюя";
    }
    if ($decoded =~ /koi8-r/){
       $decoded =~ s/^.+\?koi8-r\?B\?(.+)\?.+$/$1/g;
       $from_dec =
 "стччфхіцъщъыьэюяЁтуфхцшуюыэ\377щшьрёБВЧЗДЕгЦЪЙКЛМНОПРТУФХЖИГЮЫЭЯЩШЬАС";
    }
    if ($decoded =~ /windows-1251/){
       $decoded =~ s/^.+\?windows-1251\?B\?(.+)\?.+$/$1/g;
       $from_dec =
 "АБВГДЕіЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯрстуфхгцчшщъыьэюяЁётуфхцчшщъыьэю\377";
    }
    if ($decoded =~ /cp866/){
       $decoded =~ s/^.+\?cp866\?B\?(.+)\?.+$/$1/g;
       $from_dec = "АБВГДЕЁЖЗИЙКЛМHОПРСТУФХЦЧШЩЪ
 абвгдЅёжзійґлмно·рстуфхцчшщъыьэюя";
    }
    $to_dec =
 "стччфхіцъщъыьэюяЁтуфхцшуюыэ\377щшьрёБВЧЗДЕгЦЪЙКЛМНОПРТУФХЖИГЮЫЭЯЩШЬАС";
    $decoded = MIME::Base64::decode($decoded);
    eval "\$decoded =~ tr/$from_dec/$to_dec/";
    return($decoded);
 }
 
  AB> "Denis Zwerew" wrote:
  >> попробуй так:
  >> use MIME::Base64 ();
  >> ...
  >> $subj = "Subject: " . MIME_decoder("здесь пишем тему письма");
  AB> Hа самом деле решение было-таки найдено: MIME::Words .
 
  AB> Так что, видимо, придется мне разработать модуль, который бы строго
  AB> следовал RFC-822 & RFC-1522 в части headers (т.е. просто скармливаем
  AB> массив адресов, а модуль весьма аккуратно со всем этим разбирается,
  AB> энкодит все как положено и скармливает полученное модулям MIME::* -
  AB> для создания письма).
     С наилучшими пожеланиями,
                          Denis.
 
     ICQ UIN:           7311194  (Always OnLine)
     Phone (work):      118-4800 (10:00 - 18:00)
 --- System Administrator of Ilim Palp Enterprise
  * Origin:  ->  Denis.Zverev@ipe.com.ru  <-     (2:5030/1521)
 
 

Вернуться к списку тем, сортированных по: возрастание даты  уменьшение даты  тема  автор 

Тема:    Автор:    Дата:    RFC-1521   Andrey Brindeew   02 Nov 2000 22:51:26   Re: RFC-1521   vitus@ice.ru   03 Nov 2000 11:39:58   Re: RFC-1521   Andrey Brindeew   03 Nov 2000 16:14:32   RFC-1521   Denis Zwerew   04 Nov 2000 17:52:12   Re: RFC-1521 (1522)   Andrey Brindeew   04 Nov 2000 21:28:52   RFC-1521 (1522)   Denis Zwerew   08 Nov 2000 15:05:10