frontierkernel-commits — Mailing list for Subversion commit messages.

[frontierkernel-commits] odbs/frontierRoot/system/verbs/builtins/html/data/glossary zeldman2Ehbri,NONE,1.1 3B2D3E,NONE,1.1 zeldman2Erddvl,NONE,1.1 zeldman2Erdprfl,NONE,1.1 zeldman2Eb1,NONE,1.1 zeldman2Ecramps,NONE,1.1 zeldman2Enorf,NONE,1.1 zeldman2Eatwi,NONE,1.1 zeldman2Edurn,NONE,1.1 zeldman2Eada,NONE,1.1 zeldman2Ebgrl,NONE,1.1 qbullet2Eflash,NONE,1.1 zeldman2E890,NONE,1.1 zeldman2Enach,NONE,1.1 zeldman2Egogga,NONE,1.1 zeldman2Er2m4,NONE,1.1 zeldman2Ebillie,NONE,1.1 zeldman2Eadm,NONE,1.1 zeldman2Emnals,NONE,1.1 zeldman2Ebabijan,NONE,1.1 zeldman2Ewrhdbl,NONE,1.1 qbullet2Eform,NONE,1.1 zeldman2Ecte2,NONE,1.1 zeldman2Eabd,NONE,1.1 zeldman2Estrm,NONE,1.1 zeldman2Emaskonow,NONE,1.1 zeldman2E57,NONE,1.1 zeldman2Emtlhdd,NONE,1.1 zeldman2Ews1ny,NONE,1.1 zeldman2Ekid,NONE,1.1 zeldman2Epink,NONE,1.1 qbullet2Escrolldown,NONE,1.1 zeldman2Ezel,NONE,1.1 qbullet2Einfo5Fa,NONE,1.1 zeldman2Eny1,NONE,1.1 zeldman2Eguit,NONE,1.1 zeldman2Ejarm3,NONE,1.1 zeldman2Ekit,NONE,1.1 zeldman2Eecila,NONE,1.1 qbullet2Ewindow,NONE,1.1 zeldman2Emtrs99,NONE,1.1 qbullet2Enews,NONE,1.1 zeldman2Ezel2,NONE,1.1 zeldman2Eoo1,NONE,1.1 zeldman2E70sby,NONE,1.1 zeldman2Eby,NONE,1.1 zeldman2Edoody,NONE,1.1 zeldman2Eoo5,NONE,1.1 zeldman2Ehmm2,NONE,1.1 zeldman2ElittleJeff,NONE,1.1

[creedon <icr...@us...>]

Update of /cvsroot/frontierkernel/odbs/frontierRoot/system/verbs/builtins/html/data/glossary
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv28769

Added Files:
	zeldman2Ehbri 3B2D3E zeldman2Erddvl zeldman2Erdprfl 
	zeldman2Eb1 zeldman2Ecramps zeldman2Enorf zeldman2Eatwi 
	zeldman2Edurn zeldman2Eada zeldman2Ebgrl qbullet2Eflash 
	zeldman2E890 zeldman2Enach zeldman2Egogga zeldman2Er2m4 
	zeldman2Ebillie zeldman2Eadm zeldman2Emnals zeldman2Ebabijan 
	zeldman2Ewrhdbl qbullet2Eform zeldman2Ecte2 zeldman2Eabd 
	zeldman2Estrm zeldman2Emaskonow zeldman2E57 zeldman2Emtlhdd 
	zeldman2Ews1ny zeldman2Ekid zeldman2Epink qbullet2Escrolldown 
	zeldman2Ezel qbullet2Einfo5Fa zeldman2Eny1 zeldman2Eguit 
	zeldman2Ejarm3 zeldman2Ekit zeldman2Eecila qbullet2Ewindow 
	zeldman2Emtrs99 qbullet2Enews zeldman2Ezel2 zeldman2Eoo1 
	zeldman2E70sby zeldman2Eby zeldman2Edoody zeldman2Eoo5 
	zeldman2Ehmm2 zeldman2ElittleJeff 
Log Message:
moved from user table leftovers to html.data.glossary

--- NEW FILE: zeldman2Er2m4 ---
FrontierVcsFile:1:TEXT:system.verbs.builtins.html.data.glossary.["zeldman.r2m4"]

{"<img src=\"" + config.mainresponder.prefs.baseUrl + "mainresponderresources/icons/zeldman/r2m4\" height=\"32\" width=\"32\">"}
--- NEW FILE: zeldman2ElittleJeff ---
FrontierVcsFile:1:TEXT:system.verbs.builtins.html.data.glossary.["zeldman.littleJeff"]

{"<img src=\"" + config.mainresponder.prefs.baseUrl + "mainresponderresources/icons/zeldman/littleJeff\" height=\"52\" width=\"44\">"}
--- NEW FILE: zeldman2Epink ---
FrontierVcsFile:1:TEXT:system.verbs.builtins.html.data.glossary.["zeldman.pink"]

{"<img src=\"" + config.mainresponder.prefs.baseUrl + "mainresponderresources/icons/zeldman/pink\" height=\"32\" width=\"32\">"}
--- NEW FILE: zeldman2Ews1ny ---
FrontierVcsFile:1:TEXT:system.verbs.builtins.html.data.glossary.["zeldman.ws1ny"]

{"<img src=\"" + config.mainresponder.prefs.baseUrl + "mainresponderresources/icons/zeldman/ws1ny\" height=\"32\" width=\"32\">"}
--- NEW FILE: zeldman2Enorf ---
FrontierVcsFile:1:TEXT:system.verbs.builtins.html.data.glossary.["zeldman.norf"]

{"<img src=\"" + config.mainresponder.prefs.baseUrl + "mainresponderresources/icons/zeldman/norf\" height=\"32\" width=\"32\">"}
--- NEW FILE: zeldman2Ehbri ---
FrontierVcsFile:1:TEXT:system.verbs.builtins.html.data.glossary.["zeldman.hbri"]

{"<img src=\"" + config.mainresponder.prefs.baseUrl + "mainresponderresources/icons/zeldman/hbri\" height=\"32\" width=\"32\">"}
--- NEW FILE: zeldman2Ejarm3 ---
FrontierVcsFile:1:TEXT:system.verbs.builtins.html.data.glossary.["zeldman.jarm3"]

{"<img src=\"" + config.mainresponder.prefs.baseUrl + "mainresponderresources/icons/zeldman/jarm3\" height=\"32\" width=\"32\">"}
--- NEW FILE: zeldman2Eguit ---
FrontierVcsFile:1:TEXT:system.verbs.builtins.html.data.glossary.["zeldman.guit"]

{"<img src=\"" + config.mainresponder.prefs.baseUrl + "mainresponderresources/icons/zeldman/guit\" height=\"32\" width=\"32\">"}
--- NEW FILE: qbullet2Ewindow ---
FrontierVcsFile:1:TEXT:system.verbs.builtins.html.data.glossary.["qbullet.window"]

{"<img src=\"" + config.mainresponder.prefs.baseUrl + "mainresponderresources/icons/qbullets/window\" height=\"12\" width=\"14\">"}
--- NEW FILE: zeldman2Emtlhdd ---
FrontierVcsFile:1:TEXT:system.verbs.builtins.html.data.glossary.["zeldman.mtlhdd"]

{"<img src=\"" + config.mainresponder.prefs.baseUrl + "mainresponderresources/icons/zeldman/mtlhdd\" height=\"32\" width=\"32\">"}
--- NEW FILE: zeldman2Ebabijan ---
FrontierVcsFile:1:TEXT:system.verbs.builtins.html.data.glossary.["zeldman.babijan"]

{"<img src=\"" + config.mainresponder.prefs.baseUrl + "mainresponderresources/icons/zeldman/babijan\" height=\"32\" width=\"32\">"}
--- NEW FILE: zeldman2Egogga ---
FrontierVcsFile:1:TEXT:system.verbs.builtins.html.data.glossary.["zeldman.gogga"]

{"<img src=\"" + config.mainresponder.prefs.baseUrl + "mainresponderresources/icons/zeldman/gogga\" height=\"32\" width=\"32\">"}
--- NEW FILE: zeldman2Ecramps ---
FrontierVcsFile:1:TEXT:system.verbs.builtins.html.data.glossary.["zeldman.cramps"]

{"<img src=\"" + config.mainresponder.prefs.baseUrl + "mainresponderresources/icons/zeldman/cramps\" height=\"32\" width=\"32\">"}
--- NEW FILE: zeldman2Emtrs99 ---
FrontierVcsFile:1:TEXT:system.verbs.builtins.html.data.glossary.["zeldman.mtrs99"]

{"<img src=\"" + config.mainresponder.prefs.baseUrl + "mainresponderresources/icons/zeldman/mtrs99\" height=\"32\" width=\"32\">"}
--- NEW FILE: zeldman2Estrm ---
FrontierVcsFile:1:TEXT:system.verbs.builtins.html.data.glossary.["zeldman.strm"]

{"<img src=\"" + config.mainresponder.prefs.baseUrl + "mainresponderresources/icons/zeldman/strm\" height=\"32\" width=\"32\">"}
--- NEW FILE: qbullet2Eform ---
FrontierVcsFile:1:TEXT:system.verbs.builtins.html.data.glossary.["qbullet.form"]

{"<img src=\"" + config.mainresponder.prefs.baseUrl + "mainresponderresources/icons/qbullets/form\" height=\"11\" width=\"14\">"}
--- NEW FILE: zeldman2Eada ---
FrontierVcsFile:1:TEXT:system.verbs.builtins.html.data.glossary.["zeldman.ada"]

{"<img src=\"" + config.mainresponder.prefs.baseUrl + "mainresponderresources/icons/zeldman/ada\" height=\"32\" width=\"32\">"}
--- NEW FILE: zeldman2Edurn ---
FrontierVcsFile:1:TEXT:system.verbs.builtins.html.data.glossary.["zeldman.durn"]

{"<img src=\"" + config.mainresponder.prefs.baseUrl + "mainresponderresources/icons/zeldman/durn\" height=\"32\" width=\"32\">"}
--- NEW FILE: zeldman2Ezel2 ---
FrontierVcsFile:1:TEXT:system.verbs.builtins.html.data.glossary.["zeldman.zel2"]

{"<img src=\"" + config.mainresponder.prefs.baseUrl + "mainresponderresources/icons/zeldman/zel2\" height=\"32\" width=\"32\">"}
--- NEW FILE: zeldman2E70sby ---
FrontierVcsFile:1:TEXT:system.verbs.builtins.html.data.glossary.["zeldman.70sby"]

{"<img src=\"" + config.mainresponder.prefs.baseUrl + "mainresponderresources/icons/zeldman/70sby\" height=\"32\" width=\"32\">"}
--- NEW FILE: zeldman2Enach ---
FrontierVcsFile:1:TEXT:system.verbs.builtins.html.data.glossary.["zeldman.nach"]

{"<img src=\"" + config.mainresponder.prefs.baseUrl + "mainresponderresources/icons/zeldman/nach\" height=\"32\" width=\"32\">"}
--- NEW FILE: 3B2D3E ---
FrontierVcsFile:1:TEXT:system.verbs.builtins.html.data.glossary.[";->"]

{"<img src=\"" + config.mainresponder.prefs.baseUrl + "mainresponderresources/icons/qbullets/smiley\" height=\"11\" width=\"11\">"}
--- NEW FILE: zeldman2Eadm ---
FrontierVcsFile:1:TEXT:system.verbs.builtins.html.data.glossary.["zeldman.adm"]

{"<img src=\"" + config.mainresponder.prefs.baseUrl + "mainresponderresources/icons/zeldman/adm\" height=\"32\" width=\"32\">"}
--- NEW FILE: zeldman2E890 ---
FrontierVcsFile:1:TEXT:system.verbs.builtins.html.data.glossary.["zeldman.890"]

{"<img src=\"" + config.mainresponder.prefs.baseUrl + "mainresponderresources/icons/zeldman/890\" height=\"32\" width=\"32\">"}
--- NEW FILE: zeldman2Ekit ---
FrontierVcsFile:1:TEXT:system.verbs.builtins.html.data.glossary.["zeldman.kit"]

{"<img src=\"" + config.mainresponder.prefs.baseUrl + "mainresponderresources/icons/zeldman/kit\" height=\"32\" width=\"32\">"}
--- NEW FILE: zeldman2Eoo5 ---
FrontierVcsFile:1:TEXT:system.verbs.builtins.html.data.glossary.["zeldman.oo5"]

{"<img src=\"" + config.mainresponder.prefs.baseUrl + "mainresponderresources/icons/zeldman/oo5\" height=\"32\" width=\"32\">"}
--- NEW FILE: zeldman2Ehmm2 ---
FrontierVcsFile:1:TEXT:system.verbs.builtins.html.data.glossary.["zeldman.hmm2"]

{"<img src=\"" + config.mainresponder.prefs.baseUrl + "mainresponderresources/icons/zeldman/hmm2\" height=\"32\" width=\"32\">"}
--- NEW FILE: zeldman2Eoo1 ---
FrontierVcsFile:1:TEXT:system.verbs.builtins.html.data.glossary.["zeldman.oo1"]

{"<img src=\"" + config.mainresponder.prefs.baseUrl + "mainresponderresources/icons/zeldman/oo1\" height=\"32\" width=\"32\">"}
--- NEW FILE: zeldman2Ezel ---
FrontierVcsFile:1:TEXT:system.verbs.builtins.html.data.glossary.["zeldman.zel"]

{"<img src=\"" + config.mainresponder.prefs.baseUrl + "mainresponderresources/icons/zeldman/zel\" height=\"32\" width=\"32\">"}
--- NEW FILE: zeldman2Eecila ---
FrontierVcsFile:1:TEXT:system.verbs.builtins.html.data.glossary.["zeldman.ecila"]

{"<img src=\"" + config.mainresponder.prefs.baseUrl + "mainresponderresources/icons/zeldman/ecila\" height=\"32\" width=\"32\">"}
--- NEW FILE: zeldman2E57 ---
FrontierVcsFile:1:TEXT:system.verbs.builtins.html.data.glossary.["zeldman.57"]

{"<img src=\"" + config.mainresponder.prefs.baseUrl + "mainresponderresources/icons/zeldman/57\" height=\"32\" width=\"32\">"}
--- NEW FILE: zeldman2Emnals ---
FrontierVcsFile:1:TEXT:system.verbs.builtins.html.data.glossary.["zeldman.mnals"]

{"<img src=\"" + config.mainresponder.prefs.baseUrl + "mainresponderresources/icons/zeldman/mnals\" height=\"32\" width=\"32\">"}
--- NEW FILE: zeldman2Ebgrl ---
FrontierVcsFile:1:TEXT:system.verbs.builtins.html.data.glossary.["zeldman.bgrl"]

{"<img src=\"" + config.mainresponder.prefs.baseUrl + "mainresponderresources/icons/zeldman/bgrl\" height=\"32\" width=\"32\">"}
--- NEW FILE: zeldman2Emaskonow ---
FrontierVcsFile:1:TEXT:system.verbs.builtins.html.data.glossary.["zeldman.maskonow"]

{"<img src=\"" + config.mainresponder.prefs.baseUrl + "mainresponderresources/icons/zeldman/maskonow\" height=\"32\" width=\"32\">"}
--- NEW FILE: qbullet2Escrolldown ---
FrontierVcsFile:1:TEXT:system.verbs.builtins.html.data.glossary.["qbullet.scrolldown"]

{"<img src=\"" + config.mainresponder.prefs.baseUrl + "mainresponderresources/icons/qbullets/scrolldown\" height=\"11\" width=\"9\">"}
--- NEW FILE: zeldman2Eb1 ---
FrontierVcsFile:1:TEXT:system.verbs.builtins.html.data.glossary.["zeldman.b1"]

{"<img src=\"" + config.mainresponder.prefs.baseUrl + "mainresponderresources/icons/zeldman/b1\" height=\"32\" width=\"32\">"}
--- NEW FILE: zeldman2Ewrhdbl ---
FrontierVcsFile:1:TEXT:system.verbs.builtins.html.data.glossary.["zeldman.wrhdbl"]

{"<img src=\"" + config.mainresponder.prefs.baseUrl + "mainresponderresources/icons/zeldman/wrhdbl\" height=\"32\" width=\"32\">"}
--- NEW FILE: qbullet2Einfo5Fa ---
FrontierVcsFile:1:TEXT:system.verbs.builtins.html.data.glossary.["qbullet.info_a"]

{"<img src=\"" + config.mainresponder.prefs.baseUrl + "mainresponderresources/icons/qbullets/info_a\" height=\"10\" width=\"10\">"}
--- NEW FILE: qbullet2Enews ---
FrontierVcsFile:1:TEXT:system.verbs.builtins.html.data.glossary.["qbullet.news"]

{"<img src=\"" + config.mainresponder.prefs.baseUrl + "mainresponderresources/icons/qbullets/news\" height=\"11\" width=\"13\">"}
--- NEW FILE: zeldman2Ekid ---
FrontierVcsFile:1:TEXT:system.verbs.builtins.html.data.glossary.["zeldman.kid"]

{"<img src=\"" + config.mainresponder.prefs.baseUrl + "mainresponderresources/icons/zeldman/kid\" height=\"32\" width=\"32\">"}
--- NEW FILE: zeldman2Edoody ---
FrontierVcsFile:1:TEXT:system.verbs.builtins.html.data.glossary.["zeldman.doody"]

{"<img src=\"" + config.mainresponder.prefs.baseUrl + "mainresponderresources/icons/zeldman/doody\" height=\"32\" width=\"32\">"}
--- NEW FILE: zeldman2Eatwi ---
FrontierVcsFile:1:TEXT:system.verbs.builtins.html.data.glossary.["zeldman.atwi"]

{"<img src=\"" + config.mainresponder.prefs.baseUrl + "mainresponderresources/icons/zeldman/atwi\" height=\"50\" width=\"40\">"}
--- NEW FILE: zeldman2Eabd ---
FrontierVcsFile:1:TEXT:system.verbs.builtins.html.data.glossary.["zeldman.abd"]

{"<img src=\"" + config.mainresponder.prefs.baseUrl + "mainresponderresources/icons/zeldman/abd\" height=\"32\" width=\"32\">"}
--- NEW FILE: zeldman2Erddvl ---
FrontierVcsFile:1:TEXT:system.verbs.builtins.html.data.glossary.["zeldman.rddvl"]

{"<img src=\"" + config.mainresponder.prefs.baseUrl + "mainresponderresources/icons/zeldman/rddvl\" height=\"32\" width=\"32\">"}
--- NEW FILE: zeldman2Eny1 ---
FrontierVcsFile:1:TEXT:system.verbs.builtins.html.data.glossary.["zeldman.ny1"]

{"<img src=\"" + config.mainresponder.prefs.baseUrl + "mainresponderresources/icons/zeldman/ny1\" height=\"32\" width=\"32\">"}
--- NEW FILE: zeldman2Erdprfl ---
FrontierVcsFile:1:TEXT:system.verbs.builtins.html.data.glossary.["zeldman.rdprfl"]

{"<img src=\"" + config.mainresponder.prefs.baseUrl + "mainresponderresources/icons/zeldman/rdprfl\" height=\"32\" width=\"32\">"}
--- NEW FILE: qbullet2Eflash ---
FrontierVcsFile:1:TEXT:system.verbs.builtins.html.data.glossary.["qbullet.flash"]

{"<img src=\"" + config.mainresponder.prefs.baseUrl + "mainresponderresources/icons/qbullets/flash\" height=\"12\" width=\"14\">"}
--- NEW FILE: zeldman2Ecte2 ---
FrontierVcsFile:1:TEXT:system.verbs.builtins.html.data.glossary.["zeldman.cte2"]

{"<img src=\"" + config.mainresponder.prefs.baseUrl + "mainresponderresources/icons/zeldman/cte2\" height=\"32\" width=\"32\">"}
--- NEW FILE: zeldman2Ebillie ---
FrontierVcsFile:1:TEXT:system.verbs.builtins.html.data.glossary.["zeldman.billie"]

{"<img src=\"" + config.mainresponder.prefs.baseUrl + "mainresponderresources/icons/zeldman/billie\" height=\"32\" width=\"32\">"}
--- NEW FILE: zeldman2Eby ---
FrontierVcsFile:1:TEXT:system.verbs.builtins.html.data.glossary.["zeldman.by"]

{"<img src=\"" + config.mainresponder.prefs.baseUrl + "mainresponderresources/icons/zeldman/by\" height=\"32\" width=\"32\">"}

[frontierkernel-commits] odbs/frontierRoot/system/verbs/builtins/Frontier/data/userTableLeftovers/html/glossary zeldman2E55,1.1,NONE

[creedon <icr...@us...>]

Update of /cvsroot/frontierkernel/odbs/frontierRoot/system/verbs/builtins/Frontier/data/userTableLeftovers/html/glossary
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv26921

Removed Files:
	zeldman2E55 
Log Message:
moved to html.data.glossary

--- zeldman2E55 DELETED ---

[frontierkernel-commits] odbs/frontierRoot/system/verbs/builtins/Frontier/data/userTableLeftovers/html/glossary zeldman2E823832,1.1,NONE zeldman2Ewhis,1.1,NONE zeldman2Efk,1.1,NONE zeldman2Eert,1.1,NONE zeldman2Etam,1.1,NONE zeldman2Eertnmr,1.1,NONE zeldman2Edna,1.1,NONE qbullet2Etext,1.1,NONE qbullet2Escrolldown,1.1,NONE qbullet2Epicture,1.1,NONE zeldman2E57,1.1,NONE zeldman2Exrsp,1.1,NONE zeldman2Ewrhdgr,1.1,NONE zeldman2E765432,1.1,NONE zeldman2Eworry,1.1,NONE zeldman2Eby,1.1,NONE zeldman2Eaca,1.1,NONE zeldman2Eacf,1.1,NONE zeldman2Eaac,1.1,NONE zeldman2Eswanson,1.1,NONE zeldman2Ejerbret,1.1,NONE zeldman2Etootsbut,1.1,NONE zeldman2Ewel,1.1,NONE zeldman2Edamned2,1.1,NONE zeldman2Eson,1.1,NONE zeldman2Ecatc,1.1,NONE zeldman2Eseangr,1.1,NONE zeldman2Ejfk,1.1,NONE zeldman2Elutso,1.1,NONE zeldman2E999,1.1,NONE zeldman2E50001,1.1,NONE zeldman2Emtlhdd,1.1,NONE zeldman2Ejackd,1.1,NONE zeldman2Eeve,1.1,NONE zeldman2Etarot,1.1,NONE zeldman2E545,1.1,NONE zeldman2Eadb,1.1,NONE zeldman2Evertig,1.1,NONE zeldman2Eje,1.1,NONE qbullet2Esmiley,1.1,NONE zeldman2Esmiley,1.1,NONE zeldman2Elogical,1.1,NONE zeldman2Eadg,1.1,NONE zeldman2Eabd,1.1,NONE zeldman2Ezr,1.1,NONE zeldman2Elo2,1.1,NONE qbullet2Escript,1.1,NONE zeldman2E656574w,1.1,NONE zeldman2Erchclr,1.1,NONE 3B2D3E,1.1,NONE

[creedon <icr...@us...>]

Update of /cvsroot/frontierkernel/odbs/frontierRoot/system/verbs/builtins/Frontier/data/userTableLeftovers/html/glossary
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv26871

Removed Files:
	zeldman2E823832 zeldman2Ewhis zeldman2Efk zeldman2Eert 
	zeldman2Etam zeldman2Eertnmr zeldman2Edna qbullet2Etext 
	qbullet2Escrolldown qbullet2Epicture zeldman2E57 zeldman2Exrsp 
	zeldman2Ewrhdgr zeldman2E765432 zeldman2Eworry zeldman2Eby 
	zeldman2Eaca zeldman2Eacf zeldman2Eaac zeldman2Eswanson 
	zeldman2Ejerbret zeldman2Etootsbut zeldman2Ewel 
	zeldman2Edamned2 zeldman2Eson zeldman2Ecatc zeldman2Eseangr 
	zeldman2Ejfk zeldman2Elutso zeldman2E999 zeldman2E50001 
	zeldman2Emtlhdd zeldman2Ejackd zeldman2Eeve zeldman2Etarot 
	zeldman2E545 zeldman2Eadb zeldman2Evertig zeldman2Eje 
	qbullet2Esmiley zeldman2Esmiley zeldman2Elogical zeldman2Eadg 
	zeldman2Eabd zeldman2Ezr zeldman2Elo2 qbullet2Escript 
	zeldman2E656574w zeldman2Erchclr 3B2D3E 
Log Message:
moved to html.data.glossary

--- zeldman2Etam DELETED ---

--- zeldman2Erchclr DELETED ---

--- zeldman2Eswanson DELETED ---

--- zeldman2Etootsbut DELETED ---

--- zeldman2Eadb DELETED ---

--- qbullet2Esmiley DELETED ---

--- zeldman2E656574w DELETED ---

--- zeldman2Eertnmr DELETED ---

--- qbullet2Etext DELETED ---

--- zeldman2Elutso DELETED ---

--- zeldman2Ejfk DELETED ---

--- zeldman2Ewel DELETED ---

--- zeldman2Elogical DELETED ---

--- zeldman2Eeve DELETED ---

--- zeldman2Edna DELETED ---

--- zeldman2Etarot DELETED ---

--- zeldman2E50001 DELETED ---

--- zeldman2Ewrhdgr DELETED ---

--- zeldman2Ewhis DELETED ---

--- zeldman2Eadg DELETED ---

--- zeldman2Eje DELETED ---

--- qbullet2Epicture DELETED ---

--- zeldman2Ezr DELETED ---

--- zeldman2Ejackd DELETED ---

--- zeldman2E765432 DELETED ---

--- zeldman2Eert DELETED ---

--- qbullet2Escript DELETED ---

--- zeldman2Ecatc DELETED ---

--- zeldman2E57 DELETED ---

--- zeldman2Ejerbret DELETED ---

--- zeldman2Eworry DELETED ---

--- zeldman2Elo2 DELETED ---

--- zeldman2Emtlhdd DELETED ---

--- qbullet2Escrolldown DELETED ---

--- 3B2D3E DELETED ---

--- zeldman2E999 DELETED ---

--- zeldman2Evertig DELETED ---

--- zeldman2Edamned2 DELETED ---

--- zeldman2Eabd DELETED ---

--- zeldman2Exrsp DELETED ---

--- zeldman2Esmiley DELETED ---

--- zeldman2E545 DELETED ---

--- zeldman2Eseangr DELETED ---

--- zeldman2Efk DELETED ---

--- zeldman2Eson DELETED ---

--- zeldman2E823832 DELETED ---

--- zeldman2Eby DELETED ---

--- zeldman2Eaca DELETED ---

--- zeldman2Eacf DELETED ---

--- zeldman2Eaac DELETED ---

[frontierkernel-commits] odbs/frontierRoot/system/verbs/builtins/Frontier/data/userTableLeftovers/html/glossary zeldman2Ews1ny,1.1,NONE zeldman2Eexped,1.1,NONE zeldman2Ewretkin,1.1,NONE zeldman2Estd,1.1,NONE zeldman2Eeswms,1.1,NONE zeldman2Etwist,1.1,NONE zeldman2Ekit,1.1,NONE zeldman2Eldm87,1.1,NONE zeldman2Ekiki,1.1,NONE zeldman2Emagrita,1.1,NONE zeldman2Ezel,1.1,NONE zeldman2E77,1.1,NONE zeldman2Evasey,1.1,NONE zeldman2Ealfred,1.1,NONE zeldman2Elipserve,1.1,NONE zeldman2Espace,1.1,NONE qbullet2Escrollup,1.1,NONE zeldman2Eacb,1.1,NONE zeldman2Elizbthscott,1.1,NONE zeldman2Eklw,1.1,NONE zeldman2Elenbru,1.1,NONE zeldman2Eacg,1.1,NONE zeldman2Eaad,1.1,NONE zeldman2Ejonboy,1.1,NONE qbullet2Esound,1.1,NONE zeldman2Ekssy2,1.1,NONE qbullet2Elist,1.1,NONE qbullet2Eqbullets,1.1,NONE zeldman2E277,1.1,NONE zeldman2Estrm,1.1,NONE zeldman2Ejrd91a,1.1,NONE zeldman2E39xu,1.1,NONE zeldman2E58,1.1,NONE zeldman2Efredalan,1.1,NONE zeldman2Esircuss,1.1,NONE zeldman2Eadc,1.1,NONE zeldman2Ejoe,1.1,NONE qbullet2Enews,1.1,NONE zeldman2Ebarbar,1.1,NONE zeldman2Ekid,1.1,NONE zeldman2Ejg,1.1,NONE qbullet2Eprivate,1.1,NONE zeldman2Elncln,1.1,NONE zeldman2Eabe,1.1,NONE zeldman2E93kr73,1.1,NONE zeldman2Eadm,1.1,NONE qbullet2Ehelp,1.1,NONE qbullet2Enote,1.1,NONE zeldman2Estuf,1.1,NONE zeldman2Elo3,1.1,NONE

[creedon <icr...@us...>]

Update of /cvsroot/frontierkernel/odbs/frontierRoot/system/verbs/builtins/Frontier/data/userTableLeftovers/html/glossary
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv26828

Removed Files:
	zeldman2Ews1ny zeldman2Eexped zeldman2Ewretkin zeldman2Estd 
	zeldman2Eeswms zeldman2Etwist zeldman2Ekit zeldman2Eldm87 
	zeldman2Ekiki zeldman2Emagrita zeldman2Ezel zeldman2E77 
	zeldman2Evasey zeldman2Ealfred zeldman2Elipserve 
	zeldman2Espace qbullet2Escrollup zeldman2Eacb 
	zeldman2Elizbthscott zeldman2Eklw zeldman2Elenbru zeldman2Eacg 
	zeldman2Eaad zeldman2Ejonboy qbullet2Esound zeldman2Ekssy2 
	qbullet2Elist qbullet2Eqbullets zeldman2E277 zeldman2Estrm 
	zeldman2Ejrd91a zeldman2E39xu zeldman2E58 zeldman2Efredalan 
	zeldman2Esircuss zeldman2Eadc zeldman2Ejoe qbullet2Enews 
	zeldman2Ebarbar zeldman2Ekid zeldman2Ejg qbullet2Eprivate 
	zeldman2Elncln zeldman2Eabe zeldman2E93kr73 zeldman2Eadm 
	qbullet2Ehelp qbullet2Enote zeldman2Estuf zeldman2Elo3 
Log Message:
moved to html.data.glossary

--- zeldman2Elncln DELETED ---

--- zeldman2Estuf DELETED ---

--- zeldman2Ews1ny DELETED ---

--- zeldman2Ekiki DELETED ---

--- zeldman2Ewretkin DELETED ---

--- qbullet2Esound DELETED ---

--- zeldman2Esircuss DELETED ---

--- qbullet2Enote DELETED ---

--- zeldman2Ealfred DELETED ---

--- zeldman2Ejg DELETED ---

--- zeldman2Ejrd91a DELETED ---

--- zeldman2Eadc DELETED ---

--- zeldman2Eklw DELETED ---

--- qbullet2Eqbullets DELETED ---

--- qbullet2Eprivate DELETED ---

--- zeldman2Eabe DELETED ---

--- zeldman2Elo3 DELETED ---

--- zeldman2Emagrita DELETED ---

--- zeldman2Eadm DELETED ---

--- zeldman2Eexped DELETED ---

--- zeldman2Evasey DELETED ---

--- zeldman2Ekit DELETED ---

--- zeldman2Etwist DELETED ---

--- zeldman2Elizbthscott DELETED ---

--- qbullet2Escrollup DELETED ---

--- zeldman2Espace DELETED ---

--- zeldman2Ezel DELETED ---

--- zeldman2Eacb DELETED ---

--- zeldman2Eldm87 DELETED ---

--- qbullet2Elist DELETED ---

--- zeldman2E77 DELETED ---

--- zeldman2Ekssy2 DELETED ---

--- zeldman2Estrm DELETED ---

--- zeldman2E58 DELETED ---

--- zeldman2Efredalan DELETED ---

--- zeldman2Ebarbar DELETED ---

--- zeldman2Estd DELETED ---

--- zeldman2Ekid DELETED ---

--- qbullet2Ehelp DELETED ---

--- zeldman2Ejonboy DELETED ---

--- qbullet2Enews DELETED ---

--- zeldman2E39xu DELETED ---

--- zeldman2Eeswms DELETED ---

--- zeldman2Ejoe DELETED ---

--- zeldman2E277 DELETED ---

--- zeldman2Elipserve DELETED ---

--- zeldman2Eaad DELETED ---

--- zeldman2Elenbru DELETED ---

--- zeldman2E93kr73 DELETED ---

--- zeldman2Eacg DELETED ---

