Информационный сервер для программистов: Исходники со всего света. Паскальные исходники со всего света
  Powered by Поисковый сервер Яndex: Найдется ВСЁ!
На Главную Pascal Форум Информер Страны мира
   Программы для FIDO    >>    pktclean
   
 
 PktClean 0.98g. Удаление Клуджей из PKT файлов   Дмитрий Тимченко 24.03.1995

PKTCLEAN 0.98 gamma. Freeware. A FIDOnet utility. Cleans garbage kludges from PKT files. Required: TURBO Pascal 7.0 & Turbo Professional 5.11+.



34k 
 

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.