home *** CD-ROM | disk | FTP | other *** search
/ ftp.wwiv.com / ftp.wwiv.com.zip / ftp.wwiv.com / pub / MISC / TGNET101.ZIP / NETAPP.SCR < prev    next >
Text File  |  1998-07-12  |  7KB  |  268 lines
  1. ; NetApp 1.00                                             Jeff "Grapes" Weese   
  2. ; ---------------------------------------------------------------------------
  3. ; Ever wish your SysOp users could apply for a network online? Well, this
  4. ; script is what you've been looking for. Please refer to NETAPP.DOC for
  5. ; full details of operation and installation.
  6. ;
  7. ; This is my first script so it is bound to look terrible, but I've done
  8. ; the best I can to make it look pretty kewl. Have fun with it and feel
  9. ; free to change it to suit your needs. I was working on making it able to
  10. ; add nodelist flags but I couldn't for the life of me figure it out, I
  11. ; screwed around for a couple hours and just said..oh well. Sorry. For some
  12. ; reason, maybe my experience. I can't get it to pass the stuff properly so
  13. ; I commented it out.
  14. ;
  15.  
  16. VARIABLE BBSName STRING ""
  17. VARIABLE TRUENAME STRING ""
  18. VARIABLE BBSNumber STRING ""
  19. VARIABLE BBSSoftware STRING ""
  20. VARIABLE BBSMailer STRING ""
  21. VARIABLE LOCATION1 STRING ""
  22. VARIABLE LOCATION2 STRING ""
  23. VARIABLE LOCATION3 STRING ""
  24. VARIABLE BLANK STRING ""
  25. VARIABLE CLEAR BOOLEAN "NO"
  26. VARIABLE OK BOOLEAN "YES"
  27. VARIABLE ALTER CHAR ""
  28. VARIABLE CHANGE BOOLEAN "NO"
  29. VARIABLE FREQCHK BOOLEAN
  30. VARIABLE CONMAILCHK BOOLEAN
  31. VARIABLE FREQ STRING ""
  32. VARIABLE CONMAIL STRING ""
  33. VARIABLE FLGLOCHK BOOLEAN
  34. VARIABLE LOFLAG STRING ""
  35. VARIABLE FLV32BCHK BOOLEAN
  36. VARIABLE V32BFLAG STRING ""
  37. VARIABLE FLV42BCHK BOOLEAN
  38. VARIABLE V42BFLAG STRING ""
  39.  
  40. FILEDISPLAY NETAPP.ANS
  41.  
  42. :NAME
  43. PUTNL "`4C░▒▓`4FWHaT iS THe NaMe oF youR SySTeM`4C▓▒░`07"
  44. GET BBSName "`05" 28
  45.  IF "$BBSName$" "$BLANK$"
  46.   PUT "`8E* `0CSoRRy, you MuST eNTeR THe NaMe oF youR BBS To CoNTiNue `8E* `07~SM"
  47.   PUT "`8E* `0CPLeaSe TRy aGaiN `8E* `07~SM"
  48.   BBSName ""
  49.   CLEAR "YES"
  50.   JUMP NAME
  51.  ENDIF
  52. TRANSLATE TRUENAME "$BBSName$" " " "_"
  53. PUT "`4C░▒▓`4FSySTeM NaMe ReCoRDeD aS `4C▓ `4E$BBSName$ `4C▓▒░`07"
  54.  IF "$CLEAR$" "YES"
  55.   CLEAR "NO"
  56.  ENDIF
  57.  IF "$CHANGE$" "YES"
  58.   JUMP CHANGEINFO
  59.   CHANGE "NO"
  60.  ENDIF
  61.  
  62. :NUMBER
  63. PUT ""
  64. PUTNL "~SM`4C░▒▓`4FPLeaSe eNTeR youR BBS NuMBeR iN THiS FoRMaT `4E###-###-####`4F▓▒░`07"
  65. GET BBSNumber "`05" 12 NO "###-###-####"
  66.  IF "$BBSNumber$" "$BLANK$"
  67.   PUT "`8E* `0CBBS NuMBeR iS NeeDeD FoR THe NoDeLiST `8E* `07~SM"
  68.   PUT "`8E* `0CPLeaSe eNTeR NuMBeR `8E*`07"
  69.   BBSNumber ""
  70.   CLEAR "YES"
  71.   JUMP NUMBER
  72.  ENDIF
  73. PUT "`4C░▒▓`4FSySTeM NuMBeR ReCoRDeD aS `4C▓ `4E$BBSNumber$`4C▓▒░`07"
  74.  IF "$CLEAR$" "YES"
  75.   CLEAR "NO"
  76.  ENDIF
  77.  IF "$CHANGE$" "YES"
  78.   JUMP CHANGEINFO
  79.   CHANGE "NO"
  80.  ENDIF
  81.  
  82. :SOFTWARE
  83. PUT ""
  84. PUTNL "~SM`4C░▒▓`4FWHaT BBS SoFTWaRe aRe you uSiNG`4C▓▒░`07"
  85. GET BBSSoftware "`05" 28 NO
  86.  IF "$BBSSoftware$" "$BLANK$"
  87.   BBSSoftware "-NONE-"
  88.  ENDIF
  89. PUT "`4C░▒▓`4FBBS SoFTWaRe ReCoRDeD aS `4C▓ `4E$BBSSoftware$`4C▓▒░`07"
  90.  IF "$CHANGE$" "YES"
  91.   JUMP CHANGEINFO
  92.   CHANGE "NO"
  93.  ENDIF
  94.  
  95. :MAILER
  96. PUT ""
  97. PUTNL "~SM`4C░▒▓`4FWHaT FRoNTeND SoFTWaRe aRe you uSiNG`4C▓▒░`07"
  98. GET BBSMailer "`05" 28 NO
  99.  IF "$BBSMailer$" "$BLANK$"
  100.   BBSMailer "-NONE-"
  101.  ENDIF
  102. PUT "`4C░▒▓`4FFRoNTeND SoFTWaRe ReCoRDeD aS `4C▓ `4E$BBSMailer$`4C▓▒░`07"
  103.  IF "$CHANGE$" "YES"
  104.   JUMP CHANGEINFO
  105.   CHANGE "NO"
  106.  ENDIF
  107.  
  108. :LOCATION
  109. PUT ""
  110. PUT "~SM`4C░▒▓`4FPLeaSe eNTeR CiTy`4C▓▒░`07"
  111. GET LOCATION1 "`05" 28 NO
  112.  IF "$LOCATION1$" "$BLANK$"
  113.   LOCATION "-CITY-"
  114.  ENDIF
  115.  IF "$CHANGE$" "YES"
  116.   JUMP CHANGEINFO
  117.   CHANGE "NO"
  118.  ENDIF
  119.  
  120. :LOCATION1
  121. PUT "~SM`4C░▒▓`4FPLeaSe eNTeR PRoViNCe/STaTe`4C▓▒░`07"
  122. GET LOCATION2 "`05" 28 NO
  123.  IF "$LOCATION2$" "$BLANK$"
  124.   LOCATION2 "-PROVINCE/STATE-"
  125.  ENDIF
  126.  IF "$CHANGE$" "YES"
  127.   JUMP CHANGEINFO
  128.   CHANGE "NO"
  129.  ENDIF
  130.  
  131. :LOCATION2
  132. PUT "~SM`4C░▒▓`4FPlease enter Country`4C▓▒░`07"
  133. GET LOCATION3 "`05" 28 NO
  134.  IF "$LOCATION3$" "$BLANK$"
  135.   LOCATION "-COUNTRY-"
  136.  ENDIF
  137.  IF "$CHANGE$" "YES"
  138.   JUMP CHANGEINFO
  139.   CHANGE "NO"
  140.  ENDIF
  141.  
  142. :FLAGS
  143. YESNO CONMAILCHK "~SM`4C░▒▓`4FiS youR MaiLeR aVaiLaBLe 24/7? `4C▓`4E [Y/n]`4C▓▒░`07 `0D"
  144. YESNO FREQCHK "~SM`4C░▒▓`4FDoeS youR MaiLeR aLLoW FREQ's? `4C▓`4E [Y/n]`4C▓▒░`07 `0D"
  145. NOYES FLGLOCHK "~SM`4C░▒▓`4FDoeS youR SySTeM aCCePT CaLLS FRoM uNLiSTeD SySTeMS? `4C▓`4E [y/N]`4C▓▒░`07 `0D"
  146. YESNO FLV32BCHK "~SM`4C░▒▓`4FDoeS youR SySTeM SuPPoRT ITU-T V32bis? `4C▓`4E [Y/n]`4C▓▒░`07 `0D"
  147. YESNO FLV42BCHK "~SM`4C░▒▓`4FDoeS youR SySTeM SuPPoRT ITU-T V42bis? `4C▓`4E [Y/n]`4C▓▒░`07 `0D"
  148.  
  149. IF "$CONMAILCHK$" "YES"
  150.  CONMAIL "CM,"
  151. ENDIF
  152.  
  153. IF "$FREQCHK$" "YES"
  154.  FREQ "XA,"
  155. ENDIF
  156.  
  157. IF "$FLGLOCHK$" "NO"
  158.  LOFLAG "LO,"
  159. ENDIF
  160.  
  161. IF "$FLV32BCHK$" "YES"
  162.  V32BFLAG "V32b,"
  163. ENDIF
  164.  
  165. IF "$FLV42BCHK$" "YES"
  166.  V42BFLAG "V42b,"
  167. ENDIF
  168. IF "$CHANGE$" "YES"
  169.  JUMP CHANGEINFO
  170.  CHANGE "NO"
  171. ENDIF
  172.  
  173. :INFOCHECK
  174. YESNO OK "`4C░▒▓`4FHaS eVeRTHiNG BeeN eNTeReD CoRReCTLy? `4C▓ `4E[Y/n]`4C▓▒░`07 `05"
  175. JE "$OK$" "YES" ADD
  176. NOYES OK "~SM`4C░▒▓`4FaBoRT THiS aPPLiCaTioN? `4C▓ `4E[y/N]`4C▓▒░`07 `05"
  177. IF "$OK$" "YES"
  178.  JUMP END
  179. ENDIF
  180.  
  181. :CHANGEINFO
  182. PUT "`04Edit `0CN`04ame, `0CP`04hone #, `0CS`04oftware,"
  183. PUT "`0CL`04ocation, `0CF`04lags or     
  184. GET ALTER "`0E[`0CENTER`0E]  `04when done"  "FLNPS^M"
  185.  
  186. IF "$ALTER$" "N"
  187.  CHANGE "YES"
  188.  BBSName ""
  189.  JUMP NAME
  190. ENDIF
  191.  
  192. IF "$ALTER$" "P"
  193.  CHANGE "YES"
  194.  BBSNumber ""
  195.  JUMP NUMBER
  196. ENDIF
  197.  
  198. IF "$ALTER$" "S"
  199.  CHANGE "YES"
  200.  BBSSoftware ""
  201.  JUMP SOFTWARE
  202. ENDIF
  203.  
  204. IF "$ALTER$" "L"
  205.  CHANGE "YES"
  206.  LOCATION ""
  207.  JUMP LOCATION
  208. ENDIF
  209.  
  210. IF "$ALTER$" "F"
  211.  CHANGE "YES"
  212.  JUMP FLAGS
  213. ENDIF
  214.  
  215. IF "$ALTER$" "^M"
  216.  JUMP INFOCHECK
  217. ENDIF
  218.  
  219. :ADD
  220. ; Change the following path to reflect the directory you want the application
  221. ; stored in. You can change the name of the application text file as well but
  222. ; I recommend leaving it with the ~UN in it. This will append the user's
  223. ; record number to the filename, makes things nicer. Do what you like <G>.
  224. FILECREATE C:\TMP\APP~UN.TXT
  225. FILEPUT "Nodelist Entry"
  226. FILEPUT "--------------"
  227. FILEPUT "Below is the information gathered from what the user entered and what"
  228. FILEPUT "was gathered from your system. Also, a sample nodelist entry has been"
  229. FILEPUT "created; simply cut and paste this entry into your nodelist (after"
  230. FILEPUT "you've changed the node number of course <G>)."
  231. FILEPUT ""
  232. FILEPUT ",999,$TRUENAME$,$LOCATION1$_$LOCATION2$_$LOCATION3$,~UF_~UL,1-$BBSNumber$,$CONMAIL$$FREQ$$LOFLAG$$V32BFLAG$$V42BFLAG$"
  233. FILEPUT ""
  234. FILEPUT ""          
  235. FILEPUT " Application Information"
  236. FILEPUT ""
  237. FILEPUT "          BBS Name:   $BBSName$"
  238. FILEPUT "           Running:   $BBSSoftware$"
  239. FILEPUT "            Number:   $BBSNumber$"
  240. FILEPUT "          Location:   $LOCATION1$, $LOCATION2$, $LOCATION3$"
  241. FILEPUT ""
  242. FILEPUT "The Following Information was found stored on the system that"
  243. FILEPUT "processed the application script."
  244. FILEPUT ""
  245. FILEPUT "      Processed At:   ~SA"
  246. FILEPUT "                  :   ~SB"
  247. FILEPUT "             SysOp:   ~SS"
  248. FILEPUT ""
  249. FILEPUT "         User Name:   ~UR (~UH)"
  250. FILEPUT "           Address:   ~UB"
  251. FILEPUT "                  :   ~UA"
  252. FILEPUT "                  :   ~UC"
  253. FILEPUT "       Voice Phone:   ~UD"
  254. FILEPUT "               Age:   ~UP"
  255. FILEPUT ""
  256. FILEPUT "░▒▓Processed Using NETAPP 1.01 on ~SJ at ~ST▓▒░"
  257. FILEPUT ""
  258. FILEPUT "This script is possible because of the efforts of Scott Adams and"
  259. FILEPUT "Ken Reaverson, for without their help I would never have gotten"
  260. FILEPUT "the flags to output to the text file properly. Thanks Guys!"
  261. :BANNER
  262. FILEPUT ""
  263. FILECLOSE
  264.  
  265. :END
  266. PUT ""
  267. ENDSCRIPT
  268.