[frontierkernel-commits] odbs/frontierRoot/system/verbs/builtins/Frontier/data/userTableLeftovers/html/glossary zeldman2Edoody,1.1,NONE zeldman2Ewooden,1.1,NONE zeldman2Elvrn,1.1,NONE zeldman2E52,1.1,NONE qbullet2Esmileyblank,1.1,NONE zeldman2E30330,1.1,NONE zeldman2Exbono,1.1,NONE qbullet2Edisk,1.1,NONE zeldman2Ekarla,1.1,NONE zeldman2E70sby,1.1,NONE zeldman2Eferndl1,1.1,NONE qbullet2Eremote,1.1,NONE zeldman2Eabb,1.1,NONE zeldman2Ektch,1.1,NONE zeldman2E93kr72,1.1,NONE zeldman2Ewrhdbl,1.1,NONE zeldman2Eabg,1.1,NONE zeldman2Ejoandeer,1.1,NONE zeldman2Ekiss,1.1,NONE zeldman2Esuely,1.1,NONE zeldman2Evh,1.1,NONE qbullet2Emovie,1.1,NONE zeldman2Etat,1.1,NONE zeldman2E51,1.1,NONE zeldman2Eliberty,1.1,NONE zeldman2Edarla,1.1,NONE zeldman2Elemon,1.1,NONE zeldman2Ejarm3,1.1,NONE qbullet2Esearch,1.1,NONE zeldman2Ekle,1.1,NONE qbullet2Emailto,1.1,NONE zeldman2Ejayne,1.1,NONE zeldman2Eungm,1.1,NONE zeldman2Eacc,1.1,NONE zeldman2Eadvt,1.1,NONE zeldman2Ezny,1.1,NONE zeldman2Eleeclown,1.1,NONE zeldman2Esteve,1.1,NONE qbullet2Enew,1.1,NONE zeldman2Eveng,1.1,NONE Frontier,1.1,NONE zeldman2Ejanet,1.1,NONE zeldman2E543jh,1.1,NONE zeldman2Ejoan,1.1,NONE zeldman2Esmr,1.1,NONE zeldman2Efrnki,1.1,NONE zeldman2Efcelyfce,1.1,NONE qbullet2Esidesmiley,1.1,NONE zeldman2Eadd,1.1,NONE zeldman2Elilboi,1.1,NONE

[creedon <icr...@us...>]

Update of /cvsroot/frontierkernel/odbs/frontierRoot/system/verbs/builtins/Frontier/data/userTableLeftovers/html/glossary
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv26709

Removed Files:
	zeldman2Edoody zeldman2Ewooden zeldman2Elvrn zeldman2E52 
	qbullet2Esmileyblank zeldman2E30330 zeldman2Exbono 
	qbullet2Edisk zeldman2Ekarla zeldman2E70sby zeldman2Eferndl1 
	qbullet2Eremote zeldman2Eabb zeldman2Ektch zeldman2E93kr72 
	zeldman2Ewrhdbl zeldman2Eabg zeldman2Ejoandeer zeldman2Ekiss 
	zeldman2Esuely zeldman2Evh qbullet2Emovie zeldman2Etat 
	zeldman2E51 zeldman2Eliberty zeldman2Edarla zeldman2Elemon 
	zeldman2Ejarm3 qbullet2Esearch zeldman2Ekle qbullet2Emailto 
	zeldman2Ejayne zeldman2Eungm zeldman2Eacc zeldman2Eadvt 
	zeldman2Ezny zeldman2Eleeclown zeldman2Esteve qbullet2Enew 
	zeldman2Eveng Frontier zeldman2Ejanet zeldman2E543jh 
	zeldman2Ejoan zeldman2Esmr zeldman2Efrnki zeldman2Efcelyfce 
	qbullet2Esidesmiley zeldman2Eadd zeldman2Elilboi 
Log Message:
moved to html.data.glossary

--- zeldman2Edarla DELETED ---

--- qbullet2Esidesmiley DELETED ---

--- zeldman2Eungm DELETED ---

--- zeldman2Efcelyfce DELETED ---

--- Frontier DELETED ---

--- zeldman2Eliberty DELETED ---

--- zeldman2Eferndl1 DELETED ---

--- qbullet2Esmileyblank DELETED ---

--- zeldman2E30330 DELETED ---

--- zeldman2Ewooden DELETED ---

--- zeldman2Ektch DELETED ---

--- zeldman2Ewrhdbl DELETED ---

--- qbullet2Eremote DELETED ---

--- zeldman2Etat DELETED ---

--- zeldman2Esmr DELETED ---

--- qbullet2Emailto DELETED ---

--- zeldman2Esteve DELETED ---

--- zeldman2Eleeclown DELETED ---

--- zeldman2Evh DELETED ---

--- zeldman2Ejanet DELETED ---

--- zeldman2Eveng DELETED ---

--- zeldman2Ejoan DELETED ---

--- qbullet2Esearch DELETED ---

--- zeldman2Eabg DELETED ---

--- zeldman2Ekle DELETED ---

--- zeldman2Ejarm3 DELETED ---

--- qbullet2Enew DELETED ---

--- zeldman2Ejayne DELETED ---

--- zeldman2Ejoandeer DELETED ---

--- qbullet2Emovie DELETED ---

--- qbullet2Edisk DELETED ---

--- zeldman2Eadvt DELETED ---

--- zeldman2Eadd DELETED ---

--- zeldman2Ekiss DELETED ---

--- zeldman2Eabb DELETED ---

--- zeldman2E70sby DELETED ---

--- zeldman2Ekarla DELETED ---

--- zeldman2Esuely DELETED ---

--- zeldman2Elemon DELETED ---

--- zeldman2E51 DELETED ---

--- zeldman2Efrnki DELETED ---

--- zeldman2E543jh DELETED ---

--- zeldman2Elilboi DELETED ---

--- zeldman2Exbono DELETED ---

--- zeldman2Elvrn DELETED ---

--- zeldman2Edoody DELETED ---

--- zeldman2Eacc DELETED ---

--- zeldman2E52 DELETED ---

--- zeldman2E93kr72 DELETED ---

--- zeldman2Ezny DELETED ---

[frontierkernel-commits] odbs/frontierRoot/system/verbs/builtins/Frontier/data/userTableLeftovers/html/glossary zeldman2Evali,1.1,NONE zeldman2Elinder2,1.1,NONE zeldman2Ealice,1.1,NONE zeldman2Eace,1.1,NONE zeldman2Eaab,1.1,NONE zeldman2Etoast,1.1,NONE zeldman2Eendo,1.1,NONE zeldman2Expr2,1.1,NONE zeldman2Evp013,1.1,NONE zeldman2Elitem,1.1,NONE zeldman2Ejapa,1.1,NONE zeldman2Ebumr2,1.1,NONE zeldman2Efh,1.1,NONE zeldman2Elod,1.1,NONE zeldman2E134006,1.1,NONE zeldman2Etvtest,1.1,NONE qbullet2Etelnet,1.1,NONE zeldman2E54,1.1,NONE zeldman2E890,1.1,NONE zeldman2Ewhspr2,1.1,NONE qbullet2Eupdated,1.1,NONE zeldman2Ewoof,1.1,NONE zeldman2Echet,1.1,NONE zeldman2E4nb6,1.1,NONE zeldman2Eyoik,1.1,NONE zeldman2Eada,1.1,NONE zeldman2Exas3,1.1,NONE zeldman2Eadf,1.1,NONE zeldman2Ealtair,1.1,NONE zeldman2Especs,1.1,NONE zeldman2Eabc,1.1,NONE zeldman2Ex45,1.1,NONE qbullet2Eftpdir,1.1,NONE zeldman2Ezel2,1.1,NONE qbullet2Evr,1.1,NONE zeldman2Efranfarm,1.1,NONE zeldman2Ebif,1.1,NONE zeldman2Edundo2,1.1,NONE zeldman2Ejuanita,1.1,NONE zeldman2Eloist,1.1,NONE zeldman2Ealegirl,1.1,NONE zeldman2Etub1,1.1,NONE qbullet2Eform,1.1,NONE zeldman2Ekys,1.1,NONE zeldman2Eteef,1.1,NONE zeldman2Eaaf,1.1,NONE zeldman2Esup,1.1,NONE zeldman2Elrnbc,1.1,NONE zeldman2Eldyp2,1.1,NONE zeldman2Eloren,1.1,NONE

[creedon <icr...@us...>]

Update of /cvsroot/frontierkernel/odbs/frontierRoot/system/verbs/builtins/Frontier/data/userTableLeftovers/html/glossary
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv26627

Removed Files:
	zeldman2Evali zeldman2Elinder2 zeldman2Ealice zeldman2Eace 
	zeldman2Eaab zeldman2Etoast zeldman2Eendo zeldman2Expr2 
	zeldman2Evp013 zeldman2Elitem zeldman2Ejapa zeldman2Ebumr2 
	zeldman2Efh zeldman2Elod zeldman2E134006 zeldman2Etvtest 
	qbullet2Etelnet zeldman2E54 zeldman2E890 zeldman2Ewhspr2 
	qbullet2Eupdated zeldman2Ewoof zeldman2Echet zeldman2E4nb6 
	zeldman2Eyoik zeldman2Eada zeldman2Exas3 zeldman2Eadf 
	zeldman2Ealtair zeldman2Especs zeldman2Eabc zeldman2Ex45 
	qbullet2Eftpdir zeldman2Ezel2 qbullet2Evr zeldman2Efranfarm 
	zeldman2Ebif zeldman2Edundo2 zeldman2Ejuanita zeldman2Eloist 
	zeldman2Ealegirl zeldman2Etub1 qbullet2Eform zeldman2Ekys 
	zeldman2Eteef zeldman2Eaaf zeldman2Esup zeldman2Elrnbc 
	zeldman2Eldyp2 zeldman2Eloren 
Log Message:
moved to html.data.glossary

--- zeldman2Ealice DELETED ---

--- zeldman2Etub1 DELETED ---

--- zeldman2Efranfarm DELETED ---

--- zeldman2Eabc DELETED ---

--- qbullet2Evr DELETED ---

--- zeldman2Ealegirl DELETED ---

--- zeldman2Ebif DELETED ---

--- zeldman2Elitem DELETED ---

--- zeldman2Eloren DELETED ---

--- zeldman2Eldyp2 DELETED ---

--- zeldman2Eloist DELETED ---

--- zeldman2Eendo DELETED ---

--- zeldman2Ewoof DELETED ---

--- zeldman2Elod DELETED ---

--- zeldman2Echet DELETED ---

--- zeldman2Ekys DELETED ---

--- zeldman2Ejapa DELETED ---

--- qbullet2Eform DELETED ---

--- zeldman2Expr2 DELETED ---

--- zeldman2E4nb6 DELETED ---

--- zeldman2Eada DELETED ---

--- zeldman2Eadf DELETED ---

--- zeldman2Ezel2 DELETED ---

--- zeldman2Eyoik DELETED ---

--- qbullet2Eftpdir DELETED ---

--- zeldman2Ejuanita DELETED ---

--- zeldman2E890 DELETED ---

--- zeldman2Evp013 DELETED ---

--- zeldman2Esup DELETED ---

--- zeldman2Ebumr2 DELETED ---

--- zeldman2Evali DELETED ---

--- zeldman2E134006 DELETED ---

--- zeldman2Especs DELETED ---

--- zeldman2Etoast DELETED ---

--- zeldman2E54 DELETED ---

--- zeldman2Ealtair DELETED ---

--- zeldman2Ewhspr2 DELETED ---

--- zeldman2Elinder2 DELETED ---

--- qbullet2Eupdated DELETED ---

--- zeldman2Eaaf DELETED ---

--- zeldman2Elrnbc DELETED ---

--- qbullet2Etelnet DELETED ---

--- zeldman2Exas3 DELETED ---

--- zeldman2Ex45 DELETED ---

--- zeldman2Edundo2 DELETED ---

--- zeldman2Eteef DELETED ---

--- zeldman2Efh DELETED ---

--- zeldman2Etvtest DELETED ---

--- zeldman2Eaab DELETED ---

--- zeldman2Eace DELETED ---

[frontierkernel-commits] odbs/mainResponderRoot/mainResponder/resources/icons/qbullets - New directory

[creedon <icr...@us...>]

Update of /cvsroot/frontierkernel/odbs/mainResponderRoot/mainResponder/resources/icons/qbullets
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv27731/qbullets

Log Message:
Directory /cvsroot/frontierkernel/odbs/mainResponderRoot/mainResponder/resources/icons/qbullets added to the repository

[frontierkernel-commits] odbs/mainResponderRoot/mainResponder/resources/icons/zeldman - New directory

[creedon <icr...@us...>]

Update of /cvsroot/frontierkernel/odbs/mainResponderRoot/mainResponder/resources/icons/zeldman
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv32727/zeldman

Log Message:
Directory /cvsroot/frontierkernel/odbs/mainResponderRoot/mainResponder/resources/icons/zeldman added to the repository

[frontierkernel-commits] odbs/frontierRoot/system/verbs/builtins/html refGlossary,1.1.1.1,1.2

[creedon <icr...@us...>]

Update of /cvsroot/frontierkernel/odbs/frontierRoot/system/verbs/builtins/html
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv7501

Modified Files:
	refGlossary 
Log Message:
check user table glossary now processes macros, defined s local for check the hierarchy for glossary tables

Index: refGlossary
===================================================================
RCS file: /cvsroot/frontierkernel/odbs/frontierRoot/system/verbs/builtins/html/refGlossary,v
retrieving revision 1.1.1.1
retrieving revision 1.2
diff -C2 -d -r1.1.1.1 -r1.2
*** refGlossary	26 Mar 2005 19:42:59 -0000	1.1.1.1
--- refGlossary	8 Jul 2005 04:31:37 -0000	1.2
***************
*** 1,3 ****
  FrontierVcsFile:1:scpt:system.verbs.builtins.html.refGlossary
  
! on refGlossary (name) {
	Ç10/19/98; 6:51:19 AM by DW
		ÇWhen generating a link to an object by its name (see the last case) we now won't generate links to tables.
		ÇIt was always generating an incorrect link in previous versions, so this can't break websites.
		ÇChanges:
			Ç03/28/00; 2:16:58 PM by PBS
				ÇAdded the refGlossary callback. If an script in the page table named refGlossaryCallback exists, call it when the glossary item is found. The callback script takes the address of the glossary entry that was found and the address of a variable in which to place text. If the callback returns true, the text it placed in glossaryText is returned, otherwise the normal expansion takes place.
	
	local (adrPageTable = html.getPageTableAddress ());
	local (adrObject = adrPageTable^.adrObject);
	local (adrParent = parentOf (adrObject^));
	on foundIt (adr) { //new in 5.0
		if defined (adrPageTable^.refGlossaryCallback) {
			local (glossaryText);
			if adrPageTable^.refGlossaryCallback^ (adr, @glossaryText) {
				return (glossaryText)}};
		case typeOf (adr^) {
			scriptType { //new in 5.0, glossary items can be scripts
				return (adr^ ())};
			tableType { //new in 5.0, convert a table (prettier to look at) to a glossPatch
				local (s = "[[#glossPatch ", path = adr^.path);
				if html.inResponder (adrPageTable) {
					path = string.popSuffix (path) + ".wsf"};
				s = s + adr^.linetext + "|";
				s = s + path + "|]]";
				return (s)}}
		else {
			local (s = string (adr^));
			if (s beginsWith "{") and (s endsWith "}") {
				return (html.processMacros (s, false, adrPageTable))}
			else {
				if html.inResponder (adrPageTable) and string (adr^) beginsWith "[[#glossPatch " {
					ÇSubstitute .wsf extension.
					local (path = string.popSuffix (string.nthField (s, '|', 2)) + ".wsf");
					s = string.nthField (s, '|', 1) + "|" + path + "|]]";
					return (s)}
				else {
					return (s)}}}};
	if defined (adrPageTable^.glossary) { //look in the default glossary
		local (adrElement = @adrPageTable^.glossary^ [name]);
		if defined (adrElement^) {
			return (foundIt (adrElement))}};
	try { //check the hierarchy for glossary tables
		local (nomad = adrParent, newNomad, found = false);
		on glossLookup (glossName) {
			if (defined (nomad^.[glossName])) { //the table has a glossary
				local (adrElement = @nomad^.[glossName].[name]);
				if defined (adrElement^) { //it defines the term
					found = true;
					return (foundIt (adrElement))}}};
		loop {
			s = glossLookup ("glossary");
			if found {
				return (s)};
			s = glossLookup ("#glossary");
			if found {
				return (s)};
			newNomad = parentOf (nomad^);
			if newNomad == "" {
				break};
			nomad = newNomad}};
	try { //check the user table glossary
		return (string (user.html.glossary [name]))};
	if not (name beginsWith "#") {
		try { //look for objects at the same level with the name
			local (normalizedName = html.normalizeName (name, adrPageTable));
			local (ext = html.getPref ("fileExtension", adrPageTable));
			local (adr = @adrParent^.[normalizedName]);
			if defined (adr^) {
				if typeof (adr^) != tabletype {
					return ("<a href=\"" + normalizedName + ext + "\">" + name + "</a>")}};
			adr = adrParent^.[name];
			if defined (adr^) {
				if typeof (adr^) != tabletype {
					return ("<a href=\"" + normalizedName + ext + "\">" + name + "</a>")}}}};
	scriptError ("There is no glossary entry named \"" + name + "\"")}
\ No newline at end of file
--- 1,3 ----
  FrontierVcsFile:1:scpt:system.verbs.builtins.html.refGlossary
  
! on refGlossary (name) {
	ÇChanges
		Ç7/7/05; 8:04:45 PM by TAC
			Çcheck user table glossary now processes macros
			Çdefined s local for check the hierarchy for glossary tables
		Ç03/28/00; 2:16:58 PM by PBS
			ÇAdded the refGlossary callback. If an script in the page table named refGlossaryCallback exists, call it when the glossary item is found. The callback script takes the address of the glossary entry that was found and the address of a variable in which to place text. If the callback returns true, the text it placed in glossaryText is returned, otherwise the normal expansion takes place.
		Ç10/19/98; 6:51:19 AM by DW
			ÇWhen generating a link to an object by its name (see the last case) we now won't generate links to tables.  It was always generating an incorrect link in previous versions, so this can't break websites.
	
	local (adrPageTable = html.getPageTableAddress ());
	local (adrObject = adrPageTable^.adrObject);
	local (adrParent = parentOf (adrObject^));
	on foundIt (adr) { //new in 5.0
		if defined (adrPageTable^.refGlossaryCallback) {
			local (glossaryText);
			if adrPageTable^.refGlossaryCallback^ (adr, @glossaryText) {
				return (glossaryText)}};
		case typeOf (adr^) {
			scriptType { //new in 5.0, glossary items can be scripts
				return (adr^ ())};
			tableType { //new in 5.0, convert a table (prettier to look at) to a glossPatch
				local (s = "[[#glossPatch ", path = adr^.path);
				if html.inResponder (adrPageTable) {
					path = string.popSuffix (path) + ".wsf"};
				s = s + adr^.linetext + "|";
				s = s + path + "|]]";
				return (s)}}
		else {
			local (s = string (adr^));
			if (s beginsWith "{") and (s endsWith "}") {
				return (html.processMacros (s, false, adrPageTable))}
			else {
				if html.inResponder (adrPageTable) and string (adr^) beginsWith "[[#glossPatch " {
					ÇSubstitute .wsf extension.
					local (path = string.popSuffix (string.nthField (s, '|', 2)) + ".wsf");
					s = string.nthField (s, '|', 1) + "|" + path + "|]]";
					return (s)}
				else {
					return (s)}}}};
	if defined (adrPageTable^.glossary) { //look in the default glossary
		local (adrElement = @adrPageTable^.glossary^ [name]);
		if defined (adrElement^) {
			return (foundIt (adrElement))}};
	try { //check the hierarchy for glossary tables
		local (nomad = adrParent, newNomad, found = false, s); // 7/7/05; 8:05:14 PM by TAC - added s as local
		on glossLookup (glossName) {
			if (defined (nomad^.[glossName])) { //the table has a glossary
				local (adrElement = @nomad^.[glossName].[name]);
				if defined (adrElement^) { //it defines the term
					found = true;
					return (foundIt (adrElement))}}};
		loop {
			s = glossLookup ("glossary");
			if found {
				return (s)};
			s = glossLookup ("#glossary");
			if found {
				return (s)};
			newNomad = parentOf (nomad^);
			if newNomad == "" {
				break};
			nomad = newNomad}};
	try { //check the user table glossary
		local (adrElement = @user.html.glossary [name]);
		if defined (adrElement^) {
			return (foundIt (adrElement))}};
	if not (name beginsWith "#") {
		try { //look for objects at the same level with the name
			local (normalizedName = html.normalizeName (name, adrPageTable));
			local (ext = html.getPref ("fileExtension", adrPageTable));
			local (adr = @adrParent^.[normalizedName]);
			if defined (adr^) {
				if typeof (adr^) != tabletype {
					return ("<a href=\"" + normalizedName + ext + "\">" + name + "</a>")}};
			adr = adrParent^.[name];
			if defined (adr^) {
				if typeof (adr^) != tabletype {
					return ("<a href=\"" + normalizedName + ext + "\">" + name + "</a>")}}}};
	scriptError ("There is no glossary entry named \"" + name + "\"")}
\ No newline at end of file

[frontierkernel-commits] odbs/frontierRoot/system/verbs/builtins/html/data/glossary - New directory

[creedon <icr...@us...>]

Update of /cvsroot/frontierkernel/odbs/frontierRoot/system/verbs/builtins/html/data/glossary
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv6376/glossary

Log Message:
Directory /cvsroot/frontierkernel/odbs/frontierRoot/system/verbs/builtins/html/data/glossary added to the repository

[frontierkernel-commits] odbs/frontierRoot/system/verbs/builtins/Frontier/data/userTableLeftovers/html/templates normal,1.1,NONE

[creedon <icr...@us...>]

Update of /cvsroot/frontierkernel/odbs/frontierRoot/system/verbs/builtins/Frontier/data/userTableLeftovers/html/templates
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv30611

Removed Files:
	normal 
Log Message:
moved to html.data...

--- normal DELETED ---

[frontierkernel-commits] odbs/mainResponderRoot/mainResponder/adminSite/website setupFrontier,1.3,1.4

[creedon <icr...@us...>]

Update of /cvsroot/frontierkernel/odbs/mainResponderRoot/mainResponder/adminSite/website
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv5973

Modified Files:
	setupFrontier 
Log Message:
minor tweaks to setup frontier process, added mail host port field

Index: setupFrontier
===================================================================
RCS file: /cvsroot/frontierkernel/odbs/mainResponderRoot/mainResponder/adminSite/website/setupFrontier,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -d -r1.3 -r1.4
*** setupFrontier	5 Jul 2005 18:46:12 -0000	1.3
--- setupFrontier	6 Jul 2005 19:55:21 -0000	1.4
***************
*** 1,3 ****
  FrontierVcsFile:1:scpt:mainResponder.adminSite.website.setupFrontier
  
! on setupFrontier () {
	ÇChanges
		Ç7/4/05; 3:35:07 PM by TAC
			Çrewrite, based on old code <http://cvs.sourceforge.net/viewcvs.py/frontierkernel/odbs/mainResponderRoot/mainResponder/adminSite/website/setupFrontier?rev=1.2>
	
	local (pta = html.getPageTableAddress ());
	local (errorMessage = "", htmlText = "", indentLevel = 0, pathArgs = "");
	
	on add (s) {
		htmlText = htmlText + string.filledstring ("\t", indentLevel) + s + "\r"};
	on popupWindowLink (label, localizationStringId) {
		localizationStringId = string.urlEncode (localizationStringId);
		return ("<a href=\"JavaScript: newWindow=openWin ('" + string.popLeading (pta^.URI, '/') + "$popupWindow?label=" + string.urlEncode (label) + "&localizationStringId=" + localizationStringId + "', 'prefsPopup', 'width=400,height=400,toolbar=0,location=0,directories=0,status=0,menuBar=0,scrollBars=1,resizable=1'); newWindow.focus ()\">" + label + "</a>")};
	
	if pta^.method == "POST" {
		local (adrArgs = @pta^.postArgs, flError = false);
		
		if defined (adrArgs^.personalize) { // personalize
			local (name = adrArgs^.name);
			local (organization = adrArgs^.organization);
			local (email = adrArgs^.email);
			local (mailHost = adrArgs^.mailHost);
			local (password = adrArgs^.password);
			local (repeat = adrArgs^.repeatPassword);
			try { // convert port to a number -- if not, it's an error
				adrArgs^.webServerPort = number (adrArgs^.webServerPort)}
			else {
				errorMessage = "Can't set the web server port because the port you entered is not valid.";
				flError = true};
			
			on getInitials (s) {
				local (initials = "");
				bundle { //strip off parentheticals
					if s contains "(" {
						s = string.nthField (s, "(", 1)};
					if s contains "[" {
						s = string.nthField (s, "[", 1)};
					if s contains "{" {
						s = string.nthField (s, "{", 1)}};
				s = string.trimWhiteSpace (s);
				initials = string.upper (s[1]);
				local (i, ct = sizeOf (s));
				if sizeOf (s) > 1 {
					local (flNextCharIsInitial = false);
					for i = 2 to ct {
						if flNextCharIsInitial {
							if string.isAlpha (s[i]) {
								initials = initials + string.upper (s[i])};
							flNextCharIsInitial = false};
						if not string.isAlpha (s[i]) {
							flNextCharIsInitial = true}}};
				return (initials)};
			on setName (name) {
				user.prefs.name = name;
				bundle { //set user.prefs.initials
					user.prefs.initials = getInitials (name)}};
			on setEmail (email) {
				user.prefs.mailAddress = email};
			
			if system.environment.isMac { //convert name, organization to Mac text
				name = latinToMac.convert (name);
				organization = latinToMac.convert (organization)};
			setName (name);
			setEmail (email);
			user.prefs.organization = organization;
			user.prefs.mailHost = mailHost;
			config.mainResponder.prefs.baseUrl = "http://" + adrArgs^.webServerDomain + "/";
			bundle { //check that the password is ok, and that it matches the repeat password
				if sizeOf (password) < 4 {
					errorMessage = "Can't continue setting up Frontier because the password you supplied is not at least four characters long.";
					flError = true};
				if not flError {
					if password != repeat {
						errorMessage = "Can't continue setting up Frontier because the password you supplied does not match the repeat password.";
						flError = true}}};
			bundle { //set up Admin member for access to control panel
				bundle { //create the Admin membership group if needed
					local (adrRoot = @[system.temp.mainResponder.membersRootFile]);
					local (adrGroup = @adrRoot^.admin);
					if not defined (adrGroup^) {
						new (tableType, adrGroup)};
					if not defined (adrGroup^.callbacks) {
						new (tableType, @adrGroup^.callbacks)};
					if not defined (adrGroup^.cookieDomain) {
						adrGroup^.cookieDomain = ""};
					if not defined (adrGroup^.cookieExpires) {
						adrGroup^.cookieExpires = "Mon, 01 Apr 2030 07:00:00 GMT"};
					if not defined (adrGroup^.cookieName) {
						adrGroup^.cookieName = "Admin"};
					if not defined (adrGroup^.mailReturnAddress) {
						adrGroup^.mailReturnAddress = user.prefs.mailAddress};
					if not defined (adrGroup^.mailSubject) {
						adrGroup^.mailSubject = "Admin"};
					if not defined (adrGroup^.mailTemplate) {
						wp.newTextObject ("", @adrGroup^.mailTemplate)};
					if not defined (adrGroup^.openToPublic) {
						adrGroup^.openToPublic = false};
					if not defined (adrGroup^.users) {
						new (tableType, @adrGroup^.users)}};
				
				local (adrMember = mainResponder.members.getMemberTable ("Admin", user.prefs.mailAddress));
				if not defined (adrMember^) {
					new (tableType, adrMember)};
				adrMember^.password = password;
				if not defined (adrMember^.personalInfo) {
					new (tableType, @adrMember^.personalInfo)};
				if not defined (adrMember^.personalInfo.name) {
					adrMember^.personalInfo.name = user.prefs.name}};
			if not (flError) {
				if adrArgs^.webServerPort != user.inetd.config.http.port { // web server port
					local (flRunning = inetd.isDaemonRunning (@user.inetd.config.http));
					if flRunning { //stop server, set port, restart server
						inetd.stopOne (@user.inetd.config.http);
						user.inetd.config.http.port = adrArgs^.webServerPort;
						inetd.startOne (@user.inetd.config.http)}
					else { //just set port
						user.inetd.config.http.port = adrArgs^.webServerPort}};
				scriptError ("!redirect " + pta^.URI + "$proxyServer")}};
		if defined (adrArgs^.proxyServer) { // proxy server
			try { // convert port to a number -- if not, it's an error
				adrArgs^.port = number (adrArgs^.port)}
			else {
				errorMessage = "Can't set your proxy server settings because the port you entered is not valid.";
				adrArgs^.enabled = false;
				flError = true};
			user.webBrowser.proxy.domain = adrArgs^.domain;
			user.webBrowser.proxy.username = adrArgs^.username;
			user.webBrowser.proxy.password = binary (adrArgs^.password);
			user.webBrowser.proxy.enabled = false;
			if defined (adrArgs^.enabled) {
				if adrArgs^.enabled {
					user.webBrowser.proxy.enabled = true}};
			if not (flError) {
				user.webBrowser.proxy.port = adrArgs^.port;
				scriptError ("!redirect " + pta^.URI + "$portForwarding")}};
		if defined (adrArgs^.portForwarding) { // port forwarding
			local (adminPassword = adrArgs^.password);
			local (flEnablePortForwarding = defined (adrArgs^.flEnablePortForwarding));
			local (flRememberAdminPassword = defined (adrArgs^.flRememberAdminPassword));
			local (password = mainResponder.members.getMemberTable ("Admin", user.prefs.mailAddress)^.password);
			local (urlParts = string.urlSplit (config.mainResponder.prefs.baseUrl));
			bundle { // convert actualPort to a number -- if not, it's an error
				try {
					adrArgs^.actualPort = number (adrArgs^.actualPort)}
				else {
					errorMessage = "Can't set your actual web server port because the port you entered is not valid.";
					flEnablePortForwarding = false;
					flError = true}};
			bundle { // convert apparentPort to a number -- if not, it's an error
				try {
					adrArgs^.apparentPort = number (adrArgs^.apparentPort)}
				else {
					errorMessage = "Can't set your apparent web server port because the port you entered is not valid.";
					flEnablePortForwarding = false;
					flError = true}};
			if flRememberAdminPassword and flEnablePortForwarding {
				user.prefs.portForwardingAdminPassword = binary (adminPassword)};
			if not (flError) {
				if adrArgs^.actualPort != user.inetd.config.http.port or adrArgs^.apparentPort != user.inetd.config.http.apparentPort {
					local (flRunning = inetd.isDaemonRunning (@user.inetd.config.http));
					if flRunning { // stop server, set port, restart server
						inetd.stopOne (@user.inetd.config.http);
						user.inetd.config.http.apparentPort = adrArgs^.apparentPort;
						user.inetd.config.http.port = adrArgs^.actualPort;
						inetd.startOne (@user.inetd.config.http)}
					else { // just set port
						user.inetd.config.http.apparentPort = adrArgs^.apparentPort;
						user.inetd.config.http.port = adrArgs^.actualPort}}};
			Frontier.completeSetup (urlParts [2], password, adminPassword, flRememberAdminPassword, flEnablePortForwarding);
			if not (flError) {
				scriptError ("!redirect " + pta^.URI + "$congratulations")}}};
	
	if defined (pta^.pathArgs) {
		if pta^.pathArgs != "" {
			pathArgs = pta^.pathArgs}};
	
	case pathArgs { // generally the cases should be ordered in user presentation order, they can be accessed by name or number, name is preferred
		"1";
		"personalize" {
			local (name = user.prefs.name, organization = user.prefs.organization);
			
			pta^.title = "Personalize";
			bundle { // change the template to the setup template, which doesn't have navigation links to the rest of the admin site
				table.assign (@pta^.template, "setup");
				pta^.indirectTemplate = true};
			
			if system.environment.isMac { // convert name, organization to latin text
				name = latinToMac.macToLatin (name);
				organization = latinToMac.macToLatin (organization)};
			
			bundle { //render the new user page
				local (t); new (tabletype, @t);
				bundle { // add the labels to the replacement table
					t.webserverdomainlabel = popupWindowLink ("Web server domain name or IP address", "setupFrontier.popupText.webServerDomainIp")};
				bundle { // add personal info to replacement table
					t.mailhost = user.prefs.mailHost;
					t.useremail = user.prefs.mailAddress;
					t.username = name;
					t.userorganization = organization;
					t.userpassword = "";
					bundle { // web server domain or ip address
						local (urlParts = string.urlSplit (config.mainResponder.prefs.baseUrl));
						t.webserverdomain = urlParts [2]};
					try { // try to get the admin password from the Admin membership group
						local (adrMember = mainResponder.members.getMemberTable ("Admin", user.prefs.mailAddress));
						if defined (adrMember^) {
							t.userpassword = adrMember^.password}};
					bundle { // web server port
						t.webserverport = user.inetd.config.http.port}};
				bundle { // add error message to replacement table
					t.errorMessage = "";
					if errorMessage != "" {
						t.errorMessage = "<p style=\"color: red;\">" + errorMessage + "</p>"}};
				add (mainResponder.getString ("setupFrontier.personalize", @t))}};
		"2";
		"proxyServer" {
			pta^.title = "Proxy Server Settings";
			bundle { // change the template to the setup template, which doesn't have navigation links to the rest of the admin site
				table.assign (@pta^.template, "setup");
				pta^.indirectTemplate = true};
			
			bundle { // render the new user page
				local (t); new (tabletype, @t);
				bundle { // add proxy settings to replacement table
					with user.webBrowser.proxy {
						t.proxydomain = domain;
						t.proxyusername = username;
						t.proxypassword = string (password);
						t.proxyport = port;
						if enabled {
							t.proxyenabled = "checked"}
						else {
							t.proxyenabled = ""}}};
				bundle { // add error message to replacement table
					t.errorMessage = "";
					if errorMessage != "" {
						t.errorMessage = "<p style=\"color: red;\">" + errorMessage + "</p>"}};
				add (mainResponder.getString ("setupFrontier.proxyServer", @t))}};
		"3";
		"portForwarding" {
			if system.environment.isCarbon { //we need to run the port forwarding page now
				pta^.title = "Mac OS X Port Forwarding";
				bundle { // change the template to the setup template, which doesn't have navigation links to the rest of the admin site
					table.assign (@pta^.template, "setup");
					pta^.indirectTemplate = true};
				
				bundle { // render the new user page
					local (t); new (tabletype, @t);
					t.adminPassword = "";
					t.rememberAdminPassword = "checked";
					t.enablePortForwarding = "checked";
					t.actualPort = user.inetd.config.http.port;
					t.apparentPort = 80;
					if defined (user.inetd.config.http.apparentPort) {
						t.apparentPort = user.inetd.config.http.apparentPort};
					if defined (user.prefs.portForwardingAdminPassword) {
						t.adminPassword = string (user.prefs.portForwardingAdminPassword)};
					bundle { // add error message to replacement table
						t.errorMessage = "";
						if errorMessage != "" {
							t.errorMessage = "<p style=\"color: red;\">" + errorMessage + "</p>"}};
					add (mainResponder.getString ("setupFrontier.portForwarding", @t))}}
			else { //Windows and Classic don't need to deal with port forwarding
				local (password = mainResponder.members.getMemberTable ("Admin", user.prefs.mailAddress)^.password);
				local (urlParts = string.urlSplit (config.mainResponder.prefs.baseUrl));
				Frontier.completeSetup (urlParts [2], password);
				scriptError ("!redirect " + pta^.URI + "$congratulations")}};
		"4";
		"congratulations" {
			bundle { // change the template to the setup template, which doesn't have navigation links to the rest of the admin site
				table.assign (@pta^.template, "setup");
				pta^.indirectTemplate = true};
			
			pta^.title = "Congratulations";
			
			local (adminSiteUrl = "http://" + pta^.host + "/");
			
			bundle { //render the new user page
				add (mainResponder.getString ("setupFrontier.newUserConfirmMessage"));
				bundle { //add the Continue button
					local (adminSiteUrl = "http://" + pta^.host + "/");
					add ("<form method=\"GET\" action=\"" + adminSiteUrl + "\">");
					add ("<input type=\"submit\" value=\"Continue\" onclick=\"document.location='" + adminSiteUrl + "'\">");
					add ("</form>")};
				if defined (system.temp.Frontier.setupFrontier.flAllowLocalAccessToSetupPage) {
					system.temp.Frontier.setupFrontier.flAllowLocalAccessToSetupPage = false}}}; //require login from now on
		"popupWindow" { // this is a special case, it produces a popup window
			pta^.autoParagraphs = true;
			pta^.title = "Popup Text";
			table.assign (@pta^.template, "{bodytext}");
			try {
				delete (@pta^.javaScript)}; // popup windows should not have any JavaScript
			
			add ("<div name=\"setupfrontierpopupwindow\" style=\"font-size: x-large; margin: 13px;\">"); indentLevel++;
			add ("<b>"); indentLevel++;
			add (string.urlDecode (pta^.searchArgTable.label));
			add ("</b>"); indentLevel--;
			add ("<br/>");
			add ("<br/>");
			add (mainResponder.getString (pta^.searchArgTable.localizationStringId));
			add ("</div>"); indentLevel--}}
	else {
		scriptError ("!redirect " + pta^.URI + "$personalize")};
	
	return (htmlText)}
