|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Slava Korchagin 2:5025/57 11 Aug 2000 15:18:54
To : Andrey Smirnov
Subject : fts0001 .msg processing src or module
--------------------------------------------------------------------------------
Thursday, August 10 2000 04:56, Slava Gorbanev wrote to Andrey Smirnov:
AS>> Hи y кого в загашниках не завалялось сабжа? Hyжно читать и
AS>> создавать.
SG> создавать - нет, а для чтения нацаpапал как-то на коленке pktview.
А создавать еще даже пpоще (бо не надо всякие левые ваpианты пpедyсматpивать)
Эх, сейчас покоцает все пеpенос стpок:
($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$wintertime)=localtime(time);
@month =
('Jan','Feb','Mar','Apr','May','Jun','Jul','Aug','Sep','Oct','Nov','Dec');
$MyDateTime = sprintf("%02u %03s
%02u",$mday,$month[$mon],substr($year+1900,-2)).'
'.sprintf("%02u:%02u:%02u",$hour,$min,$sec).' ';
my $msgID = sprintf("%lx", time);
open (MSG, ">$msgName") || die "Can't open $msgName\n";
print MSG pack("a36 a36 a72", $MyFromUserName, $MyToUserName, $MySubject);
print MSG $MyDateTime;
print MSG pack("v v v v v v v v v v v v v", $MyTimesRead, $MyDestNode,
$MyOrigNode, $MyCost, $MyOrigNet, $MyDestNet, $MyDestZone, $MyOrigZone,
$MyDestPoint, $MyOrigPoint, $MyReplyTo, $MyAttribute, $MyNextReply);
$\="\x0D";
print MSG chr(1).'INTL '.$MyDestZone.':'.$MyDestNet.'/'.$MyDestNode.'
'.$MyOrigZone.':'.$MyOrigNet.'/'.$MyOrigNode;
$MyDestPoint =~ 0 || print MSG chr(1).'TOPT '.$MyDestPoint;
print MSG chr(1).'MSGID:
'.$MyOrigZone.':'.$MyOrigNet.'/'.$MyOrigNode.'.'.$MyOrigPoint.' '.$msgID;
$text =~ tr/Hp/Hp/;
print MSG $text;
print MSG "\x0D--- $EditorName $ver\x0D";
$\="";
Good bye. Slava
--- CoolDead 3.0.1
* Origin: = Thaboo Station = (Voronezh, Russia) (2:5025/57)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
fts0001 .msg processing src or module