От кого: Лантратов <srtiy@corona.nnov.ru>

            Кому: Razhivin Igor A. <dj-2@yandex.ru>

            Тема: скрипты

Скрипт читает список ТТфайлов- и самостоятельно убивает 50 старейших; подвешен на плагин-мониторинг, срабатывает от аварии 90% заполнения диска файлами.

@COMMENT "MACRO УДАЛЕНИЕ ttfile"

@CLEAR

@CONNECT

@ONERROR GOSUB myerror

inmct:spg=0;  

infip:file=ttfile00; 

@COPY {_line13} {i} 10 4

end;

@set {po}={i}

@inc {po} 50

@comment {i} 

@comment {po} 

@R-  

@LABEL qqq

@SET {error} = 0

@CONNECT

inmct:spg=0;

infir:file=ttfile00-{i};

@IF {error} = 1 THEN GOTO mynext

@RELEASE

@LABEL mynext

@INC {i}

@IF {i} <= {po} THEN GOTO qqq

@R+

@COMMENT "END MACRO УДАЛЕНИЕ ttfile"

@ONERROR

@EXIT

@LABEL myerror

@INC {error} 1

@RETURN

Copyright (c) Александр Лантратов ICQ#: 100386078

Главная страница   Main Page

Командные сценарии для WinFIOL’а   WinFIOL Scripts

Толковый словарь по телекоммуникациям   Telecom Glossary