\ No newline at end of file
--- 1,3 ----
  FrontierVcsFile:1:scpt:mainResponder.adminSite.website.setupFrontier
  
! on setupFrontier () {
	ÇChanges
		Ç7/6/05; 12:51:01 PM by TAC
			Çrewrite, based on old code <http://cvs.sourceforge.net/viewcvs.py/frontierkernel/odbs/mainResponderRoot/mainResponder/adminSite/website/setupFrontier?rev=1.2>
	
	local (pta = html.getPageTableAddress ());
	local (errorMessage = "", htmlText = "", indentLevel = 0, pathArgs = "");
	
	on add (s) {
		htmlText = htmlText + string.filledstring ("\t", indentLevel) + s + "\r"};
	on popupWindowLink (label, localizationStringId) {
		localizationStringId = string.urlEncode (localizationStringId);
		return ("<a href=\"JavaScript: newWindow=openWin ('" + string.popLeading (pta^.URI, '/') + "$popupWindow?label=" + string.urlEncode (label) + "&localizationStringId=" + localizationStringId + "', 'prefsPopup', 'width=400,height=400,toolbar=0,location=0,directories=0,status=0,menuBar=0,scrollBars=1,resizable=1'); newWindow.focus ()\">" + label + "</a>")};
	
	if pta^.method == "POST" {
		local (adrArgs = @pta^.postArgs, flError = false);
		
		if defined (adrArgs^.personalize) { // personalize
			local (name = adrArgs^.name);
			local (organization = adrArgs^.organization);
			local (email = adrArgs^.email);
			local (mailHost = adrArgs^.mailHost);
			local (password = adrArgs^.password);
			local (repeat = adrArgs^.repeatPassword);
			bundle { // convert mail host port to a number
				try { // if not, it's an error
					adrArgs^.mailHostPort = number (adrArgs^.mailHostPort)}
				else {
					errorMessage = "Can't set the outgoing mail server port because the port you entered is not valid.";
					flError = true}};
			bundle { // convert web server port to a number
				try { // if not, it's an error
					adrArgs^.webServerPort = number (adrArgs^.webServerPort)}
				else {
					errorMessage = "Can't set the web server port because the port you entered is not valid.";
					flError = true}};
			
			on getInitials (s) {
				local (initials = "");
				bundle { //strip off parentheticals
					if s contains "(" {
						s = string.nthField (s, "(", 1)};
					if s contains "[" {
						s = string.nthField (s, "[", 1)};
					if s contains "{" {
						s = string.nthField (s, "{", 1)}};
				s = string.trimWhiteSpace (s);
				initials = string.upper (s[1]);
				local (i, ct = sizeOf (s));
				if sizeOf (s) > 1 {
					local (flNextCharIsInitial = false);
					for i = 2 to ct {
						if flNextCharIsInitial {
							if string.isAlpha (s[i]) {
								initials = initials + string.upper (s[i])};
							flNextCharIsInitial = false};
						if not string.isAlpha (s[i]) {
							flNextCharIsInitial = true}}};
				return (initials)};
			on setName (name) {
				user.prefs.name = name;
				bundle { //set user.prefs.initials
					user.prefs.initials = getInitials (name)}};
			on setEmail (email) {
				user.prefs.mailAddress = email};
			
			if system.environment.isMac { //convert name, organization to Mac text
				name = latinToMac.convert (name);
				organization = latinToMac.convert (organization)};
			setName (name);
			setEmail (email);
			user.prefs.organization = organization;
			user.prefs.mailHost = mailHost;
			config.mainResponder.prefs.baseUrl = "http://" + adrArgs^.webServerDomain + "/";
			bundle { //check that the password is ok, and that it matches the repeat password
				if sizeOf (password) < 4 {
					errorMessage = "Can't continue setting up Frontier because the password you supplied is not at least four characters long.";
					flError = true};
				if not flError {
					if password != repeat {
						errorMessage = "Can't continue setting up Frontier because the password you supplied does not match the repeat password.";
						flError = true}}};
			bundle { //set up Admin member for access to control panel
				bundle { //create the Admin membership group if needed
					local (adrRoot = @[system.temp.mainResponder.membersRootFile]);
					local (adrGroup = @adrRoot^.admin);
					if not defined (adrGroup^) {
						new (tableType, adrGroup)};
					if not defined (adrGroup^.callbacks) {
						new (tableType, @adrGroup^.callbacks)};
					if not defined (adrGroup^.cookieDomain) {
						adrGroup^.cookieDomain = ""};
					if not defined (adrGroup^.cookieExpires) {
						adrGroup^.cookieExpires = "Mon, 01 Apr 2030 07:00:00 GMT"};
					if not defined (adrGroup^.cookieName) {
						adrGroup^.cookieName = "Admin"};
					if not defined (adrGroup^.mailReturnAddress) {
						adrGroup^.mailReturnAddress = user.prefs.mailAddress};
					if not defined (adrGroup^.mailSubject) {
						adrGroup^.mailSubject = "Admin"};
					if not defined (adrGroup^.mailTemplate) {
						wp.newTextObject ("", @adrGroup^.mailTemplate)};
					if not defined (adrGroup^.openToPublic) {
						adrGroup^.openToPublic = false};
					if not defined (adrGroup^.users) {
						new (tableType, @adrGroup^.users)}};
				
				local (adrMember = mainResponder.members.getMemberTable ("Admin", user.prefs.mailAddress));
				if not defined (adrMember^) {
					new (tableType, adrMember)};
				adrMember^.password = password;
				if not defined (adrMember^.personalInfo) {
					new (tableType, @adrMember^.personalInfo)};
				if not defined (adrMember^.personalInfo.name) {
					adrMember^.personalInfo.name = user.prefs.name}};
			if not (flError) {
				user.prefs.mailHostPort = adrArgs^.mailHostPort;
				if adrArgs^.webServerPort != user.inetd.config.http.port { // web server port
					local (flRunning = inetd.isDaemonRunning (@user.inetd.config.http));
					if flRunning { //stop server, set port, restart server
						inetd.stopOne (@user.inetd.config.http);
						user.inetd.config.http.port = adrArgs^.webServerPort;
						inetd.startOne (@user.inetd.config.http)}
					else { //just set port
						user.inetd.config.http.port = adrArgs^.webServerPort}};
				scriptError ("!redirect " + pta^.URI + "$proxyServer")}};
		if defined (adrArgs^.proxyServer) { // proxy server
			try { // convert port to a number -- if not, it's an error
				adrArgs^.port = number (adrArgs^.port)}
			else {
				errorMessage = "Can't set your proxy server settings because the port you entered is not valid.";
				adrArgs^.enabled = false;
				flError = true};
			user.webBrowser.proxy.domain = adrArgs^.domain;
			user.webBrowser.proxy.username = adrArgs^.username;
			user.webBrowser.proxy.password = binary (adrArgs^.password);
			user.webBrowser.proxy.enabled = false;
			if defined (adrArgs^.enabled) {
				if adrArgs^.enabled {
					user.webBrowser.proxy.enabled = true}};
			if not (flError) {
				user.webBrowser.proxy.port = adrArgs^.port;
				scriptError ("!redirect " + pta^.URI + "$portForwarding")}};
		if defined (adrArgs^.portForwarding) { // port forwarding
			local (adminPassword = adrArgs^.password);
			local (flEnablePortForwarding = defined (adrArgs^.flEnablePortForwarding));
			local (flRememberAdminPassword = defined (adrArgs^.flRememberAdminPassword));
			local (password = mainResponder.members.getMemberTable ("Admin", user.prefs.mailAddress)^.password);
			local (urlParts = string.urlSplit (config.mainResponder.prefs.baseUrl));
			bundle { // convert actualPort to a number -- if not, it's an error
				try {
					adrArgs^.actualPort = number (adrArgs^.actualPort)}
				else {
					errorMessage = "Can't set your actual web server port because the port you entered is not valid.";
					flEnablePortForwarding = false;
					flError = true}};
			bundle { // convert apparentPort to a number -- if not, it's an error
				try {
					adrArgs^.apparentPort = number (adrArgs^.apparentPort)}
				else {
					errorMessage = "Can't set your apparent web server port because the port you entered is not valid.";
					flEnablePortForwarding = false;
					flError = true}};
			if flRememberAdminPassword and flEnablePortForwarding {
				user.prefs.portForwardingAdminPassword = binary (adminPassword)};
			if not (flError) {
				if adrArgs^.actualPort != user.inetd.config.http.port or adrArgs^.apparentPort != user.inetd.config.http.apparentPort {
					local (flRunning = inetd.isDaemonRunning (@user.inetd.config.http));
					if flRunning { // stop server, set port, restart server
						inetd.stopOne (@user.inetd.config.http);
						user.inetd.config.http.apparentPort = adrArgs^.apparentPort;
						user.inetd.config.http.port = adrArgs^.actualPort;
						inetd.startOne (@user.inetd.config.http)}
					else { // just set port
						user.inetd.config.http.apparentPort = adrArgs^.apparentPort;
						user.inetd.config.http.port = adrArgs^.actualPort}}};
			Frontier.completeSetup (urlParts [2], password, adminPassword, flRememberAdminPassword, flEnablePortForwarding);
			if not (flError) {
				scriptError ("!redirect " + pta^.URI + "$congratulations")}}};
	
	if defined (pta^.pathArgs) {
		if pta^.pathArgs != "" {
			pathArgs = pta^.pathArgs}};
	
	case pathArgs { // generally the cases should be ordered in user presentation order, they can be accessed by name or number, name is preferred
		"1";
		"personalize" {
			local (name = user.prefs.name, organization = user.prefs.organization);
			
			pta^.title = "Personalize";
			bundle { // change the template to the setup template, which doesn't have navigation links to the rest of the admin site
				table.assign (@pta^.template, "setup");
				pta^.indirectTemplate = true};
			
			if system.environment.isMac { // convert name, organization to latin text
				name = latinToMac.macToLatin (name);
				organization = latinToMac.macToLatin (organization)};
			
			bundle { //render the new user page
				local (t); new (tabletype, @t);
				bundle { // add the labels to the replacement table
					t.webserverdomainlabel = popupWindowLink ("Web server domain name or IP address", "setupFrontier.popupText.webServerDomainIp")};
				bundle { // add personal info to replacement table
					t.mailhost = user.prefs.mailHost;
					t.mailHostPort = user.prefs.mailHostPort;
					t.useremail = user.prefs.mailAddress;
					t.username = name;
					t.userorganization = organization;
					t.userpassword = "";
					bundle { // web server domain or ip address
						local (urlParts = string.urlSplit (config.mainResponder.prefs.baseUrl));
						t.webserverdomain = urlParts [2]};
					try { // try to get the admin password from the Admin membership group
						local (adrMember = mainResponder.members.getMemberTable ("Admin", user.prefs.mailAddress));
						if defined (adrMember^) {
							t.userpassword = adrMember^.password}};
					bundle { // web server port
						t.webserverport = user.inetd.config.http.port}};
				bundle { // add error message to replacement table
					t.errorMessage = "";
					if errorMessage != "" {
						t.errorMessage = "<p style=\"color: red;\">" + errorMessage + "</p>"}};
				add (mainResponder.getString ("setupFrontier.personalize", @t))}};
		"2";
		"proxyServer" {
			pta^.title = "Proxy Server Settings";
			bundle { // change the template to the setup template, which doesn't have navigation links to the rest of the admin site
				table.assign (@pta^.template, "setup");
				pta^.indirectTemplate = true};
			
			bundle { // render the new user page
				local (t); new (tabletype, @t);
				bundle { // add proxy settings to replacement table
					with user.webBrowser.proxy {
						t.proxydomain = domain;
						t.proxyusername = username;
						t.proxypassword = string (password);
						t.proxyport = port;
						if enabled {
							t.proxyenabled = "checked"}
						else {
							t.proxyenabled = ""}}};
				bundle { // add error message to replacement table
					t.errorMessage = "";
					if errorMessage != "" {
						t.errorMessage = "<p style=\"color: red;\">" + errorMessage + "</p>"}};
				add (mainResponder.getString ("setupFrontier.proxyServer", @t))}};
		"3";
		"portForwarding" {
			if system.environment.isCarbon { //we need to run the port forwarding page now
				pta^.title = "Mac OS X Port Forwarding";
				bundle { // change the template to the setup template, which doesn't have navigation links to the rest of the admin site
					table.assign (@pta^.template, "setup");
					pta^.indirectTemplate = true};
				
				bundle { // render the new user page
					local (t); new (tabletype, @t);
					t.adminPassword = "";
					t.rememberAdminPassword = "checked";
					t.enablePortForwarding = "checked";
					t.actualPort = user.inetd.config.http.port;
					t.apparentPort = 80;
					if defined (user.inetd.config.http.apparentPort) {
						t.apparentPort = user.inetd.config.http.apparentPort};
					if defined (user.prefs.portForwardingAdminPassword) {
						t.adminPassword = string (user.prefs.portForwardingAdminPassword)};
					bundle { // add error message to replacement table
						t.errorMessage = "";
						if errorMessage != "" {
							t.errorMessage = "<p style=\"color: red;\">" + errorMessage + "</p>"}};
					add (mainResponder.getString ("setupFrontier.portForwarding", @t))}}
			else { //Windows and Classic don't need to deal with port forwarding
				local (password = mainResponder.members.getMemberTable ("Admin", user.prefs.mailAddress)^.password);
				local (urlParts = string.urlSplit (config.mainResponder.prefs.baseUrl));
				Frontier.completeSetup (urlParts [2], password);
				scriptError ("!redirect " + pta^.URI + "$congratulations")}};
		"4";
		"congratulations" {
			bundle { // change the template to the setup template, which doesn't have navigation links to the rest of the admin site
				table.assign (@pta^.template, "setup");
				pta^.indirectTemplate = true};
			
			pta^.title = "Congratulations";
			
			local (adminSiteUrl = "http://" + pta^.host + "/");
			
			bundle { //render the new user page
				add (mainResponder.getString ("setupFrontier.newUserConfirmMessage"));
				bundle { //add the Continue button
					local (adminSiteUrl = "http://" + pta^.host + "/");
					add ("<form method=\"GET\" action=\"" + adminSiteUrl + "\">");
					add ("<input type=\"submit\" value=\"Continue\" onclick=\"document.location='" + adminSiteUrl + "'\">");
					add ("</form>")};
				if defined (system.temp.Frontier.setupFrontier.flAllowLocalAccessToSetupPage) {
					system.temp.Frontier.setupFrontier.flAllowLocalAccessToSetupPage = false}}}; //require login from now on
		"popupWindow" { // this is a special case, it produces a popup window
			pta^.autoParagraphs = true;
			pta^.title = "Popup Text";
			table.assign (@pta^.pageHeader, "<html><head><title><%title%></title></head><body>");
			table.assign (@pta^.template, "<body>{bodytext}</body></html>");
			try {
				delete (@pta^.javaScript)}; // popup windows should not have any JavaScript
			add ("<div name=\"setupfrontierpopupwindow\" style=\"font-size: x-large; margin: 13px;\">"); indentLevel++;
			add ("<b>"); indentLevel++;
			add (string.urlDecode (pta^.searchArgTable.label));
			add ("</b>"); indentLevel--;
			add ("<br/>");
			add ("<br/>");
			add (mainResponder.getString (pta^.searchArgTable.localizationStringId));
			add ("</div>"); indentLevel--;
			scratchpad.a = pta^}}
	else {
		scriptError ("!redirect " + pta^.URI + "$personalize")};
	
	return (htmlText)}
\ No newline at end of file

[frontierkernel-commits] odbs/mainResponderRoot/mainResponder/localization/languages/english/strings/setupFrontier portForwarding,1.1,1.2 personalize,1.1,1.2

[creedon <icr...@us...>]

Update of /cvsroot/frontierkernel/odbs/mainResponderRoot/mainResponder/localization/languages/english/strings/setupFrontier
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv5879

Modified Files:
	portForwarding personalize 
Log Message:
minor tweaks to setup frontier process, added mail host port field

Index: personalize
===================================================================
RCS file: /cvsroot/frontierkernel/odbs/mainResponderRoot/mainResponder/localization/languages/english/strings/setupFrontier/personalize,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** personalize	5 Jul 2005 18:11:30 -0000	1.1
--- personalize	6 Jul 2005 19:55:11 -0000	1.2
***************
*** 1,3 ****
  FrontierVcsFile:1:optx:mainResponder.localization.languages.english.strings.setupFrontier.personalize
  
! [[errorMessage]]
<p>
	There are just a few more easy steps -- to personalize this copy of Frontier, configure your network settings, and complete the installation.
	</p>
<form method="POST">
	<table border="0" cellspacing="1" cellpadding="5">
		<tr>
			<td align="left">Name:</td>
			<td valign="top" colspan="1"><input type="text" name="name" size="50" maxlength="255" value="[[username]]"></td>
			</tr>
		<tr>
			<td align="left">Organization:</td>
			<td valign="top" colspan="1"><input type="text" name="organization" size="50" maxlength="255" value="[[userorganization]]"></td>
			</tr>
		<tr>
			<td align="left">Email address:&nbsp;&nbsp;</td>
			<td valign="top" colspan="1"><input type="text" name="email" size="50" maxlength="255" value="[[useremail]]"></td>
			</tr>
		<tr>
			<td align="left">Outgoing (SMTP) mail server:</td>
			<td valign="top" colspan="1"><input type="text" name="mailHost" size="50" maxlength="255" value="[[mailhost]]"></td>
			</tr>
		<tr>
			<td align="left">
				[[webserverdomainlabel]]:&nbsp;&nbsp;
				</td>
			<td valign="top" colspan="1"><input type="text" name="webServerDomain" size="50" maxlength="255" value="[[webserverdomain]]"></td>
			</tr>
		<tr>
			<td align="left">Web server port:&nbsp;&nbsp;</td>
			<td valign="top" colspan="1"><input type="text" name="webServerPort" size="50" maxlength="255" value="[[webserverport]]"></td>
			</tr>
		<tr>
			<td align="left">Admin password:</td>
			<td valign="top" colspan="1"><input type="password" name="password" size="25" maxlength="255" value="[[userpassword]]"></td>
			</tr>
		<tr>
			<td align="left">Repeat:</td>
			<td valign="top" colspan="1"><input type="password" name="repeatPassword" size="25" maxlength="255" value="[[userpassword]]"></td>
			</tr>
		<tr>
			<td>
				</td>
			<td>
				<input type="submit" name="personalize" value="Submit">
				</td>
			</tr>
		</table>
	</form>
\ No newline at end of file
--- 1,3 ----
  FrontierVcsFile:1:optx:mainResponder.localization.languages.english.strings.setupFrontier.personalize
  
! [[errorMessage]]
<p>
	There are just a few more easy steps -- to personalize this copy of Frontier, configure your network settings, and complete the installation.
	<br/>
	<br/>
	Some of the form field labels are links which will bring up a popup text window with more detail about that field.
	</p>
<form method="POST">
	<table border="0" cellspacing="1" cellpadding="5">
		<tr>
			<td align="left">Name:</td>
			<td valign="top" colspan="1"><input type="text" name="name" size="50" maxlength="255" value="[[username]]"></td>
			</tr>
		<tr>
			<td align="left">Organization:</td>
			<td valign="top" colspan="1"><input type="text" name="organization" size="50" maxlength="255" value="[[userorganization]]"></td>
			</tr>
		<tr>
			<td align="left">Email address:&nbsp;&nbsp;</td>
			<td valign="top" colspan="1"><input type="text" name="email" size="50" maxlength="255" value="[[useremail]]"></td>
			</tr>
		<tr>
			<td align="left">Outgoing (SMTP) mail server:</td>
			<td valign="top" colspan="1"><input type="text" name="mailHost" size="50" maxlength="255" value="[[mailhost]]"></td>
			</tr>
		<tr>
			<td align="left">
				Outgoing (SMTP) mail server port:
				</td>
			<td valign="top" colspan="1">
				<input type="text" name="mailHostPort" size="50" maxlength="255" value="[[mailHostPort]]">
				</td>
			</tr>
		<tr>
			<td align="left">
				[[webserverdomainlabel]]:&nbsp;&nbsp;
				</td>
			<td valign="top" colspan="1"><input type="text" name="webServerDomain" size="50" maxlength="255" value="[[webserverdomain]]"></td>
			</tr>
		<tr>
			<td align="left">Web server port:&nbsp;&nbsp;</td>
			<td valign="top" colspan="1"><input type="text" name="webServerPort" size="50" maxlength="255" value="[[webserverport]]"></td>
			</tr>
		<tr>
			<td align="left">Admin password:</td>
			<td valign="top" colspan="1"><input type="password" name="password" size="25" maxlength="255" value="[[userpassword]]"></td>
			</tr>
		<tr>
			<td align="left">Repeat:</td>
			<td valign="top" colspan="1"><input type="password" name="repeatPassword" size="25" maxlength="255" value="[[userpassword]]"></td>
			</tr>
		<tr>
			<td>
				</td>
			<td>
				<input type="submit" name="personalize" value="Submit">
				</td>
			</tr>
		</table>
	</form>
\ No newline at end of file

Index: portForwarding
===================================================================
RCS file: /cvsroot/frontierkernel/odbs/mainResponderRoot/mainResponder/localization/languages/english/strings/setupFrontier/portForwarding,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** portForwarding	5 Jul 2005 18:11:30 -0000	1.1
--- portForwarding	6 Jul 2005 19:55:11 -0000	1.2
***************
*** 1,3 ****
  FrontierVcsFile:1:optx:mainResponder.localization.languages.english.strings.setupFrontier.portForwarding
  
! [[errorMessage]]
<form method="POST">
	<p>
		Because you use Mac OS X, you can optionally enable port forwarding. Port forwarding is recommended, unless you use a custom server configuration or you want Frontier to respond on a port higher than 1024.
		</p>
	<table border="0" cellspacing="1" cellpadding="5">
		<tr>
			<td colspan="2">
				<input type="checkbox" name="flEnablePortForwarding" value=xxx [[enablePortForwarding]]>&nbsp;Check this box if you want to enable port forwarding.
				</td>
			</tr>
		<tr>
			<td align="left" valign="top">
				Actual web server port:
				</td>
			<td valign="top">
				<input type="text" name="actualPort" value="[[actualPort]]">
				</td>
			</tr>
		<tr>
			<td align="left" valign="top">
				Apparent web server port:
				</td>
			<td valign="top">
				<input type="text" name="apparentPort" value="[[apparentPort]]">
				</td>
			</tr>
		</table>
	<p>
		<br/>
		Port forwarding requires your Mac OS X administrator password. Frontier can optionally remember this password for you, so that you don't have to re-enter it each time Frontier is launched. This is recommended, especially if you plan to run Frontier on an unattended computer.
		</p>
	<table border="0" cellspacing="1" cellpadding="5">
		<tr>
			<td align="left" valign="top">
				Mac OS X administrator password:
				</td>
			<td valign="top">
				<input type="password" name="password" size="25" maxlength="100" value="[[adminPassword]]">
				</td>
			</tr>
		<tr>
			<td colspan="2">
				<input type="checkbox" name="flRememberAdminPassword" value=xxx [[rememberAdminPassword]]>&nbsp;Check this box if you want Frontier to remember your administrator password.
				<br/>
				<br/>
				</td>
			</tr>
		<tr><td><input type="submit" name="portForwarding" value="Submit"></td><td></td></tr>
		</table>
	<p>
		Note: If you choose to have Frontier remember your Mac OS X administrator password, it will be stored in Frontier's object database. When your server's screen is not locked, it's possible for someone to open Frontier, and find your administrator password.  If you choose this option, make sure that physical access to your server is restricted.
		</p>
	</form>
\ No newline at end of file
--- 1,3 ----
  FrontierVcsFile:1:optx:mainResponder.localization.languages.english.strings.setupFrontier.portForwarding
  
! [[errorMessage]]
<form method="POST">
	<p>
		Because you use Mac OS X, you can optionally enable port forwarding. Port forwarding is recommended, unless you use a custom server configuration or you want the web server to respond on a port higher than 1024.
		</p>
	<table border="0" cellspacing="1" cellpadding="5">
		<tr>
			<td colspan="2">
				<input type="checkbox" name="flEnablePortForwarding" value=xxx [[enablePortForwarding]]>&nbsp;Check this box if you want to enable port forwarding.
				</td>
			</tr>
		<tr>
			<td align="left" valign="top">
				Actual web server port:
				</td>
			<td valign="top">
				<input type="text" name="actualPort" value="[[actualPort]]">
				</td>
			</tr>
		<tr>
			<td align="left" valign="top">
				Apparent web server port:
				</td>
			<td valign="top">
				<input type="text" name="apparentPort" value="[[apparentPort]]">
				</td>
			</tr>
		</table>
	<p>
		<br/>
		Port forwarding requires your Mac OS X administrator password. Frontier can optionally remember this password for you, so that you don't have to re-enter it each time Frontier is launched. This is recommended, especially if you plan to run Frontier on an unattended computer.
		</p>
	<table border="0" cellspacing="1" cellpadding="5">
		<tr>
			<td align="left" valign="top">
				Mac OS X administrator password:
				</td>
			<td valign="top">
				<input type="password" name="password" size="25" maxlength="100" value="[[adminPassword]]">
				</td>
			</tr>
		<tr>
			<td colspan="2">
				<input type="checkbox" name="flRememberAdminPassword" value=xxx [[rememberAdminPassword]]>&nbsp;Check this box if you want Frontier to remember your administrator password.
				<br/>
				<br/>
				</td>
			</tr>
		<tr><td><input type="submit" name="portForwarding" value="Submit"></td><td></td></tr>
		</table>
	<p>
		Note: If you choose to have Frontier remember your Mac OS X administrator password, it will be stored in Frontier's object database. When your server's screen is not locked, it's possible for someone to open Frontier, and find your administrator password.  If you choose this option, make sure that physical access to your server is restricted.
		</p>
	</form>
\ No newline at end of file

[frontierkernel-commits] odbs/frontierRoot/system/startup startupScript,1.5,1.6

[creedon <icr...@us...>]

Update of /cvsroot/frontierkernel/odbs/frontierRoot/system/startup
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv795

Modified Files:
	startupScript 
Log Message:
changed user.callbacks.sendmail to user.callbacks.tcpSendMail, added user.prefs.mailHostPort

Index: startupScript
===================================================================
RCS file: /cvsroot/frontierkernel/odbs/frontierRoot/system/startup/startupScript,v
retrieving revision 1.5
retrieving revision 1.6
diff -C2 -d -r1.5 -r1.6
*** startupScript	16 Jun 2005 22:28:25 -0000	1.5
--- startupScript	6 Jul 2005 19:46:48 -0000	1.6
***************
*** 1,3 ****
  FrontierVcsFile:1:scpt:system.startup.startupScript
  
! ÇThis script runs when Frontier opens the Frontier.root file.
	ÇChanges
		Ç6/15/05; 6:52:11 PM by TAC
			Çrewrite for Open Source release, bring in code from startup.startupScript, userland.firstRootRun, userland.finishInstall, and userland.cleanRoot
			ÇOld code
				Çstartup.startupScript <http://cvs.sourceforge.net/viewcvs.py/frontierkernel/odbs/frontierRoot/system/startup/startupScript?rev=1.1&view=markup>
				Çuserland.firstRootRun <http://cvs.sourceforge.net/viewcvs.py/frontierkernel/odbs/frontierRoot/system/verbs/builtins/userland/Attic/firstRootRun?rev=1.1&view=markup>
				Çuserland.finishInstall <http://cvs.sourceforge.net/viewcvs.py/frontierkernel/odbs/frontierRoot/system/verbs/builtins/userland/Attic/finishInstall?rev=1.1&view=markup>
				Çuserland.cleanRoot <http://cvs.sourceforge.net/viewcvs.py/frontierkernel/odbs/frontierRoot/system/verbs/builtins/userland/Attic/cleanRoot?rev=1.1&view=markup>
		Ç06/08/01; 11:24:35 PM by JES
			ÇWhen opening databases defined at user.databases, skip objects which aren't tables. This avoids the condition where startup wouldn't complete, if there's an item #1 in the user.databases table.
		Ç06/02/01; 8:34:20 PM by PBS
			ÇDo the web-based install and open the Control Panel if this is the first root run.
		Ç04/28/01; 7:48:46 PM by JES
			ÇCall Frontier.tools.startup in a try block, so that the startup process will finish even if Tools installation fails.
		Ç04/20/01; 4:49:05 PM by JES
			ÇCall tools.startup to install Tools at startup.
		Ç10/7/99; 4:20:26 PM by PBS
			ÇOnly run the #startup script in a guest database if runStartupScript exists and is true. Previously, it would be run whether runStartupScript was true or false.
			Çhttp://frontier.userland.com/stories/storyReader$1760
		Ç10/6/99; 10:21:35 PM by PBS
			ÇOnly set the taskTime for the overnight task if it's in the past. This fixes a bug when the taskTime was before midnight, but it was being set for the next day, so the overnight task wouldn't run.
			Çhttp://frontier.userland.com/stories/storyReader$1761
		Ç8/19/99; 6:44:48 AM by DW
			ÇMake sure that taskTimes in user.scheduler.tasks are in the future.
			ÇWe do this much more quickly than scheduler.monitor would.
			Çhttp://discuss.userland.com/msgReader$9658

local (flEnableAgents = true, flOpenDatabases = true, flEnableHttpServer = true); // can be set by the external startup script
local (flFirstRootRun = true);

bundle { // miscellaneous variable initializations and checks, phase 1 of 2
	Frontier.pathString = file.folderFromPath (frontier.getFilePath ())};

