OS/2 WebExplorer Quicklist

/* This REXX file will place your WebExplorer Quicklist on your homepage. */ /* */ /* It uses the os/2 environment variable ETC to find the explore.ini file */ /* generated by OS/2's WebExplorer. It creates an HTML file using the */ /* Quicklist enteries listed there and then uses the Rexx FTP API to put */ /* the file in a remote ftp directory. */ /* */ /* You will need RxFtp.dll on your system, for the ftp part of this to */ /* work. It is usually in your \TCPIP\DLL directory if you have it. */ /* It comes with IBM's TCP/IP for OS/2. */ /* */ /* Uncomment (remove the slash-asterick pairs) and fill in the variable */ /* values of the 4 assignment lines below. */ /* the address of the ftp site where you store your html files */ /* site = "wherever.mydomain.net" */ /* the userid on that system */ /* userid = "dav" */ /* the password for that userid on that system */ /* password = "grapeape" */ /* the path of remote webmap html file */ /* remotefile = "public_html/quicklist.html" */ /* Now you should be all set. Run FtpQlist to upload your Quicklist to */ /* your web site. This code is provided 'as-is' and the author makes no */ /* guarantees, either expressed or implied, ....blah blah blah. */ /* Feel free to change this as you like. */ /* */ /* Dav Coleman */ /* March 29 1996 */ /* dav@nando.net */ /* CODE BEGINS HERE */ localfile = "Quicklist.html" /* First, load the Rexx FTP API functions */ if RxFuncQuery( "FtpLoadFuncs" ) then do say "Loading FTP functions." rc=RxFuncAdd( "FtpLoadFuncs", "rxFtp","FtpLoadFuncs") if rc then do say '** Error adding FtpLoadFuncs(), rc returns 'rc exit end rc = FtpLoadFuncs() if rc = 1 then do say '** Error calling FtpLoadFuncs(), rc returns 'rc exit end end else do say "FTP functions already loaded." end /* Now get the ETC Envrionment Variable */ EtcPath = value("ETC",,"OS2ENVIRONMENT") IniFile = EtcPath || '\explore.ini' /* now read the explore.ini file and create the loaclfile */ do until input = '[quicklist]' input = LINEIN( IniFile ) end /* do */ say 'Creating 'localfile call CreateHTMLHead input = LINEIN( IniFile ) do while substr( input, 1, 11 ) = 'quicklist= ' title = substr( input, 12 ) url = LINEIN( IniFile ) call lineout localfile, '

' call lineout localfile, title call lineout localfile, '' input = LINEIN( IniFile ) end /* do */ call CreateHTMLTail /* Now send that puppy out! */ say say 'Attempting to put 'localfile say ' to ftp://'site'/'remotefile rc = FtpSetUser( site, userid, password ) if rc = 0 then say '** Error in FtpSetUser()' else do rc = FtpPut( localfile, remotefile, "Ascii" ) if rc = -1 then say '** Error in FtpPut, rc = 'rc', FtpErrNo = 'FtpErrNo else do say say 'File has been sent!' end end /* Now Drop the RxFtp functions */ rc = RxFuncDrop( "FtpLoadFuncs" ) call FtpDropFuncs exit CreateHTMLHead: call lineout localfile, "", 1 call lineout localfile, "OS/2 WebExplorer Quicklist" call lineout localfile, "" call lineout localfile, "

OS/2 WebExplorer Quicklist

" call lineout localfile, "

" return CreateHTMLTail: call lineout localfile, "" call lineout localfile, "

" call lineout localfile, "

" call lineout localfile, "This html file created by" call lineout localfile, '' call lineout localfile, "FtpQlist.Cmd" call lineout localfile, "." call lineout localfile, "

" call lineout localfile, "" call lineout localfile, " " call lineout localfile return