/**************************************************************************\
               $VER: Net_Utils, v2.0 (27-Jan-95) by Dotoran!
\**************************************************************************/
options results;signal on SYNTAX;signal on ERROR;signal on IOERR
tr=transmit;se=sendstring;gc=getchar;gu=getuser;gs=getscratch

/* Allows access to some Network utilities. Add this line to the bottom of
   your Menu # 1; SysOp Only Menu in "cnet:bbsmenu" file:

        NET, NET utils | {#0pfiles:fido/NetUtils}
                         ^
                    Control-Q
*/

NETUTILS:
  tr 'n1r1  CNet Amiga FIDO-Net Utilities  r0n1'
  tr '1. Net Logs'
  tr '2. Get Node Info'
  tr '3. List Net Names'
  tr '4. List  Accounting'
  tr '5. Clear Accountingn1'
  tr 'Q. Quit Net Utilsn1'
  se 'Net> ';gc;a=result
  if a<1 | a>5 then do;tr 'Quit';exit;end
  if a=1 then signal NETLOGS
  if a=2 then signal GETNODE
  if a=3 then signal ENETNUM
  if a=4 then signal LISTACCT
  if a=5 then signal CLEARACCT

NETLOGS:
  se 'Net Logsn1#0pfiles:fido/NetLogViewer}'
 signal NETUTILS

GETNODE:
  se 'Get Noden1#0pfiles:fido/Look_Up}'
 signal NETUTILS

ENETNUM:
  se 'List Netn2c6ENumNet Addressc9:cai16512 20}n1'
  getuser 70;arg=result;se 'ce#4fido:ENumNet 'arg'}'
 signal NETUTILS

LISTACCT:
  se 'List Accountingn2ce#4fido:ListAcct}'
 signal NETUTILS

CLEARACCT:
  se 'Clear Accountingn2c6Node to Clearc9:cai16512 20}n1';gu 70;arg=result
  if arg='' then do;se 'c6Clear cbALL c6Nodes? c7[caYesc7]c6: ca'
    gc;a=result;if a='N' then do;tr 'No.';signal NETUTILS;end
    arg='ALL';tr 'Yes!ce#4fido:ClearAcct 'arg'}n1';end
 signal LISTACCT

exit

SYNTAX:;ERROR:;IOERR:;e1=' c9Errorcf: ca'rc' cf(ca'errortext(rc)'cf)';e2='  c9Linecf: ce'left(sigl,4)'c9Filecf:'
  gu 1311992;a=result;gu 1311960;b=result;c='cb"ce'a||b'cb"';e2=e2' 'c;tr e1;tr e2;logentry e1;logentry e2;e=sourceline(sigl)
  do while e~='';e3='c9Sourcecf: cd'left(e,37);tr e3;logentry e3;e=substr(e,38);end;bufferflush;exit
/** Last Edited: 27-Jan-95 ************************************************\
\****************************************** FRONTIERS BBS (716)/823-9892 **/