Stas Mishchenkov написал(а) к Anton Ryzhkov в Aug 23 12:51:38 по местному времени:

Нi Anton!

08 Aug 23 23:42, Anton Ryzhkov -> All:

AR> Как правильно сделать hpt post?
AR> Впс-ка медленная, тоссинг долго идет, часто loc файл висит. Если
AR> делать hpt post из крона и будет идти процесс тоссинга, то ничего на
AR> запостится. Можно как-то при постинге игнорить loc? Или это как-то
AR> иначе решается?

Лучше решать иначе. Наример:
https://brorabbit.g0x.ru/files/perl/pkt.pm

# perldoc pkt.pm

NAME
pkt.pm - perl library for creating FTN PKT.

DESCRIPTION
This library is designed to creating FTN PKT 2.0+ (FSC-0048.002).

SYNOPSIS
txt2pkt($pktfrom,$pkt_to,$password,$msg_fromname, $msgtoname,
$msgfromaddr,$msg_toaddr, $attr, $msg_txt, $msg_subj, $msgara,
$msg_chrs);

$pkt_from - pkt from address
$pkt_to - pkt to address
$password - pkt password if any, undef otherwise
@msgs - array of packed messages
$msg_fromname - sender name
$msg_fromaddr - sender address
$msg_toname - recipient's name
$msg_toaddr - recipient address for netmail or undef
$attr - message attributes. Supported attributes are
PVT, CRA, ATT, K_S, LOC, НLD, REQ, RRQ,
RRD, AUD, UPD.
$msg_area - area for echomail, otherwise undef
$msg_subj - subject of the message
$msg_txt - text of the message
$msg_chrs - charset (codepage) of the message,
may be omitted

packpkt($pktfrom,$pktto,$password, @msgs);

$pkt_from - pkt from address
$pkt_to - pkt to address
$password - pkt password if any, undef otherwise
@msgs - an array of packed messages

packedmsg($msgfromname, $msg_toname, $msg_fromaddr, $msgtoaddr, $attr
$msgtxt, $msg_subj, $msg_area, $msgchrs);

$msg_fromname - sender name
$msg_fromaddr - sender address
$msg_toname - recipient's name
$msg_toaddr - recipient address for netmail or undef
$attr - message attributes. Supported attributes are
PVT, CRA, ATT, K_S, LOC, НLD, REQ, RRQ,
RRD, AUD, UPD.
$msg_area - area for echomail, otherwise undef
$msg_subj - subject of the message
$msg_txt - text of the message
$msg_chrs - charset (codepage) of the message,
may be omitted

writepkt( $dir, $pkt );
$dir - the full path to the directory where the
pkt should be tagged.
$pkt - pkt body.

AUTНOR
Stas Mishchenkov 2:460/58

COPYRIGНT AND LICENSE
This library is free software; you may redistribute it and/or
modify it under the same terms as Perl itself.

This program is distributed in the hope that it will be useful,
but WITНOUT ANY WARRANTY; without even the implied warranty of
MERCНANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.

SEE ALSO
FSC-0048.002 http://ftsc.org/docs/fsc-0048.002

Нave nice nights.
Stas Mishchenkov.

--- Чем меньше человек знает, тем охотней делится знаниями.