Menu
▾
▴
frontierkernel-commits — Mailing list for Subversion commit messages.
You can subscribe to this list here.
| 2004 |
Jan
|
Feb
|
Mar
|
Apr
|
May
|
Jun
|
Jul
|
Aug
|
Sep
|
Oct
(447) |
Nov
(163) |
Dec
(57) |
|---|---|---|---|---|---|---|---|---|---|---|---|---|
| 2005 |
Jan
(172) |
Feb
|
Mar
(123) |
Apr
(64) |
May
(1) |
Jun
(278) |
Jul
(89) |
Aug
(97) |
Sep
(62) |
Oct
(53) |
Nov
(119) |
Dec
(60) |
| 2006 |
Jan
(76) |
Feb
(1094) |
Mar
(363) |
Apr
(163) |
May
(57) |
Jun
(43) |
Jul
(39) |
Aug
(15) |
Sep
(33) |
Oct
(62) |
Nov
(8) |
Dec
|
| 2007 |
Jan
(9) |
Feb
(34) |
Mar
(2) |
Apr
(14) |
May
(8) |
Jun
(40) |
Jul
(21) |
Aug
(1) |
Sep
(20) |
Oct
(15) |
Nov
(26) |
Dec
|
| 2008 |
Jan
(1) |
Feb
(1) |
Mar
|
Apr
|
May
|
Jun
|
Jul
|
Aug
|
Sep
(3) |
Oct
|
Nov
|
Dec
(1) |
| 2009 |
Jan
|
Feb
|
Mar
|
Apr
|
May
(32) |
Jun
|
Jul
|
Aug
(3) |
Sep
(3) |
Oct
|
Nov
|
Dec
|
| 2010 |
Jan
(1) |
Feb
|
Mar
|
Apr
|
May
|
Jun
(1) |
Jul
|
Aug
|
Sep
|
Oct
|
Nov
|
Dec
|
| 2011 |
Jan
|
Feb
|
Mar
(2) |
Apr
|
May
|
Jun
(1) |
Jul
|
Aug
|
Sep
|
Oct
|
Nov
(7) |
Dec
|
| 2012 |
Jan
|
Feb
|
Mar
|
Apr
(1) |
May
|
Jun
|
Jul
|
Aug
|
Sep
|
Oct
|
Nov
|
Dec
|
|
From: creedon <icr...@us...> - 2005-06-14 19:52:15
|
Update of /cvsroot/frontierkernel/odbs/frontierRoot/system/verbs/builtins/Frontier/data/userTableLeftovers/html In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv4736/html Log Message: Directory /cvsroot/frontierkernel/odbs/frontierRoot/system/verbs/builtins/Frontier/data/userTableLeftovers/html added to the repository |
|
From: creedon <icr...@us...> - 2005-06-14 19:48:24
|
Update of /cvsroot/frontierkernel/odbs/frontierRoot/system/verbs/builtins/Frontier/data/userTableLeftovers In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv3215/userTableLeftovers Log Message: Directory /cvsroot/frontierkernel/odbs/frontierRoot/system/verbs/builtins/Frontier/data/userTableLeftovers added to the repository |
|
From: creedon <icr...@us...> - 2005-06-14 07:34:06
|
Update of /cvsroot/frontierkernel/odbs/frontierRoot/system/startup In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv11758 Modified Files: startupScript Log Message: set Frontier.pathString near start of script Index: startupScript =================================================================== RCS file: /cvsroot/frontierkernel/odbs/frontierRoot/system/startup/startupScript,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 *** startupScript 14 Jun 2005 06:26:55 -0000 1.2 --- startupScript 14 Jun 2005 07:33:39 -0000 1.3 *************** *** 1,3 **** FrontierVcsFile:1:scpt:system.startup.startupScript ! ÇThis script runs when Frontier opens the Frontier.root file. ÇChanges Ç11/27/04; 8:16:58 AM 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?only_with_tag=initial_frontier_root&view=markup> Çuserland.firstRootRun <http://cvs.sourceforge.net/viewcvs.py/frontierkernel/odbs/frontierRoot/system/verbs/builtins/userland/firstRootRun?only_with_tag=initial_frontier_root&view=markup> Çuserland.finishInstall <http://cvs.sourceforge.net/viewcvs.py/frontierkernel/odbs/frontierRoot/system/verbs/builtins/userland/finishInstall?only_with_tag=initial_frontier_root&view=markup> Çuserland.cleanRoot <http://cvs.sourceforge.net/viewcvs.py/frontierkernel/odbs/frontierRoot/system/verbs/builtins/userland/Attic/cleanRoot?only_with_tag=initial_frontier_root&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 { // first root run, phase 1 of 2 if defined (user.prefs.firstRootRun) { // 2004-11-13 TAC flFirstRootRun = user.prefs.firstRootRun}; if flFirstRootRun { // license agreement, finish cleanup on user's machine Frontier.enableAgents (false); // try to keeps agents from reporting errors while window.frontmost () != "" { // open windows can mess things up later on window.hide (window.frontmost ())}; Çreturn (false) // enable for debugging 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 = ""; bundle { // set up user.prefs.fonts local (defaultfont, defaultsize); new (tableType, @user.prefs.fonts); case sys.os () { "MacOS" { defaultfont = "Geneva"; defaultsize = 12; if system.environment.isCarbon { defaultsize = 10}}; "WinNT"; "Win95" { defaultfont = "Arial"; defaultsize = 10}}; if not defined (user.prefs.fonts.outlineFont) { user.prefs.fonts.outlineFont = defaultfont}; if not defined (user.prefs.fonts.outlineFontSize) { user.prefs.fonts.outlineFontSize = defaultsize}; if not defined (user.prefs.fonts.tableFont) { user.prefs.fonts.tableFont = defaultfont}; if not defined (user.prefs.fonts.tableFontSize) { user.prefs.fonts.tableFontSize = defaultsize}; if not defined (user.prefs.fonts.wptextFont) { user.prefs.fonts.wptextFont = defaultfont}; if not defined (user.prefs.fonts.wptextFontSize) { user.prefs.fonts.wptextFontSize = defaultsize}; if not defined (user.prefs.fonts.scriptFont) { user.prefs.fonts.scriptFont = defaultfont}; if not defined (user.prefs.fonts.scriptFontSize) { user.prefs.fonts.scriptFontSize = defaultsize}; if not defined (user.prefs.fonts.menuBarFont) { case sys.os () { "Win95"; "WinNT" { user.prefs.fonts.menuBarFont = defaultfont}; "MacOS" { ÇChicago with System 7, Charcoal with OS 8. if system.environment.isCarbon { user.prefs.fonts.menuBarFont = defaultfont} else { if sys.osVersion () beginsWith "8" { user.prefs.fonts.menuBarFont = "Charcoal"} else { user.prefs.fonts.menuBarFont = "Chicago"}}}}}; if not defined (user.prefs.fonts.menuBarFontSize) { user.prefs.fonts.menuBarFontSize = defaultsize}}; 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.suspend); new (tableType, @user.callbacks.systemTrayIcon2Click); new (tableType, @user.callbacks.systemTrayIconRightClick); new (tableType, @user.callbacks.statusMessage)}; 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 //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) Ç Ç Çbundle //misc Frontier 8 stuff Ç Çlocal (adr, sizeTable = sizeOf (workspace), i) // ? - no initializations of workspace? Çfor i = sizeTable downTo 1 Çlocal (adr = @workspace [i]) Çlocal (name = nameOf (adr^)) Çcase string.lower (name) Ç"notepad" Ç"userlandsamples" Çcontinue Çdelete (adr) Ç Ç Çreturn (true) Ç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 it 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 // 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) Ç11/29/04; 11:17:45 AM by TAC - the following seems like it should be done as part of mainRepsonder startup, init. if I remember correctly, 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}; };Ç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 Frontier.pathstring = file.folderFromPath (frontier.getFilePath ()); system.menus.data.currentsuite = ""; system.menus.data.currentmenu = 0; Çbundle // make sure proxy prefs exist, now in webBrowser.init Çif not defined (user.webBrowser) Çnew (tableType, @user.webBrowser) Çif not defined (user.webBrowser.proxy) Çnew (tableType, @user.webBrowser.proxy) Çif not defined (user.webBrowser.proxy.domain) Çuser.webBrowser.proxy.domain = "" Çif not defined (user.webBrowser.proxy.password) Çuser.webBrowser.proxy.password = "" Çif not defined (user.webBrowser.proxy.port) Çuser.webBrowser.proxy.port = 80 Çif not defined (user.webBrowser.proxy.username) Çuser.webBrowser.proxy.username = "" Çif not defined (user.webBrowser.proxy.enabled) // 11/14/04; 4:00:48 PM by TAC Çuser.webBrowser.proxy.enabled = false 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 ("")}}}; Çelse Çnew (tableType, @user.databases)}; 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"]}; Çwe do this until we can whip mainResponder into shape for the open source relase, then we would use the urlToOpen below 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); // 11/25/04; 1:41:26 PM by TAC - disabled ÇwebBrowser.openUrl ("http://127.0.0.1:5336/hCard/userInfo/") }};ÇwebBrowser.bringToFront () return (true)}; infoDialog (); //AR 09/27/04 : personalize install, disabled web-based install for open source release // ? - replace with browser based interface? Ç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 (); Ç Ç ÇÇfinish the job started by userland.cleanRoot Çsystem.menus.buildMenuBar () Çif not (userland.finishInstall ()) //PBS 06/02/01: web-based install ÇinfoDialog () Ç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 Ç11/27/04; 8:16:58 AM 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?only_with_tag=initial_frontier_root&view=markup> Çuserland.firstRootRun <http://cvs.sourceforge.net/viewcvs.py/frontierkernel/odbs/frontierRoot/system/verbs/builtins/userland/firstRootRun?only_with_tag=initial_frontier_root&view=markup> Çuserland.finishInstall <http://cvs.sourceforge.net/viewcvs.py/frontierkernel/odbs/frontierRoot/system/verbs/builtins/userland/finishInstall?only_with_tag=initial_frontier_root&view=markup> Çuserland.cleanRoot <http://cvs.sourceforge.net/viewcvs.py/frontierkernel/odbs/frontierRoot/system/verbs/builtins/userland/Attic/cleanRoot?only_with_tag=initial_frontier_root&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) { // 2004-11-13 TAC flFirstRootRun = user.prefs.firstRootRun}; if flFirstRootRun { // license agreement, finish cleanup on user's machine Frontier.enableAgents (false); // try to keeps agents from reporting errors while window.frontmost () != "" { // open windows can mess things up later on window.hide (window.frontmost ())}; Çreturn (false) // enable for debugging 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 = ""; bundle { // set up user.prefs.fonts local (defaultfont, defaultsize); new (tableType, @user.prefs.fonts); case sys.os () { "MacOS" { defaultfont = "Geneva"; defaultsize = 12; if system.environment.isCarbon { defaultsize = 10}}; "WinNT"; "Win95" { defaultfont = "Arial"; defaultsize = 10}}; if not defined (user.prefs.fonts.outlineFont) { user.prefs.fonts.outlineFont = defaultfont}; if not defined (user.prefs.fonts.outlineFontSize) { user.prefs.fonts.outlineFontSize = defaultsize}; if not defined (user.prefs.fonts.tableFont) { user.prefs.fonts.tableFont = defaultfont}; if not defined (user.prefs.fonts.tableFontSize) { user.prefs.fonts.tableFontSize = defaultsize}; if not defined (user.prefs.fonts.wptextFont) { user.prefs.fonts.wptextFont = defaultfont}; if not defined (user.prefs.fonts.wptextFontSize) { user.prefs.fonts.wptextFontSize = defaultsize}; if not defined (user.prefs.fonts.scriptFont) { user.prefs.fonts.scriptFont = defaultfont}; if not defined (user.prefs.fonts.scriptFontSize) { user.prefs.fonts.scriptFontSize = defaultsize}; if not defined (user.prefs.fonts.menuBarFont) { case sys.os () { "Win95"; "WinNT" { user.prefs.fonts.menuBarFont = defaultfont}; "MacOS" { ÇChicago with System 7, Charcoal with OS 8. if system.environment.isCarbon { user.prefs.fonts.menuBarFont = defaultfont} else { if sys.osVersion () beginsWith "8" { user.prefs.fonts.menuBarFont = "Charcoal"} else { user.prefs.fonts.menuBarFont = "Chicago"}}}}}; if not defined (user.prefs.fonts.menuBarFontSize) { user.prefs.fonts.menuBarFontSize = defaultsize}}; 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.suspend); new (tableType, @user.callbacks.systemTrayIcon2Click); new (tableType, @user.callbacks.systemTrayIconRightClick); new (tableType, @user.callbacks.statusMessage)}; 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 //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) Ç Ç Çbundle //misc Frontier 8 stuff Ç Çlocal (adr, sizeTable = sizeOf (workspace), i) // ? - no initializations of workspace? Çfor i = sizeTable downTo 1 Çlocal (adr = @workspace [i]) Çlocal (name = nameOf (adr^)) Çcase string.lower (name) Ç"notepad" Ç"userlandsamples" Çcontinue Çdelete (adr) Ç Ç Çreturn (true) Ç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 it 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 // 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) Ç11/29/04; 11:17:45 AM by TAC - the following seems like it should be done as part of mainRepsonder startup, init. if I remember correctly, 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}; };Ç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 // make sure proxy prefs exist, now in webBrowser.init Çif not defined (user.webBrowser) Çnew (tableType, @user.webBrowser) Çif not defined (user.webBrowser.proxy) Çnew (tableType, @user.webBrowser.proxy) Çif not defined (user.webBrowser.proxy.domain) Çuser.webBrowser.proxy.domain = "" Çif not defined (user.webBrowser.proxy.password) Çuser.webBrowser.proxy.password = "" Çif not defined (user.webBrowser.proxy.port) Çuser.webBrowser.proxy.port = 80 Çif not defined (user.webBrowser.proxy.username) Çuser.webBrowser.proxy.username = "" Çif not defined (user.webBrowser.proxy.enabled) // 11/14/04; 4:00:48 PM by TAC Çuser.webBrowser.proxy.enabled = false 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 ("")}}}; Çelse Çnew (tableType, @user.databases)}; 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"]}; Çwe do this until we can whip mainResponder into shape for the open source relase, then we would use the urlToOpen below 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); // 11/25/04; 1:41:26 PM by TAC - disabled ÇwebBrowser.openUrl ("http://127.0.0.1:5336/hCard/userInfo/") }};ÇwebBrowser.bringToFront () return (true)}; infoDialog (); //AR 09/27/04 : personalize install, disabled web-based install for open source release // ? - replace with browser based interface? Ç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 (); Ç Ç ÇÇfinish the job started by userland.cleanRoot Çsystem.menus.buildMenuBar () Çif not (userland.finishInstall ()) //PBS 06/02/01: web-based install ÇinfoDialog () Ç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 |
|
From: creedon <icr...@us...> - 2005-06-14 06:27:07
|
Update of /cvsroot/frontierkernel/odbs/frontierRoot/system/startup In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv15376 Modified Files: startupScript Log Message: rewrite for Open Source release, bring in code from startup.startupScript, userland.firstRootRun, userland.finishInstall, and userland.cleanRoot Index: startupScript =================================================================== RCS file: /cvsroot/frontierkernel/odbs/frontierRoot/system/startup/startupScript,v retrieving revision 1.1.1.1 retrieving revision 1.2 diff -C2 -d -r1.1.1.1 -r1.2 *** startupScript 26 Mar 2005 19:41:54 -0000 1.1.1.1 --- startupScript 14 Jun 2005 06:26:55 -0000 1.2 *************** *** 1,3 **** FrontierVcsFile:1:scpt:system.startup.startupScript ! ÇThis script runs when Frontier opens the Frontier.root file. Ç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 Ç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 Ç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 Ç04/20/01; 4:49:05 PM by JES ÇCall tools.startup to install Tools at startup. Ç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. Ç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. Ç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. local (flEnableAgents = true, flOpenDatabases = true, flEnableHttpServer = true); //can be set by the external startup script 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; user.scheduler.prefs.startingup = true; Frontier.pathstring = file.folderFromPath (frontier.getFilePath ()); scheduler.init (); bundle { //6.1, be sure pre-defined scheduler tasks have reasonable times local (day, month, year, hour, minute, second); date.get (clock.now (), @day, @month, @year, @hour, @minute, @second); user.scheduler.tasks.everyMinute.taskTime = date.set (day, month, year, hour, minute + 1, 0); user.scheduler.tasks.hourly.taskTime = date.set (day, month, year, hour + 1, 0, 0); if user.scheduler.tasks.overnight.taskTime < clock.now () { //PBS 10/6/99: if the overnight task time is before now, reschedule local (overnighthour); bundle { //preserve hour for overnight task, some people like to run them at 3AM local (day, month, year, minute, second); date.get (user.scheduler.tasks.overnight.taskTime, @day, @month, @year, @overnighthour, @minute, @second)}; user.scheduler.tasks.overnight.taskTime = date.set (day, month, year, overnighthour, 0, 0); if user.scheduler.tasks.overnight.taskTime < clock.now () { //it's still before now, set it for tomorrow user.scheduler.tasks.overnight.taskTime = date.set (day + 1, month, year, overnighthour, 0, 0)}}}; system.menus.data.currentsuite = ""; system.menus.data.currentmenu = 0; 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)}}; Frontier.enableAgents (flEnableAgents); }; 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 ("")}}} else { new (tableType, @user.databases)}}; html.init (); webserver.init (); betty.init (); people.init (); custody.init (); soap.init (); on proxyInit () { //make sure proxy prefs exist if not defined (user.webBrowser) { new (tableType, @user.webBrowser)}; if not defined (user.webBrowser.proxy) { new (tableType, @user.webBrowser.proxy)}; if not defined (user.webBrowser.proxy.domain) { user.webBrowser.proxy.domain = ""}; if not defined (user.webBrowser.proxy.password) { user.webBrowser.proxy.password = ""}; if not defined (user.webBrowser.proxy.port) { user.webBrowser.proxy.port = 80}; if not defined (user.webBrowser.proxy.username) { user.webBrowser.proxy.username = ""}}; 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)}; if user.prefs.firstRootRun { //license agreement, finish cleanup on user's machine userland.firstRootRun (); Çfinish the job started by userland.cleanRoot user.prefs.firstRootRun = false; system.menus.buildMenuBar (); fileMenu.save (); Çif not (userland.finishInstall ()) //PBS 06/02/01: web-based install ÇinfoDialog () Ç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 Çedit (@system.startup.license) Çbundle //get root update ÇproxyInit () Çif user.prefs.serialNumber != "" and not (string.lower (user.prefs.serialNumber) contains "trial") ÇrootUpdates.init () ÇrootUpdates.getCurrent ("Frontier") infoDialog ()}; //AR 09/27/04 : personalize install, disabled web-based install for open source release system.menus.buildMenuBar (); system.menus.buildSuitesSubmenu (); //5.0 bundle { //check for presence of Psapi.dll if sys.os () == "WinNT" { if not (sys.appIsRunning ("Frontier.exe")) { dialog.alert ("You need to run the Frontier Psapi Installer for certain Frontier verbs to work properly.")}}}; proxyInit (); if system.environment.isWindows { user.webBrowser.winDefaultBrowserApp = file.findApplication ("htm")}; if system.environment.isMac { try {new (tableType, @user.odbEditors.data.openFiles)}}; //Empty out the list of externally-edited files. try { //04/28/2001 JES: prevent startup from failing if Tool installation fails. Frontier.tools.startup ()}; system.callbacks.startup (); //call user's startup scripts 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 { //PBS 06/02/01: open the Control Panel the first time if defined (system.temp.installer.urlToOpen) { window.update ("About Frontier"); webBrowser.openUrl (system.temp.installer.urlToOpen); webBrowser.bringToFront ()} else { //JES 4/14/02: do the trial version check userland.trialVersionCheck ()}}; system.temp.Frontier.startingUp = false //signal to all who care, let the hits begin! \ 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 Ç11/27/04; 8:16:58 AM 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?only_with_tag=initial_frontier_root&view=markup> Çuserland.firstRootRun <http://cvs.sourceforge.net/viewcvs.py/frontierkernel/odbs/frontierRoot/system/verbs/builtins/userland/firstRootRun?only_with_tag=initial_frontier_root&view=markup> Çuserland.finishInstall <http://cvs.sourceforge.net/viewcvs.py/frontierkernel/odbs/frontierRoot/system/verbs/builtins/userland/finishInstall?only_with_tag=initial_frontier_root&view=markup> Çuserland.cleanRoot <http://cvs.sourceforge.net/viewcvs.py/frontierkernel/odbs/frontierRoot/system/verbs/builtins/userland/Attic/cleanRoot?only_with_tag=initial_frontier_root&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 { // first root run, phase 1 of 2 if defined (user.prefs.firstRootRun) { // 2004-11-13 TAC flFirstRootRun = user.prefs.firstRootRun}; if flFirstRootRun { // license agreement, finish cleanup on user's machine Frontier.enableAgents (false); // try to keeps agents from reporting errors while window.frontmost () != "" { // open windows can mess things up later on window.hide (window.frontmost ())}; Çreturn (false) // enable for debugging 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 = ""; bundle { // set up user.prefs.fonts local (defaultfont, defaultsize); new (tableType, @user.prefs.fonts); case sys.os () { "MacOS" { defaultfont = "Geneva"; defaultsize = 12; if system.environment.isCarbon { defaultsize = 10}}; "WinNT"; "Win95" { defaultfont = "Arial"; defaultsize = 10}}; if not defined (user.prefs.fonts.outlineFont) { user.prefs.fonts.outlineFont = defaultfont}; if not defined (user.prefs.fonts.outlineFontSize) { user.prefs.fonts.outlineFontSize = defaultsize}; if not defined (user.prefs.fonts.tableFont) { user.prefs.fonts.tableFont = defaultfont}; if not defined (user.prefs.fonts.tableFontSize) { user.prefs.fonts.tableFontSize = defaultsize}; if not defined (user.prefs.fonts.wptextFont) { user.prefs.fonts.wptextFont = defaultfont}; if not defined (user.prefs.fonts.wptextFontSize) { user.prefs.fonts.wptextFontSize = defaultsize}; if not defined (user.prefs.fonts.scriptFont) { user.prefs.fonts.scriptFont = defaultfont}; if not defined (user.prefs.fonts.scriptFontSize) { user.prefs.fonts.scriptFontSize = defaultsize}; if not defined (user.prefs.fonts.menuBarFont) { case sys.os () { "Win95"; "WinNT" { user.prefs.fonts.menuBarFont = defaultfont}; "MacOS" { ÇChicago with System 7, Charcoal with OS 8. if system.environment.isCarbon { user.prefs.fonts.menuBarFont = defaultfont} else { if sys.osVersion () beginsWith "8" { user.prefs.fonts.menuBarFont = "Charcoal"} else { user.prefs.fonts.menuBarFont = "Chicago"}}}}}; if not defined (user.prefs.fonts.menuBarFontSize) { user.prefs.fonts.menuBarFontSize = defaultsize}}; 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.suspend); new (tableType, @user.callbacks.systemTrayIcon2Click); new (tableType, @user.callbacks.systemTrayIconRightClick); new (tableType, @user.callbacks.statusMessage)}; 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 //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) Ç Ç Çbundle //misc Frontier 8 stuff Ç Çlocal (adr, sizeTable = sizeOf (workspace), i) // ? - no initializations of workspace? Çfor i = sizeTable downTo 1 Çlocal (adr = @workspace [i]) Çlocal (name = nameOf (adr^)) Çcase string.lower (name) Ç"notepad" Ç"userlandsamples" Çcontinue Çdelete (adr) Ç Ç Çreturn (true) Ç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 it 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 // 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) Ç11/29/04; 11:17:45 AM by TAC - the following seems like it should be done as part of mainRepsonder startup, init. if I remember correctly, 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}; };Ç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 Frontier.pathstring = file.folderFromPath (frontier.getFilePath ()); system.menus.data.currentsuite = ""; system.menus.data.currentmenu = 0; Çbundle // make sure proxy prefs exist, now in webBrowser.init Çif not defined (user.webBrowser) Çnew (tableType, @user.webBrowser) Çif not defined (user.webBrowser.proxy) Çnew (tableType, @user.webBrowser.proxy) Çif not defined (user.webBrowser.proxy.domain) Çuser.webBrowser.proxy.domain = "" Çif not defined (user.webBrowser.proxy.password) Çuser.webBrowser.proxy.password = "" Çif not defined (user.webBrowser.proxy.port) Çuser.webBrowser.proxy.port = 80 Çif not defined (user.webBrowser.proxy.username) Çuser.webBrowser.proxy.username = "" Çif not defined (user.webBrowser.proxy.enabled) // 11/14/04; 4:00:48 PM by TAC Çuser.webBrowser.proxy.enabled = false 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 ("")}}}; Çelse Çnew (tableType, @user.databases)}; 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"]}; Çwe do this until we can whip mainResponder into shape for the open source relase, then we would use the urlToOpen below 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); // 11/25/04; 1:41:26 PM by TAC - disabled ÇwebBrowser.openUrl ("http://127.0.0.1:5336/hCard/userInfo/") }};ÇwebBrowser.bringToFront () return (true)}; infoDialog (); //AR 09/27/04 : personalize install, disabled web-based install for open source release // ? - replace with browser based interface? Ç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 (); Ç Ç ÇÇfinish the job started by userland.cleanRoot Çsystem.menus.buildMenuBar () Çif not (userland.finishInstall ()) //PBS 06/02/01: web-based install ÇinfoDialog () Ç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 |
|
From: creedon <icr...@us...> - 2005-06-14 06:09:09
|
Update of /cvsroot/frontierkernel/odbs/frontierRoot/system/verbs/builtins/Frontier/data/commonStylesWin/medium In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv8545 Added Files: font size Log Message: moved from userland table --- NEW FILE: font --- FrontierVcsFile:1:TEXT:system.verbs.builtins.Frontier.data.commonStylesWin.medium.font Arial --- NEW FILE: size --- FrontierVcsFile:1:long:system.verbs.builtins.Frontier.data.commonStylesWin.medium.size 12 |
|
From: creedon <icr...@us...> - 2005-06-14 06:09:05
|
Update of /cvsroot/frontierkernel/odbs/frontierRoot/system/verbs/builtins/Frontier/data/commonStylesMac/tiny In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv8513 Added Files: font size Log Message: moved from userland table --- NEW FILE: font --- FrontierVcsFile:1:TEXT:system.verbs.builtins.Frontier.data.commonStylesMac.tiny.font Geneva --- NEW FILE: size --- FrontierVcsFile:1:long:system.verbs.builtins.Frontier.data.commonStylesMac.tiny.size 9 |
|
From: creedon <icr...@us...> - 2005-06-14 06:08:58
|
Update of /cvsroot/frontierkernel/odbs/frontierRoot/system/verbs/builtins/Frontier/data/commonStylesMac/huge In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv8479 Added Files: size font Log Message: moved from userland table --- NEW FILE: font --- FrontierVcsFile:1:TEXT:system.verbs.builtins.Frontier.data.commonStylesMac.huge.font Helvetica --- NEW FILE: size --- FrontierVcsFile:1:long:system.verbs.builtins.Frontier.data.commonStylesMac.huge.size 18 |
|
From: creedon <icr...@us...> - 2005-06-14 06:08:53
|
Update of /cvsroot/frontierkernel/odbs/frontierRoot/system/verbs/builtins/Frontier/data/commonStylesMac/readable In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv8308 Added Files: font size Log Message: moved from userland table --- NEW FILE: font --- FrontierVcsFile:1:TEXT:system.verbs.builtins.Frontier.data.commonStylesMac.readable.font Palatino --- NEW FILE: size --- FrontierVcsFile:1:long:system.verbs.builtins.Frontier.data.commonStylesMac.readable.size 12 |
|
From: creedon <icr...@us...> - 2005-06-14 06:08:47
|
Update of /cvsroot/frontierkernel/odbs/frontierRoot/system/verbs/builtins/Frontier/data/commonStylesWin/readable In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv8242 Added Files: size font Log Message: moved from userland table --- NEW FILE: font --- FrontierVcsFile:1:TEXT:system.verbs.builtins.Frontier.data.commonStylesWin.readable.font Times New Roman --- NEW FILE: size --- FrontierVcsFile:1:long:system.verbs.builtins.Frontier.data.commonStylesWin.readable.size 12 |
|
From: creedon <icr...@us...> - 2005-06-14 06:08:44
|
Update of /cvsroot/frontierkernel/odbs/frontierRoot/system/verbs/builtins/Frontier/data/commonStylesWin/tiny In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv8181 Added Files: font size Log Message: moved from userland table --- NEW FILE: font --- FrontierVcsFile:1:TEXT:system.verbs.builtins.Frontier.data.commonStylesWin.tiny.font Arial --- NEW FILE: size --- FrontierVcsFile:1:long:system.verbs.builtins.Frontier.data.commonStylesWin.tiny.size 10 |
|
From: creedon <icr...@us...> - 2005-06-14 06:08:40
|
Update of /cvsroot/frontierkernel/odbs/frontierRoot/system/verbs/builtins/Frontier/data/commonStylesMac/medium In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv8135 Added Files: size font Log Message: moved from userland table --- NEW FILE: font --- FrontierVcsFile:1:TEXT:system.verbs.builtins.Frontier.data.commonStylesMac.medium.font Geneva --- NEW FILE: size --- FrontierVcsFile:1:long:system.verbs.builtins.Frontier.data.commonStylesMac.medium.size 12 |
|
From: creedon <icr...@us...> - 2005-06-14 06:08:34
|
Update of /cvsroot/frontierkernel/odbs/frontierRoot/system/verbs/builtins/Frontier/data/commonStylesWin/huge In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv8025 Added Files: size font Log Message: moved from userland table --- NEW FILE: font --- FrontierVcsFile:1:TEXT:system.verbs.builtins.Frontier.data.commonStylesWin.huge.font Arial --- NEW FILE: size --- FrontierVcsFile:1:long:system.verbs.builtins.Frontier.data.commonStylesWin.huge.size 18 |
|
From: creedon <icr...@us...> - 2005-06-14 06:02:05
|
Update of /cvsroot/frontierkernel/odbs/frontierRoot/system/verbs/builtins/Frontier/data/commonStylesMac/tiny In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv4894/tiny Log Message: Directory /cvsroot/frontierkernel/odbs/frontierRoot/system/verbs/builtins/Frontier/data/commonStylesMac/tiny added to the repository |
|
From: creedon <icr...@us...> - 2005-06-14 06:02:04
|
Update of /cvsroot/frontierkernel/odbs/frontierRoot/system/verbs/builtins/Frontier/data/commonStylesMac/readable In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv4894/readable Log Message: Directory /cvsroot/frontierkernel/odbs/frontierRoot/system/verbs/builtins/Frontier/data/commonStylesMac/readable added to the repository |
|
From: creedon <icr...@us...> - 2005-06-14 06:02:04
|
Update of /cvsroot/frontierkernel/odbs/frontierRoot/system/verbs/builtins/Frontier/data/commonStylesMac/medium In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv4894/medium Log Message: Directory /cvsroot/frontierkernel/odbs/frontierRoot/system/verbs/builtins/Frontier/data/commonStylesMac/medium added to the repository |
|
From: creedon <icr...@us...> - 2005-06-14 06:02:04
|
Update of /cvsroot/frontierkernel/odbs/frontierRoot/system/verbs/builtins/Frontier/data/commonStylesMac/huge In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv4894/huge Log Message: Directory /cvsroot/frontierkernel/odbs/frontierRoot/system/verbs/builtins/Frontier/data/commonStylesMac/huge added to the repository |
|
From: creedon <icr...@us...> - 2005-06-14 06:01:33
|
Update of /cvsroot/frontierkernel/odbs/frontierRoot/system/verbs/builtins/Frontier/data/commonStylesWin/tiny In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv4657/tiny Log Message: Directory /cvsroot/frontierkernel/odbs/frontierRoot/system/verbs/builtins/Frontier/data/commonStylesWin/tiny added to the repository |
|
From: creedon <icr...@us...> - 2005-06-14 06:01:32
|
Update of /cvsroot/frontierkernel/odbs/frontierRoot/system/verbs/builtins/Frontier/data/commonStylesWin/readable In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv4657/readable Log Message: Directory /cvsroot/frontierkernel/odbs/frontierRoot/system/verbs/builtins/Frontier/data/commonStylesWin/readable added to the repository |
|
From: creedon <icr...@us...> - 2005-06-14 06:01:32
|
Update of /cvsroot/frontierkernel/odbs/frontierRoot/system/verbs/builtins/Frontier/data/commonStylesWin/huge In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv4657/huge Log Message: Directory /cvsroot/frontierkernel/odbs/frontierRoot/system/verbs/builtins/Frontier/data/commonStylesWin/huge added to the repository |
|
From: creedon <icr...@us...> - 2005-06-14 06:01:31
|
Update of /cvsroot/frontierkernel/odbs/frontierRoot/system/verbs/builtins/Frontier/data/commonStylesWin/medium In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv4657/medium Log Message: Directory /cvsroot/frontierkernel/odbs/frontierRoot/system/verbs/builtins/Frontier/data/commonStylesWin/medium added to the repository |
|
From: creedon <icr...@us...> - 2005-06-14 05:59:40
|
Update of /cvsroot/frontierkernel/odbs/frontierRoot/system/verbs/builtins/Frontier/data/commonStylesWin In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv3427/commonStylesWin Log Message: Directory /cvsroot/frontierkernel/odbs/frontierRoot/system/verbs/builtins/Frontier/data/commonStylesWin added to the repository |
|
From: creedon <icr...@us...> - 2005-06-14 05:59:15
|
Update of /cvsroot/frontierkernel/odbs/frontierRoot/system/verbs/builtins/Frontier/data/commonStylesMac In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv3248/commonStylesMac Log Message: Directory /cvsroot/frontierkernel/odbs/frontierRoot/system/verbs/builtins/Frontier/data/commonStylesMac added to the repository |
|
From: creedon <icr...@us...> - 2005-06-14 05:49:50
|
Update of /cvsroot/frontierkernel/odbs/frontierRoot/system/verbs/builtins/userland/commonStylesMac/huge In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv30474 Removed Files: size font Log Message: moved to Frontier.data --- font DELETED --- --- size DELETED --- |
|
From: creedon <icr...@us...> - 2005-06-14 05:49:43
|
Update of /cvsroot/frontierkernel/odbs/frontierRoot/system/verbs/builtins/userland/commonStylesWin/huge In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv30416 Removed Files: size font Log Message: moved to Frontier.data --- font DELETED --- --- size DELETED --- |
|
From: creedon <icr...@us...> - 2005-06-14 05:49:37
|
Update of /cvsroot/frontierkernel/odbs/frontierRoot/system/verbs/builtins/userland/commonStylesWin/readable In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv30402 Removed Files: size font Log Message: moved to Frontier.data --- font DELETED --- --- size DELETED --- |
1 message has been excluded from this view by a project administrator.
