PKTCLEAN 0.98 gamma.
Freeware.  CopyLeft by Dimmy Timchenko, 1994-95.  FIDO 2:469/15
A FIDOnet utility.  Cleans garbage kludges from PKT files.
Required: TURBO Pascal 7.0 & Turbo Professional 5.11+.

Утилита удаляет из PKT-файлов "левые" кладжи.  Список кладжей и эх,
которые надо/не надо обрабатывать, задается в файле PKTCLEAN.CFG (см.).
Программа занимает 15К, для работы ей надо примерно 90К, количество
одновременно обрабатываемых пакетов - не более 500, размер пакета не
ограничен.  Работает быстро. :)  Ведется лог-файл.

В PKT-файле ищется последовательность 00 'AREA:', содержимое строки
AREA сравнивается со списком эх.  Если эту эху обрабатывать надо,
ищется последовательность 0D 01 <текст> и затем проверяется, входит ли
этот кладж в список (описание - в CFG-файле).  Если входит - строка с
кладжем "удаляется".

При желании можно заменить одну строку на другую (см. CFG).  Замещение
происходит следующим образом : ищется образец, на его место записывается
замена.  Далее, могут быть два варианта.  Если первый символ строки
замещения - "+", остаток строки (то, что не вошло в шаблон) после замены
сохраняется.  Иначе - остаток строки удаляется.

При этом надо следить, чтобы строка замены не была длиннее исходной строки.
Если строка замены длиннее образца, выдается сообщение об ошибке или (если
в конфигурации закомментирована строка StrictCheck) в лог выдается
предупреждение (один раз после обновления конфигурации).

При обработке пакета новый пакет пишется в файл $$PKTCL1.TMP, затем
исходный файл переименовывается в FFFF1000.PKT...FFFF9999.PKT, затем
новому файлу присваивается имя и дата исходного, а исходный удаляется.
Это предотвращает потерю почты при любых сбоях.  Максимум - появятся
дупы, которые отловит тоссер.

Запуск программы:

PKTCLEAN <путь> {<маска>} [+|-<список_тэгов>]

<Путь> - это путь к директории, куда тоссер распаковывает входящие
эхо-бандлы.  Если вы пользуетесь тоссером GECHO, вы можете указать
PKTCLEAN.EXE в External Utilities --> PKT, а в Ext.Uti./Options указать
"Run PKT program once".

<маска> - групповое имя файлов, которые надо обработать.  По умолчанию -
*.PKT.

<список_тэгов> - список групп кладжей и/или эх для обработки.
Тэг - любая буква или цифра, указываемая для списка эх или образцов
(см. PKTCLEAN.CFG). "+" означает добавить к набору по умолчанию
(тому, который без тэга), "-" - обрабатывать только перечисленные
группы кладжей/эх.  Между знаком "+"|"-" и тэгами не должно быть
пробелов, например : +12WZ

Примеры:

PKTCLEAN L:\MAIL\IN

Обработать *.PKT в каталоге L:\MAIL\IN

PKTCLEAN L:\MAIL\OUT *.CUT *.HUT *.OUT

Обработать *.CUT *.HUT *.OUT в каталоге L:\MAIL\OUT

PKTCLEAN L:\MAIL\OUT *.?UT -N

Обработать *.?UT в каталоге L:\MAIL\OUT, использовать тэг N.


Dimmy.