bundle { // first root run, phase 1 of 2
	if defined (user.prefs.firstRootRun) {
		flFirstRootRun = user.prefs.firstRootRun};
	
	if flFirstRootRun { // license agreement, finish cleanup on user's machine
		
		Frontier.enableAgents (false); // try to keep agents from reporting errors
		
		while window.frontmost () != "" { // open windows can mess things up later on
			window.hide (window.frontmost ())};
		
		Çreturn (false) // enable for testing
		
		new (tableType, @system.temp);
		new (tableType, @root.user);
		
		backups.init ();
		batchExporter.init ();
		export.init ();
		rootUpdates.init (); // set up user.rootUpdates, even though root updates uses tcp, its ok to set up here as no tcp calls are made at this time
		webEdit.init ();
		
		bundle { // set up user.prefs
			new (tableType, @user.prefs);
			user.prefs.firstRootRun = true;
			user.prefs.flShortTimeStamp = true;
			user.prefs.flWinStandardMaximize = true;
			user.prefs.frontierIsServer = false;
			user.prefs.initials = "";
			user.prefs.mailAddress = "";
			user.prefs.mailHost = "";
			user.prefs.name = "";
			user.prefs.openAboutWindow = false;
			user.prefs.organization = "";
			
			Frontier.setupUserPrefsFonts ();
			
			bundle { // set up user.prefs.dialogs
				new (tableType, @user.prefs.dialogs);
				user.prefs.dialogs.newSuiteName = "";
				user.prefs.dialogs.jumpAddress = "websites"}; // or should this be workspace?
			bundle { // set up user.prefs.search
				new (tableType, @user.prefs.search);
				user.prefs.search.searchFor = "9.0.1";
				user.prefs.search.replaceWith = Frontier.version ();
				user.prefs.search.caseSensitive = false;
				user.prefs.search.closeWindows = true;
				user.prefs.search.flatSearch = false;
				user.prefs.search.frontWindowOnly = false;
				user.prefs.search.wholeWords = false;
				user.prefs.search.wrapAround = true;
				user.prefs.search.winStandardFindCommand = false};
			bundle { // set up user.prefs.commonStyles
				case sys.os () {
					"MacOS" {
						if system.environment.isCarbon {
							user.prefs.commonStyles = Frontier.data.commonStylesMacCarbon}
						else {
							user.prefs.commonStyles = Frontier.data.commonStylesMac}};
					"Win95";
					"WinNT" {
						user.prefs.commonStyles = Frontier.data.commonStylesWin}}}};
		bundle { // set up the quick script window
			clipboard.putvalue ("dialog.notify (\"Hello World!\")");
			window.quickScript ();
			editmenu.selectall ();
			editmenu.paste ();
			window.close ("Quick Script")};
		bundle { // set up root window
			local (w = "root");
			window.open (w);
			window.setPosition (w, 0, 0);
			editMenu.setFont (user.prefs.fonts.tableFont);
			editMenu.setFontSize (user.prefs.fonts.tableFontSize);
			window.zoom (w)};
		bundle { // set up user.callbacks
			new (tableType, @user.callbacks);
			new (tableType, @user.callbacks.closeWindow);
			new (tableType, @user.callbacks.cmd2click);
			new (tableType, @user.callbacks.compileChangedScript);
			new (tableType, @user.callbacks.control2click);
			new (tableType, @user.callbacks.fileWriteWholeFile);
			new (tableType, @user.callbacks.opCollapse);
			new (tableType, @user.callbacks.opCursorMoved);
			new (tableType, @user.callbacks.openWindow);
			new (tableType, @user.callbacks.opExpand);
			new (tableType, @user.callbacks.opInsert);
			new (tableType, @user.callbacks.opReturnKey);
			new (tableType, @user.callbacks.opRightClick);
			new (tableType, @user.callbacks.opStruct2Click);
			new (tableType, @user.callbacks.option2click);
			new (tableType, @user.callbacks.resume);
			new (tableType, @user.callbacks.saveWindow);
			new (tableType, @user.callbacks.sendmail);
			new (tableType, @user.callbacks.shutdown);
			new (tableType, @user.callbacks.startup);
			new (tableType, @user.callbacks.statusMessage);
			new (tableType, @user.callbacks.suspend);
			new (tableType, @user.callbacks.systemTrayIcon2Click);
			new (tableType, @user.callbacks.systemTrayIconRightClick)};
		bundle { // set up user.menus
			new (tableType, @user.menus);
			Çuser.menus.bookmarkMenu = userland.virginBookmarkMenu
			user.menus.customMenu = Frontier.data.virginCustomMenu};
		bundle { // clear applications paths in system.verbs.apps
			local (adrAppsTable = @system.verbs.apps, i);
			for i = 1 to sizeof (adrAppsTable^) {
				local (adrAppInfo = @adrAppsTable^ [i].appInfo);
				if defined (adrAppInfo^) {
					adrAppInfo^.path = ""}}};
		bundle { // set up Frontier.tools.thread
			Frontier.tools.thread.ct = 0;
			Frontier.tools.thread.enabled = true};
		bundle { // set up workspace
			new (tableType, @root.workspace);
			new (outlineType, @workspace.notepad)};
		
		bundle { // miscellaneous
			new (tableType, @root.scratchpad);
			new (tableType, @system.deskscripts);
			new (tableType, @user.databases);
			new (tableType, @user.protocols);
			};Çnew (tableType, @websites.["#data"])
		
		bundle { // open mainResponder.root, hidden and add to user.databases
			local (appFolder = Frontier.getSubFolder ("apps"));
			if not defined ( [appFolder + "mainResponder.root"] ) {
				Frontier.installApp ("mainResponder.root", false)}};
		
		bundle { // open prefs.root, hidden and add to user.databases
			local (f = Frontier.getSubFolder ("www") + "prefs.root");
			if not (defined ([f])) {
				fileMenu.open (f, true);}; //open hidden
			
			ÇAdd an entry to the user.databases table.
			local (adrTable = @user.databases.["prefs.root"]);
			new (tableType, adrTable);
			adrTable^.f = f;
			adrTable^.openOnStartup = true;
			adrTable^.runStartupScript = false;
			adrTable^.supportsSubscribe = false};
		
		Çbundle //initialize responders
			Çuser.webserver.responders.websiteFramework.data.docTree.samples = @websites.samples
			Çtry
				Çdelete (@user.webserver.responders.websiteFramework.data.docTree.allSites)
			Çtry
				Çdelete (@user.webserver.responders.websiteFramework.data.docTree.contents)
			Ç
			Çif defined (user.webserver.responders.manilaEdit)
				Çdelete (@user.webserver.responders.manilaEdit)};
	
	};ÇfileMenu.save ()

bundle { // system.temp.Frontier
	if defined (system.temp.Frontier) { //only run the startup script once
		return};
	
	new (tableType, @system.temp.Frontier);
	system.temp.Frontier.startupTime = clock.now ();
	system.temp.Frontier.startingUp = true};

bundle { // miscellaneous variable initializations and checks, phase 2 of 2
	system.menus.data.currentsuite = "";
	system.menus.data.currentmenu = 0;
	
	bundle { // check for presence of Psapi.dll
		if sys.os () == "WinNT" {
			if not (sys.appIsRunning ("Frontier.exe")) { // 11/27/04; 12:14:40 PM by TAC - would it be possible for Frontier to install this on its own?
				dialog.alert ("You need to run the Frontier Psapi Installer for certain Frontier verbs to work properly.")}}}};

bundle { //open the about window if the pref says we should
	Çadded 12/16/98; 6:47:28 PM by DW
	if not defined (user.prefs.openAboutWindow) {
		user.prefs.openAboutWindow = true};
	if user.prefs.openAboutWindow {
		window.about ()}};
bundle { //initialize the log, next bit of code could add a log item
	Çadded 12/16/98; 6:52:40 PM by DW
	if defined (log.startup) {
		log.startup ()}};
bundle { //run the external startup script
	local (fname = "frontierStartupCommands.txt");
	local (f = file.folderFromPath (Frontier.getProgramPath ()) + fname);
	if file.exists (f) {
		try {
			evaluate (string (file.readWholeFile (f)))}
		else {
			log.add ("Error running " + fname + ": \"" + tryError + "\"", "startupError", flwptext:true)}}};

bundle { // tcp based services
	webserver.init (); // needs to load first
	betty.init (); // needs to load second
	soap.init ()};

bundle { // people based services
	people.init (); // needs to load first
	custody.init ();
	webEditServer.init ()};

bundle { //open all the databases that have openOnStartup true
	Çadded 12/16/98; 6:23:16 PM by DW
	if defined (user.databases) {
		if flOpenDatabases {
			local (i, flmsg = false);
			for i = 1 to sizeof (user.databases) {
				if typeOf (user.databases[i]) == tableType { //06/08/01 JES: avert item #1 errors
					with user.databases [i] {
						local (flopened = false);
						try {
							if openOnStartup {
								msg (this + ": Opening " + file.fileFromPath (f));
								flmsg = true;
								fileMenu.open (f, hidden:true);
								flopened = true}}
						else {
							log.add ("Startup error opening guest database " + nameof (user.databases [i]) + ": \"" + tryError + "\"", "startupError", flwptext:true)};
						if flopened {
							if defined (runStartupScript) {
								if runStartupScript { //PBS 10/7/99: check the value of runStartupScript: only run the script if the boolean is true
									local (adrscript = @[filespec (f)].["#startup"]);
									if defined (adrscript^) {
										try {
											adrscript^ ()}
										else {
											log.add ("Error running #startup script in guest database " + nameof (user.databases [i]) + ": \"" + tryError + "\"", "startupError", flwptext:true)}}}}}}}};
			if flmsg {
				msg ("")}}}};

try { //04/28/2001 JES: prevent startup from failing if Tool installation fails.
	Frontier.tools.startup ()};

scheduler.init ();

html.init ();

bundle { // webBrowser
	webBrowser.init ();
	
	if system.environment.isMac {
		try {new (tableType, @user.odbEditors.data.openFiles)}}; //Empty out the list of externally-edited files.
	if system.environment.isWindows {
		user.webBrowser.winDefaultBrowserApp = file.findApplication ("htm")}};

bundle { // first root run, phase 2 of 3
	if flFirstRootRun {
		
		bundle { // set up websites table and related
			with websites.["#ftpSite"] {
				folder = file.folderFromPath (Frontier.getProgramPath ()) + "Websites" + file.getPathChar ();
				Çfile.sureFolder (folder)
				url = file.fileToURL (folder);
				isLocal = true};
			user.html.sites.default = websites.["#ftpSite"]};
		
		bundle { // personalize this copy of Frontier, configure network settings, and complete the installation
			local (flWebBasedInstall = true);
			if flWebBasedInstall {
				
				Ç11/29/04; 11:17:45 AM by TAC - the following seems like it should be done as part of mainRepsonder startup, init. IIRC, members.root is a feature of mainResponder
				bundle { //create the Admin membership group if needed
					local (adrRoot = @[system.temp.mainResponder.membersRootFile]);
					local (adrGroup = @adrRoot^.admin);
					if not defined (adrGroup^) {
						new (tableType, adrGroup)};
					if not defined (adrGroup^.callbacks) {
						new (tableType, @adrGroup^.callbacks)};
					if not defined (adrGroup^.cookieDomain) {
						adrGroup^.cookieDomain = ""};
					if not defined (adrGroup^.cookieExpires) {
						adrGroup^.cookieExpires = "Mon, 01 Apr 2030 07:00:00 GMT"};
					if not defined (adrGroup^.cookieName) {
						adrGroup^.cookieName = "Admin"};
					if not defined (adrGroup^.mailReturnAddress) {
						adrGroup^.mailReturnAddress = user.prefs.mailAddress};
					if not defined (adrGroup^.mailSubject) {
						adrGroup^.mailSubject = "Admin"};
					if not defined (adrGroup^.mailTemplate) {
						wp.newTextObject ("", @adrGroup^.mailTemplate)};
					if not defined (adrGroup^.openToPublic) {
						adrGroup^.openToPublic = false};
					if not defined (adrGroup^.users) {
						new (tableType, @adrGroup^.users)}};
				
				bundle { // prep for web based install via mainResponder admin website, disabled until mR can be rewritten from the perspective of the open source release
					local (portString = "");
					if user.inetd.config.http2.port != 80 {
						portString = ":" + user.inetd.config.http2.port};
					if not defined (system.temp.Frontier.setupFrontier) {
						new (tableType, @system.temp.Frontier.setupFrontier)};
					system.temp.Frontier.setupFrontier.flAllowLocalAccessToSetupPage = true;
					local (setupUrl = "http://127.0.0.1" + portString + "/setupFrontier");
					if not defined (system.temp.installer) {
						new (tableType, @system.temp.installer)};
					system.temp.installer.urlToOpen = setupUrl}}
			else {
				on infoDialog () { //prompt the user for name, org and initials
					on kernelCall (adrName, adrInitials, adrOrg, adrEmail) {
						kernel (dialog.getUserInfo)};
					local (name, initials, organization, email);
					case sys.os () {
						"Win95";
						"WinNT" {
							if not (kernelCall (@name, @initials, @organization, @email)) {
								return (false)};
							if initials == "" {
								dialog.alert ("You must specify your initials.");
								infoDialog ()};
							user.prefs.name = name;
							user.prefs.initials = initials;
							user.prefs.organization = organization;
							user.prefs.mailAddress = email};
						"MacOS" {
							bundle { //initialize user.prefs.name etc using info from Internet Config
								try {
									name = ic.geticpreference (ic.eventinfo.realName)};
								try {
									organization = ic.geticpreference (ic.eventinfo.organization)};
								try {
									email = ic.geticpreferece (ic.eventinfo.emailAddress)};
								
								user.prefs.name = name;
								user.prefs.organization = organization;
								if name != "" {
									local (i);
									user.prefs.initials = name [1];
									for i = 3 to sizeof (name) {
										if name [i] == ' ' {
											user.prefs.initials = user.prefs.initials + name [i+1]}}}};
							card.run (@system.cards.userInfoDialog)}};
					return (true)};
				infoDialog ()}}; //AR 09/27/04 : personalize install
		
		ÇrootUpdates.getCurrent ("Frontier") // 11/29/04; 6:57:54 PM by TAC - if we get a root update then we'll need to use rootUpdates.update
		
		bundle { // about window
			local (w);
			window.about ();
			w = window.frontMost ();
			window.zoom (w);
			menus.scripts.styleCommand ("medium");
			window.setPosition (w, 25, 75);
			};Çwindow.close (s)
		
		bundle { // license
			edit (@system.startup.license); // 12/4/04; 9:26:35 PM by TAC - i rather do this near the beginning of phase 1 firstRootRun but had a problem with this window and setting up the quick script window 
			wp.setSelect (0, 0)}}};

system.callbacks.startup (); //call user's startup scripts

bundle { // build menu bar
	system.menus.buildMenuBar ();
	system.menus.buildSuitesSubmenu ()}; //5.0

Frontier.enableAgents (flEnableAgents);

if flEnableHttpServer { //6.0, daemons don't start up until all the startup code has run
	new (tableType, @user.inetd.listens);
	inetd.start ()}; //start up all daemons with startup set true

bundle { // first root run, phase 3 of 3
	if flFirstRootRun {
		
		if defined (system.temp.installer.urlToOpen) {
			Çwindow.update ("About Frontier")
			webBrowser.openUrl (system.temp.installer.urlToOpen);
			webBrowser.bringToFront ()};
		
		user.prefs.firstRootRun = false}};

system.temp.Frontier.startingUp = false; //signal to all who care, let the hits begin!

msg ("");

fileMenu.save ();
Ç
	Çbundle //license agreement
		Çlocal (editLicense = false)
		Çif sys.os () == "MacOS"
			Çon itemhit (itemnumber)
				Çcase (itemnumber)
					Ç1 Çyes
						ÇeditLicense = true
						Çreturn (false) Çstop processing the dialog
					Ç2 Çno
						Çreturn (false) Çstop processing the dialog
				Çreturn (true) Çkeep processing the dialog
			Çdialog.run (517, 1, @itemhit)
		Çelse
			Çif dialog.yesNo ("Frontier is licensed software. Do you want to read the license agreement now?")
				ÇeditLicense = true
		Çif editLicense
	Çbundle //get root update
		ÇproxyInit ()
		Çif user.prefs.serialNumber != "" and not (string.lower (user.prefs.serialNumber) contains "trial")
			ÇrootUpdates.init ()
\ No newline at end of file
--- 1,3 ----
  FrontierVcsFile:1:scpt:system.startup.startupScript
  
! ÇThis script runs when Frontier opens the Frontier.root file.
	ÇChanges
		Ç7/6/05; 12:21:38 PM by TAC
			Çchanged user.callbacks.sendmail to user.callbacks.tcpSendMail
			Çadded user.prefs.mailHostPort
		Ç6/15/05; 6:52:11 PM by TAC
			Çrewrite for Open Source release, bring in code from startup.startupScript, userland.firstRootRun, userland.finishInstall, and userland.cleanRoot
			ÇOld code
				Çstartup.startupScript <http://cvs.sourceforge.net/viewcvs.py/frontierkernel/odbs/frontierRoot/system/startup/startupScript?rev=1.1>
				Çuserland.firstRootRun <http://cvs.sourceforge.net/viewcvs.py/frontierkernel/odbs/frontierRoot/system/verbs/builtins/userland/Attic/firstRootRun?rev=1.1>
				Çuserland.finishInstall <http://cvs.sourceforge.net/viewcvs.py/frontierkernel/odbs/frontierRoot/system/verbs/builtins/userland/Attic/finishInstall?rev=1.1>
				Çuserland.cleanRoot <http://cvs.sourceforge.net/viewcvs.py/frontierkernel/odbs/frontierRoot/system/verbs/builtins/userland/Attic/cleanRoot?rev=1.1>
		Ç06/08/01; 11:24:35 PM by JES
			ÇWhen opening databases defined at user.databases, skip objects which aren't tables. This avoids the condition where startup wouldn't complete, if there's an item #1 in the user.databases table.
		Ç06/02/01; 8:34:20 PM by PBS
			ÇDo the web-based install and open the Control Panel if this is the first root run.
		Ç04/28/01; 7:48:46 PM by JES
			ÇCall Frontier.tools.startup in a try block, so that the startup process will finish even if Tools installation fails.
		Ç04/20/01; 4:49:05 PM by JES
			ÇCall tools.startup to install Tools at startup.
		Ç10/7/99; 4:20:26 PM by PBS
			ÇOnly run the #startup script in a guest database if runStartupScript exists and is true. Previously, it would be run whether runStartupScript was true or false.
			Çhttp://frontier.userland.com/stories/storyReader$1760
		Ç10/6/99; 10:21:35 PM by PBS
			ÇOnly set the taskTime for the overnight task if it's in the past. This fixes a bug when the taskTime was before midnight, but it was being set for the next day, so the overnight task wouldn't run.
			Çhttp://frontier.userland.com/stories/storyReader$1761
		Ç8/19/99; 6:44:48 AM by DW
			ÇMake sure that taskTimes in user.scheduler.tasks are in the future.
			ÇWe do this much more quickly than scheduler.monitor would.
			Çhttp://discuss.userland.com/msgReader$9658

local (flEnableAgents = true, flOpenDatabases = true, flEnableHttpServer = true); // can be set by the external startup script
local (flFirstRootRun = true);

bundle { // miscellaneous variable initializations and checks, phase 1 of 2
	Frontier.pathString = file.folderFromPath (frontier.getFilePath ())};

bundle { // first root run, phase 1 of 2
	if defined (user.prefs.firstRootRun) {
		flFirstRootRun = user.prefs.firstRootRun};
	
	if flFirstRootRun { // license agreement, finish cleanup on user's machine
		
		Frontier.enableAgents (false); // try to keep agents from reporting errors
		
		while window.frontmost () != "" { // open windows can mess things up later on
			window.hide (window.frontmost ())};
		
		Çreturn (false) // enable for testing
		
		new (tableType, @system.temp);
		new (tableType, @root.user);
		
		backups.init ();
		batchExporter.init ();
		export.init ();
		rootUpdates.init (); // set up user.rootUpdates, even though root updates uses tcp, its ok to set up here as no tcp calls are made at this time
		webEdit.init ();
		
		bundle { // set up user.prefs
			new (tableType, @user.prefs);
			user.prefs.firstRootRun = true;
			user.prefs.flShortTimeStamp = true;
			user.prefs.flWinStandardMaximize = true;
			user.prefs.frontierIsServer = false;
			user.prefs.initials = "";
			user.prefs.mailAddress = "";
			user.prefs.mailHost = "";
			user.prefs.mailHostPort = 25; // port is the most common port
			user.prefs.name = "";
			user.prefs.openAboutWindow = false;
			user.prefs.organization = "";
			
			Frontier.setupUserPrefsFonts ();
			
			bundle { // set up user.prefs.dialogs
				new (tableType, @user.prefs.dialogs);
				user.prefs.dialogs.newSuiteName = "";
				user.prefs.dialogs.jumpAddress = "websites"}; // or should this be workspace?
			bundle { // set up user.prefs.search
				new (tableType, @user.prefs.search);
				user.prefs.search.searchFor = "9.0.1";
				user.prefs.search.replaceWith = Frontier.version ();
				user.prefs.search.caseSensitive = false;
				user.prefs.search.closeWindows = true;
				user.prefs.search.flatSearch = false;
				user.prefs.search.frontWindowOnly = false;
				user.prefs.search.wholeWords = false;
				user.prefs.search.wrapAround = true;
				user.prefs.search.winStandardFindCommand = false};
			bundle { // set up user.prefs.commonStyles
				case sys.os () {
					"MacOS" {
						if system.environment.isCarbon {
							user.prefs.commonStyles = Frontier.data.commonStylesMacCarbon}
						else {
							user.prefs.commonStyles = Frontier.data.commonStylesMac}};
					"Win95";
					"WinNT" {
						user.prefs.commonStyles = Frontier.data.commonStylesWin}}}};
		bundle { // set up the quick script window
			clipboard.putvalue ("dialog.notify (\"Hello World!\")");
			window.quickScript ();
			editmenu.selectall ();
			editmenu.paste ();
			window.close ("Quick Script")};
		bundle { // set up root window
			local (w = "root");
			window.open (w);
			window.setPosition (w, 0, 0);
			editMenu.setFont (user.prefs.fonts.tableFont);
			editMenu.setFontSize (user.prefs.fonts.tableFontSize);
			window.zoom (w)};
		bundle { // set up user.callbacks
			new (tableType, @user.callbacks);
			new (tableType, @user.callbacks.closeWindow);
			new (tableType, @user.callbacks.cmd2click);
			new (tableType, @user.callbacks.compileChangedScript);
			new (tableType, @user.callbacks.control2click);
			new (tableType, @user.callbacks.fileWriteWholeFile);
			new (tableType, @user.callbacks.opCollapse);
			new (tableType, @user.callbacks.opCursorMoved);
			new (tableType, @user.callbacks.openWindow);
			new (tableType, @user.callbacks.opExpand);
			new (tableType, @user.callbacks.opInsert);
			new (tableType, @user.callbacks.opReturnKey);
			new (tableType, @user.callbacks.opRightClick);
			new (tableType, @user.callbacks.opStruct2Click);
			new (tableType, @user.callbacks.option2click);
			new (tableType, @user.callbacks.resume);
			new (tableType, @user.callbacks.saveWindow);
			new (tableType, @user.callbacks.shutdown);
			new (tableType, @user.callbacks.startup);
			new (tableType, @user.callbacks.statusMessage);
			new (tableType, @user.callbacks.suspend);
			new (tableType, @user.callbacks.systemTrayIcon2Click);
			new (tableType, @user.callbacks.systemTrayIconRightClick);
			new (tableType, @user.callbacks.tcpSendMail)};
		bundle { // set up user.menus
			new (tableType, @user.menus);
			Çuser.menus.bookmarkMenu = userland.virginBookmarkMenu
			user.menus.customMenu = Frontier.data.virginCustomMenu};
		bundle { // clear applications paths in system.verbs.apps
			local (adrAppsTable = @system.verbs.apps, i);
			for i = 1 to sizeof (adrAppsTable^) {
				local (adrAppInfo = @adrAppsTable^ [i].appInfo);
				if defined (adrAppInfo^) {
					adrAppInfo^.path = ""}}};
		bundle { // set up Frontier.tools.thread
			Frontier.tools.thread.ct = 0;
			Frontier.tools.thread.enabled = true};
		bundle { // set up workspace
			new (tableType, @root.workspace);
			new (outlineType, @workspace.notepad)};
		
		bundle { // miscellaneous
			new (tableType, @root.scratchpad);
			new (tableType, @system.deskscripts);
			new (tableType, @user.databases);
			new (tableType, @user.protocols);
			};Çnew (tableType, @websites.["#data"])
		
		bundle { // open mainResponder.root, hidden and add to user.databases
			local (appFolder = Frontier.getSubFolder ("apps"));
			if not defined ( [appFolder + "mainResponder.root"] ) {
				Frontier.installApp ("mainResponder.root", false)}};
		
		bundle { // open prefs.root, hidden and add to user.databases
			local (f = Frontier.getSubFolder ("www") + "prefs.root");
			if not (defined ([f])) {
				fileMenu.open (f, true);}; //open hidden
			
			ÇAdd an entry to the user.databases table.
			local (adrTable = @user.databases.["prefs.root"]);
			new (tableType, adrTable);
			adrTable^.f = f;
			adrTable^.openOnStartup = true;
			adrTable^.runStartupScript = false;
			adrTable^.supportsSubscribe = false};
		
		Çbundle //initialize responders
			Çuser.webserver.responders.websiteFramework.data.docTree.samples = @websites.samples
			Çtry
				Çdelete (@user.webserver.responders.websiteFramework.data.docTree.allSites)
			Çtry
				Çdelete (@user.webserver.responders.websiteFramework.data.docTree.contents)
			Ç
			Çif defined (user.webserver.responders.manilaEdit)
				Çdelete (@user.webserver.responders.manilaEdit)};
	
	};ÇfileMenu.save ()

bundle { // system.temp.Frontier
	if defined (system.temp.Frontier) { //only run the startup script once
		return};
	
	new (tableType, @system.temp.Frontier);
	system.temp.Frontier.startupTime = clock.now ();
	system.temp.Frontier.startingUp = true};

bundle { // miscellaneous variable initializations and checks, phase 2 of 2
	system.menus.data.currentsuite = "";
	system.menus.data.currentmenu = 0;
	
	bundle { // check for presence of Psapi.dll
		if sys.os () == "WinNT" {
			if not (sys.appIsRunning ("Frontier.exe")) { // 11/27/04; 12:14:40 PM by TAC - would it be possible for Frontier to install this on its own?
				dialog.alert ("You need to run the Frontier Psapi Installer for certain Frontier verbs to work properly.")}}}};

bundle { //open the about window if the pref says we should
	Çadded 12/16/98; 6:47:28 PM by DW
	if not defined (user.prefs.openAboutWindow) {
		user.prefs.openAboutWindow = true};
	if user.prefs.openAboutWindow {
		window.about ()}};
bundle { //initialize the log, next bit of code could add a log item
	Çadded 12/16/98; 6:52:40 PM by DW
	if defined (log.startup) {
		log.startup ()}};
bundle { //run the external startup script
	local (fname = "frontierStartupCommands.txt");
	local (f = file.folderFromPath (Frontier.getProgramPath ()) + fname);
	if file.exists (f) {
		try {
			evaluate (string (file.readWholeFile (f)))}
		else {
			log.add ("Error running " + fname + ": \"" + tryError + "\"", "startupError", flwptext:true)}}};

bundle { // tcp based services
	webserver.init (); // needs to load first
	betty.init (); // needs to load second
	soap.init ()};

bundle { // people based services
	people.init (); // needs to load first
	custody.init ();
	webEditServer.init ()};

bundle { //open all the databases that have openOnStartup true
	Çadded 12/16/98; 6:23:16 PM by DW
	if defined (user.databases) {
		if flOpenDatabases {
			local (i, flmsg = false);
			for i = 1 to sizeof (user.databases) {
				if typeOf (user.databases[i]) == tableType { //06/08/01 JES: avert item #1 errors
					with user.databases [i] {
						local (flopened = false);
						try {
							if openOnStartup {
								msg (this + ": Opening " + file.fileFromPath (f));
								flmsg = true;
								fileMenu.open (f, hidden:true);
								flopened = true}}
						else {
							log.add ("Startup error opening guest database " + nameof (user.databases [i]) + ": \"" + tryError + "\"", "startupError", flwptext:true)};
						if flopened {
							if defined (runStartupScript) {
								if runStartupScript { //PBS 10/7/99: check the value of runStartupScript: only run the script if the boolean is true
									local (adrscript = @[filespec (f)].["#startup"]);
									if defined (adrscript^) {
										try {
											adrscript^ ()}
										else {
											log.add ("Error running #startup script in guest database " + nameof (user.databases [i]) + ": \"" + tryError + "\"", "startupError", flwptext:true)}}}}}}}};
			if flmsg {
				msg ("")}}}};

try { //04/28/2001 JES: prevent startup from failing if Tool installation fails.
	Frontier.tools.startup ()};

scheduler.init ();

html.init ();

bundle { // webBrowser
	webBrowser.init ();
	
	if system.environment.isMac {
		try {new (tableType, @user.odbEditors.data.openFiles)}}; //Empty out the list of externally-edited files.
	if system.environment.isWindows {
		user.webBrowser.winDefaultBrowserApp = file.findApplication ("htm")}};

bundle { // first root run, phase 2 of 3
	if flFirstRootRun {
		
		bundle { // set up websites table and related
			with websites.["#ftpSite"] {
				folder = file.folderFromPath (Frontier.getProgramPath ()) + "Websites" + file.getPathChar ();
				Çfile.sureFolder (folder)
				url = file.fileToURL (folder);
				isLocal = true};
			user.html.sites.default = websites.["#ftpSite"]};
		
		bundle { // personalize this copy of Frontier, configure network settings, and complete the installation
			local (flWebBasedInstall = true);
			if flWebBasedInstall {
				
				Ç11/29/04; 11:17:45 AM by TAC - the following seems like it should be done as part of mainRepsonder startup, init. IIRC, members.root is a feature of mainResponder
				bundle { //create the Admin membership group if needed
					local (adrRoot = @[system.temp.mainResponder.membersRootFile]);
					local (adrGroup = @adrRoot^.admin);
					if not defined (adrGroup^) {
						new (tableType, adrGroup)};
					if not defined (adrGroup^.callbacks) {
						new (tableType, @adrGroup^.callbacks)};
					if not defined (adrGroup^.cookieDomain) {
						adrGroup^.cookieDomain = ""};
					if not defined (adrGroup^.cookieExpires) {
						adrGroup^.cookieExpires = "Mon, 01 Apr 2030 07:00:00 GMT"};
					if not defined (adrGroup^.cookieName) {
						adrGroup^.cookieName = "Admin"};
					if not defined (adrGroup^.mailReturnAddress) {
						adrGroup^.mailReturnAddress = user.prefs.mailAddress};
					if not defined (adrGroup^.mailSubject) {
						adrGroup^.mailSubject = "Admin"};
					if not defined (adrGroup^.mailTemplate) {
						wp.newTextObject ("", @adrGroup^.mailTemplate)};
					if not defined (adrGroup^.openToPublic) {
						adrGroup^.openToPublic = false};
					if not defined (adrGroup^.users) {
						new (tableType, @adrGroup^.users)}};
				
				bundle { // prep for web based install via mainResponder admin website, disabled until mR can be rewritten from the perspective of the open source release
					local (portString = "");
					if user.inetd.config.http2.port != 80 {
						portString = ":" + user.inetd.config.http2.port};
					if not defined (system.temp.Frontier.setupFrontier) {
						new (tableType, @system.temp.Frontier.setupFrontier)};
					system.temp.Frontier.setupFrontier.flAllowLocalAccessToSetupPage = true;
					local (setupUrl = "http://127.0.0.1" + portString + "/setupFrontier");
					if not defined (system.temp.installer) {
						new (tableType, @system.temp.installer)};
					system.temp.installer.urlToOpen = setupUrl}}
			else {
				on infoDialog () { //prompt the user for name, org and initials
					on kernelCall (adrName, adrInitials, adrOrg, adrEmail) {
						kernel (dialog.getUserInfo)};
					local (name, initials, organization, email);
					case sys.os () {
						"Win95";
						"WinNT" {
							if not (kernelCall (@name, @initials, @organization, @email)) {
								return (false)};
							if initials == "" {
								dialog.alert ("You must specify your initials.");
								infoDialog ()};
							user.prefs.name = name;
							user.prefs.initials = initials;
							user.prefs.organization = organization;
							user.prefs.mailAddress = email};
						"MacOS" {
							bundle { //initialize user.prefs.name etc using info from Internet Config
								try {
									name = ic.geticpreference (ic.eventinfo.realName)};
								try {
									organization = ic.geticpreference (ic.eventinfo.organization)};
								try {
									email = ic.geticpreferece (ic.eventinfo.emailAddress)};
								
								user.prefs.name = name;
								user.prefs.organization = organization;
								if name != "" {
									local (i);
									user.prefs.initials = name [1];
									for i = 3 to sizeof (name) {
										if name [i] == ' ' {
											user.prefs.initials = user.prefs.initials + name [i+1]}}}};
							card.run (@system.cards.userInfoDialog)}};
					return (true)};
				infoDialog ()}}; //AR 09/27/04 : personalize install
		
		ÇrootUpdates.getCurrent ("Frontier") // 11/29/04; 6:57:54 PM by TAC - if we get a root update then we'll need to use rootUpdates.update
		
		bundle { // about window
			local (w);
			window.about ();
			w = window.frontMost ();
			window.zoom (w);
			menus.scripts.styleCommand ("medium");
			window.setPosition (w, 25, 75);
			};Çwindow.close (s)
		
		bundle { // license
			edit (@system.startup.license); // 12/4/04; 9:26:35 PM by TAC - i rather do this near the beginning of phase 1 firstRootRun but had a problem with this window and setting up the quick script window 
			wp.setSelect (0, 0)}}};

system.callbacks.startup (); //call user's startup scripts

bundle { // build menu bar
	system.menus.buildMenuBar ();
	system.menus.buildSuitesSubmenu ()}; //5.0

Frontier.enableAgents (flEnableAgents);

if flEnableHttpServer { //6.0, daemons don't start up until all the startup code has run
	new (tableType, @user.inetd.listens);
	inetd.start ()}; //start up all daemons with startup set true

