ZXNet эхоконференция «zxnet.general»

Привет, All!

Для приёма надо запускать например так:

postie -host:imap.mailru.com -user:login -pass:password
-file:D:Postieemail.dat -rm -raw

.dat нельзя кидать в корневой каталог - postie с этм глючит.
-rm - удаление мессаг с сервера, -raw - писать в email.dat конкретно дамп
ящиков, иначе записть идёт во внутреннем формате Postie и потом это ничем
внешним не распаковать.

Ключ -extract использовать не советую - одноимённые пакеты буду просто
перезаписаны. В принципе, можно конечно и по одной мессаге принимать и
обрабатывать (см. ключ -msg) но если одноимённые файлы будут в одном сообщении
- это не поможет.

Выход из этой проблемы - простой. Hадо использовать PktXCode.
Запускается он сразу после завершения Postie такой строкой:

PktXCode D:Postieemail.dat

После чего можно добавить

del D:Postieemail.dat
del D:PostiePKTXCODE.IDX
del D:PostiePKTXCODE.DAT

Вот весь конфиг PktXCode:

=== Hачало Windows Clipboard ===
; PktXCode v1.24 - configuration file
[GENERAL]
DATABASEPATH=D:Postie\n
EXTRACTPATH=D:IN_IUC
EXTRACTBADPATH=D:IN_IUCBAD\n
LOGSUMPATH=D:Log\n
LOGPATH=D:Log\n
LOGLEVEL=ALL
SPLITTEXT="x:[ ]"
TEXTMARK="Subject:"
FORCEFILEJOINING=NO
USELONGNAMES=YES
ZIPMAGIC95COMPATIBILITY=NO
AUTOFILEEXTENSION=NO
USEBASE64HEADER=AUTO
DUPEHANDLING=COMPARE
MEMSIZE=AUTO
DELDAYS=14
[END]

[DECODEAREA]
[END]

[MODIFYAREA]
[END]

[EXTRACTPATH]
[END]

[NETMAILFILTER]
[END]

[FILTERSETTINGS]
ATTACHMESSAGE=NO
ATTACHPATH=NO
[END]

[SHORTTEXT]
[END]

[SENDTEXT]
[END]

=== Конец Windows Clipboard ===

То что будет в D:IN_IUC - можно давать обычному тоссеру.


Теперь о передаче пакетов средствами Postie.
У меня это сделано из BSO-очереди.

Итак, пишем ещё один bat-файл:



это уникальное имя эхопакета, который надо отправить.
а ещё оно используется для возврата из подпрограммы SEND
CALL тут почему-то был не отпимален...

set FILE=9c5149e7



Адрес куда посылать эхопакет и что писать в поле Кому

set ADDR="(500:9999/0@ZXNet EchoMail) <9999@inbox.ru>"

в принципе всё аналогично. ADDRN придуман только для того
чтобы написать Netmail ;)

set ADDRN="(500:9999/0@ZXNet NetMail) <9999@inbox.ru>"


уникальное имя hlo пакета. Используется для посылки netmail и для удаления
*.?lo после посылки echomail

set LO=00980000



постилка

goto SEND



метка для возврата из постилки

:9c5149e7


Тут всё аналогично - это следующий линк. Их тут можно много ещё вставить.

set FILE=
set ADDR=
set ADDRN=
set LO=
goto SEND
:15AB0A8B

Конец

:END
exit



А вто подпрограмма посылки эхопакетов

:SEND
@echo -
if not exist D:MODEMFTNFILESOUTBOUND.1F4%FILE%.* goto NOTEM

Если пакета нет - переход к постингу мыла из BSO
Эхопакет просто из BSO т-мыла берётся и посылается как UUE (-uue).
Если всё нормально - он будет удалён (-rm), иначе останется.
Обращаю внимание на то, что посылать можно вообще с левого smtp ;)
pop.mtu.ru - это smtp моего ISP ;)

@echo Sending a EchoMail for %ADDR%...
call postie.exe -host:pop.mtu.ru -port:25 -to:%ADDR%
-from:"" -replayto:"" -s:" "
-msg:" " -dir:D:MODEMFTNFILESOUTBOUND.1F4%FILE%.* -uue -rm



Теперь посылка мыла

:NOTEM
if not exist D:MODEMFTNFILESOUTBOUND.1F4%LO%.hut goto ENDSEND

Если мыла нет - конец подпрограммы

@echo Sending a NetMail for %ADDR%...
Copy D:MODEMFTNFILESOUTBOUND.1F4%LO%.hut D:MODEMFTNFilesOUTB_ren

иначе мыло копируется (для переименования в pkt)

Ren D:MODEMFTNFilesOUTB_ren%LO%.hut %LO%.pkt

переименовывается

call postie.exe -host:pop.mtu.ru -port:25 -to:%ADDRN%
-from:"" -replayto:"" -s:" "
-msg:" " -dir:D:MODEMFTNFILESOUTB_ren%LO%.pkt -uue -rm
goto ENDSEND

и посылается.


а теперь удаление "ненужных" файлов

:ENDSEND
if exist D:MODEMFTNFILESOUTBOUND.1F4%FILE%.* goto endsend1
del D:MODEMFTNFILESOUTBOUND.1F4%LO%.hlo

Если эхопакет отправился - то его .hlo можно удалить.

:endsend1
if exist D:MODEMFTNFilesOUTB_ren%LO%.pkt goto endsend2
del D:MODEMFTNFILESOUTBOUND.1F4%LO%.hut
goto %FILE%
:endsend2
del D:MODEMFTNFILESOUTB_ren%LO%.pkt
goto %file%

а с мылом - отправлялась ведь переименованная копия...
Если её нет - можно удалить hut и из BSO, а иначе (если
копия не ушла) - надо её удалить (на будущее)

* Оригинал написан в ZXNET.GENERAL
* Скопировано в FLASH.LOCAL

С уважением, Евгений.