home *** CD-ROM | disk | FTP | other *** search
- Program TenSubmit;
- Uses CRT,Tentools;
-
- VAR
- Commandline : String;
- Node : S12;
- RetCode : Word;
- I : Integer;
-
- Begin
- If not (ParamCount>=2)
- then
- begin
- Writeln('Syntax: ');
- Writeln(' SUBMIT <Superstation> <Commandline>');
- Halt;
- end;
- Node:=ParamStr(1);
- Commandline:='';
- I:=2;
- While not (I=ParamCount)
- do
- begin
- Commandline:=Commandline+ParamStr(I)+' ';
- Inc(I);
- end;
- Commandline:=Commandline+ParamStr(I);
- RetCode:=Submit(Node,Commandline);
- Case RetCode of
- 0 : Writeln('Command Submitted to ',Node);
- $08FF : Writeln('Not Logged into ',Node);
- $0FFF : Writeln('Submit Permit not ON at ',Node);
- else Writeln('Problem encountered! ErrorCode: ',RetCode);
- end;
- End.