bundle { // first root run, phase 3 of 3
	if flFirstRootRun {
		
		if defined (system.temp.installer.urlToOpen) {
			Çwindow.update ("About Frontier")
			webBrowser.openUrl (system.temp.installer.urlToOpen);
			webBrowser.bringToFront ()};
		
		user.prefs.firstRootRun = false}};

system.temp.Frontier.startingUp = false; //signal to all who care, let the hits begin!

msg ("");

fileMenu.save ();
Ç
	Çbundle //license agreement
		Çlocal (editLicense = false)
		Çif sys.os () == "MacOS"
			Çon itemhit (itemnumber)
				Çcase (itemnumber)
					Ç1 Çyes
						ÇeditLicense = true
						Çreturn (false) Çstop processing the dialog
					Ç2 Çno
						Çreturn (false) Çstop processing the dialog
				Çreturn (true) Çkeep processing the dialog
			Çdialog.run (517, 1, @itemhit)
		Çelse
			Çif dialog.yesNo ("Frontier is licensed software. Do you want to read the license agreement now?")
				ÇeditLicense = true
		Çif editLicense
	Çbundle //get root update
		ÇproxyInit ()
		Çif user.prefs.serialNumber != "" and not (string.lower (user.prefs.serialNumber) contains "trial")
			ÇrootUpdates.init ()
\ No newline at end of file

[frontierkernel-commits] odbs/frontierRoot/system/verbs/builtins/tcp sendMail,1.1.1.1,1.2

[creedon <icr...@us...>]

Update of /cvsroot/frontierkernel/odbs/frontierRoot/system/verbs/builtins/tcp
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv22054

Modified Files:
	sendMail 
Log Message:
added port param and removed Userland ref

Index: sendMail
===================================================================
RCS file: /cvsroot/frontierkernel/odbs/frontierRoot/system/verbs/builtins/tcp/sendMail,v
retrieving revision 1.1.1.1
retrieving revision 1.2
diff -C2 -d -r1.1.1.1 -r1.2
*** sendMail	26 Mar 2005 19:43:37 -0000	1.1.1.1
--- sendMail	6 Jul 2005 19:25:03 -0000	1.2
***************
*** 1,3 ****
  FrontierVcsFile:1:scpt:system.verbs.builtins.tcp.sendMail
  
! on sendMail (recipient="", subject="", message="", sender=user.prefs.mailAddress, cc="", bcc="", host=user.prefs.mailHost, mimeType="text/plain", adrHdrTable=nil, timeOutTicks=60*60,  flMessages=true) {
	
	ÇChanges
		ÇWed, 16 Jun 1999 00:05:16 GMT by AR
			ÇAdded optional adrHdrTable parameter, the address of a table. If an address is specified, its fields are added to the message header, possibly overriding standard header items.
			ÇAdded optional timeOutTicks parameter. The default value is 3600 ticks (60 seconds). If the connection is idle for more than the specified number of ticks while waiting for a response from the server, the connection is closed and an error message is generated.
			ÇAdded optional flMessages parameter. If it is true (the default), status messages will be displayed in Frontier's About window. The displayed messages are prefixed with the name of this script. Before we return, we clean up the message area.
			ÇAdded extensive error checking and reporting code. If the script returns true, it is now safe to assume that the message was accepted by the server. Status messages received from the server indicating that an error has occured are no longer ignored. Whenever an error occurs, we try to shut down the connection gracefully before throwing a scripterror.
			ÇCalls to thread.sleepFor were added to the TCP read/write loops for improved thread-friendliness.
		Ç7/25/99; 8:04:26 AM by DW
			ÇLoop over scripts in user.callbacks.sendmail table.
		Ç11/05/1999 at 12:57:30 AM by AR
			ÇUpdated to use 6.1 TCP verbs.
			ÇCleaned up low-level error messages to conform to "Can't do x because y" scheme.
	
	bundle { //loop over callbacks
		if defined (user.callbacks.tcpSendMail) {
			local (i);
			for i = 1 to sizeof (user.callbacks.tcpSendMail) {
				try {
					local (adrcallback = @user.callbacks.tcpSendMail [i]);
					if typeof (adrcallback^) == scriptType { //avoid problems with item #1s
						if adrcallback^ (recipient, subject, message, sender, cc, bcc, mimetype) {
							Çcallback returns true if it consumed the sendMail operation
							return (true)}}}}}};
	
	on displayMsg (s) {
		msg ("tcp.sendMail: " + s)};
	
	local (buffer = "", response = "");
	on add (s) { //appends crlf delimited items to our message buffer
		buffer = buffer + s + cr + lf};
	
	bundle { //build the header and store in buffer
		local (addedFromTableList = {});
		on addFromHeaderTable (s) {
			if (adrHdrTable != nil) and defined (adrHdrTable^.[s]) {
				add (nameOf (adrHdrTable^.[s]) + ": " + adrHdrTable^.[s]);
				addedFromTableList = addedFromTableList + string.lower (s);
				return (true)};
			return (false)};
		if not addFromHeaderTable ("X-Mailer") {
			add ("X-Mailer: " + "UserLand Frontier " + Frontier.version () + " (" + sys.osName () + ")")};
		if not addFromHeaderTable ("Mime-Version") {
			add ("Mime-Version: 1.0")};
		if not addFromHeaderTable ("Content-Type") {
			add ("Content-Type: " + mimeType + "; charset=\"us-ascii\"")};
		if not addFromHeaderTable ("Date") {
			add ("Date: " +  date.netStandardString (clock.now ()))};
		if not addFromHeaderTable ("To") {
			if  sizeOf (recipient) > 0 {
				add ("To: " + recipient)}};
		if not addFromHeaderTable ("CC") {
			if sizeOf (cc) > 0 {
				add ("CC: " + cc)}};
		if not addFromHeaderTable ("From") {
			add ("From: " + sender)};
		if not addFromHeaderTable ("Subject") {
			add ("Subject: " + subject)};
		if adrHdrTable != nil { //now add remaining header fields from the table
			local (i);
			for i = 1 to sizeOf (adrHdrTable^) {
				if not (addedFromTableList contains string.lower (nameOf (adrHdrTable^ [i]))) {
					add (nameOf (adrHdrTable^ [i]) + ": " + adrHdrTable^ [i])}}};
		add ("")}; //a blank line before the content is required!
	
	bundle { //build message body and store in buffer
		if not (message contains lf) { //convert line-endings
			message = string.replaceAll (message, cr, cr+lf)};
		message = string.replaceAll (message, "\r\n.\r\n", "\r\n..\r\n"); //replace lines beginning with a period with two periods
		if message beginsWith ".\r\n" { //if the first line begins with a period
			message = "." + message};
		if not (message endsWith "\r\n") {
			message = message + "\r\n"};
		add (message)}; //add our message text to the buffer
	
	on sendCommandToServer (stream, command) { //AR 10/27/1999
		Çon sendCommandToServer (stream, command) //pre-6.1 code
			Çlocal (chunksize = 4 * 1024)
			Çlocal (lastWrite = clock.ticks ())
			Çloop //write command to the stream
				Çtry
					Çif sizeof (command) <= chunkSize
						Çtcp.writeStream (stream, command)
						Çsys.systemTask()
						Çthread.sleepfor (0)
						Çbreak
					Çtcp.writeStream (stream, string.mid (command, 1, chunkSize))
					Çcommand = string.delete (command, 1, chunkSize)
					Çsys.systemTask()
					Çthread.sleepfor (0)
					ÇlastWrite = clock.ticks ()
				Çelse
					Çif (tryError contains "10035") and (clock.ticks () < (lastWrite + (60 * 10))) //10035 means the socket buffers are not ready, give them up to 10 seconds.
						Çsys.systemTask()
						Çthread.sleepfor (1) //yield this thread for a second to allow normal frontier processing
					Çelse
						Çtry {tcp.closeStream (stream)}
						ÇscriptError ("Error communicating with SMTP host: " + tryError) // re-throw the error
			Çreturn (true)
		try {
			tcp.writeStringToStream (stream, command, 4096, timeOutTicks / 60)}
		else {
			if flMessages { //clean up the message area
				msg ("")};
			try {tcp.abortStream (stream)};
			scriptError ("Can't send mail because a connection error occured: " + tryerror)};
		return (true)};
	on receiveServerResponse (stream) { //AR 10/27/1999
		Çon receiveServerResponse (stream) //pre-6.1 code
			Çlocal (response = "", bytesPending = 0, ix, linetext)
			Çlocal (timeout = clock.ticks () + timeOutTicks)
			Çloop //read data from the stream
				Çcase tcp.statusStream (stream, @bytespending)
					Ç"DATA"  //read data
						Çresponse = response + tcp.readStream (stream, bytespending)
						Çix = string.patternMatch ("\r\n", response)
						Çwhile (ix > 0)  //handle multi-line responses
							Çlinetext = string.mid (response, 1, ix-1)
							Çif string.nthChar (linetext, 4) == ' ' //the final line of the response has a space as the fourth char
								Çreturn (linetext)
							Çresponse = string.delete (response, 1, ix+1)
							Çix = string.patternMatch ("\r\n", response)
						Çsys.systemTask()
						Çthread.sleepfor (0)
						Çtimeout = clock.ticks () + timeOutTicks
						Çcontinue
					Ç"OPEN"  //waiting for data
						Çif clock.ticks () > timeout
							ÇscriptError ("Can't send mail because the connection to " + host + " timed out.")
						Çsys.systemTask()
						Çthread.sleepfor (0)
						Çcontinue
				Çelse //connection terminated prematurely
					Çtry {tcp.closeStream (stream)}
					ÇscriptError ("Can't send mail because the connection to " + host + " was terminated prematurely.")
			Çreturn ("") //this should never be executed, either we return the server's final response line or we throw a scripterror
		local (ix, linetext);
		loop { //read data from the stream
			try {
				tcp.readStreamUntil (stream, "\r\n", timeOutTicks / 60, @response)}
			else {
				try {tcp.abortStream (stream)};
				if flMessages { //clean up the message area
					msg ("")};
				scriptError ("Can't send mail because a connection error occured: " + tryerror)};
			ix = string.patternMatch ("\r\n", response);
			while (ix > 0) { //handle multi-line responses
				linetext = string.mid (response, 1, ix-1);
				response = string.delete (response, 1, ix+1);
				if string.nthChar (linetext, 4) == ' ' { //the final line of the response has a space as the fourth char
					return (linetext)};
				ix = string.patternMatch ("\r\n", response)}};
		return ("")}; //this should never be executed, either we return the server's final response line or we throw a scripterror
	on executeCommand (command, expectResponse = nil) { //send a command to the server and handle the response
		local (statusline);
		sendCommandToServer (stream, command + "\r\n");
		statusline = receiveServerResponse (stream);
		if flMessages {
			displayMsg (statusline)};
		if (expectResponse != nil) and not (statusline beginsWith expectResponse) {
			closeConnection ("Can't send mail because of an unexpected server response. I said \"" + command + "\" and the server replied \"" + statusline + "\".")};
		return (true)};
	on addRecipient (recipient) { //send recipient command
		executeCommand ("RCPT TO: <" + string.cleanMailAddress (recipient) + ">", "25")}; //expect status code 250 or 251
	on closeConnection (errorstring = "") { //also called in case of unexpected server responses
		try {executeCommand ("RSET")}; //don't expect a specific response, otherwise we might end up in an infinite loop
		try {executeCommand ("QUIT")};
		try {tcp.closeStream (stream)};
		if flMessages { //clean up the message area
			msg ("")};
		if errorstring != "" { //possibly (re)throw scripterrors
			scriptError (errorstring)}};
	
	local (stream);
	
	try { //try to open connection to server
		stream = tcp.openStream (host, 25)}
	else { // fatal error
		scriptError ("Can't send mail because the connection to " + host + " could not be opened: " + tryError)};
	
	bundle { //wait for server's initial connection greeting
		local (statusline);
		statusline = receiveServerResponse (stream);
		if flMessages {
			displayMsg (statusline)};
		if not (statusline beginsWith "220") {
			closeConnection ("Can't send mail because the server, " + host + ", did not send a valid connection greeting. It said, \"" + statusline + "\".")}};
	
	bundle { //say hello and reset state
		executeCommand ("HELO " + tcp.addressDecode (tcp.myAddress()), "250");
		executeCommand ("RSET", "250")};
	
	bundle { //specify sender and recipients
		executeCommand ("MAIL FROM: <" + string.cleanMailAddress (sender) + ">", "250");
		local (i);
		if sizeOf (recipient) > 0 {
			for i = 1 to string.countFields (recipient, ',') {
				addRecipient (string.nthField (recipient, ',', i))}};
		if sizeOf (cc) > 0 {
			for i = 1 to string.countFields (cc, ',') {
				addRecipient (string.nthField (cc, ',', i))}};
		if sizeOf (bcc) > 0 {
			for i = 1 to string.countFields (bcc, ',') {
				addRecipient (string.nthField (bcc, ',', i))}}};
	
	bundle { //send message data
		executeCommand ("DATA", "354");
		sendCommandToServer (stream, buffer);
		executeCommand (".", "250")};
	
	closeConnection ();
	
	return (true)}
\ No newline at end of file
--- 1,3 ----
  FrontierVcsFile:1:scpt:system.verbs.builtins.tcp.sendMail
  
! on sendMail (recipient="", subject="", message="", sender=user.prefs.mailAddress, cc="", bcc="", host=user.prefs.mailHost, mimeType="text/plain", adrHdrTable=nil, timeOutTicks=60*60, flMessages=true, port = user.prefs.mailHostPort) {
	
	ÇChanges
		Ç7/5/05; 8:57:26 AM by TAC
			Çremoved Userland from X-Mailer
			Çadded port parameter
		Ç11/05/1999 at 12:57:30 AM by AR
			ÇUpdated to use 6.1 TCP verbs.
			ÇCleaned up low-level error messages to conform to "Can't do x because y" scheme.
		Ç7/25/99; 8:04:26 AM by DW
			ÇLoop over scripts in user.callbacks.sendmail table.
		ÇWed, 16 Jun 1999 00:05:16 GMT by AR
			ÇAdded optional adrHdrTable parameter, the address of a table. If an address is specified, its fields are added to the message header, possibly overriding standard header items.
			ÇAdded optional timeOutTicks parameter. The default value is 3600 ticks (60 seconds). If the connection is idle for more than the specified number of ticks while waiting for a response from the server, the connection is closed and an error message is generated.
			ÇAdded optional flMessages parameter. If it is true (the default), status messages will be displayed in Frontier's About window. The displayed messages are prefixed with the name of this script. Before we return, we clean up the message area.
			ÇAdded extensive error checking and reporting code. If the script returns true, it is now safe to assume that the message was accepted by the server. Status messages received from the server indicating that an error has occured are no longer ignored. Whenever an error occurs, we try to shut down the connection gracefully before throwing a scripterror.
			ÇCalls to thread.sleepFor were added to the TCP read/write loops for improved thread-friendliness.
	
	bundle { //loop over callbacks
		if defined (user.callbacks.tcpSendMail) {
			local (i);
			for i = 1 to sizeof (user.callbacks.tcpSendMail) {
				try {
					local (adrcallback = @user.callbacks.tcpSendMail [i]);
					if typeof (adrcallback^) == scriptType { //avoid problems with item #1s
						if adrcallback^ (recipient, subject, message, sender, cc, bcc, mimetype) {
							Çcallback returns true if it consumed the sendMail operation
							return (true)}}}}}};
	
	on displayMsg (s) {
		msg ("tcp.sendMail: " + s)};
	
	local (buffer = "", response = "");
	on add (s) { //appends crlf delimited items to our message buffer
		buffer = buffer + s + cr + lf};
	
	bundle { //build the header and store in buffer
		local (addedFromTableList = {});
		on addFromHeaderTable (s) {
			if (adrHdrTable != nil) and defined (adrHdrTable^.[s]) {
				add (nameOf (adrHdrTable^.[s]) + ": " + adrHdrTable^.[s]);
				addedFromTableList = addedFromTableList + string.lower (s);
				return (true)};
			return (false)};
		if not addFromHeaderTable ("X-Mailer") {
			add ("X-Mailer: " + "Frontier " + Frontier.version () + " (" + sys.osName () + ")")};
		if not addFromHeaderTable ("Mime-Version") {
			add ("Mime-Version: 1.0")};
		if not addFromHeaderTable ("Content-Type") {
			add ("Content-Type: " + mimeType + "; charset=\"us-ascii\"")};
		if not addFromHeaderTable ("Date") {
			add ("Date: " +  date.netStandardString (clock.now ()))};
		if not addFromHeaderTable ("To") {
			if  sizeOf (recipient) > 0 {
				add ("To: " + recipient)}};
		if not addFromHeaderTable ("CC") {
			if sizeOf (cc) > 0 {
				add ("CC: " + cc)}};
		if not addFromHeaderTable ("From") {
			add ("From: " + sender)};
		if not addFromHeaderTable ("Subject") {
			add ("Subject: " + subject)};
		if adrHdrTable != nil { //now add remaining header fields from the table
			local (i);
			for i = 1 to sizeOf (adrHdrTable^) {
				if not (addedFromTableList contains string.lower (nameOf (adrHdrTable^ [i]))) {
					add (nameOf (adrHdrTable^ [i]) + ": " + adrHdrTable^ [i])}}};
		add ("")}; //a blank line before the content is required!
	
	bundle { //build message body and store in buffer
		if not (message contains lf) { //convert line-endings
			message = string.replaceAll (message, cr, cr+lf)};
		message = string.replaceAll (message, "\r\n.\r\n", "\r\n..\r\n"); //replace lines beginning with a period with two periods
		if message beginsWith ".\r\n" { //if the first line begins with a period
			message = "." + message};
		if not (message endsWith "\r\n") {
			message = message + "\r\n"};
		add (message)}; //add our message text to the buffer
	
	on sendCommandToServer (stream, command) { //AR 10/27/1999
		Çon sendCommandToServer (stream, command) //pre-6.1 code
			Çlocal (chunksize = 4 * 1024)
			Çlocal (lastWrite = clock.ticks ())
			Çloop //write command to the stream
				Çtry
					Çif sizeof (command) <= chunkSize
						Çtcp.writeStream (stream, command)
						Çsys.systemTask()
						Çthread.sleepfor (0)
						Çbreak
					Çtcp.writeStream (stream, string.mid (command, 1, chunkSize))
					Çcommand = string.delete (command, 1, chunkSize)
					Çsys.systemTask()
					Çthread.sleepfor (0)
					ÇlastWrite = clock.ticks ()
				Çelse
					Çif (tryError contains "10035") and (clock.ticks () < (lastWrite + (60 * 10))) //10035 means the socket buffers are not ready, give them up to 10 seconds.
						Çsys.systemTask()
						Çthread.sleepfor (1) //yield this thread for a second to allow normal frontier processing
					Çelse
						Çtry {tcp.closeStream (stream)}
						ÇscriptError ("Error communicating with SMTP host: " + tryError) // re-throw the error
			Çreturn (true)
		try {
			tcp.writeStringToStream (stream, command, 4096, timeOutTicks / 60)}
		else {
			if flMessages { //clean up the message area
				msg ("")};
			try {tcp.abortStream (stream)};
			scriptError ("Can't send mail because a connection error occured: " + tryerror)};
		return (true)};
	on receiveServerResponse (stream) { //AR 10/27/1999
		Çon receiveServerResponse (stream) //pre-6.1 code
			Çlocal (response = "", bytesPending = 0, ix, linetext)
			Çlocal (timeout = clock.ticks () + timeOutTicks)
			Çloop //read data from the stream
				Çcase tcp.statusStream (stream, @bytespending)
					Ç"DATA"  //read data
						Çresponse = response + tcp.readStream (stream, bytespending)
						Çix = string.patternMatch ("\r\n", response)
						Çwhile (ix > 0)  //handle multi-line responses
							Çlinetext = string.mid (response, 1, ix-1)
							Çif string.nthChar (linetext, 4) == ' ' //the final line of the response has a space as the fourth char
								Çreturn (linetext)
							Çresponse = string.delete (response, 1, ix+1)
							Çix = string.patternMatch ("\r\n", response)
						Çsys.systemTask()
						Çthread.sleepfor (0)
						Çtimeout = clock.ticks () + timeOutTicks
						Çcontinue
					Ç"OPEN"  //waiting for data
						Çif clock.ticks () > timeout
							ÇscriptError ("Can't send mail because the connection to " + host + " timed out.")
						Çsys.systemTask()
						Çthread.sleepfor (0)
						Çcontinue
				Çelse //connection terminated prematurely
					Çtry {tcp.closeStream (stream)}
					ÇscriptError ("Can't send mail because the connection to " + host + " was terminated prematurely.")
			Çreturn ("") //this should never be executed, either we return the server's final response line or we throw a scripterror
		local (ix, linetext);
		loop { //read data from the stream
			try {
				tcp.readStreamUntil (stream, "\r\n", timeOutTicks / 60, @response)}
			else {
				try {tcp.abortStream (stream)};
				if flMessages { //clean up the message area
					msg ("")};
				scriptError ("Can't send mail because a connection error occured: " + tryerror)};
			ix = string.patternMatch ("\r\n", response);
			while (ix > 0) { //handle multi-line responses
				linetext = string.mid (response, 1, ix-1);
				response = string.delete (response, 1, ix+1);
				if string.nthChar (linetext, 4) == ' ' { //the final line of the response has a space as the fourth char
					return (linetext)};
				ix = string.patternMatch ("\r\n", response)}};
		return ("")}; //this should never be executed, either we return the server's final response line or we throw a scripterror
	on executeCommand (command, expectResponse = nil) { //send a command to the server and handle the response
		local (statusline);
		sendCommandToServer (stream, command + "\r\n");
		statusline = receiveServerResponse (stream);
		if flMessages {
			displayMsg (statusline)};
		if (expectResponse != nil) and not (statusline beginsWith expectResponse) {
			closeConnection ("Can't send mail because of an unexpected server response. I said \"" + command + "\" and the server replied \"" + statusline + "\".")};
		return (true)};
	on addRecipient (recipient) { //send recipient command
		executeCommand ("RCPT TO: <" + string.cleanMailAddress (recipient) + ">", "25")}; //expect status code 250 or 251
	on closeConnection (errorstring = "") { //also called in case of unexpected server responses
		try {executeCommand ("RSET")}; //don't expect a specific response, otherwise we might end up in an infinite loop
		try {executeCommand ("QUIT")};
		try {tcp.closeStream (stream)};
		if flMessages { //clean up the message area
			msg ("")};
		if errorstring != "" { //possibly (re)throw scripterrors
			scriptError (errorstring)}};
	
	local (stream);
	
	try { //try to open connection to server
		stream = tcp.openStream (host, port)}
	else { // fatal error
		scriptError ("Can't send mail because the connection to " + host + " could not be opened: " + tryError)};
	
	bundle { //wait for server's initial connection greeting
		local (statusline);
		statusline = receiveServerResponse (stream);
		if flMessages {
			displayMsg (statusline)};
		if not (statusline beginsWith "220") {
			closeConnection ("Can't send mail because the server, " + host + ", did not send a valid connection greeting. It said, \"" + statusline + "\".")}};
	
	bundle { //say hello and reset state
		executeCommand ("HELO " + tcp.addressDecode (tcp.myAddress()), "250");
		executeCommand ("RSET", "250")};
	
	bundle { //specify sender and recipients
		executeCommand ("MAIL FROM: <" + string.cleanMailAddress (sender) + ">", "250");
		local (i);
		if sizeOf (recipient) > 0 {
			for i = 1 to string.countFields (recipient, ',') {
				addRecipient (string.nthField (recipient, ',', i))}};
		if sizeOf (cc) > 0 {
			for i = 1 to string.countFields (cc, ',') {
				addRecipient (string.nthField (cc, ',', i))}};
		if sizeOf (bcc) > 0 {
			for i = 1 to string.countFields (bcc, ',') {
				addRecipient (string.nthField (bcc, ',', i))}}};
	
	bundle { //send message data
		executeCommand ("DATA", "354");
		sendCommandToServer (stream, buffer);
		executeCommand (".", "250")};
	
	closeConnection ();
	
	return (true)}
\ No newline at end of file

[frontierkernel-commits] odbs/frontierRoot/system/verbs/builtins/Frontier/data objectsNotExamined,1.3,1.4

[creedon <icr...@us...>]

Update of /cvsroot/frontierkernel/odbs/frontierRoot/system/verbs/builtins/Frontier/data
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv12711

Modified Files:
	objectsNotExamined 
Log Message:
No log message.

Index: objectsNotExamined
===================================================================
RCS file: /cvsroot/frontierkernel/odbs/frontierRoot/system/verbs/builtins/Frontier/data/objectsNotExamined,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -d -r1.3 -r1.4
*** objectsNotExamined	15 Jun 2005 22:54:55 -0000	1.3
--- objectsNotExamined	6 Jul 2005 19:03:52 -0000	1.4
***************
*** 1,3 ****
  FrontierVcsFile:1:optx:system.verbs.builtins.Frontier.data.objectsNotExamined
  
! examples
	age
	amplitude
	blue
	cleanupWindows
	counter
	countTables
	destTable
		???
	dir
	docs
		Basic1
	duration
	filterExample
	flag
	frequency
	funStuff
		adventure
		beach
		chess
		dancing
		equestrianism
		fishing
	green
	haircolor
	letter
	list1
	list2
	lunchReminder
	mouseat
	name
	nextchar
	people
		AU
	picture
	ptrtext
	QSOpen
	readme
	readAllText
	red
	Sample Outline 1
	Sample Outline 2
	Sample Outline 3
	setFontTest
	song
	soundTester
	styleTest
	subTable1
		message
	synonym
	table1
		entry1
		entry2
		entry3
		entry4
	table2
		entry4
	table3
		???
	table4
		???
	testColor
	testOutline
	testPicture
	testString
	testText
	testText2
	todolist
	Universe
	watchKeys
	windowat
	wpTester
	yesterday
suites
	applescripts
		data
			helloWorld
		loadFolder
		loadOSAX
		oldstuff
			editScript
			init
			installMenu
			menu
			traps
				EDsv
				EDcl
	FilemakerLib
		Version
		bringDBToFront
		bringToFront
		close
		countRecords
		dbIsOpen
		deleteAllRecords
		deleteRecord
		find
		findAll
		getAllRecords
		getCellByRecordID
		getCellNames
		getCellNRecords
		getCellNRecordsAsString
		getCellNthRecord
		getCellSize
		getDBSize
		getFirstRecord
		getFirstRecordID
		getFrontDBName
		getID
		getLastRecord
		getLastRecordID
		getLayoutNames
		getNRecords
		getNRecordsAsString
		getNthRecord
		getRecordByID
		getRecordIDs
		getRecordSize
		hideWindow
		isRunning
		launch
		lockDB
		newRecord
		nthRecordExists
		open
		openDocument
		openFilemakerFolder
		packDB
		quit
		sendToBack
		setCellByRecordID
		setCellNRecords
		setCellNthRecord
		setNthRecord
		setRecordByID
		showWindow
		simpleFind
		sort
		unlockDB
		unpackDB
		unsort
		menu
	ftpClient
		bringToFront
		data
			*Author*
			*Version*
			*Release Notes*
			currentid
			supportedClients
		examples
			oneliners
		fetch
		fileExists
		fileFromPath
		folderFromPath
		ftpProtocolHandler
		getURL
		isFolder
		launch
		list
		mkdir
		quit
		remove
		rename
		sendText
		store
		sureFilePath
	mail
		drivers
			Eudora
				getMessageTable
				setNotification
		enableFiltering
		init
		otherRoot
			addMessage
			close
			f
			items
				readme
				startup
			open
			otherRootFilter
		traps
			CSOmeNot
			defaultFilter
			shutdown
			startup
	navigator
		data
			adrOutline
			card
			modalCard
			outlines
				apple
				system
				webAuthor
			popupString
			testCard
			windowTitle
		goThere
		recalc
		setTarget
		spawn
	odbcQueryTool
		importSuite
		installMenu
		menu
		suiteName
	odbEditor
		edit
		editors
			AppleScript
				apps
				canEdit
				edit
				traps
					EDsv
					EDcl
			Card
				apps
				canEdit
				edit
				traps
					cwin
					swin
			Text
				apps
				canEdit
				edit
				traps
					FCls
					FMod
	states
		looper
		nthState
		table
			state01
			state02
			state03
			state04
			state05
			state06
			state07
			state08
			state09
			state10
			state11
			state12
			state13
			state14
			state15
			state16
			state17
			state18
			state19
			state20
			state21
			state22
			state23
			state24
			state25
			state26
			state27
			state28
			state29
			state30
			state31
			state32
			state33
			state34
			state35
			state36
			state37
			state38
			state39
			state40
			state41
			state42
			state43
			state44
			state45
			state46
			state47
			state48
			state49
			state50
