home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Misc / ShowStatsV1.2.lha / BBS / Doors / AVT-ShowStatus / AVT-ShowStatus.rexx < prev   
Encoding:
OS/2 REXX Batch file  |  1994-12-30  |  3.5 KB  |  114 lines
  1. /* AVT-ShowStatus by kNUCKLES/aVT */
  2. /* Start: 10-03-94                */
  3. /* Releasedate v1.0: 10-17-94     */
  4. /* Releasedate v1.1: 10-22-94     */
  5. /* Releasedate v1.2: 12-30-94     */
  6.  
  7. PARSE ARG Node
  8. OPTIONS RESULTS
  9. ADDRESS VALUE 'AERexxControl'Node
  10.  
  11. SIGNAL ON Error
  12. SIGNAL ON Syntax
  13. SIGNAL ON IOErr
  14.  
  15. CR=D2C(13)
  16. CLS=D2C(12)
  17. BEEP=D2C(7)
  18.  
  19. WH=""    /* White  */
  20. GR=""   /* Green  */
  21. YL=""   /* Yellow */
  22. CYN=""  /* Cyan   */
  23.  
  24. GU=GETUSER
  25. TR=TRANSMIT
  26.  
  27. GU 100;name=LEFT(RESULT,33,' ')
  28. GU 102;location=LEFT(RESULT,30,' ')
  29. GU 103;phone=LEFT(RESULT,12,' ')
  30. GU 104;slot=RIGHT(RESULT,3,'0')
  31. GU 105;seclevel=LEFT(RESULT,3,' ')
  32. GU 106;ratiotype=RESULT
  33. IF ratiotype=0 THEN ratiotext="Byte";IF ratiotype=1 THEN ratiotext="Byte/File";IF ratiotype=2 THEN ratiotext="File"
  34. GU 107;rationum=RESULT
  35. GU 109;messages=RESULT
  36. GU 110;uploads=RESULT
  37. GU 111;downloads=RESULT
  38. GU 112;timescalled=RESULT
  39. GU 114;timeused=RESULT
  40. GU 115;timelimit=RESULT
  41. GU 116;timetotal=RESULT
  42. GU 117;bytesup=RESULT
  43. GU 118;bytesdown=RESULT
  44. GU 119;bytelimit=RESULT
  45. GU 121;xpert=UPPER(RESULT)
  46. xperttext="OFF Not used to /X ?!"
  47. IF xpert="X" THEN xperttext="ON  Of course!" 
  48. GU 142;sysopchat=UPPER(RESULT)
  49. chattext="SysOp available"
  50. IF sysopchat="OFF" THEN chattext="SysOp NOT available"
  51. GU 143;laston=RESULT
  52. GU 144;currtime=RESULT
  53. GU 146;confacc=LEFT(RESULT,9,' ')
  54. GU 149;node=RESULT
  55. GU 152;axver=RESULT
  56. GU 505;bps=LEFT(RESULT,6,' ')
  57. GU 11;bbsname=RESULT
  58. GU 12;sysop=RESULT
  59.  
  60. TR CLS
  61. TR "    p     ____ _____________        ____________  ____  ______   _______      "
  62. TR "       /    \       /__   |      /   ___/__   |/    \\\__   | /   ___/_ __  "
  63. TR "     ./     \\    // /   || -÷- /\__   \ /   ||     \\ /   ||/\__   \ \/  ' "
  64. TR "     /________\___/ /_____|÷2F÷/_______//_____|______.:.____|_______/       "
  65. TR "       aVANTGARDE - sTATUS v1.2 - by kNUCKLES^2fAST!  :unregistered         "
  66. TR CR
  67. TR GR"   User Name"CYN":"WH name GR"Password."CYN": ENCRYPTED"
  68. TR GR"   Location."CYN":"WH location" C "GR"Calls...."CYN":"WH timescalled
  69. TR GR"   Phone...."CYN":"WH phone" C "GR"Messages."CYN":"WH messages
  70. TR GR"   Slot....."CYN":"WH slot "C"GR"Uploads.."CYN":"WH uploads
  71. TR GR"   SecLevel."CYN":"WH seclevel "C"GR"Downloads"CYN":"WH downloads
  72. TR GR"   ConfAccss"CYN":"WH confacc "C"GR"Bytes Up."CYN":"WH bytesup
  73. TR GR"   Ratiotype"CYN":"WH LEFT(ratiotext,9,' ') "C"GR"Bytes Dwn"CYN":"WH bytesdown
  74. IF rationum=0 THEN TR GR"   Ratio...."CYN": DISABLED! C"GR"Bytelimit"CYN":"WH bytelimit; ELSE TR GR"   Ratio...."CYN":"WH rationum":1 C"GR"Bytelimit"CYN":"WH bytelimit
  75. TR GR"   Bps......"CYN":"WH bps "C "GR"XPertMode"CYN":"WH xperttext
  76. TR GR"   Act Time."CYN":"WH currtime"C "GR"Your Node"CYN":"WH node
  77. TR GR"   Last On.."CYN":"WH laston "C"GR"BBS-Name."CYN":"WH bbsname
  78. TR GR"   Time Used"CYN":"WH RIGHT(TRUNC(timeused/60,0),5,' ')" mins C"GR"/X  Vers."CYN":"WH axver
  79. TR GR"   TimeLimit"CYN":"WH RIGHT(TRUNC(timelimit/60,0),5,' ')" mins C "GR"SysopName"CYN":"WH sysop
  80. TR GR"   TimeTotal"CYN":"WH RIGHT(timetotal/60,5,' ')" mins C "GR"Chat....."CYN":"WH chattext
  81.  
  82. TR CR" p"
  83.  
  84. PUTUSTR ""
  85. PUTUSER 136
  86. CALL BYE
  87.  
  88.  
  89. /* END PART */
  90.  
  91. ERROR:
  92.  TR ""
  93.  TR "Error in Line #"Sigl" : exiting ..."
  94.  TR ERRORTEXT(Sigl)
  95. CALL BYE
  96.  
  97. SYNTAX:
  98.  TR ""
  99.  TR "Syntax Error in Line #"Sigl" : exiting ..."
  100.  TR ERRORTEXT(Sigl)
  101. CALL BYE
  102.  
  103. IOERR:
  104.  TR ""
  105.  TR "I/O Error in Line #"Sigl" : exiting ..."
  106.  TR ERRORTEXT(Sigl)
  107. CALL BYE
  108.  
  109. BYE:
  110.  TR ""
  111.  SHUTDOWN
  112.  EXIT
  113. END
  114.