home *** CD-ROM | disk | FTP | other *** search
/ Fresh Fish 2 / FFMCD02.bin / new / comm / fido / spot / rexx / addbbs.spot next >
Text File  |  1993-12-21  |  1KB  |  46 lines
  1. /*********************************************************/
  2. /* Add bbs                                               */
  3. /* $VER: AddBbs 1.1 (23.9.93)                            */
  4. /* © Per Jonsson 2:203/603.8@fidonet                     */
  5. /*               39:160/104.8@amiganet                   */
  6. /*               Per_J@p8.sandy.bbs.bad.se               */
  7. /*                                                       */
  8. /* Use this script to add new bbs to the poll script     */
  9. /* Change the basepath to something that fit your system */
  10. /* For more info look att the "_poll.spot" script        */
  11. /*                                                       */
  12. /* Don't forget to change the path (see below) so it fit */
  13. /* your system.                                          */
  14. /*********************************************************/
  15.  
  16. address SPOT
  17. options results
  18.  
  19. /* ----------- Change so it fit your system --------------- */
  20.  
  21. bbspath='Mail:baser' /* must NOT end with : or / */
  22.  
  23. /* --------------------------------------------------------- */
  24.  
  25. if ~exists(bbspath) then do
  26.     address command 'makedir '||bbspath||
  27. end
  28.  
  29.  
  30. 'requeststring TITLE "Add BBS" PROMPT "Enter the name of the BBS"'
  31. name=RESULT
  32. if RC=5 then exit
  33. 'requeststring Title "Add BBS" PROMPT "Enter the nodenumber for that BBS"'
  34. nodnum=RESULT
  35. if RC=5 then exit
  36.  
  37. file=bbspath||'/'||name
  38. if ~open(fout,file,w) then do 
  39.     say "Error: Cant open file!"
  40.     exit
  41. end
  42. call writeln(fout,nodnum) then exit
  43. call close(fout)
  44.  
  45.  
  46.