/*********************************************************/
/* Add bbs                                               */
/* $VER: AddBbs 1.1 (23.9.93)                            */
/* © Per Jonsson 2:203/603.8@fidonet                     */
/*               39:160/104.8@amiganet                   */
/*               Per_J@p8.sandy.bbs.bad.se               */
/*                                                       */
/* Use this script to add new bbs to the poll script     */
/* Change the basepath to something that fit your system */
/* For more info look att the "_poll.spot" script        */
/*                                                       */
/* Don't forget to change the path (see below) so it fit */
/* your system.                                          */
/*********************************************************/

address SPOT
options results

/* ----------- Change so it fit your system --------------- */

bbspath='Mail:baser' /* must NOT end with : or / */

/* --------------------------------------------------------- */

if ~exists(bbspath) then do
	address command 'makedir '||bbspath||
end


'requeststring TITLE "Add BBS" PROMPT "Enter the name of the BBS"'
name=RESULT
if RC=5 then exit
'requeststring Title "Add BBS" PROMPT "Enter the nodenumber for that BBS"'
nodnum=RESULT
if RC=5 then exit

file=bbspath||'/'||name
if ~open(fout,file,w) then do 
	say "Error: Cant open file!"
	exit
end
call writeln(fout,nodnum) then exit
call close(fout)