system
	cards
		agentsCard
		fileInfoDialog
		moreInfoDialog
		tableInfoDialog
		techSupport
	extensions
		odbc
			checkDataSource
			connect
			connectionCleaner
			data
				dll
					macCarbon
						dFork
						rFork
					macPPC
						dFork
						rFork
					windows
				odbc_shutdown
				odbc_startup
				suite
					importSuite
					installMenu
					menu
					suiteName
			disconnect
			disconnectAll
			DSExists
			examples
				resultsTabText
				returnLists
				returnTables
				returnText
				testBlobs
					cover
					cover_tn
					InsertBlobs
					resultBlobs
					RetrieveBlobs
			execute
			init
			menu
			preferences
				#NOTE:
				breakOnErrors
				columnDelim
				datasources
					Default
						maxConnections
						minConnections
						recycleTime
						timeout
				dllpath
				dsn
				formatResults
				pwd
				queries
					Sample
				rowDelim
				showQuery
				uid
			queryTool
				BuildQueryList
				commentToggle
				QueryResult
				ReadMe
				RunSQLQuery
				showBreakOnErrors
				showSQLQueryStatus
				SQLQuery
			README
			release notes
			returnLists
			returnRecords
			returnTables
			returnText
			version
		regex
			compile
			data
				adrSyntaxOptions
				dll
					macCarbon
						dFork
						rFork
					macPPC
						dFork
						rFork
					windows
				dllpath
				getPath
				installDLL
				introCaseSensitive
				README
				syntaxOptions
					buildTable
					RE_SYNTAX_AWK
					RE_SYNTAX_DMG
					RE_SYNTAX_ED
					RE_SYNTAX_EGREP
					RE_SYNTAX_EMACS
					RE_SYNTAX_GREP
					RE_SYNTAX_POSIX_AWK
					RE_SYNTAX_POSIX_BASIC
					RE_SYNTAX_POSIX_EGREP
					RE_SYNTAX_POSIX_EXTENDED
					RE_SYNTAX_POSIX_MINIMAL_BASIC
					RE_SYNTAX_POSIX_MINIMAL_EXTENDED
					RE_SYNTAX_SED
					syntaxBits
						RE_BACKSLASH_ESCAPE_IN_LISTS
						RE_BK_PLUS_QM
						RE_CHAR_CLASSES
						RE_CONTEXT_INDEP_ANCHORS
						RE_CONTEXT_INDEP_OPS
						RE_CONTEXT_INVALID_OPS
						RE_DOT_NEWLINE
						RE_DOT_NOT_NULL
						RE_HAT_LISTS_NOT_NEWLINE
						RE_INTERVALS
						RE_LIMITED_OPS
						RE_NEWLINE_ALT
						RE_NO_BK_BRACES
						RE_NO_BK_PARENS
						RE_NO_BK_REFS
						RE_NO_BK_VBAR
						RE_NO_EMPTY_RANGES
						RE_UNMATCHED_RIGHT_PAREN_ORD
				util
					importDLLs
			docServer
				#platform
				#verbClass
				compile
				default
				easyMatch
				easySearch
				extract
				free
				grep
				init
				join
				match
				quoteRE
				search
				split
				subst
				visit
			easyMatch
			easySearch
			examples
				data
					bookmarks
					buildEntitiesTable
					entities2ascii
						26233136313B
						26233136323B
						26233136333B
						26233136343B
						26233136353B
						26233136373B
						26233136383B
						26233137303B
						26233137313B
						26233137323B
						26233137363B
						26233137373B
						26233138303B
						26233138313B
						26233138323B
						26233138333B
						26233138363B
						26233138373B
						26233139313B
						26233234373B
						2641456C69673B
						264161637574653B
						2641636972633B
						264167726176653B
						264172696E673B
						264174696C64653B
						2641756D6C3B
						2643636564696C3B
						264561637574653B
						2645636972633B
						264567726176653B
						2645756D6C3B
						264961637574653B
						2649636972633B
						264967726176653B
						2649756D6C3B
						264E74696C64653B
						264F61637574653B
						264F636972633B
						264F67726176653B
						264F736C6173683B
						264F74696C64653B
						264F756D6C3B
						265561637574653B
						2655636972633B
						265567726176653B
						2655756D6C3B
						266161637574653B
						2661636972633B
						2661656C69673B
						266167726176653B
						266172696E673B
						266174696C64653B
						2661756D6C3B
						2663636564696C3B
						26636F70793B
						266561637574653B
						2665636972633B
						266567726176653B
						2665756D6C3B
						266961637574653B
						2669636972633B
						266967726176653B
						2669756D6C3B
						266E6273703B
						266E74696C64653B
						266F61637574653B
						266F636972633B
						266F67726176653B
						266F736C6173683B
						266F74696C64653B
						266F756D6C3B
						267265673B
						26737A6C69673B
						267561637574653B
						2675636972633B
						267567726176653B
						2675756D6C3B
						2679756D6C3B
						2D2D
						2E2E2E
						5B2667743B5D
						5B266C743B5D
						5B4F455D
						5B5926233136383B5D
						5B5E5D
						5B6170706C655D
						5B617070726F7820657175616C5D
						5B6261736520225D
						5B6261736520275D
						5B62726576655D
						5B6361726F6E5D
						5B636564696C6C615D
						5B64626C206461676765725D
						5B64656C74615D
						5B646F7420616363656E745D
						5B646F746C65737320695D
						5B66695D
						5B666C5D
						5B666C6F72696E5D
						5B6772656174657220657175616C5D
						5B68756E67617269616E20756D6C6175745D
						5B696E666E6974795D
						5B696E74656772616C5D
						5B6C65737320657175616C5D
						5B6C6F7A656E67655D
						5B6D6163726F6E5D
						5B6E6F7420657175616C5D
						5B6F655D
						5B6F676F6E656B5D
						5B6F6D6567615D
						5B7061727469616C20646966665D
						5B7065722074686F755D
						5B70695D
						5B70726F647563745D
						5B7261646963616C5D
						5B72696E675D
						5B73676C206461676765725D
						5B7369676D615D
						5B74726164656D61726B5D
						5B7E5D
					html
				bookmarksToGlossary
				easyMatch
				easySearch
				enableLinks
				extract
				extractBookmarks
				extractRefs
				grep
				introGroups
				introMatch
				introReplace
				introReplaceAll
				iso8859Decode
				join
				parseSgml
				sgmlToText
				split
				stripSgmlComments
				subst
				visit
			extract
			free
			grep
			init
			join
			LICENSE
			match
			quoteRE
			README
			search
			split
			subst
			version
			visit
	macintosh
		core
			close
			count
			create
			dataSize
			delete
			duplicate
			exists
			get
			getAs
			move
			open
			print
			quit
			save
			saveAs
			set
		globals
			coerceValue
			countAppleListItems
			DDEEvent
			getAppleListItem
			getEventAttribute
			getEventSender
			insertionLoc
			namedElement
			nthElement
			nthWindow
			pattern
			property
			putAppleListItem
			setEventInteraction
			setEventTimeOut
			setEventTransactionID
		misc
			beginTransaction
			copy
			createPublisher
			cut
			doMenu
			doScript
			editGraphic
			endTransaction
			imageGraphic
			isUniform
			paste
			redo
			revert
			select
			show
			undo
	menus
		sharedMenus
	verbs
		apps
			amazon
				actorSearch
				artistSearch
				asinSearch
				authorSearch
				browseNodeSearch
				call
				data
					methods
						actorSearch
						artistSearch
						asinSearch
						authorSearch
						browseNodeSearch
						directorSearch
						keywordSearch
						listmaniaSearch
						manufacturerSearch
						similaritySearch
						upcSearch
					namespace
					path
					port
					server
					soapAction
					tag
					version
				directorSearch
				init
				keywordSearch
				listmaniaSearch
				macros
					box
				manufacturerSearch
				similaritySearch
				upcSearch
			AnArchie
				about
				appInfo
					app1supported
					id
					name
					path
					sharedMenus
				bringToFront
				clear
				close
				copyclip
				cut
				eventInfo
					distance
					fileDescriptor
					fileSize
					host
					isDirectory
					modification
					objectHierarchy
					path
					position
					size
				examples
					davestoring
					fetching
					fetchURL
					findAndOutline
					getDisinfectant
					getExpander
					outlineResults
					storing
					urlToFTPRec
				fetch
				find
				frontwindowrecord
				geturl
				help
				id
				index
				launch
				list
				mget
				mkdir
				nlist
				open
				openDocument
				paste
				printDocument
				quit
				remove
				rename
				selectall
				sendcommand
				showabout
				store
				undo
				utilities
					findInList
					fileToList
					organizeOutline
			BarChart
				addBar
				examples
					dakoTest
				appInfo
					app1Supported
					id
					name
					path
					sharedMenus
				getBarCount
				getBarValue
				id
				newWindow
				setBar
				setBarCount
				setBarLabel
				setBarValue
				setUnits
				update
				volumeReport
			BBEdit
				appInfo
					app1supported
					id
					name
					path
					sharedMenus
				beginTransaction
				bringToFront
				changeCase
				changeNotes
				close
				copy
				count
				createPublisher
				cut
				delete
				detab
				doMenu
				doScript
				editGraphic
				endTransaction
				entab
				eventInfo
					allLines
					autoBalance
					autoIndent
					bbedit
					capitalizeLines
					capitalizeSentences
					capitalizeWords
					characterWidth
					clipboard
					compileErrors
					currentLine
					cursorPosition
					delete1
					differences
					diskBrowser
					diskFile
					displayFont
					displayFontSize
					dos
					editDate
					editingWindow
					endcolumn
					endline
					everyOccurrence
					everything
					firstLine
					firstVisibleLine
					fullLines
					generic
					glossaryWindow
					hasMailer
					id1
					index
					left
					leftOneSpace
					length
					lineBreaks
					lineNumbers
					lowerCase
					mac
					mailerActive
					mailerExpanded
					mpwShell
					multi-fileDifferences
					none
					offset
					paragraph
					philipBar
					philipBar1
					position
					projectBrowser
					raiseCase
					recentFile
					replaceCharacter
					replaceCode
					replaceString
					reverseIndent
					right
					rightOneSpace
					saveDate
					savedState
					searchResults
					searchString
					selectedText
					selection
					selection-object
					selectionEnd
					selectionEndLine
					selectionStart
					selectionStartLine
					showInvisibles
					showSpaces
					smartQuotes
					softWrapping
					startcolumn
					startline
					statusBar
					tabStops
					tabWidth
					unix
					unknown
					windowKind
					windowText
					windowWidth
				examples
					capitalizeSelSentences
					changeLineEndings
					insertTextAndSave
					replaceAllString
					prefixWithGreaterThan
					rePrefixSelection
					window1Position
					window2Position
					window2Position80Col
					window80Col50Line
					window80Columns
				find
				findDifferences
				get
				getDiskFile
				getSelectedText
				goToFunction
				goToLine
				goToMarker
				hardWrap
				id
				imageGraphic
				insertFile
				insertFolder
				insertGlossaryEntry
				insertLineBreaks
				insertProject
				insertText
				isRunning
				isUniform
				launch
				make
				objectHierarchy
				openDocument
				paste
				printDocument
				quit
				redo
				removeLineBreaks
				replace
				revert
				save
				select
				set
				sharedMenuHelp
				shift
				show
				twiddle
				undo
				unwrap
				zapGremlins
			blogger
				data
					appKey
					port
					protocol
					rpcPath
					server
				deletePost
				editPost
				getRecentPosts
				getTemplate
				getUserBlogs
				getUsersBlogs
				init
				mailToBlog
					checkMail
						enabled
						script
					install
					test
				menuCommands
					install
					post
				newPost
				setTemplate
				testing
					manilaBloggerApi
						data
							appKey
							port
							protocol
							rpcPath
							server
						runme
			cardEditor
				agent
				appInfo
					app1supported
					id
					name
					path
					sharedMenus
				bringToFront
				cleanObject
				countObjects
				countSelectedObjects
				data
					version
				defaults
					apppath
					folderpath
					objectName
					stubpath
				deleteObject
				editCardFile
				editSpecialAttributes
				examples
					coolSitesInButtons
					newCancelButton
					newDroplet
					newFolderIcon
					newOKbutton
					oneLiners
					randomColorLoop
					randomLoop
					runInClayBasket
				getCardAttributes
				getCardBackColor
				getCardGrid
				getCardGridUnits
				getCardSize
				getLastOpenedFile
				getNthObject
				getNthSelectedObject
				getObjectAttributes
				getObjectEnabled
				getObjectFillColor
				getObjectFlag
				getObjectFont
				getObjectFrame
				getObjectFrameColor
				getObjectJustification
				getObjectLanguage
				getObjectRect
				getObjectScript
				getObjectSeeThru
				getObjectShadowDepth
				getObjectText
				getObjectTextColor
				getObjectType
				getObjectVisible
				getPackedCard
				getPackedObject
				getPackedTable
				id
				invalObject
				memAvail
				newClone
				newObject
				objectExists
				readPackedCard
				renameObject
				runCard
				setCardAttributes
				setCardBackColor
				setCardGrid
				setCardSize
				setFontSizeStyle
				setGlobalTable
				setObjectAttributes
				setObjectEnabled
				setObjectFillColor
				setObjectFlag
				setObjectFont
				setObjectFrame
				setObjectFrameColor
				setObjectJustification
				setObjectLanguage
				setObjectRect
				setObjectScript
				setObjectSeeThru
				setObjectShadowDepth
				setObjectText
				setObjectTextColor
				setObjectType
				setObjectVisible
				specifications
					docserver source
					rbg.xxx docserver source
					wire compiler source
					oneliners
					utilities
						tightcorner
				tables
					???
				uniqueName
				updateObject
				version
				utilities
					loadFolder
					runTestCard
				web
					coolSitesInButtons
					nineCoolButtons
					siteInButton
			Eudora
				appInfo
					app1supported
					id
					name
					path
					sharedMenus
				attachFiles
				bringToFront
				changeNotes
				close
				closeMessage
				connect
				count
				countMailboxes
				countMailfolders
				countMessages
				createMessage
				data
					DocServerSource
					installDocs
				delete
				Dictionary
				duplicate
				eventInfo
					addresses
					alreadyRead
					alternate
					and
					appears
					appledouble
					applesingle
					attachmentEncoding
					attachType
					binhex
					body
					cEuTEInWin
					cEuWTEText
					conjunction
					contains
					copying
					date
					destination
					destroyAttachments
					doesNotAppear
					doesNotContain
					endsWith
					expansion
					fakeTabs
					field
					file
					filter
					forwarded
					FSS
					hasConnected
					hasManuallyFiltered
					header
					hqxText
					ignore
					incoming
					intersects
					is
					isNot
					kDontSend
					keepCopy
					kEuAttach
					kEuConnect
					kEudoraSuite
					kEuForward
					kEuNotify
					kEuPleaseNotify
					kEuQueue
					kEuRedirect
					kEuReply
					kEuSalvage
					kEuSendLater
					kEuSendNever
					kEuSendNext
					kEuSendNow
					kEuStartNotifying
					kEuStopNotifying
					kEuUnqueue
					keyEuCheck
					keyEuDocumentList
					keyEuIncludeSelf
					keyEuMessList
					keyEuNotify
					keyEuQueue
					keyEuQuoteText
					keyEuReplyAll
					keyEuSend
					keyEuWhen
					kForwarded
					kIn
					kOut
					kQueued
					kRead
					kRedirected
					kRegular
					kReplied
					kSendable
					kSent
					kTrash
					kUnRead
					kUnSendable
					kUnSent
					label
					location
					mailArrives
					mailbox
					mailboxType
					mailFolder
					mailSent
					manual
					matchTerm
					message
					neededSpace
					neverSent
					nickname
					nicknameFile
					nicknameFile1
					none
					notes
					notSendable
					opensFilters
					or
					outgoing
					position
					preserveMacintoshInfo
					priority
					priorityHigh
					priorityHighest
					priorityLow
					priorityLowest
					priorityNormal
					qp
					queued
					rawNotes
					recipient
					redirected
					replied
					resizeable
					returnReceipt
					selectedText
					sendable
					sender
					sent
					setting
					showAll
					showAllHeaders
					signature
					size
					spaceRequired
					spaceWasted
					standard
					startsWith
					status
					subject
					tabExpansion
					TOCFSS
					tocLocation
					topLevel
					transliterationTable
					uniqueID
					unless
					unread
					useDate
					uuencode
					value
					verb
					wasteSpace
					when
					willBeDeleted
					willBeFetched
					willConnect
					wrap
				examples
					addToFrontier
					attachDocument
					boxLoop
					formResponse
					forwardMessage
					oneLiners
					templates
				exists
				fetchurl
				forward
				get
				getAlternateSignature
				getCurrentMessageObject
				getCurrentMessageTable
				getCurrentScript
				getMailboxName
				getMailFolderName
				getMessageBCC
				getMessageCC
				getMessageDate
				getMessageFrom
				getMessageObject
				getMessagePriority
				getMessageReplyTo
				getMessageSender
				getMessageSenderField
				getMessageStatus
				getMessageSubject
				getMessageText
				getMessageTo
				getScriptPrefsFolder
				getSelectedText
				getSetting
				getSignature
				geturl
				id
				isRunning
				launch
				make
				menuReadme
				move
				moveMessage
				newOutgoingMessage
				notice
				objectHierarchy
				open
				openDocument
				openMessage
				print
				printDocument
				printMessage
				queue
				queueMenuMessage
				queueSendMessage
				quit
				Readme
				redirect
				replaceSelectedText
				reply
				replyToDigest
				save
				saveAs
				saveMessage
				sendAgain
				sendNow
				set
				setAlternateSignature
				setMessageAttachments
				setMessageBCC
				setMessageCC
				setMessagePriority
				setMessageSender
				setMessageStatus
				setMessageSubject
				setMessageText
				setMessageTo
				setSetting
				setSignature
				toys
					backup
					readMe
					subUserLandList
				turnNotificationOff
				turnNotificationOn
				ucmds
					c
					massageText
					wrappercmd
					wrapText
				unqueue
				visitMessages
			Fetch
				appInfo
					app1supported
					id
					name
					path
					sharedMenus
				bringToFront
				close
				count
				create
				dataSize
				delete
				download
				duplicate
				eventInfo
					addBinSuffix
					addHqxSuffix
					addTxtSuffix
					allowDuplicateConnections
					anarchieEmulation
					applesingle
					approximateItemSize
					automatic
					automaticDefaultsToText
					binary
					binhex
					bookmark
					bookmarkListWindow
					bydate
					byhost
					byname
					bynamewithcase
					bypath
					bysize
					bytesTransfered
					byuserid
					caseSensitiveSorting
					currentDirectory
					currentItem
					custom
					dayMonthDates
					decodeApplesingle
					decodeBinhex
					decodeMacbinaryi
					decodeMacbinaryii
					decodeMachost
					decodeStuffit
					defaultBinaryFileCreator
					defaultBinaryFileType
					defaultBookmarkListFont
					defaultBookmarkListFontSize
					defaultCacheTimeout
					defaultPassword
					defaultShortcut
					defaultTextFont
					defaultTextFontSize
					defaultTextTabWidth
					defaultUploadBinaryFormat
					defaultUploadTextFormat
					directory
					displayServerMessages
					downloadFolder
					elapsedTransferTime
					encodeNames
					file
					filespec
					helpWindow
					hostname
					id
					info-macMirror
					initialDirectory
					itemFormat
					itemType
					keepConnectionsAlive
					link
					macbinaryi
					macbinaryii
					machost
					maximumCacheSize
					maximumDataPort
					miminumDataPort
					modificationDate
					omitDotFiles
					overwriteFiles
					parentDirectory
					password
					path
					proxyServer
					rawData
					remoteDirectory
					remoteFile
					remoteItem
					shortcutWindow
					showSignonDialog
					size
					socksGateway
					socksGatewayPort
					status
					text
					text1
					text2
					textFileCreator
					textWindow
					transcriptWindow
					transferMode
					transferWindow
					translateIso
					umichMirror
					unknown
					unknownFormat
					url
					url1
					useInternetConfig
					usePassiveMode
					useProxyServer
					userid
					useSocksGateway
					useTypeI
					viewOrder
					word-wrapMargin
					wrappedText
				examples
					uploadFolder
					readme
				data
					???
					errorcode
				exists
				fetch
				get
				getAs
				geturl
				id
				index
				launch
				list
				mkdir
				move
				objectHierarchy
				open
				openApplication
				openDocument
				print
				printDocument
				putInto
				quit
				quitApplication
				remove
				rename
				save
				saveAs
				sendcommand
				sendTo
				set
				store
				utilities
					grindObjectModel
				view
				viewFileList
			Finder
				about
				aboutThisMacintosh
				accessoryProcess
				accessorySuitcase
				alias
				aliasFile
				appInfo
					app1supported
					id
					name
					path
					sharedMenus
				appleMenuItemsFolder
				applicationFile
				applicationProcess
				baxter
					**ReadMeScriptableFinder
					changesInBeta5
				calculateFolderSizes
				capacity
				changeView
				cleanUp
				close
				closeInfo
				comment
				commentHeading
				completelyExpanded
				computer
				conflicts
				container
				containerWindow
				contentSpace
				controlPanel
				controlPanelsFolder
				count
				cpu
				creationDate
				creatorType
				dataSize
				dateHeading
				defs
					cleanupCodes
						0
						1
						2
						3
						4
						5
						6
						7
						8
				delete
				deskAccessoryFile
				desktop
				desktopObject
				disk
				diskInformationHeading
				docs
				documentFile
				drag
				duplicate
				eject
				ejectable
				empty
				emptyTrash
				entireContents
				erase
				examples
					makeRootAlias
				existingItems
				exists
				expandable
				expanded
				exported
				extensionsFolder
				fileSharing
				fileType
				finderParam
				folder
				fontFile
				fontsFolder
				fontSuitcase
				fpu
				freeSpace
				get
				getInfo
				getPrivilege
				group
				groupPrivileges
				grow
				guestPrivileges
				hardware
				icon
				iconSize
				informationWindow
				inheritedPrivileges
				insertionSpec
				kind
				kindHeading
				labelHeading
				labelIndex
				largestFreeBlock
				localVolume
				locked
				make
				makeChanges
				makeWindow
				memoryAvailable
				memoryInstalled
				minimumPartitionSize
				mmu
				modificationDate
				mounted
				move
				objectHierarchy
				open
				operatingSystem
				originalItem
				owner
				ownerPrivileges
				pageSetup
				partitionSize
				partitionSpaceUsed
				physicalSize
				position
				preferencesFolder
				previousListView
				print
				printWindow
				process
				productVersion
				protected
				putAway
				remoteEvents
				restart
				scriptable
				seeFiles
				seeFolders
				select
				selected
				set
				setPosition
				sharableContainer
				shared
				sharingPrivileges
				sharingStartingUp
				sharingWindow
				shortcuts
				showClipboard
				shutDown
				shutdownItemsFolder
				sizeHeading
				sleep
				smallIcon
				snapToGrid
				sort
				soundFile
				soundSystem
				staggeredGrid
				startup
				startupDisk
				startupItemsFolder
				statusWindow
				suggestedPartitionSize
				suitcase
				systemFolder
				temporaryItemsFolder
				trash
				trashObject
				uniqueID
				update
				user
				versionHeading
				view
				viewByAll
				viewFont
				viewFontSize
				viewPreferences
				warnBeforeEmptying
				windowVerb
				zoomWindow
			FinderClassic
				about
				alias
				appInfo
					app1Supported
					id
					name
					path
					sharedMenus
				bringToFront
				changeView
				class
				close
				closeInfo
				drag
				duplicate
				emptyTrash
				folderVerb
				getInfo
				getPrivilege
				grow
				id
				makeAliasList
				makeWindow
				move
				open
				pageSetup
				print
				printWindow
				putAway
				restart
				reveal
				setPosition
				showClipboard
				shutdown
				sleep
				view
					byComment
					byDate
					byIcon
					byKind
					byLabel
					byname
					bySize
					bySmallIcon
					byVersion
				windowVerb
				zoomWindow
			FinderMenu
				appInfo
					app1Supported
					id
					name
					path
					sharedMenus
				backup
				cards
					closeType
					data
						creatorString
						prompt
						typeString
					loadCards
					typeCreator
				commands
					backup
						doIt
						getBackupNumber
						makeSpace
						mostRecentBackup
						openBackupFolder
						setPath
					batchTypeCreator
					closeParentFolders
					easyTypeChanger
					findInFile
					findLockedFiles
					flipMenus
					iconSorter
					launchEverything
					listSelectedFiles
					makeDesktopAlias
					makeSystemAlias
					oldstuff
						typeCreatorDialog
						typeDialog
							DITL
							DLOG
							load
							copyToResourceFork
					outlineFolders
					putFilesAway
					reconcileDialog
						DITL
						DLOG
						load
						copyToResourceFork
					reconciler
					searchstring
					sendThruEudora
					setTypeCreator
					stuffer
					typeCreatorDialog
				data
					creator
					type
				docServerSource
				editFileList
				getSelectionList
				init
				listSelectedScripts
				setFileCreator
				ucmd
					code
				visitPaths
			google
				data
					apiVersion
					methods
						getCachedPage
						search
						spellingSuggestion
					namespace
					path
					port
					server
					soapAction
				docs
				getCachedPage
				init
				macros
					box
				search
				spellingSuggestion
			mailToTheFuture
				addMessage
				data
					path
					port
					server
				deleteMessage
				getAllMessages
				getMessage
				getMessageCount
				init
				testAll
			metaWeblog
				data
					port
					protocol
					rpcPath
					server
				editPost
				getPost
				init
				newPost
			msExplorer
				activate
				appInfo
					app1supported
					id
					name
					path
					sharedMenus
				bringToFront
				id
				openDocument
				openurl
				printDocument
				quit
			netEvents
				version
				id
				appInfo
					app1Supported
					id
					name
					path
					sharedMenus
				examples
					biapPaths
					getDomains
					httpGet
					ips
					manyThreads
					oneThread
					scriptingPaths
					testListen
					whoIs
				abortStream
				addressDecode
				addressEncode
				addressToName
				backup
				bringToFront
				closeStream
				init
				isRunning
				launch
				listenStream
				listenThread
				myAddress
				nameToAddress
				openStream
				quit
				readStream
				statusStream
				writeStream
				readMe
			Netscape
				appInfo
					app1supported
					id
					name
					path
					sharedMenus
				bringToFront
				eventInfo
					name
					text
					window
				examples
					buildCoolSitesTable
					coolsites
						 Future Fantasy Bookstore
						Aaron A. Aardvark's AARDVARK ABSTRACT
						Aeon Flux
						Aidan Christopher Kolar
						Alias Alian Nation
						Art Crimes
						Austin Texas
						Ballroom Dancing
						Beatles
						Big Time Television
						Blackjack Server
						Bob Allison's Homepage
						BOB(c)
						BRETTnews
						Buena Vista Pictures
						Carlos' Coloring Book
						Christmas in New York
						Comics n'stuff!
						Computer Graphics
						Confession Booth
						Cool Site of the Day
						Countdown to Christmas
						CSU Entomology
						Cybersight
						Dealernet
						Dining Out on the Net
						Downtown Anywhere
						eGG
						Fair Play
						Female Bodybuilder Home Page
						Find the Spam!
						Four 11 Directory Services
						Game Bytes
						Glass Wings
						Gramercy Press
						Hawai'i's Home page
						Hawaii Visitor Bureau
						Hollyweb
						Home Page Publisher
						Hot! Hot! Hot!
						Hotwired
						Internet Art Museum for Free
						Internet Underground Music Archive
						Juggling Information Service
						Kaleidospace
						Karate
						Las Vegas Online
						Le Club
						Le WebLouvre
						Live California Election Returns
						Lurker's Guide to Babylon 5
						Megadeath Arizona
						Michael's Music Page
						Mksdk
						Mosaic Communications (NetScape!)
						Nebraska Game and Parks Commission
						Netboy
						Nettwerk
						New Zealand Symphony Orchestra
						Oceania - The Atlantis Project
						Over the Coffee
						Paris
						Pathfinder
						Pixel Pushers
						Praser Maze 5
						Reinventing Government Toolkit
						Return to InfiNet's Home Page</
						ReZ.n8
						Rocket Science
						San Francisco Examiner
						San Francisco Free Press
						Search the AP Newswire
						Sega
						Skew
						South Dakota
						Speleology (caving) Server
						Spider Web
						Star Trek: Generations
						Starship Design
						Strobe
						SurfNet
						Tabatha's days at work
						Tag Lines
						The Almost Complete List of MUSHes
						The Amazing Fishcam!
						The Capitol Steps
						The Climbing Archive
						The Creative Internet
						The Doggie Page
						The Fashion Page
						The Horror Web
						The Infobot Hotlist
						The Klingon Language Institute
						The Last Homely House
						The Lego Page
						The Mabus Homeroom
						The Magic 8-ball
						The MIT Hacks Gallery
						The Monster Board
						The Monty Python Page
						The Mutant Page
						The New York City Information Page
						The New York Web
						The Nexus Gate
						The North Pole
						The Plastic Princess Page
						The Public Personals
						The Real Beer Page
						The Relief Goddess Office
						The Stones
						The Tori Amos Home Page
						The Virtual Pub
						The Well's Woodstock
						The White House
						The X-Files
						Theodore Tugboat
						Uncle Bob's Christmas Page
						Useless WWW Pages
						Usenet Image Indexing
						Vampyre's Box of Roses
						Vampyres Only
						Virtual Chevrolet
						Virtual Town
						Web Puzzler
						Web World
						Webaholics Anonymous
						Wine.com
						WNUR Jazz Information Server
						Word of the Day
						World Birthday Web
						Xearth
						Yuval Fisher's Home Page
						ZStuff
					oneLiners
					randomCoolJump
					randomCoolSites
					testopen
				displayText
				fetchUrl
				getFrontWindowTitle
				getFrontWindowURL
				getScriptPrefsFolder
				getSource
				getWindowInfo
				getWindowList
				goBack
				goForward
				goHome
				id
				launch
				notes
				openDocument
				openFromGlossary
				openUrl
				quit
				registerProtocol
				registerUrlEcho
				reload
				toys
					urlJumper
				unregisterProtocol
				unregisterUrlEcho
				utilities
					backup
					viewGlossary
					getGlossaryHTML
			stuff
				appInfo
					app1supported
					id
					name
					path
					sharedMenus
					version
				createArchive
				id
			trackback
				changedPost
				discoverPingInfo
				discoverPingInfo-bkp
				getAutodiscoveryXml
				initOutboundUrl
				initPost
				ping
				readme
				respondToPing
			uBASE
				addField
				addRecord
				appInfo
					app1supported
					id
					name
					path
					sharedMenus
				bringToFront
				caseSensitive
				closeFile
				countFiles
				countRecords
				deleteRecord
				examples
					allNightStates
					checkStates
					copyBase
					msgStates
					newStates
					oneLiners
					reportStates
					stressBase
				getField
				getFilePath
				getFirstRecord
				getLastRecord
				getNextRecord
				getPrevRecord
				id
				isRunning
				launch
				lookupRecord
				newFile
				nthFile
				openFile
				validateFile
			weblogUpdates
				data
					flDebug
					flShowMessages
					port
					protocol
					rpcPath
					server
					soapAction
				ping
				publicRssPing
			WebStar
				addUser
				appInfo
					app1supported
					id
					name
					path
					sharedMenus
				bringToFront
				commands
					cards
						nightlyTasks
					digestLog
					doNightlyTasks
					init
					nightlyTasksDialog
					readme
					writeReport
				deleteUser
				domenu
				eventInfo
					accessControls
					actions
					defMimeType
					BufferSize
					errorFile
					hideWindow
					indexFile
					logFile
					logFormat
					logging
					maxListens
					maxUsers
					noAccessFile
					noDNS
					pigDelay
					port
					postProcessor
					preProcessor
					realms
					refuseConnections
					suffixMappings
					timeOut
					verboseMessages
					version
				flushCache
				getAccessControls
				getActions
				getBufferSize
				getDefMimeType
				getErrorFile
				getIndexFile
				getLogFile
				getLogFormat
				getMaxListens
				getMaxUsers
				getNoAccessFile
				getNoDNS
				getPigDelay
				getPort
				getPostProcessor
				getPreProcessor
				getRealms
				getSuffixMappings
				getTimeOut
				getVersion
				hideWindow
				id
				initReplyText
				isRunning
				launch
				objectHierarchy
				quit
				refuseConnections
				requestReporting
				restart
				root
					close
					defined
					loadSite
					newObject
					newTable
					open
					save
					setValue
					test1
				sendPartial
				setAccessControls
				setActions
				setBufferSize
				setDefMimeType
				setErrorFile
				setIndexFile
				setLogFile
				setLogFormat
				setMaxListens
				setMaxUsers
				setNoAccessFile
				setNoDNS
				setPigDelay
				setPort
				setPostProcessor
				setPreProcessor
				setRealms
				setSuffixMappings
				setTimeOut
				statusReport
				suspendLogging
				validateUser
				verboseMessages
		builtins
			app
				adrAppTable
				alertDialog
				askDialog
				bringToFront
				clearNetworkApp
				closeAllWindows
				closeWindow
				confirmDialog
				countWindows
				editWindow
				enableDialogs
				getErrorString
				getFilePath
				getPageRectangle
				getPicture
				getTargetWindow
				getText
				getWindowPosition
				id
				linkToNetworkApp
				madeChanges
				moveWindow
				newWindow
				nthWindow
				openWindow
				performanceTest
				printWindow
				putPicture
				putText
				quit
				revertWindow
				saveWindow
				selectAll
				selectWindow
				setFont
				setFontSize
				setTargetWindow
				setWindowTitle
				somethingSelected
				zoomWindow
			betty
				examples
					farTest
						correctResponse
						rpcRequest
						rpcReturn
							0001	methodResponse
								0001	params
									0001	param
										0001	value
						test
					faultTest
						test
					localTest
						rpcRequest
						rpcReturn
							0001	methodResponse
								0001	params
									0001	param
										0001	value
						test
				macros
					handleForm
				rpc
					clientMulticall
					serverSupport
						callHandler
						multiCall
					test
			clock
				idleTime
				set
				timerExpired
			db
				close
				countItems
				defined
				delete
				get
				getModDate
				getNthItem
				getValue
				isTable
				new
				newTable
				open
				save
				set
				setValue
			dialog
				cards
					alert
					ask
					fileInfo
					moreInfo
					notify
					threeWay
					twoWay
				fileInfo
				getValue
				hideItem
				loadFromFile
				notify
				olddialogs
					alert
					ask
					threeWay
					twoWay
				run
				runFromFile
				runModeless
				setItemEnable
				setValue
				showItem
			dll
				call
				isLoaded
				load
				unload
			export
				addToLog
				callimporter
				callImportSubMenu
				card
				getObjectAdr
				importer
				importFolder
				importSubMenu
				lastfolder
				sendAllDeskScripts
				sendFolder
				sendOSAScript
				sendSubMenu
				sendToDesktop
			fileMenu
				closeAll
				print
			Frontier
				countThreads
				findertofront
				getProgramName
				hideApplication
				isPowerPC
				isRuntime
				new2ClickFile
				protocols
					soap
					xmlrpc
				requestToFront
				shipdate
				tools
					data
						virginRadioToolsMenu
			html
				addToGlossary
				buildFromOutline
				buildOnePage
				cleanForExport
				data
					images
						space
					processMacrosCallback
				dialog
					compileIfDirty
					data
						htmlDialogsDll
						htmlEditor
					draw
					run
					showHtmlDialog
					website
						#css
						#filters
						#ftpSite
							folder
							url
						#glossary
						#javaScript
						#prefs
							activeUrls
							addLineFeeds
							autoParagraphs
							bgcolor
							clayCompatibility
						#template
						#tools
						default
				directory
					compileIfDirty
					data
						defaultPrefs
							commentTemplate
							foldericon
							linkicon
							miniXmlCoffeeMugIcon
							miniXmlIcon
							suggestALinkTemplate
							template
					getBreadcrumbString
					getCanonicalName
					getFirstComment
					getInclusionFromCache
					initDirectoryTable
					popUri
					stripTitle
					suggestALinkForm
					viewDirectory
					walk
				editor
					formStart
					get
					getEditingTool
					tagEditor
					wysiwygEditor
					wysiwygEditorMozilla
				expandURLs
				ftp
					upload
				getOneTagValue
				getTableLine
				menu
					htmlMenuEnabled
					remove
				neuterJavaScript
				neuterMacros
				neuterTags
				oldstuff
					buildSiteMenu
					code
					codeCenter
					formfinish
					formstart
					formtextfield
					mailToHTML
				parseLinks
				publishBinaryObject
				refGlossary
				runDirective
				runDirectives
				shutdown
				table
					addColumn
					addRow
					delete
					methods
						html
					new
					render
				traversalSkip
				ucmds
					embeddedcode
					getRefconHtml
					macroprocessor
					testoutlinecmd
					testtext
				utilities
					backup
					buildCDF
					buildMCF
					convertclayglossary
					convertclaysite
					findAllHREFs
					glossaryperformance
					installEmbeddedScript
					mcfToOutline
					prefsReportBuild
					testDavenet
					testMacros
					testShutdown
					testtext
			launch
				anything
				appleMenu
				application
				appWithDocument
				controlPanel
				resource
				usingID
			menu
				addSuite
				buildMenubar
				clearMenubar
				deleteSubMenu
				getCommandKey
				getScript
				importSuite
				install
				isInstalled
				remove
				setCommandKey
				setScript
				toggle
				zoomScript
			mouse
				button
				location
			odbServer
				addToLog
				commandDecode
				commandEncode
				commandHandle
				commandSend
				daemon
					count
					daemon
					port
				init
				readme
				sampleCommand
				serverStart
				targetClear
				targetSet
				test
			osa
				compile
				getSource
			pict
				expressions
				getPicture
				PICTToPicture
				pictureToPICT
				scheduleUpdate
				setPicture
			point
				get
				set
			quickTime
				isPlaying
				open
				play
				stop
			radio
				prefs
					browseHelp
					browseHttpFile
					browseOpmlFile
					browseSystemPrefs
					errorString
					postCatcher
					refreshAfterPost
					seeAlso
					special
						ftp
						languagePopup
						mailPassword
						newPassword
						passwords
						wizzyEditorCheckbox
						xmlRpcAndSoapCheckbox
					templatePref
			re
				compile
				docs
					DocServer
						#platform
						#verbClass
						compile
						expand
						extract
						getPatternInfo
						grep
						join
						match
						replace
						split
						visit
					patternsyntax
					porting
				expand
				extract
				getPatternInfo
				grep
				join
				license
				match
				replace
				split
				testing
					comparison
					expand
					extract
					getPatternInfo
					grep
					join
					match
					replace
					replaceWithCallback
					split
					stressTest
					umlauts
					visit
				visit
			rectangle
				get
				inset
				outset
				random
				set
			rez
				countResources
				countResTypes
				deleteNamedResource
				deleteResource
				getNamedResource
				getNthResInfo
				getNthResource
				getNthResType
				getResource
				getResourceAttributes
				getStringResource
				namedResourceExists
				putNamedResource
				putResource
				putStringResource
				resourceExists
				setResourceAttributes
			rgb
				get
				set
			rootUpdates
				getCurrent
				getPendingUpdatesList
				getUpdate
				multiRootUpdate
				threadedMultiRootUpdate
				threadedUpdate
				update
			searchEngine
				checkStopWords
				cleanText
				createPreview
				data
					stopWords
						a
						about
						after
						all
						also
						an
						and
						are
						around
						be
						because
						been
						both
						but
						can
						cant
						did
						do
						doing
						down
						each
						end
						etc
						for
						from
						get
						had
						have
						having
						if
						in
						into
						is
						isnt
						itself
						lot
						may
						maybe
						nbsp
						nor
						not
						now
						of
						only
						onto
						our
						out
						per
						saw
						that
						the
						their
						them
						then
						there
						thereby
						therefore
						these
						they
						theyll
						theyre
						theyve
						those
						though
						through
						thru
						to
						under
						until
						very
						want
						was
						wasnt
						went
						were
						werent
						weve
						what
						when
						where
						which
						who
						whom
						will
						with
						within
						without
						wont
						would
						wouldnt
						yet
						you
						youd
						youll
						your
						youre
						yours
						yourself
						youve
				deIndexPage
				doSearch
				getIndexAddress
				getPreviewsAddress
				indexCurrentPage
				indexFolder
				indexLocalPage
				indexLocalSite
				indexPage
				indexRemotePage
				indexViaHTTP
				init
				mergeResults
				replaceAll
				saveIndex
				searchMacro
				stripMarkup
				version
			semaphore
				lock
				unlockAll
				unlock
			semaphores
				lock
				unlockAll
				unlock
			soap
				constants
					actorNext
					charsetLatin1
					charsetUsAscii
					charsetUtf16
					charsetUtf8
					faultClient
					faultMustUnderstand
					faultServer
					faultVersionMismatch
					floatINF
					floatNaN
					floatNegativeINF
					maxInt
					minInt
					nsEncodingPrefix
					nsEncodingURI
					nsEnvelopePrefix
					nsEnvelopeURI
					nsSchemaDataPrefix
					nsSchemaDataURI
					nsSchemaPrefix
					nsSchemaURI
					responseTemplate
						00001000	Envelope
							/atts
								namespace
								SOAP-ENV:encodingStyle
								xmlns:SOAP-ENV
								xmlns:xsd
								xmlns:xsi
							00002000	Body
								/atts
									namespace
					schemaVersions
						1999
							nsDataPrefix
							nsDataURI
							nsPrefix
							nsURI
						2001
							nsDataPrefix
							nsDataURI
							nsPrefix
							nsURI
				decode
					array
					float
					main
					simpleType
					struct
					unknownSimpleType
				encode
					array
					float
					main
					simpleType
					struct
				qname
					body
						localPart
						namespaceURI
					envelope
						localPart
						namespaceURI
					fault
						localPart
						namespaceURI
					header
						localPart
						namespaceURI
				responder
					condition
					enabled
				rpc
					client
					server
				stringutils
					parseHeader
				xmlutils
					addAttributeValue
					addElement
					createMessage
					createRequest
					createResponse
					declareNamespaceInElement
					decodeAmpersands
					elementMatches
					encodeWithAmpersands
					getAttributeValue
					getCharacterData
					getElementName
					getFirstChildElement
					getNamedChildElement
					getNextSiblingElement
					getNthChildElement
					getQualifiedName
					hasChildren
					namespaceCollectDefinitions
					namespacePrefixToURI
					namespaceURIToPrefix
					popScope
					pushScope
					resolveHref
					setCharacterData
					setNamespacePrefixOfElement
					setQualifiedName
			speaker
				playNamedSound
			stack
				create
				dispose
				init
				pool
					stack1
						top
						vals
							item1
							item2
							item3
				pop
				push
				readme
				test
				visit
			string
				addCommas
				ansiToUtf16
				ansiToUtf8
				cleanMailAddress
				commentDelete
				countWords
				daveNetMassager
				delete
				filledString
				firstSentence
				firstWord
				getFileURL
				getNextMonth
				getRandomPassword
				getWordChar
				hashMD5
				hasSuffix
				hex
				htmlToEmail
				httpResultSplit
				insert
				isNumeric
				iso8859encode
				isPunctuation
				lastWord
				latinToMac
				macToLatin
				mailMessageToTable
				memAvailString
				multipleReplaceAll
				nthChar
				nthWord
				parseHttpArgs
				percent
				popTrailingFilename
				processHtmlMacros
				quotedPrintableDecode
				ratio
				setWordChar
				trimWhiteSpace
				typeToString
				upper
				urlDecode
				urlEncode
				utf16ToAnsi
				utf8ToAnsi
				wildcardMatch
				wrap
			sys
				appIsIACAware
				browseNetwork
				getAppSize
				getMinAppSize
				setAppSize
				setFrontApp
				setMinAppSize
			tcp
				im
					builtinDrivers
						aim
							code
								_credits
								_version
								core
									__init__
									_callsub
									c_ERROR
									c_SIGN_ON
									connect
									derror
									disconnect
									err_disconnect
									ferror
									flap_to_toc
									go
									process_loop
									recv_event
									start_log_in
								incoming
									chat_in
									chat_invite
									chat_join
									chat_left
									chat_update_buddy
									config
									error
									eviled
									goto_url
									im_in
									start
									update_buddy
								outgoing
									addBuddy
									addDeny
									addPermit
									chatAccept
									chatInvite
									chatJoin
									chatLeave
									chatSend
									chatWhisper
									evil
									getInfo
									removeBuddy
									sendIm
									setAway
									setConfig
									setIdle
									setInfo
								prefs
									_agent
									_debug
									_flSpawnCallbackThreads
									_info
									_seq
									TOC_SERV
									TOC_SERV_AUTH
								responderCallbacks
									im_in
								sampleCallbacks
									chat_in
									chat_invite
									chat_join
									chat_left
									chat_update_buddy
									config
									error
									eviled
									goto_url
									im_in
									start
									update_buddy
								util
									emptyTable
									encode
									normalize
									normbuds
									posix2date
									prepareRepl
									pwdenc
									repl
										
										
										
										
										
										
										
										
										
										
										
										
										
										‡
										ˆ
										‰
										€
										‹
										
										‚
										ƒ
										
										
										‘
										’
										“
										”
										•
										„
										—
										˜
										™
										…
										›
										œ
										
										ž
										†
										 
										¡
										¢
										£
										¤
										¥
										¦
										§
										¨
										©
										ª
										«
										¬
										­
										°
										±
										²
										³
										´
										µ
										¶
										·
										¸
										¹
										º
										»
										¼
										½
										®
										¯
										À
										Á
										Â
										Ã
										Ä
										Å
										Æ
										Ç
										È
										É
										Ê
										Î
										Ð
										Ñ
										Ò
										Ó
										Ô
										Õ
										Ö
										×
										Ø
										Ú
										Û
										Ü
										Ý
										Þ
										ß
										à
										á
										â
										ã
										ä
										ð
										õ
										ö
										÷
										ø
										ù
										ú
										û
										ü
										ý
										þ
										ÿ
									strip_html
							init
							send
							start
							startup
							stop
						jabber
							code
								closeConnection
								deleteHandler
								everyMinute
								examples
									chef
										chef
										chefMessageHandler
									directWeblogPoster
									presenceTrackingShell
									pubsub
										callbacks
											subscribeService
											unsubscribeService
										pubsubDocs
											pubsubSubscribe
											pubsubUnsubscribe
										pubsubPublishHandler
										pubsubSubscribe
										pubsubUnsubscribe
										readme
									rpc
										handler
										readme
										rpc
										rpcDocs
										xmlrpcCall
										xmlrpcResponse
									tcpImServer
								getHandler
								getPresenceInfo
								handleMessage
								handlers
									iqLoggedIn
									iqRegister
									iqRoster
									iqVersion
									message
									presence
								idTables
									create
									delete
									getAdr
								init
								messages
									iqAuth
									iqRegisterRequest
									iqRosterRequest
									iqVersionRequest
									message
									presence
									subscribe
									unsubscribe
								openConnection
								parseJabberId
								registerHandler
								thread
								waitForIqReply
								writeXML
								xmlAlphaDecode
							init
							send
							start
							startup
							stop
					builtinResponders
						blogger
							condition
							data
								helpText
							enabled
							methods
								login
								logoff
								post
								setServer
							script
						manila
							condition
							data
								helpText
								rendererInfo
									flRenderOnEntry
									name
							enabled
							methods
								flip
								homepage
								login
								logoff
								post
								replace
								setTitle
							script
						metaWeblog
							condition
							data
								helpText
							enabled
							methods
								login
								logoff
								post
								setServer
							script
						news
							condition
							enabled
							script
						rpi
							condition
							enabled
							script
						state
							condition
							enabled
							script
					callbacks
						startup
					data
						protocolHandler
						virginResponders
							blogger
								condition
								enabled
								prefs
									allowedScreenNames
									blogId
									flPublish
									password
									siteInfo
										appKey
										port
										protocol
										rpcPath
										server
									username
								script
							manila
								condition
								enabled
								prefs
									allowedScreenNames
									currentSite
								script
							metaWeblog
								condition
								enabled
								prefs
									allowedScreenNames
									blogId
									flPublish
									password
									siteInfo
										port
										protocol
										rpcPath
										server
									username
								script
							news
								condition
								enabled
								script
							rpi
								condition
								enabled
								script
							state
								condition
								enabled
								script
						virginRpiHandlers
							examples
								msg
					findDriver
					init
					log
						add
					rpi
						client
						encode
						server
						testing
							compare
							tests.base64
							tests.encoding
							tortureTest
					send
					server
					start
					startAll
					stop
					stopAll
					utilities
						cleanError
			thread
				callScript
				evaluate
				exists
				getCount
				getCurrentID
				getDefaultTimeSlice
				getGlobalAddress
				getNthID
				getStackDump
				getStats
				getTimeSlice
				isSleeping
				kill
				setDefaultTimeSlice
				setTimeSlice
				sleep
				sleepFor
				sleepTicks
				wake
				wrapper
			userland
				cleanRoot
				copyResources
				createDefaultIspSite
				createDefaultManilaSite
				createDefaultSite
				defaultPages
					faq
					faqTitle
					feedback
					feedbackTitle
					home
					homeTitle
				dwRestore
				dwSave
				notepad
				oldstuff
					buildChangesOutline
					changes2
					createReadMeFile
					data
						frontierurl
						sdkurl
					deleteArethaStats
					dougslist
					everything
					Frontier3toAretha
					loadFolder
					menu
					pages
						inthefolder
					partsExport
					partsList
					release
					reload
					sanitizer
					testscripts
						testlog
						testparentof
					unload
					unloadlist
				readme
				readmeSite
					#alink
					#bgcolor
					#filters
						finalfilter
						pagefilter
					#ftpSite
						folder
						isLocal
						url
					#link
					#template
					#vlink
					desktopScripts
					glossary
						About SetFrontierStackSize
						Desktop Scripts
						Frontier Main Readme
						setFrontierStackSize
					main
					setFrontierStackSize
					tools
				userlandMenu
				workarounds
					initialMacDisplayGlitch
			webserver
				data
					cgis
						samples
							runtimeError
							syntaxError
							tellParams
							tellTime
					icons
						!readme
						a
						alert.black
						alert.red
						back
						ball.gray
						ball.red
						binary
						binhex
						blank
						bomb
						box1
						box2
						broken
						burst
						c
						comp.blue
						comp.gray
						compressed
						continued
						default
						dir
						down
						dvi
						f
						folder
						folder.open
						folder.sec
						forward
						generic
						generic.red
						generic.sec
						hand.right
						hand.up
						icon.sheet 
						image1
						image2
						image3
						index
						layout
						left
						link
						movie
						p
						patch
						pdf
						pie0
						pie1
						pie2
						pie3
						pie4
						pie5
						pie6
						pie7
						pie8
						portal
						ps
						quill
						right
						screw1
						screw2
						script
						sound1
						sound2
						sphere1
						sphere2
						tar
						tex
						text
						transfer
						unknown
						up
						uu
						uuencoded
						world1
						world2
					protoResponder
					responses
						100
						101
						102
						200
						201
						202
						203
						204
						205
						206
						207
						300
						301
						302
						303
						304
						305
						307
						400
						401
						402
						403
						404
						405
						406
						407
						408
						409
						410
						411
						412
						413
						414
						415
						416
						417
						422
						423
						424
						425
						500
						501
						502
						503
						504
						505
					trap
					trapScript
				debugCGI
				dispatch
				echoResponder
				encodeArgs
				errorMessage
				fileNotFoundError
				handler
				httpHeader
				initCleanAndSafe
				processMacros
				sendPartial
				standardMacros
					browserFilter
					chooseFolder
					counter
					domainFilter
					ipFilter
					passwordFilter
					refererFilter
					usernameFilter
				util
					buildResponse
					directoryDisplay
						add
						finish
						start
					getMethodAdr
					getResponderTableAdr
					getServerString
					parseAuth
					parseCookies
					pathToAddress
					pathToAddressExt
					readBytes
					readUntil
					requestAuth
					setCookie
					unlockSemaphores
				version
			xml
				addTable
				addValue
				aggregator
					bootstrap
					clearCache
					everyMinute
					getEnclosureData
					getServicesXml
					init
					menuCommands
						importSubscriptions
					readAllServices
					readService
					rpcHandlers
						channelChanged
					saveServicesXml
					storyArrivedCallback
					subscribeService
					unsubscribeErrantServices
					unsubscribeService
					updateArchives
					updateSubscriptions
				alidl
					get
				compile
				convertToDisplayName
				decompile
				examples
					!pathological
						compile
						decompile
						tableStructure
							0001	comment
							0002	author
							0003	foo
								/atts
									namespace
								0002	bar
									/atts
										namespace
									/contents
								0003	bar
									/atts
										namespace
									/contents
								0004	baz
									/atts
										namespace
									/contents
								0005	froboz
									/atts
										namespace
									/contents
								0006	Cancoon
									/atts
										namespace
									/contents
								0007	start
						taggedText
						xText
					bugShow
						script
						taggedText
					myComputer
						compile
						tableStructure
							0001	myComputer
								0001	brand
								0002	model
								0003	ram
								0004	os
						taggedText
					myComputer2
						compile
						report
						tableStructure
							0001	myComputer
								/atts
									username
								0002	brand
								0003	model
								0004	ram
								0005	os
						taggedText
					myComputer3
						compile
						tableStructure
							0001	myComputer
								0001	brand
									/atts
										location
									/contents
								0002	model
								0003	ram
								0004	os
						taggedText
					namespaces
						compile
						decompile
						tableStructure
							0001	lockinfo
								/atts
									namespace
								0002	lockscope
									/atts
										namespace
									0002	exclusive
										/atts
											namespace
										/contents
								0003	locktype
									/atts
										namespace
									0002	write
										/atts
											namespace
										/contents
								0004	owner
									/atts
										namespace
									0002	href
										/atts
											namespace
										/contents
						taggedText
						xText
					namespaces2
						compile
						decompile
						tableStructure
							00001000	a
								/atts
									namespace
									xmlns
									xmlns:a
									xmlns:c
								00002000	b
									00001000	c
										/atts
											namespace
											xmlns
										00002000	d
						taggedText
					siteChanges
						getAndCompile
						report
						reportText
						tableStructure
							0001	site
								0001	url
								0002	version
								0003	docs
								0004	webmaster
								0005	update
									0001	time
									0002	serialNum
									0003	file
										0001	url
										0002	modDate
									0004	file
										0001	url
										0002	modDate
									0005	file
										0001	url
										0002	modDate
									0006	file
										0001	url
										0002	modDate
									0007	file
										0001	url
										0002	modDate
									0008	file
										0001	url
										0002	modDate
									0009	file
										0001	url
										0002	modDate
									0010	file
										0001	url
										0002	modDate
									0011	file
										0001	url
										0002	modDate
								0006	update
									0001	time
									0002	serialNum
	...
 
