WebEx: hierarchal Quicklist???
Robert Pearson
Quicklist???:
DL> Annoying isn't it? Hard to believe the Quicklist is this useless after
DL> all this time (no search etc.) The URL objects solution is, well,
DL> somewhat stupid and very less then ideal IMHO . But it is the best we've
DL> got for now....
Not quite! I wrote a small REXX program that moves quicklist URLs to my
own "home page". From there I can organize them anyway I like, and remember
you CAN make your "home page" a URL on your own disk by using the
"file:///<path>" format (my "home page" is "file:///e:\www\main.htm").
Please note that qlist.cmd is NOT yet a "polished program", but rather is
just something I put togeather quickly (also watch for "word wrap" on long
lines).
***********************************************************************
/* Add the WE quicklist to a web page */
PARSE ARG html html3 ExpINI3 InsertString
/* Print the help info? */
if html = '' then do
SAY 'Usage: qlist <html file to update> ["." | html backup] ["." | ini
backup]'
SAY ' [Insert point in html file]'
exit 1
end
/* Find the explore.ini file */
if RXFUNCQUERY( "SysSearchPath" ) then
RXFUNCADD( "SysSearchPath", "REXXUTIL", "SysSearchPath" )
ExpINI = SysSearchPath( "ETC", "explore.ini" )
if ExpINI = '' then do
SAY "The explore.ini file wasn't found."
SAY "Did you properly set your ETC variable?"
EXIT 2
end
/* Do any desired backups */
if (html3 <> '') & (html3 <> '.') then
'copy' html html3
if (ExpINI3 <> '') & (ExpINI3 <> '.') then
'copy' ExpINI ExpINI3
/* Get the temp file names */
if RXFUNCQUERY( "SysTempFileName" ) then
RXFUNCADD( "SysTempFileName", "REXXUTIL", "SysTempFileName" )
html2 = SysTempFileName( "list????.htm" )
ExpINI2 = SysTempFileName( "explore.???" )
/* Find the proper spot in the HTML source */
if InsertString = '' then
search = '<A NAME="quick">'
else
search = InsertString
do while LINES( html )
x1 = LINEIN( html )
x2 = LINEOUT( html2, x1 )
if POS( search, x1 ) > 0 then LEAVE
end
/* Skip over the next line */
x1 = LINEIN( html )
x2 = LINEOUT( html2, x1 )
/* Loop over the ini file */
do while LINES( ExpINI )
x1 = LINEIN( ExpINI )
p = POS( "quicklist=", x1 )
if p > 0 then do
/* We have found a quicklist URL */
/* Figure out the description */
desc = DELSTR( x1, p, 10 )
/* Read in the URL */
URL = LINEIN( ExpINI )
/* Output the html code */
hcode = '<LI><A HREF="' || URL || '">' || desc || '</A>'
x2 = LINEOUT( html2, hcode )
end
else do
/* This line is NOT a quicklist entry */
x2 = LINEOUT( ExpINI2, x1 )
end
end
/* Copy any remaining lines to the html file */
do WHILE LINES( html )
x1 = LINEIN( html )
x2 = LINEOUT( html2, x1 )
end
/* Close the various files */
x1 = LINEOUT( html )
x1 = LINEOUT( html2 )
x1 = LINEOUT( ExpINI )
x1 = LINEOUT( ExpINI2 )
/* Copy stuff back where it belongs */
'copy' html2 html
'del' html2
'copy' ExpINI2 ExpINI
'del' ExpINI2
***********************************************************************
The above file assumes that it can find the string '<A NAME="quick">' in
the line before the line that it will insert the URLs after. This was just
done so it knew where to insert the URL entries in the web page (feel free to
modify this as you see fit).
Here is a short "sample" main.htm file that should work with my qlist.cmd
file (I produced this sample by taking my "home page" and cutting out most of
the URLs). Again, watch for "word wrap" on this (all lines should begin with a
"<" character).
***********************************************************************
<HTML>
<HEAD><TITLE>Robert's menu of resources.</TITLE></HEAD>
<BODY>
<A NAME="MainMenu"><H1>Robert's local menu of WWW resources....</H1></A>
<UL>
<LI><A HREF="#Wsearch">WWW searching</A>
<LI><A HREF="#ftp">ftp</A> sites
<LI><A HREF="#quick">The Quick List</A> (from the WE)
</UL>
<HR>
<A NAME="Wsearch"><H3>WWW search engines (<A HREF="#MainMenu">Main
Menu</A>):</H3></A>
<UL>
<LI><A HREF="file:///e:\www\find1.htm"> Search form</A> (A local copy of a GOOD
search form!)
<LI><A HREF="http://wings.buffalo.edu/contest/awards/navigate.html">
Navigate</A> - BoWeb 94 - Best Naviagtional Aid
<LI><A HREF="http://www.yahoo.com/"> Yahoo</A> - A fairly comprehensive WWW
search engine.
<UL>
<LI>Case sensitive boolean searches of many web sites.
<LI>Indexed directory of all sites on file.
<LI>Links to many other search engines.
</UL>
</UL>
<HR>
<A NAME="ftp"><H3>FTP sites (<A HREF="#MainMenu">Main Menu</A>):</H3></A>
<UL><A NAME="ftp"></A>
<LI><A HREF="http://hoohoo.ncsa.uiuc.edu:80/ftp-interface.html"> Monster FTP
List</A> - Web page for finding FTP stuff.
<LI><A HREF="ftp://ftp.cdrom.com"> ftp.cdrom.com</A>
<LI>USR:
<UL>
<LI><A HREF="ftp://ftp.usr.com"> ftp.usr.com</A>
<LI><A HREF="ftp://elroy.usr.com"> elroy.usr.com</A>
</UL>
</UL>
<HR>
<A NAME="quick"><H3>The quicklist from the WE (<A HREF="#MainMenu">Main
Menu</A>):</H3></A>
<UL>
<LI><A HREF="http://wiscinfo.wisc.edu/"> WiscINFO Web Server</A>
</UL>
<HR>
</BODY>
</HTML>
************************************************************************
Hope the above get's some of you thinking.
Robert
---
|Fidonet: Robert Pearson 1:121/45
|Internet: Robert....@f45.n121.z1.fidonet.org
|
| Standard disclaimer: The views of this user are strictly his own.