[truncated message content]

[frontierkernel-commits] odbs/frontierRoot/system/verbs/builtins/Frontier/data/userTableLeftovers/html/renderers justText,1.1,NONE

[creedon <icr...@us...>]

Update of /cvsroot/frontierkernel/odbs/frontierRoot/system/verbs/builtins/Frontier/data/userTableLeftovers/html/renderers
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv12283

Removed Files:
	justText 
Log Message:
moved to html.data.renderers

--- justText DELETED ---

[frontierkernel-commits] odbs/frontierRoot/system/verbs/builtins/html init,1.2,1.3

[creedon <icr...@us...>]

Update of /cvsroot/frontierkernel/odbs/frontierRoot/system/verbs/builtins/html
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv11857

Modified Files:
	init 
Log Message:
added init for user.html.templates

Index: init
===================================================================
RCS file: /cvsroot/frontierkernel/odbs/frontierRoot/system/verbs/builtins/html/init,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** init	13 Jun 2005 21:30:51 -0000	1.2
--- init	6 Jul 2005 19:02:01 -0000	1.3
***************
*** 1,3 ****
  FrontierVcsFile:1:scpt:system.verbs.builtins.html.init
  
! ÇChanges
	Ç12/13/04; 11:19:50 AM by TAC
		Çinitialize websites table
	Ç12/4/04; 5:24:12 PM by TAC
		Çchanged userland.htmlprefs to html.data.htmlprefs
	Ç11/28/04; 5:51:16 PM by TAC
		Çadded user.html.macroErrors
	Ç11/27/04; 4:28:22 PM by TAC
		Çinit user.html.prefs from html.data.htmlprefs
	Ç11/13/04; 8:56:49 AM by TAC
		Çadded html.menu.init
	Ç11/12/04 AM by TAC
		Çadded html.menu.init
	Ç10/12/99; 2:22:13 PM by PBS
		ÇCreate user.html.prefs.addToChangedPages. If true, then automatic adding to changed pages occurs. If false, then changed pages are not automatically added to the changed pages outline.
	ÇSat, Nov 23, 1996 at 12:28:00 PM by DW

bundle { // user.html
	if not defined (user.html) {
		new (tabletype, @user.html)};
	if not defined (user.html.changedPages) {
		new (outlinetype, @user.html.changedPages)};
	if not defined (user.html.glossary) {
		new (tabletype, @user.html.glossary)};
	if not defined (user.html.images) { ÇTue, Dec 10, 1996 at 5:58:58 AM by DW
		new (tabletype, @user.html.images)};
	if not defined (user.html.macroErrors) { // 11/28/04; 5:50:52 PM by TAC
		new (outlinetype, @user.html.macroErrors)};
	if not defined (user.html.macros) {
		new (tabletype, @user.html.macros)};
	if not defined (user.html.renderers) { // 11/12/04 AM by TAC
		new (tabletype, @user.html.renderers)};
	if not defined (user.html.sites) {
		new (tabletype, @user.html.sites)}};
bundle { // user.html.prefs
	if not defined (user.html.prefs) {
		user.html.prefs = html.data.htmlprefs; // 11/27/04; 4:27:59 PM by TAC - moved from firstRootRun
		};Çnew (tabletype, @user.html.prefs) // 11/27/04; 4:28:22 PM by TAC - disabled
	if not defined (user.html.prefs.addLineFeeds) { //Tuesday, January 27, 1998 at 10:53:13 AM by PBS
		case sys.os () {
			"Win95";
			"WinNT" {
				user.html.prefs.addLineFeeds = true};
			"MacOS" {
				user.html.prefs.addLineFeeds = false}}};
	if not defined (user.html.prefs.addToChangedPages) { //PBS 10/12/99
		user.html.prefs.addToChangedPages = false}; //default is false for 6.1
	if not defined (user.html.prefs.charset) { ÇMon, Dec 30, 1996 at 2:34:03 PM by DW
		user.html.prefs.charset = "iso-8859-1"};
	if not defined (user.html.prefs.defaultFileName) { ÇSun, Dec 15, 1996 at 6:28:18 AM by DW
		user.html.prefs.defaultFileName = "index";
		};ÇIndex is far more common than default. PBS 1/27/97
	if not defined (user.html.prefs.fullTimeNetConnection) {
		user.html.prefs.fullTimeNetConnection = false};
	if not defined (user.html.prefs.imageFolderName) { //Fri, May 15, 1998 at 11:56:15 AM by PBS
		user.html.prefs.imageFolderName = "images"};
	if not defined (user.html.prefs.imageFolderSubtables) {
		user.html.prefs.imageFolderSubtables = false};
	if not defined (user.html.prefs.includeMetaCharset) { ÇWed, Feb 26, 1997 at 7:40:31 AM by DW
		user.html.prefs.includeMetaCharset = false};
	if not defined (user.html.prefs.isoFilter) { //Tuesday, January 27, 1998 at 10:53:11 AM by PBS
		user.html.prefs.isoFilter = true};
	if not defined (user.html.prefs.mainSiteFolder) {
		local(theOS = sys.os());
		if theOS == "MacOS" { // 11/12/04 AM by TAC - value not returned by sys.os, || theOS == "MacCn"
			user.html.prefs.mainSiteFolder = file.folderFromPath (file.findApplication (user.html.prefs.webServerAppID))}
		else {
			user.html.prefs.mainSiteFolder = ""}};
	if not defined (user.html.prefs.mainSiteURL) {
		user.html.prefs.mainSiteURL = user.html.prefs.serverNetAddress + "/"};
	if not defined (user.html.prefs.imgFileCreator) {
		user.html.prefs.imgFileCreator = 'MOSS'}; // 6/13/05; 2:20:44 PM by TAC - ?
	if not defined (user.html.prefs.serverNetAddress) {
		user.html.prefs.serverNetAddress = "255.255.255.255"};
	if not defined (user.html.prefs.textFileCreator) {
		user.html.prefs.textFileCreator = 'MOSS'}; // 6/13/05; 2:20:51 PM by TAC - ?
	if not defined (user.html.prefs.useImageCache) { //Sunday, January 18, 1998 at 12:02:59 AM by PBS
		user.html.prefs.useImageCache = false};
	if not defined (user.html.prefs.useKernelCode) { //Fri, May 15, 1998 at 12:53:41 PM by PBS
		user.html.prefs.useKernelCode = true};
	if not defined (user.html.prefs.webServerAppID) {
		user.html.prefs.webServerAppID = string4 ("WWW" + char (189))}};
bundle { // websites
	if not (defined (root.websites)) {
		root.websites = html.data.newSiteTemplate};
	if not (defined (websites.["#data"])) {
		new (tableType, @websites.["#data"])}};

if not defined (user.callbacks.closeWindow.addToChangedPages) {
	user.callbacks.closeWindow.addToChangedPages = html.data.closeWindowHook};

bundle { //PBS 03/27/00: initialize pikeRenderer, part of Pike support
	pikeRenderer.init ()};

html.menu.init () // 11/13/04; 8:56:49 AM by TAC
\ No newline at end of file
--- 1,3 ----
  FrontierVcsFile:1:scpt:system.verbs.builtins.html.init
  
! ÇChanges
	Ç7/6/05; 9:59:41 AM by TAC
		Çadded init for user.html.templates
		Çchanged user.html.prefs init to use tableCopyNewContents, new prefs can be added to the data table
		Çadded tableCopyNewContents handler
		Çadded init for user.html.renderers
		Çinitialize websites table
		Çchanged userland.htmlprefs to html.data.htmlprefs
		Çadded user.html.macroErrors
		Çinit user.html.prefs from html.data.htmlprefs
		Çadded html.menu.init
		Çadded user.html.renderers
	Ç10/12/99; 2:22:13 PM by PBS
		ÇCreate user.html.prefs.addToChangedPages. If true, then automatic adding to changed pages occurs. If false, then changed pages are not automatically added to the changed pages outline.
	ÇSat, Nov 23, 1996 at 12:28:00 PM by DW

on tableCopyNewContents (sourceTableAddress, destinationTableAddress) { // 7/3/05; 9:21:16 AM by TAC
	local (adr);
	for adr in sourceTableAddress {
		if defined (destinationTableAddress^.[nameOf (adr^)]) {
			continue};
		if not (table.copy (adr, destinationTableAddress)) {
			return (false)}};
	return (true)};

bundle { // user.html
	if not defined (user.html) {
		new (tabletype, @user.html)};
	if not defined (user.html.changedPages) {
		new (outlinetype, @user.html.changedPages)};
	if not defined (user.html.glossary) {
		new (tabletype, @user.html.glossary)};
	if not defined (user.html.images) { // Tue, Dec 10, 1996 at 5:58:58 AM by DW
		new (tabletype, @user.html.images)};
	if not defined (user.html.macroErrors) {
		new (outlinetype, @user.html.macroErrors)};
	if not defined (user.html.macros) {
		new (tabletype, @user.html.macros)};
	if not defined (user.html.sites) {
		new (tabletype, @user.html.sites)}};
bundle { // user.html.prefs
	if not defined (user.html.prefs) {
		new (tabletype, @user.html.prefs)};
	tableCopyNewContents (@html.data.htmlprefs , @user.html.prefs);
	if not defined (user.html.prefs.addLineFeeds) { // Tuesday, January 27, 1998 at 10:53:13 AM by PBS
		case sys.os () {
			"Win95";
			"WinNT" {
				user.html.prefs.addLineFeeds = true};
			"MacOS" {
				user.html.prefs.addLineFeeds = false}}};
	if not defined (user.html.prefs.addToChangedPages) { // PBS 10/12/99
		user.html.prefs.addToChangedPages = false}; // default is false for 6.1
	if not defined (user.html.prefs.charset) { // Mon, Dec 30, 1996 at 2:34:03 PM by DW
		user.html.prefs.charset = "iso-8859-1"};
	if not defined (user.html.prefs.defaultFileName) { // Sun, Dec 15, 1996 at 6:28:18 AM by DW
		user.html.prefs.defaultFileName = "index";
		};ÇIndex is far more common than default. PBS 1/27/97
	if not defined (user.html.prefs.fullTimeNetConnection) {
		user.html.prefs.fullTimeNetConnection = false};
	if not defined (user.html.prefs.imageFolderName) { // Fri, May 15, 1998 at 11:56:15 AM by PBS
		user.html.prefs.imageFolderName = "images"};
	if not defined (user.html.prefs.imageFolderSubtables) {
		user.html.prefs.imageFolderSubtables = false};
	if not defined (user.html.prefs.includeMetaCharset) { // Wed, Feb 26, 1997 at 7:40:31 AM by DW
		user.html.prefs.includeMetaCharset = false};
	if not defined (user.html.prefs.isoFilter) { // Tuesday, January 27, 1998 at 10:53:11 AM by PBS
		user.html.prefs.isoFilter = true};
	if not defined (user.html.prefs.mainSiteFolder) {
		local (theOS = sys.os ());
		if theOS == "MacOS" { // 11/12/04 AM by TAC - value not returned by sys.os, || theOS == "MacCn"
			user.html.prefs.mainSiteFolder = file.folderFromPath (file.findApplication (user.html.prefs.webServerAppID))}
		else {
			user.html.prefs.mainSiteFolder = ""}};
	if not defined (user.html.prefs.mainSiteURL) {
		user.html.prefs.mainSiteURL = user.html.prefs.serverNetAddress + "/"};
	if not defined (user.html.prefs.imgFileCreator) {
		user.html.prefs.imgFileCreator = 'MSIE'}; // 6/13/05; 2:20:44 PM by TAC - ?
	if not defined (user.html.prefs.serverNetAddress) {
		user.html.prefs.serverNetAddress = "255.255.255.255"};
	if not defined (user.html.prefs.textFileCreator) {
		user.html.prefs.textFileCreator = 'MSIE'}; // 6/13/05; 2:20:51 PM by TAC - ?
	if sys.os () == "MacOS" {
		};
	if not defined (user.html.prefs.useImageCache) { // Sunday, January 18, 1998 at 12:02:59 AM by PBS
		user.html.prefs.useImageCache = false};
	if not defined (user.html.prefs.useKernelCode) { // Fri, May 15, 1998 at 12:53:41 PM by PBS
		user.html.prefs.useKernelCode = true};
	if not defined (user.html.prefs.webServerAppID) {
		user.html.prefs.webServerAppID = string4 ("WWW" + char (189))}};
bundle { // user.html.renderers
	if not defined (user.html.renderers) {
		new (tabletype, @user.html.renderers)};
	tableCopyNewContents (@html.data.renderers , @user.html.renderers)};
bundle { // user.html.templates
	if not defined (user.html.templates) {
		new (tabletype, @user.html.templates)};
	tableCopyNewContents (@html.data.templates , @user.html.templates)};
bundle { // websites
	if not (defined (root.websites)) {
		root.websites = html.data.newSiteTemplate};
	if not (defined (websites.["#data"])) {
		new (tableType, @websites.["#data"])}};

if not defined (user.callbacks.closeWindow.addToChangedPages) {
	user.callbacks.closeWindow.addToChangedPages = html.data.closeWindowHook};

bundle { // PBS 03/27/00: initialize pikeRenderer, part of Pike support
	pikeRenderer.init ()};

html.menu.init () // 11/13/04; 8:56:49 AM by TAC
\ No newline at end of file

[frontierkernel-commits] odbs/frontierRoot/system/verbs/builtins/html/data/templates plainText,NONE,1.1

[creedon <icr...@us...>]

Update of /cvsroot/frontierkernel/odbs/frontierRoot/system/verbs/builtins/html/data/templates
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv11601

Added Files:
	plainText 
Log Message:
various items used for startup/firstrootrun initializations

--- NEW FILE: plainText ---
FrontierVcsFile:1:wptx:system.verbs.builtins.html.data.templates.plainText

{pageheader (title)}
{bodytext}
{pagefooter ()}

[frontierkernel-commits] odbs/frontierRoot/system/verbs/builtins/html/data/renderers justText,NONE,1.1 newCulture,NONE,1.1

[creedon <icr...@us...>]

Update of /cvsroot/frontierkernel/odbs/frontierRoot/system/verbs/builtins/html/data/renderers
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv11523

Added Files:
	justText newCulture 
Log Message:
various items used for startup/firstrootrun initializations

--- NEW FILE: newCulture ---
(This appears to be a binary file; contents omitted.)

--- NEW FILE: justText ---
FrontierVcsFile:1:scpt:system.verbs.builtins.html.data.renderers.justText

on justText (adroutline) {
	return (string (adroutline^))}

[frontierkernel-commits] odbs/frontierRoot/system/verbs/builtins/Frontier/data/userTableLeftovers/html/templates bbedit,NONE,1.1 normal,NONE,1.1 example2,NONE,1.1 example1,NONE,1.1

[creedon <icr...@us...>]

Update of /cvsroot/frontierkernel/odbs/frontierRoot/system/verbs/builtins/Frontier/data/userTableLeftovers/html/templates
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv29056

Added Files:
	bbedit normal example2 example1 
Log Message:
leftovers from user table

--- NEW FILE: normal ---
FrontierVcsFile:1:optx:system.verbs.builtins.Frontier.data.userTableLeftovers.html.templates.normal

{pageheader (title)}
<h4>
	Part of {user.prefs.name}'s website. {user.prefs.mailaddress}. 
	{string.nthField (clock.now (), ';', 1)}.
	<hr size=1 noshade>
	</h4>
<h2>{title}</h2>
<blockquote>
	{bodytext}
	</blockquote>
<hr size=1 noshade>
<table cellspacing=5>
	<tr>
		<td valign=center>{frontierLogo ()}</td>
		<td valign=center>
			<font face="geneva,arial" size=-2>
				This page was last built with "Frontier" on a {platformLink ()} on {string.dateString ()} at {string.timeString ()}. 
				Thanks for checking it out! {user.prefs.name}
				</font>
			</td>
		</tr>
	</table>
{pagefooter ()}
--- NEW FILE: example2 ---
(This appears to be a binary file; contents omitted.)

--- NEW FILE: bbedit ---
FrontierVcsFile:1:wptx:system.verbs.builtins.Frontier.data.userTableLeftovers.html.templates.bbedit

{bodytext}
--- NEW FILE: example1 ---
FrontierVcsFile:1:optx:system.verbs.builtins.Frontier.data.userTableLeftovers.html.templates.example1

{pageheader ("<title>")}   
<table border=0 cellpadding=5>
	<tr>
		{"<td  valign=top bgcolor=\"" + sideBarColor () + "\">"}
			<font face="helvetica,arial" size=-2>
				<br>
				[[#glossPatch About<br>this<br>Website|aboutthiswebsite|]]<br><br>
				[[#glossPatch 1996|1996|]]<br><br>
				[[#glossPatch 1995|1995|]]<br><br>
				[[#glossPatch 1994|1994|]]<br><br>
				[[#glossPatch DaveNet<br>Mail|mail/default|]]<br><br>
				[[#glossPatch Best<br>of<br>DaveNet|best|]]
				</font>
			</td>
		<td>
			<table border=1 cellpadding=5>
				{"<td bgcolor=\"" + mainCellColor () + "\">"}
					<b>
						{user.websites.davenet.tools.titleline ()}
						{user.websites.davenet.tools.getPostTime ()}.
						<hr size=3>
						</b>
					<p>
					<h1>
						{html.data.page.iconlink=getIcon ()} <title>
						</h1>
					<p>
					<blockquote>
						<bodytext>
						</blockquote>
					<hr size=3>
					<center>
						<table border=0>
							<td valign=top>{html.data.page.iconlink}</td>
							<td valign=top>
								<b>
									This page was last built on {string.dateString ()} at {string.timeString ()} 
									with "Frontier" on a "Macintosh". Thanks for checking it out! "Dave"
									</b>
								</td>
							</table></center>
						</center>
					</td>
				</table>
			</td>
		</tr>
	</table>
{pagefooter ()}

[frontierkernel-commits] odbs/frontierRoot/system/verbs/builtins/html/data/templates - New directory

[creedon <icr...@us...>]

Update of /cvsroot/frontierkernel/odbs/frontierRoot/system/verbs/builtins/html/data/templates
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv17858/templates

Log Message:
Directory /cvsroot/frontierkernel/odbs/frontierRoot/system/verbs/builtins/html/data/templates added to the repository

[frontierkernel-commits] odbs/mainResponderRoot/mainResponder/adminSite/website setupFrontier,1.2,1.3

[creedon <icr...@us...>]

Update of /cvsroot/frontierkernel/odbs/mainResponderRoot/mainResponder/adminSite/website
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv14844

Modified Files:
	setupFrontier 
Log Message:
rewrite

Index: setupFrontier
===================================================================
RCS file: /cvsroot/frontierkernel/odbs/mainResponderRoot/mainResponder/adminSite/website/setupFrontier,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** setupFrontier	15 Jun 2005 23:31:51 -0000	1.2
--- setupFrontier	5 Jul 2005 18:46:12 -0000	1.3
***************
*** 1,3 ****
  FrontierVcsFile:1:scpt:mainResponder.adminSite.website.setupFrontier
  
! on setupFrontier () {
	ÇChanges
		Ç6/15/05; 11:34:39 AM by TAC
			Çchanged config.manila.prefs.baseUrl to config.mainResponder.prefs.baseUrl
			Çchanged references to userland table, to Frontier table
		Ç5/18/04; 11:37:08 PM by JES
			ÇOn OS X, handle options for not enabling port forwarding, and setting the actual port.
		Ç4/13/04; 1:35:37 AM by JES
			ÇGive a confirmation page after submitting forms to let the user know what's about to happen when they log in.
		Ç3/12/04; 4:25:55 PM by JES
			ÇSave all open databases after processing a POST. Prevents possible configuration errors if Frontier is exitted before databases are saved after initial setup.
		Ç8/21/02; 7:17:33 PM by JES
			ÇFixed a bug which would prevent the setup from succeeding on Windows and MacOS Classic.
		Ç4/11/02; 10:27:06 PM by JES
			ÇCreated. Cribbed from radio.html.setupFrontier.
	
	local (flOpenAdminSite = true); //set to false to open the first Manila site instead.
	
	local (pta = html.getPageTableAddress ());
	Çworkspace.pt = pta^
	pta^.title = "It Worked!";
	
	local (htmltext, indentlevel = 0);
	on add (s) {
		htmltext = htmltext + string.filledstring ("\t", indentlevel) + s + "\r"};
	
	bundle { //set up a temp table to save messages for redirected pages
		if not defined (system.temp.frontier.setupFrontier) {
			new (tableType, @system.temp.frontier.setupFrontier)}};
	
	local (errorMessage = "", confirmMessage = "", postedSection = "", flError = false, flConfirmPage = false, flPortForwardPage = false);
	if pta^.method == "POST" {
		Çworkspace.pt = pta^; edit (@workspace.pt)
		local (adrargs = @pta^.postArgs);
		
		on getInitials (s) {
			local (initials = "");
			bundle { //strip off parentheticals
				if s contains "(" {
					s = string.nthField (s, "(", 1)};
				if s contains "[" {
					s = string.nthField (s, "[", 1)};
				if s contains "{" {
					s = string.nthField (s, "{", 1)}};
			s = string.trimWhiteSpace (s);
			initials = string.upper (s[1]);
			local (i, ct = sizeOf (s));
			if sizeOf (s) > 1 {
				local (flNextCharIsInitial = false);
				for i = 2 to ct {
					if flNextCharIsInitial {
						if string.isAlpha (s[i]) {
							initials = initials + string.upper (s[i])};
						flNextCharIsInitial = false};
					if not string.isAlpha (s[i]) {
						flNextCharIsInitial = true}}};
			return (initials)};
		on setName (name) {
			user.prefs.name = name;
			bundle { //set user.prefs.initials
				user.prefs.initials = getInitials (name)}};
		on setEmail (email) {
			user.prefs.mailAddress = email};
		on saveDatabases () {
			local (rootPath = window.getFile (@root));
			on visitproc (f) {
				if f != rootPath {
					fileMenu.save (f)}
				else {
					fileMenu.saveMyRoot (@root)};
				return (true)};
			table.visitOpenDatabases (@visitproc);
			target.set (@root);
			fileMenu.save ()};
		
		local (flFinishSetup = false);
		if defined (adrargs^.setupFrontier) { //personalization
			postedSection = "setupFrontier";
			local (name = adrargs^.name);
			local (organization = adrargs^.organization);
			local (serverDomain = adrargs^.serverDomain);
			local (email = adrargs^.email);
			local (mailhost = adrargs^.mailHost);
			local (password = adrargs^.password);
			local (repeat = adrargs^.repeatPassword);
			if system.environment.isMac { //convert name, organization to Mac text
				name = latinToMac.convert (name);
				organization = latinToMac.convert (organization)};
			setName (name);
			setEmail (email);
			user.prefs.organization = organization;
			user.prefs.mailHost = mailhost;
			config.mainResponder.prefs.baseUrl = "http://" + serverDomain + "/";
			bundle { //check that the password is ok, and that it matches the repeat password
				if sizeOf (password) < 4 {
					errorMessage = "Can't continue setting up Frontier because the password you supplied is not at least four characters long.";
					flError = true};
				if not flError {
					if password != repeat {
						errorMessage = "Can't continue setting up Frontier because the password you supplied does not match the repeat password.";
						flError = true}}};
			bundle { //set up Admin member for access to control panel
				bundle { //create the Admin membership group if needed
					local (adrRoot = @[system.temp.mainResponder.membersRootFile]);
					local (adrGroup = @adrRoot^.admin);
					if not defined (adrGroup^) {
						new (tableType, adrGroup)};
					if not defined (adrGroup^.callbacks) {
						new (tableType, @adrGroup^.callbacks)};
					if not defined (adrGroup^.cookieDomain) {
						adrGroup^.cookieDomain = ""};
					if not defined (adrGroup^.cookieExpires) {
						adrGroup^.cookieExpires = "Mon, 01 Apr 2030 07:00:00 GMT"};
					if not defined (adrGroup^.cookieName) {
						adrGroup^.cookieName = "Admin"};
					if not defined (adrGroup^.mailReturnAddress) {
						adrGroup^.mailReturnAddress = user.prefs.mailAddress};
					if not defined (adrGroup^.mailSubject) {
						adrGroup^.mailSubject = "Admin"};
					if not defined (adrGroup^.mailTemplate) {
						wp.newTextObject ("", @adrGroup^.mailTemplate)};
					if not defined (adrGroup^.openToPublic) {
						adrGroup^.openToPublic = false};
					if not defined (adrGroup^.users) {
						new (tableType, @adrGroup^.users)}};
				
				local (adrMember = mainResponder.members.getMemberTable ("Admin", user.prefs.mailAddress));
				if not defined (adrMember^) {
					new (tableType, adrMember)};
				adrMember^.password = password;
				if not defined (adrMember^.personalInfo) {
					new (tableType, @adrMember^.personalInfo)};
				if not defined (adrMember^.personalInfo.name) {
					adrMember^.personalInfo.name = user.prefs.name}};
			if not flError { //complete the setup
				try { //trap network errors
					if system.environment.isCarbon { //we need to run the port forwarding page now
						flPortForwardPage = true}
					else { //Windows and Classic don't need to deal with port forwarding
						local (urlParts = string.urlSplit (config.mainResponder.prefs.baseUrl));
						Frontier.completeSetup (urlParts[2], password);
						flConfirmPage = true;
						}}Çsystem.temp.Frontier.setupFrontier.flAllowLocalAccessToSetupPage = false //require login from now on
				else { //network or other error
					errorMessage = tryError;
					flError = true}}};
		if defined (adrargs^.proxy) { //set proxy settings
			postedSection = "proxy";
			try { //convert port to a number -- if not, it's an error
				adrargs^.port = number (adrargs^.port)}
			else {
				errorMessage = "Can't set your proxy settings because the port you entered is not valid.";
				adrargs^.enabled = false;
				flError = true};
			user.webBrowser.proxy.domain = adrargs^.domain;
			user.webBrowser.proxy.username = adrargs^.username;
			user.webBrowser.proxy.password = binary (adrargs^.password);
			user.webBrowser.proxy.enabled = false;
			if not flError {
				user.webBrowser.proxy.port = adrargs^.port};
			if defined (adrargs^.enabled) {
				if adrargs^.enabled {
					user.webBrowser.proxy.enabled = true}}; //PBS 12/31/01: *true*, not false (that was a bug)
			if flError { //redirect to the proxy settings section of the page
				mainResponder.redirect ("http://" + pta^.host + pta^.uri + "#proxy")}
			else {
				confirmMessage = "Your proxy server information has been set.";
				mainResponder.redirect ("http://" + pta^.host + pta^.uri)}};
		if defined (adrargs^.portForward) { //set port forwarding preferences
			local (adminPassword = adrargs^.password);
			local (flRememberAdminPassword = defined (adrargs^.flRememberAdminPassword));
			local (flEnablePortForwarding = defined (adrargs^.flEnablePortForwarding));
			local (actualPort = number (adrargs^.port));
			if actualPort != user.inetd.config.http.port {
				local (flRunning = inetd.isDaemonRunning (@user.inetd.config.http));
				if flRunning { //stop server, set port, restart server
					inetd.stopOne (@user.inetd.config.http);
					user.inetd.config.http.port = actualPort;
					inetd.startOne (@user.inetd.config.http)}
				else { //just set port
					user.inetd.config.http.port = actualPort}};
			if flRememberAdminPassword and flEnablePortForwarding {
				user.prefs.portForwardingAdminPassword = binary (adminPassword)};
			local (password = mainResponder.members.getMemberTable ("Admin", user.prefs.mailAddress)^.password);
			local (urlparts = string.urlSplit (config.mainResponder.prefs.baseUrl));
			Frontier.completeSetup (urlparts[2], password, adminPassword, flRememberAdminPassword, flEnablePortForwarding);
			flConfirmPage = true;
			};Çsystem.temp.Frontier.setupFrontier.flAllowLocalAccessToSetupPage = false //require login from now on
		Çif defined (adrargs^.confirmSetup) //redirect to the Control Panel home page
			ÇmainResponder.redirect ("http://" + pta^.host + "/")
		bundle { //if redirecting, set messages in the temp table, and don't bother to finish rendering
			saveDatabases ();
			if defined (pta^.responderAttributes.redirectUrl) {
				temp.frontier.postedSection = postedSection;
				temp.frontier.setupFrontier.flError = flError;
				temp.frontier.setupFrontier.errorMessage = errorMessage;
				temp.frontier.setupFrontier.message = confirmMessage;
				return ("")}
			else { //no redirect -- make sure messages are cleared
				temp.frontier.postedSection = "";
				temp.frontier.setupFrontier.flError = false;
				temp.frontier.setupFrontier.errorMessage = "";
				temp.frontier.setupFrontier.message = ""}}};
	
	if flConfirmPage and (not flError) { //render the confirmation page
		bundle { //Confirmation page
			pta^.title = "Congratulations!";
			local (adminSiteUrl = "http://" + pta^.host + "/");
			local (t); new (tableType, @t);
			t.adminSiteUrl = adminSiteUrl;
			add (mainResponder.getString ("setupFrontier.newUserConfirmMessage", @t));
			bundle { //add the Continue button
				add ("<form method=\"GET\" action=\"" + adminSiteUrl + "\">");
				add ("<input type=\"submit\" value=\"Continue\" onclick=\"document.location='" + adminSiteUrl + "'\">");
				add ("</form>")};
			system.temp.Frontier.setupFrontier.flAllowLocalAccessToSetupPage = false}; //require login from now on
		Çbundle //redirect to admin website home page
			Çif flOpenAdminSite //see the first line of this script above
				Çlocal (port, adminSiteUrl)
				Çport = user.inetd.config.http2.port
				Çif port == 80
					ÇadminSiteUrl = "http://127.0.0.1/"
				Çelse
					ÇadminSiteUrl = "http://127.0.0.1:" + port + "/"
				ÇmainResponder.redirect (adminSiteUrl)
			Çelse
				Çlocal (myManilaServerSiteUrl = manilaSuite.getSiteUrl (@myManilaServerManilaWebsite))
				ÇmainResponder.redirect (myManilaServerSiteUrl)
			Çreturn ("")}}
	else { //render the welcome/setup form
		bundle { //change the template to the setup template, which doesn't have navigation links to the rest of the control panel
			table.assign (@pta^.template, "setup");
			pta^.indirectTemplate = true};
		if flPortForwardPage { //oops -- unix: we have to deal with port forwarding
			local (t); new (tableType, @t);
			t.adminPassword = "";
			t.rememberAdminPassword = "checked";
			t.enablePortForwarding = "checked";
			t.actualPort = user.inetd.config.http.port;
			if defined (user.prefs.portForwardingAdminPassword) {
				t.adminPassword = string (user.prefs.portForwardingAdminPassword)};
			add (mainResponder.getString ("setupFrontier.portForward", @t))}
		else { //the main setup form and proxy settings
			local (name = user.prefs.name, email = user.prefs.mailAddress, organization = user.prefs.organization, mailHost = user.prefs.mailHost);
			if system.environment.isMac { //convert name, organization to latin text
				name = latinToMac.macToLatin (name);
				organization = latinToMac.macToLatin (organization)};
			bundle { //render the new user page
				local (t); new (tabletype, @t);
				bundle { //add personal info to replacement table
					t.username = name;
					t.useremail = email;
					t.userorganization = organization;
					t.userpassword = "";
					local (urlparts = string.urlSplit (config.mainResponder.prefs.baseUrl));
					t.serverdomain = urlparts[2];
					try { //try to get the admin password from the Admin membership group
						local (adrMember = mainResponder.members.getMemberTable ("Admin", user.prefs.mailAddress));
						if defined (adrMember^) {
							t.userpassword = adrMember^.password}};
					t.mailhost = mailHost};
				bundle { //add proxy settings to replacement table
					with user.webBrowser.proxy {
						t.proxydomain = user.webBrowser.proxy.domain;
						t.proxyusername = user.webBrowser.proxy.username;
						t.proxypassword = string (user.webBrowser.proxy.password);
						t.proxyport = user.webBrowser.proxy.port;
						if user.webBrowser.proxy.enabled {
							t.proxyenabled = "checked"}
						else {
							t.proxyenabled = ""}}};
				bundle { //add error or confirmation messages to replacement table
					t.proxyConfirm = "";
					t.setupError = "";
					t.proxyError = "";
					if defined (system.temp.frontier.postedSection) { //only defined after the first POST
						if defined (system.temp.frontier.setupFrontier.flError) { //only defined after the first POST
							if temp.frontier.setupFrontier.flError {
								case temp.frontier.postedSection {
									"setupFrontier" {
										t.setupError = "<p><font color=\"red\">" + temp.frontier.setupFrontier.errorMessage + "</font></p>"};
									"proxy" {
										t.proxyError = "<p><font color=\"red\">" + temp.frontier.setupFrontier.errorMessage + "</font></p>"}}}
							else {
								case temp.frontier.postedSection {
									"proxy" {
										t.proxyConfirm = "<p><font color=\"navy\">" + temp.frontier.setupFrontier.message + "</font></p>"}}}}}};
				add (mainResponder.getString ("setupFrontier.main", @t))}}};
	
	return (htmltext)};
Çbundle //testing
	Çlocal (pagetable); new (tableType, @pagetable)
	Çpagetable.method = "GET"
	Çhtml.setPageTableAddress (@pagetable)
	ÇsetupFrontier ()
	Çhtml.deletePageTableAddress ()
\ No newline at end of file
--- 1,3 ----
  FrontierVcsFile:1:scpt:mainResponder.adminSite.website.setupFrontier
  
! on setupFrontier () {
	ÇChanges
		Ç7/4/05; 3:35:07 PM by TAC
			Çrewrite, based on old code <http://cvs.sourceforge.net/viewcvs.py/frontierkernel/odbs/mainResponderRoot/mainResponder/adminSite/website/setupFrontier?rev=1.2>
	
	local (pta = html.getPageTableAddress ());
	local (errorMessage = "", htmlText = "", indentLevel = 0, pathArgs = "");
	
	on add (s) {
		htmlText = htmlText + string.filledstring ("\t", indentLevel) + s + "\r"};
	on popupWindowLink (label, localizationStringId) {
		localizationStringId = string.urlEncode (localizationStringId);
		return ("<a href=\"JavaScript: newWindow=openWin ('" + string.popLeading (pta^.URI, '/') + "$popupWindow?label=" + string.urlEncode (label) + "&localizationStringId=" + localizationStringId + "', 'prefsPopup', 'width=400,height=400,toolbar=0,location=0,directories=0,status=0,menuBar=0,scrollBars=1,resizable=1'); newWindow.focus ()\">" + label + "</a>")};
	
	if pta^.method == "POST" {
		local (adrArgs = @pta^.postArgs, flError = false);
		
		if defined (adrArgs^.personalize) { // personalize
			local (name = adrArgs^.name);
			local (organization = adrArgs^.organization);
			local (email = adrArgs^.email);
			local (mailHost = adrArgs^.mailHost);
			local (password = adrArgs^.password);
			local (repeat = adrArgs^.repeatPassword);
			try { // convert port to a number -- if not, it's an error
				adrArgs^.webServerPort = number (adrArgs^.webServerPort)}
			else {
				errorMessage = "Can't set the web server port because the port you entered is not valid.";
				flError = true};
			
			on getInitials (s) {
				local (initials = "");
				bundle { //strip off parentheticals
					if s contains "(" {
						s = string.nthField (s, "(", 1)};
					if s contains "[" {
						s = string.nthField (s, "[", 1)};
					if s contains "{" {
						s = string.nthField (s, "{", 1)}};
				s = string.trimWhiteSpace (s);
				initials = string.upper (s[1]);
				local (i, ct = sizeOf (s));
				if sizeOf (s) > 1 {
					local (flNextCharIsInitial = false);
					for i = 2 to ct {
						if flNextCharIsInitial {
							if string.isAlpha (s[i]) {
								initials = initials + string.upper (s[i])};
							flNextCharIsInitial = false};
						if not string.isAlpha (s[i]) {
							flNextCharIsInitial = true}}};
				return (initials)};
			on setName (name) {
				user.prefs.name = name;
				bundle { //set user.prefs.initials
					user.prefs.initials = getInitials (name)}};
			on setEmail (email) {
				user.prefs.mailAddress = email};
			
			if system.environment.isMac { //convert name, organization to Mac text
				name = latinToMac.convert (name);
				organization = latinToMac.convert (organization)};
			setName (name);
			setEmail (email);
			user.prefs.organization = organization;
			user.prefs.mailHost = mailHost;
			config.mainResponder.prefs.baseUrl = "http://" + adrArgs^.webServerDomain + "/";
			bundle { //check that the password is ok, and that it matches the repeat password
				if sizeOf (password) < 4 {
					errorMessage = "Can't continue setting up Frontier because the password you supplied is not at least four characters long.";
					flError = true};
				if not flError {
					if password != repeat {
						errorMessage = "Can't continue setting up Frontier because the password you supplied does not match the repeat password.";
						flError = true}}};
			bundle { //set up Admin member for access to control panel
				bundle { //create the Admin membership group if needed
					local (adrRoot = @[system.temp.mainResponder.membersRootFile]);
					local (adrGroup = @adrRoot^.admin);
					if not defined (adrGroup^) {
						new (tableType, adrGroup)};
					if not defined (adrGroup^.callbacks) {
						new (tableType, @adrGroup^.callbacks)};
					if not defined (adrGroup^.cookieDomain) {
						adrGroup^.cookieDomain = ""};
					if not defined (adrGroup^.cookieExpires) {
						adrGroup^.cookieExpires = "Mon, 01 Apr 2030 07:00:00 GMT"};
					if not defined (adrGroup^.cookieName) {
						adrGroup^.cookieName = "Admin"};
					if not defined (adrGroup^.mailReturnAddress) {
						adrGroup^.mailReturnAddress = user.prefs.mailAddress};
					if not defined (adrGroup^.mailSubject) {
						adrGroup^.mailSubject = "Admin"};
					if not defined (adrGroup^.mailTemplate) {
						wp.newTextObject ("", @adrGroup^.mailTemplate)};
					if not defined (adrGroup^.openToPublic) {
						adrGroup^.openToPublic = false};
					if not defined (adrGroup^.users) {
						new (tableType, @adrGroup^.users)}};
				
				local (adrMember = mainResponder.members.getMemberTable ("Admin", user.prefs.mailAddress));
				if not defined (adrMember^) {
					new (tableType, adrMember)};
				adrMember^.password = password;
				if not defined (adrMember^.personalInfo) {
					new (tableType, @adrMember^.personalInfo)};
				if not defined (adrMember^.personalInfo.name) {
					adrMember^.personalInfo.name = user.prefs.name}};
			if not (flError) {
				if adrArgs^.webServerPort != user.inetd.config.http.port { // web server port
					local (flRunning = inetd.isDaemonRunning (@user.inetd.config.http));
					if flRunning { //stop server, set port, restart server
						inetd.stopOne (@user.inetd.config.http);
						user.inetd.config.http.port = adrArgs^.webServerPort;
						inetd.startOne (@user.inetd.config.http)}
					else { //just set port
						user.inetd.config.http.port = adrArgs^.webServerPort}};
				scriptError ("!redirect " + pta^.URI + "$proxyServer")}};
		if defined (adrArgs^.proxyServer) { // proxy server
			try { // convert port to a number -- if not, it's an error
				adrArgs^.port = number (adrArgs^.port)}
			else {
				errorMessage = "Can't set your proxy server settings because the port you entered is not valid.";
				adrArgs^.enabled = false;
				flError = true};
			user.webBrowser.proxy.domain = adrArgs^.domain;
			user.webBrowser.proxy.username = adrArgs^.username;
			user.webBrowser.proxy.password = binary (adrArgs^.password);
			user.webBrowser.proxy.enabled = false;
			if defined (adrArgs^.enabled) {
				if adrArgs^.enabled {
					user.webBrowser.proxy.enabled = true}};
			if not (flError) {
				user.webBrowser.proxy.port = adrArgs^.port;
				scriptError ("!redirect " + pta^.URI + "$portForwarding")}};
		if defined (adrArgs^.portForwarding) { // port forwarding
			local (adminPassword = adrArgs^.password);
			local (flEnablePortForwarding = defined (adrArgs^.flEnablePortForwarding));
			local (flRememberAdminPassword = defined (adrArgs^.flRememberAdminPassword));
			local (password = mainResponder.members.getMemberTable ("Admin", user.prefs.mailAddress)^.password);
			local (urlParts = string.urlSplit (config.mainResponder.prefs.baseUrl));
			bundle { // convert actualPort to a number -- if not, it's an error
				try {
					adrArgs^.actualPort = number (adrArgs^.actualPort)}
				else {
					errorMessage = "Can't set your actual web server port because the port you entered is not valid.";
					flEnablePortForwarding = false;
					flError = true}};
			bundle { // convert apparentPort to a number -- if not, it's an error
				try {
					adrArgs^.apparentPort = number (adrArgs^.apparentPort)}
				else {
					errorMessage = "Can't set your apparent web server port because the port you entered is not valid.";
					flEnablePortForwarding = false;
					flError = true}};
			if flRememberAdminPassword and flEnablePortForwarding {
				user.prefs.portForwardingAdminPassword = binary (adminPassword)};
			if not (flError) {
				if adrArgs^.actualPort != user.inetd.config.http.port or adrArgs^.apparentPort != user.inetd.config.http.apparentPort {
					local (flRunning = inetd.isDaemonRunning (@user.inetd.config.http));
					if flRunning { // stop server, set port, restart server
						inetd.stopOne (@user.inetd.config.http);
						user.inetd.config.http.apparentPort = adrArgs^.apparentPort;
						user.inetd.config.http.port = adrArgs^.actualPort;
						inetd.startOne (@user.inetd.config.http)}
					else { // just set port
						user.inetd.config.http.apparentPort = adrArgs^.apparentPort;
						user.inetd.config.http.port = adrArgs^.actualPort}}};
			Frontier.completeSetup (urlParts [2], password, adminPassword, flRememberAdminPassword, flEnablePortForwarding);
			if not (flError) {
				scriptError ("!redirect " + pta^.URI + "$congratulations")}}};
	
	if defined (pta^.pathArgs) {
		if pta^.pathArgs != "" {
			pathArgs = pta^.pathArgs}};
	
	case pathArgs { // generally the cases should be ordered in user presentation order, they can be accessed by name or number, name is preferred
		"1";
		"personalize" {
			local (name = user.prefs.name, organization = user.prefs.organization);
			
			pta^.title = "Personalize";
			bundle { // change the template to the setup template, which doesn't have navigation links to the rest of the admin site
				table.assign (@pta^.template, "setup");
				pta^.indirectTemplate = true};
			
			if system.environment.isMac { // convert name, organization to latin text
				name = latinToMac.macToLatin (name);
				organization = latinToMac.macToLatin (organization)};
			
			bundle { //render the new user page
				local (t); new (tabletype, @t);
				bundle { // add the labels to the replacement table
					t.webserverdomainlabel = popupWindowLink ("Web server domain name or IP address", "setupFrontier.popupText.webServerDomainIp")};
				bundle { // add personal info to replacement table
					t.mailhost = user.prefs.mailHost;
					t.useremail = user.prefs.mailAddress;
					t.username = name;
					t.userorganization = organization;
					t.userpassword = "";
					bundle { // web server domain or ip address
						local (urlParts = string.urlSplit (config.mainResponder.prefs.baseUrl));
						t.webserverdomain = urlParts [2]};
					try { // try to get the admin password from the Admin membership group
						local (adrMember = mainResponder.members.getMemberTable ("Admin", user.prefs.mailAddress));
						if defined (adrMember^) {
							t.userpassword = adrMember^.password}};
					bundle { // web server port
						t.webserverport = user.inetd.config.http.port}};
				bundle { // add error message to replacement table
					t.errorMessage = "";
					if errorMessage != "" {
						t.errorMessage = "<p style=\"color: red;\">" + errorMessage + "</p>"}};
				add (mainResponder.getString ("setupFrontier.personalize", @t))}};
		"2";
		"proxyServer" {
			pta^.title = "Proxy Server Settings";
			bundle { // change the template to the setup template, which doesn't have navigation links to the rest of the admin site
				table.assign (@pta^.template, "setup");
				pta^.indirectTemplate = true};
			
			bundle { // render the new user page
				local (t); new (tabletype, @t);
				bundle { // add proxy settings to replacement table
					with user.webBrowser.proxy {
						t.proxydomain = domain;
						t.proxyusername = username;
						t.proxypassword = string (password);
						t.proxyport = port;
						if enabled {
							t.proxyenabled = "checked"}
						else {
							t.proxyenabled = ""}}};
				bundle { // add error message to replacement table
					t.errorMessage = "";
					if errorMessage != "" {
						t.errorMessage = "<p style=\"color: red;\">" + errorMessage + "</p>"}};
				add (mainResponder.getString ("setupFrontier.proxyServer", @t))}};
		"3";
		"portForwarding" {
			if system.environment.isCarbon { //we need to run the port forwarding page now
				pta^.title = "Mac OS X Port Forwarding";
				bundle { // change the template to the setup template, which doesn't have navigation links to the rest of the admin site
					table.assign (@pta^.template, "setup");
					pta^.indirectTemplate = true};
				
				bundle { // render the new user page
					local (t); new (tabletype, @t);
					t.adminPassword = "";
					t.rememberAdminPassword = "checked";
					t.enablePortForwarding = "checked";
					t.actualPort = user.inetd.config.http.port;
					t.apparentPort = 80;
					if defined (user.inetd.config.http.apparentPort) {
						t.apparentPort = user.inetd.config.http.apparentPort};
					if defined (user.prefs.portForwardingAdminPassword) {
						t.adminPassword = string (user.prefs.portForwardingAdminPassword)};
					bundle { // add error message to replacement table
						t.errorMessage = "";
						if errorMessage != "" {
							t.errorMessage = "<p style=\"color: red;\">" + errorMessage + "</p>"}};
					add (mainResponder.getString ("setupFrontier.portForwarding", @t))}}
			else { //Windows and Classic don't need to deal with port forwarding
				local (password = mainResponder.members.getMemberTable ("Admin", user.prefs.mailAddress)^.password);
				local (urlParts = string.urlSplit (config.mainResponder.prefs.baseUrl));
				Frontier.completeSetup (urlParts [2], password);
				scriptError ("!redirect " + pta^.URI + "$congratulations")}};
		"4";
		"congratulations" {
			bundle { // change the template to the setup template, which doesn't have navigation links to the rest of the admin site
				table.assign (@pta^.template, "setup");
				pta^.indirectTemplate = true};
			
			pta^.title = "Congratulations";
			
			local (adminSiteUrl = "http://" + pta^.host + "/");
			
			bundle { //render the new user page
				add (mainResponder.getString ("setupFrontier.newUserConfirmMessage"));
				bundle { //add the Continue button
					local (adminSiteUrl = "http://" + pta^.host + "/");
					add ("<form method=\"GET\" action=\"" + adminSiteUrl + "\">");
					add ("<input type=\"submit\" value=\"Continue\" onclick=\"document.location='" + adminSiteUrl + "'\">");
					add ("</form>")};
				if defined (system.temp.Frontier.setupFrontier.flAllowLocalAccessToSetupPage) {
					system.temp.Frontier.setupFrontier.flAllowLocalAccessToSetupPage = false}}}; //require login from now on
		"popupWindow" { // this is a special case, it produces a popup window
			pta^.autoParagraphs = true;
			pta^.title = "Popup Text";
			table.assign (@pta^.template, "{bodytext}");
			try {
				delete (@pta^.javaScript)}; // popup windows should not have any JavaScript
			
			add ("<div name=\"setupfrontierpopupwindow\" style=\"font-size: x-large; margin: 13px;\">"); indentLevel++;
			add ("<b>"); indentLevel++;
			add (string.urlDecode (pta^.searchArgTable.label));
			add ("</b>"); indentLevel--;
			add ("<br/>");
			add ("<br/>");
			add (mainResponder.getString (pta^.searchArgTable.localizationStringId));
			add ("</div>"); indentLevel--}}
	else {
		scriptError ("!redirect " + pta^.URI + "$personalize")};
	
	return (htmlText)}
\ No newline at end of file

[frontierkernel-commits] odbs/mainResponderRoot/mainResponder/localization/languages/english/strings/setupFrontier portForward,1.1.1.1,NONE

[creedon <icr...@us...>]

Update of /cvsroot/frontierkernel/odbs/mainResponderRoot/mainResponder/localization/languages/english/strings/setupFrontier
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv13849

Removed Files:
	portForward 
Log Message:
replaced by portForwarding

--- portForward DELETED ---

[frontierkernel-commits] odbs/mainResponderRoot/mainResponder/localization/languages/english/strings/setupFrontier proxyServer,NONE,1.1

[creedon <icr...@us...>]

Update of /cvsroot/frontierkernel/odbs/mainResponderRoot/mainResponder/localization/languages/english/strings/setupFrontier
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv31310

Added Files:
	proxyServer 
Log Message:
for use by setupFrontier script

--- NEW FILE: proxyServer ---
FrontierVcsFile:1:optx:mainResponder.localization.languages.english.strings.setupFrontier.proxyServer

[[errorMessage]]
If you must use a proxy server to access the Internet, please tell Frontier how to communicate with it by filling in the settings.
<br/>
<br/>
Whether you must use a proxy server or not, click the Submit button.
<br/>
<br/>
<form method="POST">
	<table border="0" cellspacing="1" cellpadding="5">
		<tr>
			<td colspan="2"><input type="checkbox" name="enabled" value=xxx [[proxyenabled]]>&nbsp;Check this box if you want Frontier to communicate through the proxy server described below.<br><br></td>
			</tr>
		<tr>
			<td align="left">Domain:</td>
			<td valign="top" colspan="1"><input type="text" name="domain" size="50" maxlength="100" value="[[proxydomain]]"></td>
			</tr>
		<tr>
			<td align="left">Port:</td>
			<td valign="top" colspan="1"><input type="text" name="port" size="50" maxlength="100" value="[[proxyport]]"></td>
			</tr>
		<tr>
			<td align="left">Username:</td>
			<td valign="top" colspan="1"><input type="text" name="username" size="50" maxlength="100" value="[[proxyusername]]"></td>
			</tr>
		<tr>
			<td align="left">Password:</td>
			<td valign="top" colspan="1"><input type="password" name="password" size="25" maxlength="100" value="[[proxypassword]]"></td>
			</tr>
		<tr>
			<td>
				</td>
			<td>
				<input type="submit" name="proxyServer" value="Submit">
				</td>
			</tr>
		</table>
	</form>