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: Andre R. <and...@us...> - 2006-02-05 14:29:58
|
Update of /cvsroot/frontierkernel/Frontier/Common/headers In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv32142 Modified Files: macconv.h Log Message: Declare kNavGenericSignature here to make filedialogverb in fileverbs.c compile on Win32. Index: macconv.h =================================================================== RCS file: /cvsroot/frontierkernel/Frontier/Common/headers/macconv.h,v retrieving revision 1.4 retrieving revision 1.5 diff -C2 -d -r1.4 -r1.5 *** macconv.h 11 Jan 2005 22:48:01 -0000 1.4 --- macconv.h 5 Feb 2006 14:29:49 -0000 1.5 *************** *** 706,709 **** --- 706,713 ---- }; + enum { /* 2006-02-05 aradke: for filedialogverb in fileverbs.c */ + kNavGenericSignature = '****' /* 0x2a2a2a2a */ + }; + #define iBeamCursor -100 #define watchCursor -101 |
|
From: Andre R. <and...@us...> - 2006-02-04 23:24:29
|
Update of /cvsroot/frontierkernel/Frontier/build_XCode/Frontier.xcode In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv5352/Frontier.xcode Modified Files: project.pbxproj Log Message: Make extraction of version string from versions.h more robust in the post-build shell script. Index: project.pbxproj =================================================================== RCS file: /cvsroot/frontierkernel/Frontier/build_XCode/Frontier.xcode/project.pbxproj,v retrieving revision 1.20 retrieving revision 1.21 diff -C2 -d -r1.20 -r1.21 *** project.pbxproj 17 Sep 2005 16:39:24 -0000 1.20 --- project.pbxproj 4 Feb 2006 23:24:16 -0000 1.21 *************** *** 36,39 **** --- 36,40 ---- BB3B83610730603C0049D0C1, 651527B7072BFE0E00411831, + 65CF0C7F099545A4006E3A79, ); isa = PBXGroup; *************** *** 649,653 **** name = Frontier; productName = "Frontier OSX MachO Debug"; ! productReference = 65152569072BFC6500411831; productSettingsXML = "<?xml version=\"1.0\" encoding=\"UTF-8\"?> <!DOCTYPE plist PUBLIC \"-//Apple Computer//DTD PLIST 1.0//EN\" \"http://www.apple.com/DTDs/PropertyList-1.0.dtd\"> --- 650,654 ---- name = Frontier; productName = "Frontier OSX MachO Debug"; ! productReference = 65CF0C7F099545A4006E3A79; productSettingsXML = "<?xml version=\"1.0\" encoding=\"UTF-8\"?> <!DOCTYPE plist PUBLIC \"-//Apple Computer//DTD PLIST 1.0//EN\" \"http://www.apple.com/DTDs/PropertyList-1.0.dtd\"> *************** *** 658,669 **** productType = "com.apple.product-type.application"; }; - 65152569072BFC6500411831 = { - explicitFileType = wrapper.application; - includeInIndex = 0; - isa = PBXFileReference; - path = Frontier.app; - refType = 3; - sourceTree = BUILT_PRODUCTS_DIR; - }; 6515256C072BFC6700411831 = { children = ( --- 659,662 ---- *************** *** 8654,8657 **** --- 8647,8658 ---- }; }; + 65CF0C7F099545A4006E3A79 = { + explicitFileType = wrapper.application; + includeInIndex = 0; + isa = PBXFileReference; + path = Frontier.app; + refType = 3; + sourceTree = BUILT_PRODUCTS_DIR; + }; 65D516AA072CED430097D18E = { fileEncoding = 30; *************** *** 8719,8723 **** runOnlyForDeploymentPostprocessing = 0; shellPath = /bin/sh; ! shellScript = "# debug\n#set -x\n#printenv\n\n# Build Frontier.icns file\n# There seems to be some bugs here, so just use\n# pre-created Frontier.icns file.\n# Also add \"icns.r\" path to Input files and\n# \"Frontier.icns\" path to Output files below.\n\n#/Developer/Tools/Rez \"${SRCROOT}/../resources/Frontier/icns.r\" -d TARGET_API_MAC_CARBON=1 -d FRONTIER_FRAMEWORK_INCLUDES=1 -i \"${SRCROOT}/../Common/headers\" -useDF -o \"${BUILT_PRODUCTS_DIR}/${UNLOCALIZED_RESOURCES_FOLDER_PATH}/Frontier.icns\"\n\n# Strip trademark character to prevent problems wuth shell quoting\n#product_str=`echo ${PRODUCT_NAME} | awk -F '\\342' '{print $1};'`\n\nproduct_str=${PRODUCT_NAME}\n\n# Parse the \"versions.h\" file for useful variables\n\nversion_str=`grep \"frontier_version_string\" \"${SRCROOT}/../Common/headers/versions.h\" | awk -F \\\" '{print $2};'`\ncopyright_year_str=`grep \"copyright_year_string\" \"${SRCROOT}/../Common/headers/versions.h\" | awk -F \\\" '{print $2};'`\n\n# Update the Info.plist\n# Could append \"(dbg)\" to product name for Development build style\n\n#defaults write \"${BUILT_PRODUCTS_DIR}/${CONTENTS_FOLDER_PATH}/Info\" CFBundleVersion ${version_str}\n\n# or use sed\n\nsed -e \"s/\\${PRODUCT_NAME_STR}/${product_str}/g\" -e \"s/\\${PRODUCT_VERSION_STR}/${version_str}/g\" -e \"s/\\${COPYRIGHT_YEAR_STR}/${copyright_year_str}/g\" \"${SRCROOT}/Info.Plist\" > \"${BUILT_PRODUCTS_DIR}/${CONTENTS_FOLDER_PATH}/Info.plist\""; }; DEA58AB307435A9500BAB271 = { --- 8720,8724 ---- runOnlyForDeploymentPostprocessing = 0; shellPath = /bin/sh; ! shellScript = "# debug\n#set -x\n#printenv\n\n# Build Frontier.icns file\n# There seems to be some bugs here, so just use\n# pre-created Frontier.icns file.\n# Also add \"icns.r\" path to Input files and\n# \"Frontier.icns\" path to Output files below.\n\n#/Developer/Tools/Rez \"${SRCROOT}/../resources/Frontier/icns.r\" -d TARGET_API_MAC_CARBON=1 -d FRONTIER_FRAMEWORK_INCLUDES=1 -i \"${SRCROOT}/../Common/headers\" -useDF -o \"${BUILT_PRODUCTS_DIR}/${UNLOCALIZED_RESOURCES_FOLDER_PATH}/Frontier.icns\"\n\n# Strip trademark character to prevent problems wuth shell quoting\n#product_str=`echo ${PRODUCT_NAME} | awk -F '\\342' '{print $1};'`\n\nproduct_str=${PRODUCT_NAME}\n\n# Parse the \"versions.h\" file for useful variables\n\nversion_str=`grep \"frontier_version_string\" \"${SRCROOT}/../Common/headers/versions.h\" | awk -F \\\" '{print $2};'`\ncopyright_year_str=`grep \"#define[[:space:]]*copyright_year_string\" \"${SRCROOT}/../Common/headers/versions.h\" | awk -F \\\" '{print $2};'`\n\n# Update the Info.plist\n# Could append \"(dbg)\" to product name for Development build style\n\n#defaults write \"${BUILT_PRODUCTS_DIR}/${CONTENTS_FOLDER_PATH}/Info\" CFBundleVersion ${version_str}\n\n# or use sed\n\nsed -e \"s/\\${PRODUCT_NAME_STR}/${product_str}/g\" -e \"s/\\${PRODUCT_VERSION_STR}/${version_str}/g\" -e \"s/\\${COPYRIGHT_YEAR_STR}/${copyright_year_str}/g\" \"${SRCROOT}/Info.Plist\" > \"${BUILT_PRODUCTS_DIR}/${CONTENTS_FOLDER_PATH}/Info.plist\""; }; DEA58AB307435A9500BAB271 = { |
|
From: Andre R. <and...@us...> - 2006-02-04 16:08:52
|
Update of /cvsroot/frontierkernel/Frontier/build_CWPro8/prefix_headers In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv1006 Modified Files: opml.osx.h opml.osx.r opml.osxcfm.debug.pch opml.osxcfm.release.pch opml.ppc.debug.pch opml.ppc.h opml.ppc.r opml.ppc.release.pch opml.win32.debug.pch opml.win32.h opml.win32.rcprefix.h opml.win32.release.pch Log Message: Added CVS keyword at top of file for easier identification, let's see if a single check-in does it. Index: opml.win32.release.pch =================================================================== RCS file: /cvsroot/frontierkernel/Frontier/build_CWPro8/prefix_headers/opml.win32.release.pch,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** opml.win32.release.pch 4 Feb 2006 15:49:56 -0000 1.1 --- opml.win32.release.pch 4 Feb 2006 16:08:42 -0000 1.2 *************** *** 1,3 **** --- 1,5 ---- + /* $Id$ */ + /****************************************************************************** Index: opml.osx.h =================================================================== RCS file: /cvsroot/frontierkernel/Frontier/build_CWPro8/prefix_headers/opml.osx.h,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** opml.osx.h 4 Feb 2006 15:49:56 -0000 1.1 --- opml.osx.h 4 Feb 2006 16:08:42 -0000 1.2 *************** *** 1,3 **** --- 1,5 ---- + /* $Id$ */ + /****************************************************************************** Index: opml.win32.rcprefix.h =================================================================== RCS file: /cvsroot/frontierkernel/Frontier/build_CWPro8/prefix_headers/opml.win32.rcprefix.h,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** opml.win32.rcprefix.h 4 Feb 2006 15:49:56 -0000 1.1 --- opml.win32.rcprefix.h 4 Feb 2006 16:08:42 -0000 1.2 *************** *** 1,3 **** --- 1,5 ---- + /* $Id$ */ + /****************************************************************************** Index: opml.ppc.r =================================================================== RCS file: /cvsroot/frontierkernel/Frontier/build_CWPro8/prefix_headers/opml.ppc.r,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** opml.ppc.r 4 Feb 2006 15:49:56 -0000 1.1 --- opml.ppc.r 4 Feb 2006 16:08:42 -0000 1.2 *************** *** 1,3 **** --- 1,5 ---- + /* $Id$ */ + /****************************************************************************** Index: opml.osxcfm.debug.pch =================================================================== RCS file: /cvsroot/frontierkernel/Frontier/build_CWPro8/prefix_headers/opml.osxcfm.debug.pch,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** opml.osxcfm.debug.pch 4 Feb 2006 15:49:56 -0000 1.1 --- opml.osxcfm.debug.pch 4 Feb 2006 16:08:42 -0000 1.2 *************** *** 1,3 **** --- 1,5 ---- + /* $Id$ */ + /****************************************************************************** Index: opml.ppc.release.pch =================================================================== RCS file: /cvsroot/frontierkernel/Frontier/build_CWPro8/prefix_headers/opml.ppc.release.pch,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** opml.ppc.release.pch 4 Feb 2006 15:49:56 -0000 1.1 --- opml.ppc.release.pch 4 Feb 2006 16:08:42 -0000 1.2 *************** *** 1,3 **** --- 1,5 ---- + /* $Id$ */ + /****************************************************************************** Index: opml.win32.debug.pch =================================================================== RCS file: /cvsroot/frontierkernel/Frontier/build_CWPro8/prefix_headers/opml.win32.debug.pch,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** opml.win32.debug.pch 4 Feb 2006 15:49:56 -0000 1.1 --- opml.win32.debug.pch 4 Feb 2006 16:08:42 -0000 1.2 *************** *** 1,3 **** --- 1,5 ---- + /* $Id$ */ + /****************************************************************************** Index: opml.osxcfm.release.pch =================================================================== RCS file: /cvsroot/frontierkernel/Frontier/build_CWPro8/prefix_headers/opml.osxcfm.release.pch,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** opml.osxcfm.release.pch 4 Feb 2006 15:49:56 -0000 1.1 --- opml.osxcfm.release.pch 4 Feb 2006 16:08:42 -0000 1.2 *************** *** 1,3 **** --- 1,5 ---- + /* $Id$ */ + /****************************************************************************** Index: opml.osx.r =================================================================== RCS file: /cvsroot/frontierkernel/Frontier/build_CWPro8/prefix_headers/opml.osx.r,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** opml.osx.r 4 Feb 2006 15:49:56 -0000 1.1 --- opml.osx.r 4 Feb 2006 16:08:42 -0000 1.2 *************** *** 1,3 **** --- 1,5 ---- + /* $Id$ */ + /****************************************************************************** Index: opml.ppc.h =================================================================== RCS file: /cvsroot/frontierkernel/Frontier/build_CWPro8/prefix_headers/opml.ppc.h,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** opml.ppc.h 4 Feb 2006 15:49:56 -0000 1.1 --- opml.ppc.h 4 Feb 2006 16:08:42 -0000 1.2 *************** *** 1,3 **** --- 1,5 ---- + /* $Id$ */ + /****************************************************************************** Index: opml.ppc.debug.pch =================================================================== RCS file: /cvsroot/frontierkernel/Frontier/build_CWPro8/prefix_headers/opml.ppc.debug.pch,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** opml.ppc.debug.pch 4 Feb 2006 15:49:56 -0000 1.1 --- opml.ppc.debug.pch 4 Feb 2006 16:08:42 -0000 1.2 *************** *** 1,3 **** --- 1,5 ---- + /* $Id$ */ + /****************************************************************************** Index: opml.win32.h =================================================================== RCS file: /cvsroot/frontierkernel/Frontier/build_CWPro8/prefix_headers/opml.win32.h,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** opml.win32.h 4 Feb 2006 15:49:56 -0000 1.1 --- opml.win32.h 4 Feb 2006 16:08:42 -0000 1.2 *************** *** 1,3 **** --- 1,5 ---- + /* $Id$ */ + /****************************************************************************** |
|
From: Andre R. <and...@us...> - 2006-02-04 15:57:22
|
Update of /cvsroot/frontierkernel/Frontier/build_CWPro8 In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv29113 Added Files: OPML.mcp Log Message: Added CodeWarrior 8 Pro project for compiling the OPML Editor application. --- NEW FILE: OPML.mcp --- (This appears to be a binary file; contents omitted.) |
|
From: Andre R. <and...@us...> - 2006-02-04 15:50:11
|
Update of /cvsroot/frontierkernel/Frontier/build_CWPro8/prefix_headers In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv26895 Added Files: opml.osx.h opml.osx.r opml.osxcfm.debug.pch opml.osxcfm.release.pch opml.ppc.debug.pch opml.ppc.h opml.ppc.r opml.ppc.release.pch opml.win32.debug.pch opml.win32.h opml.win32.rcprefix.h opml.win32.release.pch Log Message: Add prefix headers for compiling the OPML Editor application. --- NEW FILE: opml.win32.release.pch --- /****************************************************************************** UserLand Frontier(tm) -- High performance Web content management, object database, system-level and Internet scripting environment, including source code editing and debugging. Copyright (C) 1992-2004 UserLand Software, Inc. This program is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation; either version 2 of the License, or (at your option) any later version. This program is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details. You should have received a copy of the GNU General Public License along with this program; if not, write to the Free Software Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA ******************************************************************************/ /* 2004-12-11 aradke: Precompile prefix header for "OPML Win32" */ #pragma precompile_target "opml.win32.release.mch" #undef _DEBUG #define NDEBUG #include "opml.win32.h" --- NEW FILE: opml.osx.h --- /****************************************************************************** UserLand Frontier(tm) -- High performance Web content management, object database, system-level and Internet scripting environment, including source code editing and debugging. Copyright (C) 1992-2004 UserLand Software, Inc. This program is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation; either version 2 of the License, or (at your option) any later version. This program is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details. You should have received a copy of the GNU General Public License along with this program; if not, write to the Free Software Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA ******************************************************************************/ /* 2004-12-11 aradke: Generalized CodeWarrior prefix file for Carbon/OSX */ #define PIKE 1 #define OPMLEDITOR 1 #undef WIN95VERSION #define MACVERSION 1 #define TARGET_API_MAC_OS8 0 /* see ConditionalMacros.h */ #define TARGET_API_MAC_CARBON 1 #define TARGET_API_MAC_OSX 0 #include "frontier.h" --- NEW FILE: opml.win32.rcprefix.h --- /****************************************************************************** UserLand Frontier(tm) -- High performance Web content management, object database, system-level and Internet scripting environment, including source code editing and debugging. Copyright (C) 1992-2004 UserLand Software, Inc. This program is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation; either version 2 of the License, or (at your option) any later version. This program is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details. You should have received a copy of the GNU General Public License along with this program; if not, write to the Free Software Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA ******************************************************************************/ /* 2004-12-11 aradke: Generalized CodeWarrior resource prefix file for Win32 */ #define PIKE 1 #define OPMLEDITOR 1 #define WIN95VERSION 1 #define WIN32 #define _WIN32 #define _WINDOWS #define _X86_ #define _WIN32_WINNT 0x0400 /* Windows NT 4.0 or later */ #define _WIN32_WINDOWS 0x0410 /* Windows 98 or later */ #undef MACVERSION #undef TARGET_API_MAC_CARBON #undef TARGET_RT_MAC_CFM #undef TARGET_RT_MAC_MACHO --- NEW FILE: opml.ppc.r --- /****************************************************************************** UserLand Frontier(tm) -- High performance Web content management, object database, system-level and Internet scripting environment, including source code editing and debugging. Copyright (C) 1992-2004 UserLand Software, Inc. This program is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation; either version 2 of the License, or (at your option) any later version. This program is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details. You should have received a copy of the GNU General Public License along with this program; if not, write to the Free Software Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA ******************************************************************************/ /* 2004-12-11 aradke: Generalized CodeWarrior prefix file for Classic Mac OS */ #define PIKE 1 #define OPMLEDITOR 1 #undef WIN95VERSION #define MACVERSION 1 #define TARGET_API_MAC_OS8 1 /* see ConditionalMacros.h */ #define TARGET_API_MAC_CARBON 0 #define TARGET_API_MAC_OSX 0 #undef FRONTIER_FRAMEWORK_INCLUDES --- NEW FILE: opml.osxcfm.debug.pch --- /****************************************************************************** UserLand Frontier(tm) -- High performance Web content management, object database, system-level and Internet scripting environment, including source code editing and debugging. Copyright (C) 1992-2004 UserLand Software, Inc. This program is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation; either version 2 of the License, or (at your option) any later version. This program is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details. You should have received a copy of the GNU General Public License along with this program; if not, write to the Free Software Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA ******************************************************************************/ /* 2004-11-28 aradke: Precompile prefix header for "OPML OSXCFM Debug" */ #pragma precompile_target "opml.osxcfm.debug.mch" #define DEBUG 1 #define DEBUG_INTERNAL 1 #include "opml.osx.h" --- NEW FILE: opml.ppc.release.pch --- /****************************************************************************** UserLand Frontier(tm) -- High performance Web content management, object database, system-level and Internet scripting environment, including source code editing and debugging. Copyright (C) 1992-2004 UserLand Software, Inc. This program is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation; either version 2 of the License, or (at your option) any later version. This program is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details. You should have received a copy of the GNU General Public License along with this program; if not, write to the Free Software Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA ******************************************************************************/ /* 2004-12-11 aradke: Precompile prefix header for "Radio PPC" */ #pragma precompile_target "opml.ppc.release.mch" #include "opml.ppc.h" --- NEW FILE: opml.win32.debug.pch --- /****************************************************************************** UserLand Frontier(tm) -- High performance Web content management, object database, system-level and Internet scripting environment, including source code editing and debugging. Copyright (C) 1992-2004 UserLand Software, Inc. This program is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation; either version 2 of the License, or (at your option) any later version. This program is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details. You should have received a copy of the GNU General Public License along with this program; if not, write to the Free Software Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA ******************************************************************************/ /* 2004-12-11 aradke: Precompile prefix header for "OPML Win32 Debug" */ #pragma precompile_target "opml.win32.debug.mch" #define _DEBUG #undef NDEBUG #include "opml.win32.h" --- NEW FILE: opml.osxcfm.release.pch --- /****************************************************************************** UserLand Frontier(tm) -- High performance Web content management, object database, system-level and Internet scripting environment, including source code editing and debugging. Copyright (C) 1992-2004 UserLand Software, Inc. This program is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation; either version 2 of the License, or (at your option) any later version. This program is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details. You should have received a copy of the GNU General Public License along with this program; if not, write to the Free Software Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA ******************************************************************************/ /* 2004-12-11 aradke: Precompile prefix header for "OPML OSXCFM" */ #pragma precompile_target "opml.osxcfm.release.mch" #define DEBUG 1 #define PRODUCTION 1 #include "opml.osx.h" --- NEW FILE: opml.osx.r --- /****************************************************************************** UserLand Frontier(tm) -- High performance Web content management, object database, system-level and Internet scripting environment, including source code editing and debugging. Copyright (C) 1992-2004 UserLand Software, Inc. This program is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation; either version 2 of the License, or (at your option) any later version. This program is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details. You should have received a copy of the GNU General Public License along with this program; if not, write to the Free Software Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA ******************************************************************************/ /* 2004-12-11 aradke: Generalized CodeWarrior prefix file for Carbon/OSX */ #define PIKE 1 #define OPMLEDITOR 1 #undef WIN95VERSION #define MACVERSION 1 #define TARGET_API_MAC_OS8 0 /* see ConditionalMacros.h */ #define TARGET_API_MAC_CARBON 1 #define TARGET_API_MAC_OSX 0 #undef FRONTIER_FRAMEWORK_INCLUDES --- NEW FILE: opml.ppc.h --- /****************************************************************************** UserLand Frontier(tm) -- High performance Web content management, object database, system-level and Internet scripting environment, including source code editing and debugging. Copyright (C) 1992-2004 UserLand Software, Inc. This program is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation; either version 2 of the License, or (at your option) any later version. This program is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details. You should have received a copy of the GNU General Public License along with this program; if not, write to the Free Software Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA ******************************************************************************/ /* 2004-12-11 aradke: Generalized CodeWarrior prefix file for Classic Mac OS */ #define PIKE 1 #define OPMLEDITOR 1 #undef WIN95VERSION #define MACVERSION 1 #define TARGET_API_MAC_OS8 1 /* see ConditionalMacros.h */ #define TARGET_API_MAC_CARBON 0 #define TARGET_API_MAC_OSX 0 #include "frontier.h" --- NEW FILE: opml.ppc.debug.pch --- /****************************************************************************** UserLand Frontier(tm) -- High performance Web content management, object database, system-level and Internet scripting environment, including source code editing and debugging. Copyright (C) 1992-2004 UserLand Software, Inc. This program is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation; either version 2 of the License, or (at your option) any later version. This program is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details. You should have received a copy of the GNU General Public License along with this program; if not, write to the Free Software Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA ******************************************************************************/ /* 2004-12-11 aradke: Precompile prefix header for "OPML PPC Debug" */ #pragma precompile_target "opml.ppc.debug.mch" #include "opml.ppc.h" --- NEW FILE: opml.win32.h --- /****************************************************************************** UserLand Frontier(tm) -- High performance Web content management, object database, system-level and Internet scripting environment, including source code editing and debugging. Copyright (C) 1992-2004 UserLand Software, Inc. This program is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation; either version 2 of the License, or (at your option) any later version. This program is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details. You should have received a copy of the GNU General Public License along with this program; if not, write to the Free Software Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA ******************************************************************************/ /* 2004-12-11 aradke: Generalized CodeWarrior prefix file for Win32 */ #define PIKE 1 #define OPMLEDITOR 1 #define WIN95VERSION 1 #define WIN32 #define _WIN32 #define _WINDOWS #define _X86_ #define _WIN32_WINNT 0x0400 /* Windows NT 4.0 or later */ #define _WIN32_WINDOWS 0x0410 /* Windows 98 or later */ #undef MACVERSION #undef TARGET_API_MAC_CARBON #undef TARGET_RT_MAC_CFM #undef TARGET_RT_MAC_MACHO #include "frontier.h" |
|
From: Karsten W. <kar...@us...> - 2006-02-02 19:01:54
|
Update of /cvsroot/frontierkernel/Frontier/Common/source In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv18510/source Modified Files: Tag: pre_int64_branch langpython.c Log Message: second round (minor) changes for i64 Index: langpython.c =================================================================== RCS file: /cvsroot/frontierkernel/Frontier/Common/source/langpython.c,v retrieving revision 1.6 retrieving revision 1.6.4.1 diff -C2 -d -r1.6 -r1.6.4.1 *** langpython.c 24 Jan 2005 03:08:43 -0000 1.6 --- langpython.c 2 Feb 2006 19:01:41 -0000 1.6.4.1 *************** *** 126,130 **** boolean langrunpythonscript (hdltreenode hp1, tyvaluerecord *v) { ! langerror (unimplementedverberror); --- 126,130 ---- boolean langrunpythonscript (hdltreenode hp1, tyvaluerecord *v) { ! #pragma unused (v, hp1) langerror (unimplementedverberror); |
|
From: Karsten W. <kar...@us...> - 2006-02-02 19:01:54
|
Update of /cvsroot/frontierkernel/Frontier/Common/IOAToolkit In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv18510/d Modified Files: Tag: pre_int64_branch ioaradio.c ioarect.c ioascrollbar.c Log Message: second round (minor) changes for i64 Index: ioaradio.c =================================================================== RCS file: /cvsroot/frontierkernel/Frontier/Common/IOAToolkit/ioaradio.c,v retrieving revision 1.4 retrieving revision 1.4.6.1 diff -C2 -d -r1.4 -r1.4.6.1 *** ioaradio.c 11 Jan 2005 22:47:38 -0000 1.4 --- ioaradio.c 2 Feb 2006 19:01:41 -0000 1.4.6.1 *************** *** 81,85 **** static boolean canreplicateradio (hdlobject h) { ! return (true); /*it can be replicated*/ } /*canreplicateradio*/ --- 81,85 ---- static boolean canreplicateradio (hdlobject h) { ! #pragma unused (h) return (true); /*it can be replicated*/ } /*canreplicateradio*/ *************** *** 109,113 **** static boolean debugradio (hdlobject h, bigstring errorstring) { ! setstringlength (errorstring, 0); --- 109,113 ---- static boolean debugradio (hdlobject h, bigstring errorstring) { ! #pragma unused (h) setstringlength (errorstring, 0); Index: ioascrollbar.c =================================================================== RCS file: /cvsroot/frontierkernel/Frontier/Common/IOAToolkit/ioascrollbar.c,v retrieving revision 1.4 retrieving revision 1.4.6.1 diff -C2 -d -r1.4 -r1.4.6.1 *** ioascrollbar.c 11 Jan 2005 22:47:38 -0000 1.4 --- ioascrollbar.c 2 Feb 2006 19:01:41 -0000 1.4.6.1 *************** *** 82,86 **** static boolean cleanscrollbar (hdlobject h, short textheight, short textwidth, Rect *r) { ! short height, width; --- 82,86 ---- static boolean cleanscrollbar (hdlobject h, short textheight, short textwidth, Rect *r) { ! #pragma unused (textheight, textwidth) short height, width; *************** *** 176,180 **** static boolean clickscrollbar (hdlobject listhead, hdlobject h, Point pt, boolean flshiftkey, boolean fl2click) { ! hdlscrollbardata hdata = (hdlscrollbardata) (**h).objectdata; hdlcard hc = (**h).owningcard; --- 176,180 ---- static boolean clickscrollbar (hdlobject listhead, hdlobject h, Point pt, boolean flshiftkey, boolean fl2click) { ! #pragma unused (listhead, flshiftkey, fl2click) hdlscrollbardata hdata = (hdlscrollbardata) (**h).objectdata; hdlcard hc = (**h).owningcard; *************** *** 299,303 **** static boolean recalcscrollbar (hdlobject h, boolean flmajorrecalc) { ! return (IOArecalcobjectvalue (h)); } /*recalcscrollbar*/ --- 299,303 ---- static boolean recalcscrollbar (hdlobject h, boolean flmajorrecalc) { ! #pragma unused (flmajorrecalc) return (IOArecalcobjectvalue (h)); } /*recalcscrollbar*/ *************** *** 313,317 **** static boolean canreplicatescrollbar (hdlobject h) { ! return (true); } /*canreplicatescrollbar*/ --- 313,317 ---- static boolean canreplicatescrollbar (hdlobject h) { ! #pragma unused (h) return (true); } /*canreplicatescrollbar*/ *************** *** 319,323 **** static boolean getscrollbareditrect (hdlobject h, Rect *r) { ! return (false); /*can't be edited*/ } /*getscrollbareditrect*/ --- 319,323 ---- static boolean getscrollbareditrect (hdlobject h, Rect *r) { ! #pragma unused (h, r) return (false); /*can't be edited*/ } /*getscrollbareditrect*/ *************** *** 345,349 **** static boolean debugscrollbar (hdlobject h, bigstring errorstring) { ! setstringlength (errorstring, 0); --- 345,349 ---- static boolean debugscrollbar (hdlobject h, bigstring errorstring) { ! #pragma unused (h) setstringlength (errorstring, 0); Index: ioarect.c =================================================================== RCS file: /cvsroot/frontierkernel/Frontier/Common/IOAToolkit/ioarect.c,v retrieving revision 1.3 retrieving revision 1.3.6.1 diff -C2 -d -r1.3 -r1.3.6.1 *** ioarect.c 11 Jan 2005 22:47:38 -0000 1.3 --- ioarect.c 2 Feb 2006 19:01:41 -0000 1.3.6.1 *************** *** 83,87 **** static boolean canreplicaterect (hdlobject h) { ! return (false); /*it can't be replicated*/ } /*canreplicaterect*/ --- 83,87 ---- static boolean canreplicaterect (hdlobject h) { ! #pragma unused (h) return (false); /*it can't be replicated*/ } /*canreplicaterect*/ *************** *** 89,93 **** static boolean getrecteditrect (hdlobject h, Rect *r) { ! return (false); /*can't be edited*/ } /*getrecteditrect*/ --- 89,93 ---- static boolean getrecteditrect (hdlobject h, Rect *r) { ! #pragma unused (h, r) return (false); /*can't be edited*/ } /*getrecteditrect*/ *************** *** 101,105 **** static boolean debugrectobject (hdlobject h, bigstring errorstring) { ! setstringlength (errorstring, 0); --- 101,105 ---- static boolean debugrectobject (hdlobject h, bigstring errorstring) { ! #pragma unused (h) setstringlength (errorstring, 0); *************** *** 182,186 **** static boolean clickrect (hdlobject listhead, hdlobject h, Point pt, boolean flshiftkey, boolean fl2click) { ! IOArunbuttonscript (h); --- 182,186 ---- static boolean clickrect (hdlobject listhead, hdlobject h, Point pt, boolean flshiftkey, boolean fl2click) { ! #pragma unused (listhead, pt, flshiftkey, fl2click) IOArunbuttonscript (h); |
|
From: Karsten W. <kar...@us...> - 2006-02-02 18:49:12
|
Update of /cvsroot/frontierkernel/Frontier/FrontierSDK/Toolkits/IACTools/Source In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv12342 Modified Files: Tag: pre_int64_branch iacnetwork.c iacops.c iacsysevents.c Log Message: second round (minor) changes for i64 Index: iacnetwork.c =================================================================== RCS file: /cvsroot/frontierkernel/Frontier/FrontierSDK/Toolkits/IACTools/Source/iacnetwork.c,v retrieving revision 1.4 retrieving revision 1.4.6.1 diff -C2 -d -r1.4 -r1.4.6.1 *** iacnetwork.c 11 Jan 2005 22:48:36 -0000 1.4 --- iacnetwork.c 2 Feb 2006 18:49:03 -0000 1.4.6.1 *************** *** 213,217 **** static pascal Boolean string2networkaddress (ConstStr255Param bsadr, TargetID *target) { ! /* 2004-10-21 aradke: Can't do this on Carbon, give up and return bogus error --- 213,217 ---- static pascal Boolean string2networkaddress (ConstStr255Param bsadr, TargetID *target) { ! #pragma unused (bsadr, target) /* 2004-10-21 aradke: Can't do this on Carbon, give up and return bogus error Index: iacsysevents.c =================================================================== RCS file: /cvsroot/frontierkernel/Frontier/FrontierSDK/Toolkits/IACTools/Source/iacsysevents.c,v retrieving revision 1.3 retrieving revision 1.3.6.1 diff -C2 -d -r1.3 -r1.3.6.1 *** iacsysevents.c 11 Jan 2005 22:48:37 -0000 1.3 --- iacsysevents.c 2 Feb 2006 18:49:03 -0000 1.3.6.1 *************** *** 145,149 **** Boolean IACremovesystemhandler (AEEventClass eventclass, AEEventID id, ProcPtr handler) { ! hdlsystemhandler h = hfirstsystemhandler; hdlsystemhandler hprev = nil; --- 145,149 ---- Boolean IACremovesystemhandler (AEEventClass eventclass, AEEventID id, ProcPtr handler) { ! #pragma unused (handler) hdlsystemhandler h = hfirstsystemhandler; hdlsystemhandler hprev = nil; Index: iacops.c =================================================================== RCS file: /cvsroot/frontierkernel/Frontier/FrontierSDK/Toolkits/IACTools/Source/iacops.c,v retrieving revision 1.3 retrieving revision 1.3.6.1 diff -C2 -d -r1.3 -r1.3.6.1 *** iacops.c 11 Jan 2005 22:48:36 -0000 1.3 --- iacops.c 2 Feb 2006 18:49:03 -0000 1.3.6.1 *************** *** 100,104 **** pascal short IACwaitroutine (EventRecord *ev, long *sleep, RgnHandle *mousergn) { ! /* called by the AppleEvent manager during AESend to give the user a chance to --- 100,104 ---- pascal short IACwaitroutine (EventRecord *ev, long *sleep, RgnHandle *mousergn) { ! #pragma unused (sleep, mousergn) /* called by the AppleEvent manager during AESend to give the user a chance to |
|
From: Karsten W. <kar...@us...> - 2006-02-02 18:40:12
|
Update of /cvsroot/frontierkernel/Frontier/Common/source In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv7622 Modified Files: Tag: pre_int64_branch about.c bitmaps.c dialogs.c fileloop.c frontierdebug.c langipc.c langops.c langquicktime.c langsystypes.c langvalue.c langverbs.c memory.c pictverbs.c scripts.c services.c wpengine.c Log Message: second round (minor) changes for i64 Index: langverbs.c =================================================================== RCS file: /cvsroot/frontierkernel/Frontier/Common/source/langverbs.c,v retrieving revision 1.12.2.1 retrieving revision 1.12.2.2 diff -C2 -d -r1.12.2.1 -r1.12.2.2 *** langverbs.c 31 Jan 2006 16:43:31 -0000 1.12.2.1 --- langverbs.c 2 Feb 2006 18:39:59 -0000 1.12.2.2 *************** *** 865,868 **** --- 865,869 ---- if ((type >= outlinevaluetype) && (type <= pictvaluetype)) { #if LONGINT_LONGDATE == 1 + // kw - 2006-01-30 debugging aids int x = type; if ((type == 38) || (type == 39)) *************** *** 4168,4173 **** return (loadfunctionprocessor (idlangverbs, &langfunctionvalue)); } /*langinitbuiltins*/ - - - - --- 4169,4170 ---- Index: wpengine.c =================================================================== RCS file: /cvsroot/frontierkernel/Frontier/Common/source/wpengine.c,v retrieving revision 1.9 retrieving revision 1.9.2.1 diff -C2 -d -r1.9 -r1.9.2.1 *** wpengine.c 5 Dec 2005 20:36:16 -0000 1.9 --- wpengine.c 2 Feb 2006 18:39:59 -0000 1.9.2.1 *************** *** 510,532 **** //Must pass a CGrafPtr to pushport on OS X to avoid a crash ! #ifdef MACVERSION ! CGrafPtr thePort; ! #if TARGET_API_MAC_CARBON == 1 ! thePort = GetWindowPort(wpwindow); ! #else ! thePort = (CGrafPtr)wpwindow; ! #endif ! pushport (thePort); ! #endif ! #ifdef WIN95VERSION ! pushport (wpwindow); ! #endif --- 510,532 ---- //Must pass a CGrafPtr to pushport on OS X to avoid a crash ! #ifdef MACVERSION ! CGrafPtr thePort; ! #if TARGET_API_MAC_CARBON == 1 ! thePort = GetWindowPort(wpwindow); ! #else ! thePort = (CGrafPtr)wpwindow; ! #endif ! pushport (thePort); ! #endif ! #ifdef WIN95VERSION ! pushport (wpwindow); ! #endif *************** *** 1960,1963 **** --- 1960,1964 ---- /* kw - 2005-12-05 remove this after print error correction */ #if TARGET_API_MAC_CARBON == 1 + #pragma unused(pagenumber) return (false); #else Index: frontierdebug.c =================================================================== RCS file: /cvsroot/frontierkernel/Frontier/Common/source/frontierdebug.c,v retrieving revision 1.4 retrieving revision 1.4.6.1 diff -C2 -d -r1.4 -r1.4.6.1 *** frontierdebug.c 11 Jan 2005 22:48:05 -0000 1.4 --- frontierdebug.c 2 Feb 2006 18:39:59 -0000 1.4.6.1 *************** *** 209,213 **** static void logtodialog (char *str) { ! }/*logtodialog*/ --- 209,213 ---- static void logtodialog (char *str) { ! #pragma unused(str) }/*logtodialog*/ Index: pictverbs.c =================================================================== RCS file: /cvsroot/frontierkernel/Frontier/Common/source/pictverbs.c,v retrieving revision 1.4.6.1 retrieving revision 1.4.6.2 diff -C2 -d -r1.4.6.1 -r1.4.6.2 *** pictverbs.c 31 Jan 2006 16:43:31 -0000 1.4.6.1 --- pictverbs.c 2 Feb 2006 18:39:59 -0000 1.4.6.2 *************** *** 108,112 **** boolean pictverbgettypestring (hdlexternalvariable hvariable, bigstring bs) { ! getstringlist (pictstringlist, picttypestring, bs); --- 108,112 ---- boolean pictverbgettypestring (hdlexternalvariable hvariable, bigstring bs) { ! #pragma unused(hvariable) getstringlist (pictstringlist, picttypestring, bs); *************** *** 116,120 **** static boolean pictdisposevariable (hdlexternalvariable hvariable, boolean fldisk) { ! return (pictdisposerecord ((hdlpictrecord) (**hvariable).variabledata)); } /*pictdisposevariable*/ --- 116,120 ---- static boolean pictdisposevariable (hdlexternalvariable hvariable, boolean fldisk) { ! #pragma unused(fldisk) return (pictdisposerecord ((hdlpictrecord) (**hvariable).variabledata)); } /*pictdisposevariable*/ *************** *** 435,439 **** boolean pictverbpacktotext (hdlexternalvariable h, Handle htext) { ! bigstring bs; --- 435,439 ---- boolean pictverbpacktotext (hdlexternalvariable h, Handle htext) { ! #pragma unused(h) bigstring bs; *************** *** 1022,1026 **** boolean pictverbfind (hdlexternalvariable hvariable, boolean *flzoom) { ! return (false); } /*pictverbfind*/ --- 1022,1026 ---- boolean pictverbfind (hdlexternalvariable hvariable, boolean *flzoom) { ! #pragma unused(hvariable, flzoom) return (false); } /*pictverbfind*/ *************** *** 1068,1072 **** static boolean pictprint (short pagenumber) { ! register hdlpictrecord hp = pictdata; register PicHandle macpicture = (**hp).macpicture; --- 1068,1072 ---- static boolean pictprint (short pagenumber) { ! #pragma unused(pagenumber) register hdlpictrecord hp = pictdata; register PicHandle macpicture = (**hp).macpicture; Index: langquicktime.c =================================================================== RCS file: /cvsroot/frontierkernel/Frontier/Common/source/langquicktime.c,v retrieving revision 1.3 retrieving revision 1.3.6.1 diff -C2 -d -r1.3 -r1.3.6.1 *** langquicktime.c 11 Jan 2005 22:48:07 -0000 1.3 --- langquicktime.c 2 Feb 2006 18:39:59 -0000 1.3.6.1 *************** *** 84,88 **** static boolean quicktimeopenverb (hdltreenode hp1, tyvaluerecord *v) { ! /* 7.0b4 PBS: Open a movie in the QuickTime player window. --- 84,88 ---- static boolean quicktimeopenverb (hdltreenode hp1, tyvaluerecord *v) { ! #pragma unused (v) /* 7.0b4 PBS: Open a movie in the QuickTime player window. Index: scripts.c =================================================================== RCS file: /cvsroot/frontierkernel/Frontier/Common/source/scripts.c,v retrieving revision 1.4 retrieving revision 1.4.6.1 diff -C2 -d -r1.4 -r1.4.6.1 *** scripts.c 11 Jan 2005 22:48:10 -0000 1.4 --- scripts.c 2 Feb 2006 18:39:59 -0000 1.4.6.1 *************** *** 524,528 **** static boolean installscriptvisit (hdlhashnode hnode, ptrvoid refcon) { ! hdltreenode hcode; --- 524,528 ---- static boolean installscriptvisit (hdlhashnode hnode, ptrvoid refcon) { ! #pragma unused(refcon) hdltreenode hcode; *************** *** 582,586 **** static boolean newprocessvisit (hdlhashnode hnode, ptrvoid refcon) { ! hdltreenode hcode; hdlprocessrecord hprocess; --- 582,586 ---- static boolean newprocessvisit (hdlhashnode hnode, ptrvoid refcon) { ! #pragma unused(refcon) hdltreenode hcode; hdlprocessrecord hprocess; *************** *** 701,705 **** static boolean runprocessvisit (hdlhashnode hnode, ptrvoid refcon) { ! hdltreenode hcode; hdlprocessrecord hprocess; --- 701,705 ---- static boolean runprocessvisit (hdlhashnode hnode, ptrvoid refcon) { ! #pragma unused(refcon) hdltreenode hcode; hdlprocessrecord hprocess; *************** *** 770,774 **** static boolean scriptinvalbuttonsvisit (WindowPtr w, ptrvoid refcon) { ! /* 7.0b42 PBS: If Mac OS X, re-draw the script buttons right away, because --- 770,774 ---- static boolean scriptinvalbuttonsvisit (WindowPtr w, ptrvoid refcon) { ! #pragma unused(refcon) /* 7.0b42 PBS: If Mac OS X, re-draw the script buttons right away, because *************** *** 1445,1449 **** static pascal OSErr handlerecordedtext (const AppleEvent *event, AppleEvent *reply, SInt32 refcon) { ! /* 2.1b3 dmb: ignore extra syntax/lines needed for text-based recording --- 1445,1449 ---- static pascal OSErr handlerecordedtext (const AppleEvent *event, AppleEvent *reply, SInt32 refcon) { ! #pragma unused(refcon) /* 2.1b3 dmb: ignore extra syntax/lines needed for text-based recording *************** *** 1478,1490 **** return (err); ! #if TARGET_API_MAC_CARBON == 1 /*PBS 03/14/02: AE OS X fix.*/ ! ! datahandletostring (&desc, bs); ! ! #else ! ! texthandletostring (desc.dataHandle, bs); ! ! #endif stringdeletechars (bs, chnul); --- 1478,1486 ---- return (err); ! #if TARGET_API_MAC_CARBON == 1 /*PBS 03/14/02: AE OS X fix.*/ ! datahandletostring (&desc, bs); ! #else ! texthandletostring (desc.dataHandle, bs); ! #endif stringdeletechars (bs, chnul); *************** *** 1533,1554 **** } else ! ! #if TARGET_API_MAC_CARBON == 1 /*PBS 03/14/02: AE OS X fix.*/ ! ! { ! Handle hcopy; ! ! copydatahandle (&desc, &hcopy); ! ! floutline = isoutlinetext (hcopy); ! ! disposehandle (hcopy); ! } ! ! #else ! ! floutline = isoutlinetext (desc.dataHandle); ! ! #endif diff = indent - (**hd).lastindent; --- 1529,1545 ---- } else ! #if TARGET_API_MAC_CARBON == 1 /*PBS 03/14/02: AE OS X fix.*/ ! { ! Handle hcopy; ! ! copydatahandle (&desc, &hcopy); ! ! floutline = isoutlinetext (hcopy); ! ! disposehandle (hcopy); ! } ! #else ! floutline = isoutlinetext (desc.dataHandle); ! #endif diff = indent - (**hd).lastindent; *************** *** 1685,1689 **** static pascal OSErr handlestoprecording (const AppleEvent *event, AppleEvent *reply, SInt32 refcon) { ! /* 2.1b5 dmb: special event handler for QuicKeys recording panel --- 1676,1680 ---- static pascal OSErr handlestoprecording (const AppleEvent *event, AppleEvent *reply, SInt32 refcon) { ! #pragma unused(refcon, event) /* 2.1b5 dmb: special event handler for QuicKeys recording panel Index: bitmaps.c =================================================================== RCS file: /cvsroot/frontierkernel/Frontier/Common/source/bitmaps.c,v retrieving revision 1.3 retrieving revision 1.3.6.1 diff -C2 -d -r1.3 -r1.3.6.1 *** bitmaps.c 11 Jan 2005 22:48:04 -0000 1.3 --- bitmaps.c 2 Feb 2006 18:39:59 -0000 1.3.6.1 *************** *** 173,186 **** //Code change by Timothy Paustian Saturday, April 29, 2000 10:12:08 PM //Changed to Opaque call for Carbon ! #if ACCESSOR_CALLS_ARE_FUNCTIONS == 1 GetPortBounds(poffscreenworld, &portRect); CopyBits (GetPortBitMapForCopyBits(poffscreenworld), GetPortBitMapForCopyBits(psavedport), &portRect, &offscreenrect, srcCopy, nil); ! #else //old code ! #pragma unused(portRect) CopyBits (&((GrafPtr) poffscreenworld)->portBits, &((GrafPtr) psavedport)->portBits, &poffscreenworld->portRect, &offscreenrect, srcCopy, nil); ! #endif DisposeGWorld (poffscreenworld); --- 173,187 ---- //Code change by Timothy Paustian Saturday, April 29, 2000 10:12:08 PM //Changed to Opaque call for Carbon ! #if ACCESSOR_CALLS_ARE_FUNCTIONS == 1 ! #pragma unused(w) GetPortBounds(poffscreenworld, &portRect); CopyBits (GetPortBitMapForCopyBits(poffscreenworld), GetPortBitMapForCopyBits(psavedport), &portRect, &offscreenrect, srcCopy, nil); ! #else //old code ! #pragma unused(portRect) CopyBits (&((GrafPtr) poffscreenworld)->portBits, &((GrafPtr) psavedport)->portBits, &poffscreenworld->portRect, &offscreenrect, srcCopy, nil); ! #endif DisposeGWorld (poffscreenworld); *************** *** 201,205 **** static boolean openmono (Rect r, WindowPtr w) { ! register short nrowbytes; register long nboxbytes; --- 202,206 ---- static boolean openmono (Rect r, WindowPtr w) { ! #pragma unused(w) register short nrowbytes; register long nboxbytes; *************** *** 250,253 **** --- 251,255 ---- //present. These machines won't run Mac OS X anyway. #if ACCESSOR_CALLS_ARE_FUNCTIONS == 1 + #pragma unused(w) //a signal to show that this was called, it should not be assert(false); *************** *** 362,372 **** //Code change by Timothy Paustian Sunday, May 7, 2000 10:56:54 PM //Changed to Opaque call for Carbon ! #if ACCESSOR_CALLS_ARE_FUNCTIONS == 1 //always return false for traps since this not allowed in carbon //This really is not needed but what the heck return false; ! #else return (NGetTrapAddress (trapnum, ToolTrap) != NGetTrapAddress (unimptrap, ToolTrap)); ! #endif } /*trapimplemented*/ --- 364,375 ---- //Code change by Timothy Paustian Sunday, May 7, 2000 10:56:54 PM //Changed to Opaque call for Carbon ! #if ACCESSOR_CALLS_ARE_FUNCTIONS == 1 ! #pragma unused(trapnum) //always return false for traps since this not allowed in carbon //This really is not needed but what the heck return false; ! #else return (NGetTrapAddress (trapnum, ToolTrap) != NGetTrapAddress (unimptrap, ToolTrap)); ! #endif } /*trapimplemented*/ Index: services.c =================================================================== RCS file: /cvsroot/frontierkernel/Frontier/Common/source/services.c,v retrieving revision 1.4 retrieving revision 1.4.6.1 diff -C2 -d -r1.4 -r1.4.6.1 *** services.c 11 Jan 2005 22:48:10 -0000 1.4 --- services.c 2 Feb 2006 18:39:59 -0000 1.4.6.1 *************** *** 87,91 **** pascal OSStatus serviceshandlercopy (EventHandlerCallRef nextHandler, EventRef inEvent, void* userData) { ! /* Copy the current selection to the Services-specific scrap. --- 87,91 ---- pascal OSStatus serviceshandlercopy (EventHandlerCallRef nextHandler, EventRef inEvent, void* userData) { ! #pragma unused(nextHandler, userData) /* Copy the current selection to the Services-specific scrap. *************** *** 139,143 **** pascal OSStatus serviceshandlerpaste (EventHandlerCallRef nextHandler, EventRef inEvent, void* userData) { ! ScrapRef servicesscrap, currentscrap; long bytecount; --- 139,143 ---- pascal OSStatus serviceshandlerpaste (EventHandlerCallRef nextHandler, EventRef inEvent, void* userData) { ! #pragma unused(nextHandler, userData) ScrapRef servicesscrap, currentscrap; long bytecount; *************** *** 194,198 **** pascal OSStatus serviceshandlergettypes (EventHandlerCallRef nextHandler, EventRef inEvent, void* userData) { ! CFMutableArrayRef copytypes, pastetypes; short ix, count; --- 194,198 ---- pascal OSStatus serviceshandlergettypes (EventHandlerCallRef nextHandler, EventRef inEvent, void* userData) { ! #pragma unused(nextHandler, userData) CFMutableArrayRef copytypes, pastetypes; short ix, count; Index: about.c =================================================================== RCS file: /cvsroot/frontierkernel/Frontier/Common/source/about.c,v retrieving revision 1.6 retrieving revision 1.6.8.1 diff -C2 -d -r1.6 -r1.6.8.1 *** about.c 12 Jan 2005 11:34:26 -0000 1.6 --- about.c 2 Feb 2006 18:39:59 -0000 1.6.8.1 *************** *** 1297,1301 **** static boolean aboutmousedown (Point pt, tyclickflags flags) { ! /* 1/24/91 dmb: to allow the home window to be dragged with a single click, --- 1297,1301 ---- static boolean aboutmousedown (Point pt, tyclickflags flags) { ! #pragma unused(flags) /* 1/24/91 dmb: to allow the home window to be dragged with a single click, *************** *** 1774,1778 **** boolean openabout (boolean flzoom, long ctreservebytes) { ! /* 2.1b5 dmb: added ctreservebytes parameter. of non-zero, caller wants us to --- 1774,1778 ---- boolean openabout (boolean flzoom, long ctreservebytes) { ! #pragma unused(flzoom) /* 2.1b5 dmb: added ctreservebytes parameter. of non-zero, caller wants us to *************** *** 1818,1822 **** void closeabout (boolean flzoom, short minticks) { ! hdlwindowinfo hinfo; --- 1818,1822 ---- void closeabout (boolean flzoom, short minticks) { ! #pragma unused(flzoom) hdlwindowinfo hinfo; Index: langipc.c =================================================================== RCS file: /cvsroot/frontierkernel/Frontier/Common/source/langipc.c,v retrieving revision 1.6 retrieving revision 1.6.6.1 diff -C2 -d -r1.6 -r1.6.6.1 *** langipc.c 11 Jan 2005 22:48:06 -0000 1.6 --- langipc.c 2 Feb 2006 18:39:59 -0000 1.6.6.1 *************** *** 139,143 **** boolean langipcerrorroutine (bigstring bs, ptrvoid refcon) { ! /* if an error occurs while processing a runscript verb, we want to --- 139,143 ---- boolean langipcerrorroutine (bigstring bs, ptrvoid refcon) { ! #pragma unused (refcon) /* if an error occurs while processing a runscript verb, we want to *************** *** 452,456 **** vtype = langgetvaluetype (desctype); ! #ifdef oplanglists if (vtype == listvaluetype || vtype == recordvaluetype) { /*only case that actually needs AEDesc record*/ --- 452,456 ---- vtype = langgetvaluetype (desctype); ! #ifdef oplanglists if (vtype == listvaluetype || vtype == recordvaluetype) { /*only case that actually needs AEDesc record*/ *************** *** 463,473 **** } ! #endif ! #if TARGET_API_MAC_CARBON == 1 copydatahandle (p, &hdata); /*make a copy of the opaque data handle*/ ! #else hdata = (*p).dataHandle; /*get a reference to the data handle*/ --- 463,473 ---- } ! #endif ! #if TARGET_API_MAC_CARBON == 1 copydatahandle (p, &hdata); /*make a copy of the opaque data handle*/ ! #else hdata = (*p).dataHandle; /*get a reference to the data handle*/ *************** *** 475,479 **** (*p).dataHandle = nil; /*we own the original now, make sure AE manager won't dispose*/ ! #endif AEDisposeDesc (p); --- 475,479 ---- (*p).dataHandle = nil; /*we own the original now, make sure AE manager won't dispose*/ ! #endif AEDisposeDesc (p); *************** *** 522,526 **** break; ! #if __powerc case doublevaluetype: { --- 522,526 ---- break; ! #if __powerc case doublevaluetype: { *************** *** 536,544 **** } ! #else case doublevaluetype: ! #endif case stringvaluetype: /*all of these are normal, handle-based types */ --- 536,544 ---- } ! #else case doublevaluetype: ! #endif case stringvaluetype: /*all of these are normal, handle-based types */ *************** *** 686,698 **** (*desc).descriptorType = typeNull; ! #if TARGET_API_MAC_CARBON == 1 /*PBS 03/14/02: AE OS X fix.*/ ! ! newdescnull (desc, typeNull); ! ! #else ! ! (*desc).descriptorType = typeNull; ! ! #endif return (true); --- 686,694 ---- (*desc).descriptorType = typeNull; ! #if TARGET_API_MAC_CARBON == 1 /*PBS 03/14/02: AE OS X fix.*/ ! newdescnull (desc, typeNull); ! #else ! (*desc).descriptorType = typeNull; ! #endif return (true); *************** *** 707,711 **** } ! #ifdef oplanglists case listvaluetype: case recordvaluetype: --- 703,707 ---- } ! #ifdef oplanglists case listvaluetype: case recordvaluetype: *************** *** 718,722 **** return (true); ! #endif default: --- 714,718 ---- return (true); ! #endif default: *************** *** 2034,2038 **** boolean langipcgetaddressvalue (hdltreenode hparam1, tyvaluerecord *vreturned) { ! return (setbooleanvalue (false, vreturned)); } /*langipcgetaddressvalue*/ --- 2030,2034 ---- boolean langipcgetaddressvalue (hdltreenode hparam1, tyvaluerecord *vreturned) { ! #pragma unused (hparam1) return (setbooleanvalue (false, vreturned)); } /*langipcgetaddressvalue*/ *************** *** 2706,2710 **** static boolean langipcgetparamvisit (bigstring bs, hdlhashnode hnode, tyvaluerecord val, ptrvoid refcon) { ! hdlverbrecord hv = (hdlverbrecord) refcon; OSType key; --- 2702,2706 ---- static boolean langipcgetparamvisit (bigstring bs, hdlhashnode hnode, tyvaluerecord val, ptrvoid refcon) { ! #pragma unused (hnode) hdlverbrecord hv = (hdlverbrecord) refcon; OSType key; *************** *** 2868,2880 **** tyvaluerecord valkey; hdlhashtable htable; ! boolean fl; flparamerrorenabled = false; /*no error dialog on getparamvalue call*/ ! fl = getparamvalue (hp1, pnum++, &valkey); flparamerrorenabled = true; /*restore*/ ! if (!fl) { /*didn't get another key*/ if (fllangerror) /*was a bad parameter; didn't run out*/ --- 2864,2876 ---- tyvaluerecord valkey; hdlhashtable htable; ! boolean lfl; // kw - 2006-02-02 - renamed due to shadow warning flparamerrorenabled = false; /*no error dialog on getparamvalue call*/ ! lfl = getparamvalue (hp1, pnum++, &valkey); flparamerrorenabled = true; /*restore*/ ! if (!lfl) { /*didn't get another key*/ if (fllangerror) /*was a bad parameter; didn't run out*/ *************** *** 2905,2909 **** flinhibitnilcoercion = true; ! fl = getparamvalue (hp1, pnum++, &valparam); flinhibitnilcoercion = false; --- 2901,2905 ---- flinhibitnilcoercion = true; ! lfl = getparamvalue (hp1, pnum++, &valparam); flinhibitnilcoercion = false; *************** *** 2912,2916 **** goto error; ! if (!fl) /*must be nil coercion error*/ continue; --- 2908,2912 ---- goto error; ! if (!lfl) /*must be nil coercion error*/ continue; *************** *** 3328,3332 **** boolean langipccomplexmessage (hdltreenode hparam1, tyvaluerecord *vreturned) { ! hdlhashtable htable; tyipcaddress ipcaddress; --- 3324,3328 ---- boolean langipccomplexmessage (hdltreenode hparam1, tyvaluerecord *vreturned) { ! #pragma unused (vreturned) hdlhashtable htable; tyipcaddress ipcaddress; *************** *** 3344,3348 **** boolean langipctablemessage (hdltreenode hparam1, tyvaluerecord *vreturned) { ! /* 5.1.5 dmb: use tablesortedinversesearch for guest databases --- 3340,3344 ---- boolean langipctablemessage (hdltreenode hparam1, tyvaluerecord *vreturned) { ! #pragma unused (vreturned) /* 5.1.5 dmb: use tablesortedinversesearch for guest databases *************** *** 3382,3386 **** static boolean langipcfasterror (bigstring bs, ptrvoid refcon) { ! long n; OSErr err; --- 3378,3382 ---- static boolean langipcfasterror (bigstring bs, ptrvoid refcon) { ! #pragma unused (refcon) long n; OSErr err; *************** *** 3986,3990 **** static pascal OSErr handleshowmenunode (const AppleEvent *event, AppleEvent *reply, long refcon) { ! /* 4.1b14 dmb: added outline parameter; can't count on outline data not changing --- 3982,3986 ---- static pascal OSErr handleshowmenunode (const AppleEvent *event, AppleEvent *reply, long refcon) { ! #pragma unused (reply, refcon) /* 4.1b14 dmb: added outline parameter; can't count on outline data not changing *************** *** 4065,4069 **** static pascal OSErr handleyield (const AppleEvent *event, AppleEvent *reply, long refcon) { ! processyield (); --- 4061,4065 ---- static pascal OSErr handleyield (const AppleEvent *event, AppleEvent *reply, long refcon) { ! #pragma unused (event, reply, refcon) processyield (); *************** *** 4211,4215 **** static pascal OSErr langipcfastgetobject (AppleEvent *event, AppleEvent *reply, long refcon) { ! /* 7/3/92 DW: this one will be hot! --- 4207,4211 ---- static pascal OSErr langipcfastgetobject (AppleEvent *event, AppleEvent *reply, long refcon) { ! #pragma unused (refcon) /* 7/3/92 DW: this one will be hot! *************** *** 4221,4229 **** long curA5; ! #if flcomponent ! curA5 = SetUpAppA5 (); ! #endif landpushfastcontext (&savecontext); --- 4217,4225 ---- long curA5; ! #if flcomponent ! curA5 = SetUpAppA5 (); ! #endif landpushfastcontext (&savecontext); *************** *** 4237,4243 **** ! #if TARGET_API_MAC_CARBON == 1 /*PBS 03/14/02: AE OS X fix.*/ ! ! { Handle hcopy; boolean fl = false; --- 4233,4238 ---- ! #if TARGET_API_MAC_CARBON == 1 /*PBS 03/14/02: AE OS X fix.*/ ! { Handle hcopy; boolean fl = false; *************** *** 4255,4266 **** if (!fl) goto exit; ! } ! #else ! if (!getpackedobject (desc.dataHandle, &desc.dataHandle)) /*consumes input handle*/ ! goto exit; ! ! #endif desc.descriptorType = 'data'; --- 4250,4261 ---- if (!fl) goto exit; ! } ! #else ! if (!getpackedobject (desc.dataHandle, &desc.dataHandle)) /*consumes input handle*/ ! goto exit; ! ! #endif desc.descriptorType = 'data'; *************** *** 4287,4291 **** static pascal OSErr langipcfastsetobject (AppleEvent *event, AppleEvent *reply, long refcon) { ! /* 7/3/92 DW: this one will be hot! --- 4282,4286 ---- static pascal OSErr langipcfastsetobject (AppleEvent *event, AppleEvent *reply, long refcon) { ! #pragma unused (refcon) /* 7/3/92 DW: this one will be hot! *************** *** 4297,4305 **** Boolean fl; ! #if flcomponent && TARGET_API_MAC_OS8 long curA5 = SetUpAppA5 (); ! #endif landpushfastcontext (&savecontext); --- 4292,4300 ---- Boolean fl; ! #if flcomponent && TARGET_API_MAC_OS8 long curA5 = SetUpAppA5 (); ! #endif landpushfastcontext (&savecontext); *************** *** 4319,4341 **** } ! #if TARGET_API_MAC_CARBON == 1 /*PBS 03/14/02: AE OS X fix.*/ ! ! { Handle hcopy1, hcopy2; ! copydatahandle (&desc1, &hcopy1); ! copydatahandle (&desc2, &hcopy2); ! if (!setpackedobject (hcopy1, hcopy2)) goto exit; ! } ! ! #else ! ! if (!setpackedobject (desc1.dataHandle, desc2.dataHandle)) /*consumes handles*/ ! goto exit; ! ! #endif fl = true; --- 4314,4335 ---- } ! #if TARGET_API_MAC_CARBON == 1 /*PBS 03/14/02: AE OS X fix.*/ ! { Handle hcopy1, hcopy2; ! copydatahandle (&desc1, &hcopy1); ! copydatahandle (&desc2, &hcopy2); ! if (!setpackedobject (hcopy1, hcopy2)) goto exit; ! } ! ! #else ! ! if (!setpackedobject (desc1.dataHandle, desc2.dataHandle)) /*consumes handles*/ ! goto exit; ! ! #endif fl = true; *************** *** 4659,4663 **** static boolean langipceventhook (EventRecord *ev, WindowPtr w) { ! /* 7/3/91 dmb: under system 7, we fork off a new thread for every --- 4653,4657 ---- static boolean langipceventhook (EventRecord *ev, WindowPtr w) { ! #pragma unused (w) /* 7/3/91 dmb: under system 7, we fork off a new thread for every Index: langsystypes.c =================================================================== RCS file: /cvsroot/frontierkernel/Frontier/Common/source/langsystypes.c,v retrieving revision 1.6 retrieving revision 1.6.2.1 diff -C2 -d -r1.6 -r1.6.2.1 *** langsystypes.c 20 Aug 2005 11:11:48 -0000 1.6 --- langsystypes.c 2 Feb 2006 18:39:59 -0000 1.6.2.1 *************** *** 670,675 **** setemptystring (bs); ! // get each path element out of the alias while (GetAliasInfo (h, ix, bsinfo) == noErr) { --- 670,693 ---- setemptystring (bs); ! // get each path element out of the alias + // kw - 2006-02-02 --- todo: replace this + /* extern OSErr + GetAliasInfo( + AliasHandle alias, + AliasInfoType index, + Str63 theString) */ + + // with this + /* + extern OSStatus + FSCopyAliasInfo( + AliasHandle inAlias, + HFSUniStr255 * targetName, /% can be NULL %/ + HFSUniStr255 * volumeName, /% can be NULL %/ + CFStringRef * pathString, /% can be NULL %/ + FSAliasInfoBitmap * whichInfo, /% can be NULL %/ + FSAliasInfo * info) /% can be NULL %/ + */ while (GetAliasInfo (h, ix, bsinfo) == noErr) { Index: langops.c =================================================================== RCS file: /cvsroot/frontierkernel/Frontier/Common/source/langops.c,v retrieving revision 1.4.6.1 retrieving revision 1.4.6.2 diff -C2 -d -r1.4.6.1 -r1.4.6.2 *** langops.c 31 Jan 2006 16:43:31 -0000 1.4.6.1 --- langops.c 2 Feb 2006 18:39:59 -0000 1.4.6.2 *************** *** 162,167 **** #if LONGINT_LONGDATE == 1 ! /* 38 */ ,{'comp', STR_longlongtype }, ! /* 39 */ {'ldt ', STR_longdatetype } #endif }; --- 162,167 ---- #if LONGINT_LONGDATE == 1 ! /* 38 */ ,{'comp', STR_longlong }, ! /* 39 */ {'ldt ', STR_longdate } #endif }; Index: langvalue.c =================================================================== RCS file: /cvsroot/frontierkernel/Frontier/Common/source/langvalue.c,v retrieving revision 1.8.2.1 retrieving revision 1.8.2.2 diff -C2 -d -r1.8.2.1 -r1.8.2.2 *** langvalue.c 31 Jan 2006 16:43:31 -0000 1.8.2.1 --- langvalue.c 2 Feb 2006 18:39:59 -0000 1.8.2.2 *************** *** 228,244 **** #if LONGINT_LONGDATE == 1 ! boolean setlonglongintvalue (tylonglongint x, tyvaluerecord *val) { /* ! set val to be a the long long value x. can't fail. */ ! ! (*val).valuetype = longlongintvaluetype; ! ! **(*val).data.longlongintvalue = x; ! (*(tyfastflagsvaluerecord *) val).flags = 0; ! ! return (true); } /* setlonglongintvalue */ #endif --- 228,240 ---- #if LONGINT_LONGDATE == 1 ! boolean setlonglongintvalue (Handle x, tyvaluerecord *val) { /* ! set val to be a the long long value x. */ ! if (x == nil) ! newclearhandle(sizeof(tylonglongint), &x); ! return(setheapvalue(x, longlongintvaluetype, val)); } /* setlonglongintvalue */ #endif *************** *** 246,262 **** #if LONGINT_LONGDATE == 1 ! boolean setlongdatevalue (tylonglongint x, tyvaluerecord *val) { ! ! /* ! set val to be a the long date value x. can't fail. ! */ ! ! (*val).valuetype = longdatetimevaluetype; ! ! **(*val).data.longlongintvalue = x; ! ! (*(tyfastflagsvaluerecord *) val).flags = 0; ! ! return (true); } /* setlongdatevalue */ #endif --- 242,252 ---- #if LONGINT_LONGDATE == 1 ! boolean setlongdatevalue (Handle x, tyvaluerecord *val) { ! // set val to be a the long date value x. ! ! if (x == nil) ! newclearhandle(sizeof(tylonglongint), &x); ! ! return(setheapvalue(x, longdatetimevaluetype, val)); } /* setlongdatevalue */ #endif *************** *** 2076,2079 **** --- 2066,2070 ---- + #if LONGINT_LONGDATE == 1 static boolean longlongrangeerror (double f) { *************** *** 2091,2095 **** return (false); } /*longrangeerror*/ ! boolean coercetolong (tyvaluerecord *v) { --- 2082,2086 ---- return (false); } /*longrangeerror*/ ! #endif boolean coercetolong (tyvaluerecord *v) { *************** *** 2610,2618 **** case stringvaluetype: { bigstring bs; ! unsigned long time; pullstringvalue (v, bs); ! if (!stringtotime (bs, &time)) { langerror (datecoerceerror); --- 2601,2609 ---- case stringvaluetype: { bigstring bs; ! unsigned long ltime; // kw - 2006-02-02 renamed due to shadow warning pullstringvalue (v, bs); ! if (!stringtotime (bs, <ime)) { langerror (datecoerceerror); *************** *** 2621,2625 **** } ! x = time; break; --- 2612,2616 ---- } ! x = ltime; break; *************** *** 3074,3108 **** case binaryvaluetype: ! #if noextended ! { ! long double x; ! extended80 x80; ! ! /*first do type & length checking, resulting in x80 value in v*/ ! ! if (!coercebinaryval (v, doublevaluetype, sizeof (extended80), novaluetype)) ! return (false); ! ! /*now convert to actual double value*/ ! ! ! #ifdef WIN95VERSION ! memmove (&x80, *((*v).data.doublevalue), sizeof (x80)); ! convertFromMacExtended (&x, &x80); ! #else ! x80 = (**(extended80 **) (*v).data.doublevalue); ! safex80told (&x80, &x); ! #endif ! ! return (setdoublevalue (x, v)); ! } ! ! #else ! ! return (coercebinaryval (v, doublevaluetype, sizeof (double), novaluetype)); ! ! #endif case listvaluetype: --- 3065,3096 ---- case binaryvaluetype: ! #if noextended ! { ! long double lx; // kw - 2006-02-02 renamed due to shadow warning ! extended80 x80; ! /*first do type & length checking, resulting in x80 value in v*/ ! if (!coercebinaryval (v, doublevaluetype, sizeof (extended80), novaluetype)) ! return (false); ! ! /*now convert to actual double value*/ ! ! #ifdef WIN95VERSION ! memmove (&x80, *((*v).data.doublevalue), sizeof (x80)); ! ! convertFromMacExtended (&lx, &x80); ! #else ! x80 = (**(extended80 **) (*v).data.doublevalue); ! ! safex80told (&x80, &lx); ! #endif ! ! return (setdoublevalue (lx, v)); ! } ! ! #else ! return (coercebinaryval (v, doublevaluetype, sizeof (double), novaluetype)); ! #endif case listvaluetype: *************** *** 5636,5641 **** ! static boolean getvalidstringindex (tyvaluerecord *vstring, bigstring bsname, tyvaluerecord *vindex, long *index) { ! /* 2.1b3 dmb: if string is a binary, account for binary subtype --- 5624,5634 ---- ! static boolean ! getvalidstringindex ( ! tyvaluerecord *vstring, ! bigstring bsname, ! tyvaluerecord *vindex, ! long *lindex) // kw - 2006-02-02 renamed due to shadow warning ! { /* 2.1b3 dmb: if string is a binary, account for binary subtype *************** *** 5665,5669 **** ix += sizeof (OSType); ! *index = ix; return (true); --- 5658,5662 ---- ix += sizeof (OSType); ! *lindex = ix; return (true); Index: dialogs.c =================================================================== RCS file: /cvsroot/frontierkernel/Frontier/Common/source/dialogs.c,v retrieving revision 1.7 retrieving revision 1.7.2.1 diff -C2 -d -r1.7 -r1.7.2.1 *** dialogs.c 30 Sep 2005 15:29:18 -0000 1.7 --- dialogs.c 2 Feb 2006 18:39:59 -0000 1.7.2.1 *************** *** 897,901 **** static void passwordprocesskey (DialogPtr pdialog, char chkb, EventRecord *ev, short *item) { ! TEHandle hte; char *buffer; --- 897,901 ---- static void passwordprocesskey (DialogPtr pdialog, char chkb, EventRecord *ev, short *item) { ! #pragma unused(item) TEHandle hte; char *buffer; *************** *** 1084,1091 **** #if TARGET_API_MAC_CARBON == 1 { ! WindowRef pWindow = GetDialogWindow(pdialog); CGrafPtr thePort = GetDialogPort(pdialog); ! SelectWindow(pWindow); QDFlushPortBuffer(thePort, nil); } --- 1084,1091 ---- #if TARGET_API_MAC_CARBON == 1 { ! WindowRef lWindow = GetDialogWindow(pdialog); // kw - 2006-02-02 renamed due to shadow warning CGrafPtr thePort = GetDialogPort(pdialog); ! SelectWindow(lWindow); QDFlushPortBuffer(thePort, nil); } Index: memory.c =================================================================== RCS file: /cvsroot/frontierkernel/Frontier/Common/source/memory.c,v retrieving revision 1.6 retrieving revision 1.6.4.1 diff -C2 -d -r1.6 -r1.6.4.1 *** memory.c 21 Mar 2005 02:43:14 -0000 1.6 --- memory.c 2 Feb 2006 18:39:59 -0000 1.6.4.1 *************** *** 871,875 **** boolean prepareforgrowing (Handle h) { ! /* like newgrowinghandle, but for an already-existing handle. the --- 871,875 ---- boolean prepareforgrowing (Handle h) { ! #pragma unused(h) /* like newgrowinghandle, but for an already-existing handle. the Index: fileloop.c =================================================================== RCS file: /cvsroot/frontierkernel/Frontier/Common/source/fileloop.c,v retrieving revision 1.5 retrieving revision 1.5.4.1 diff -C2 -d -r1.5 -r1.5.4.1 *** fileloop.c 24 Jan 2005 17:16:47 -0000 1.5 --- fileloop.c 2 Feb 2006 18:39:59 -0000 1.5.4.1 *************** *** 55,59 **** static boolean fileloopreleaseitem (Handle h) { ! /* callback routine that disposes of one of our items. since there are no --- 55,59 ---- static boolean fileloopreleaseitem (Handle h) { ! #pragma unused (h) /* callback routine that disposes of one of our items. since there are no |
|
From: Karsten W. <kar...@us...> - 2006-02-02 18:38:11
|
Update of /cvsroot/frontierkernel/Frontier/Common/headers In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv6612 Modified Files: Tag: pre_int64_branch lang.h stringdefs.h Log Message: second round (minor) changes for i64 Index: lang.h =================================================================== RCS file: /cvsroot/frontierkernel/Frontier/Common/headers/lang.h,v retrieving revision 1.8.4.1 retrieving revision 1.8.4.2 diff -C2 -d -r1.8.4.1 -r1.8.4.2 *** lang.h 31 Jan 2006 16:40:09 -0000 1.8.4.1 --- lang.h 2 Feb 2006 18:37:59 -0000 1.8.4.2 *************** *** 1055,1058 **** --- 1055,1066 ---- extern boolean setlongvalue (long, tyvaluerecord *); + #if LONGINT_LONGDATE == 1 + extern boolean setlonglongintvalue (Handle x, tyvaluerecord *val); + + extern boolean setlongdatevalue (Handle x, tyvaluerecord *val); + + extern boolean coercetolonglong (tyvaluerecord *v); + #endif + extern boolean setdatevalue (unsigned long, tyvaluerecord *); Index: stringdefs.h =================================================================== RCS file: /cvsroot/frontierkernel/Frontier/Common/headers/stringdefs.h,v retrieving revision 1.3.6.1 retrieving revision 1.3.6.2 diff -C2 -d -r1.3.6.1 -r1.3.6.2 *** stringdefs.h 31 Jan 2006 16:40:09 -0000 1.3.6.1 --- stringdefs.h 2 Feb 2006 18:37:59 -0000 1.3.6.2 *************** *** 76,82 **** // kw - 2006-01-30 --- new types added ! #define STR_longlongtype "\x09" "64bit-int" ! #define STR_longdatetype "\x08" "longdate" ! #define STR_with "\x04" "with" --- 76,81 ---- // kw - 2006-01-30 --- new types added ! #define STR_longlong "\x09" "64bit-int" ! #define STR_longdate "\x08" "longdate" #define STR_with "\x04" "with" |
|
From: creedon <icr...@us...> - 2006-02-02 07:53:36
|
Update of /cvsroot/frontierkernel/odbs/prefsRoot/prefsSuite In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv11007 Modified Files: startup Log Message: changed root updates last update time from hard coded to Frontier.data.initialLastUpdateTime Index: startup =================================================================== RCS file: /cvsroot/frontierkernel/odbs/prefsRoot/prefsSuite/startup,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** startup 25 Dec 2005 02:00:55 -0000 1.1 --- startup 2 Feb 2006 07:53:27 -0000 1.2 *************** *** 1,3 **** FrontierVcsFile:1:scpt:prefsSuite.startup ! ÇChanges Ç12/24/05; 12:14:17 PM by TAC Çcreated prefsSuite.init (); bundle { // set up root update for prefs.root, cribbed from mainResponder.startup local (adrTable = @user.rootUpdates.servers.prefs); if not defined (adrTable^) { new (tableType, adrTable)}; if not defined (adrTable^.autobackup) { adrTable^.autobackup = true}; if not defined (adrTable^.dbname) { adrTable^.dbname = "prefs.root"}; if not defined (adrTable^.dialogs) { adrTable^.dialogs = true}; if not defined (adrTable^.lastUpdate) { adrTable^.lastUpdate = "Sun, 01 Jan 2006 08:00:00 GMT"}; if not defined (adrTable^.method) { adrTable^.method = "mainResponder.subscriptions.update"}; if not defined (adrTable^.port) { adrTable^.port = 8081}; if not defined (adrTable^.serialNum) { adrTable^.serialNum = 0}; if not defined (adrTable^.server) { adrTable^.server = "rootUpdates.frontierOpenSource.editHere.com"}; if not defined (adrTable^.URL) { adrTable^.URL = "http://www.frontierOpenSource.editHere.com/rootUpdates/prefs"}} \ No newline at end of file --- 1,3 ---- FrontierVcsFile:1:scpt:prefsSuite.startup ! ÇChanges Ç2/1/06; 1:00:37 PM by TAC Çchanged root updates last update time from hard coded to Frontier.data.initialLastUpdateTime Ç12/24/05; 12:14:17 PM by TAC Çcreated prefsSuite.init (); bundle { // set up root update for prefs.root, cribbed from mainResponder.startup local (adrTable = @user.rootUpdates.servers.prefs); if not defined (adrTable^) { new (tableType, adrTable)}; if not defined (adrTable^.autobackup) { adrTable^.autobackup = true}; if not defined (adrTable^.dbname) { adrTable^.dbname = "prefs.root"}; if not defined (adrTable^.dialogs) { adrTable^.dialogs = true}; if not defined (adrTable^.lastUpdate) { adrTable^.lastUpdate = Frontier.data.initialLastUpdateTime}; if not defined (adrTable^.method) { adrTable^.method = "mainResponder.subscriptions.update"}; if not defined (adrTable^.port) { adrTable^.port = 8081}; if not defined (adrTable^.serialNum) { adrTable^.serialNum = 0}; if not defined (adrTable^.server) { adrTable^.server = "rootUpdates.frontierOpenSource.editHere.com"}; if not defined (adrTable^.URL) { adrTable^.URL = "http://www.frontierOpenSource.editHere.com/rootUpdates/prefs"}} \ No newline at end of file |
|
From: creedon <icr...@us...> - 2006-02-02 07:51:44
|
Update of /cvsroot/frontierkernel/odbs/mainResponderRoot/mainResponder/localization/languages/english/strings/setupFrontier In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv10466 Modified Files: proxyServer Log Message: towards XHTML compliance Index: proxyServer =================================================================== RCS file: /cvsroot/frontierkernel/odbs/mainResponderRoot/mainResponder/localization/languages/english/strings/setupFrontier/proxyServer,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** proxyServer 5 Jul 2005 18:12:07 -0000 1.1 --- proxyServer 2 Feb 2006 07:51:35 -0000 1.2 *************** *** 1,3 **** 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]]> 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> \ No newline at end of file --- 1,3 ---- 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]] /> 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> \ No newline at end of file |
|
From: creedon <icr...@us...> - 2006-02-02 07:51:12
|
Update of /cvsroot/frontierkernel/odbs/mainResponderRoot/mainResponder/adminSite/data/localization/languages/english/outlines In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv10286 Modified Files: prefs Log Message: remove reference to UserLand root updates server Index: prefs =================================================================== RCS file: /cvsroot/frontierkernel/odbs/mainResponderRoot/mainResponder/adminSite/data/localization/languages/english/outlines/prefs,v retrieving revision 1.6 retrieving revision 1.7 diff -C2 -d -r1.6 -r1.7 *** prefs 17 Jan 2006 23:30:27 -0000 1.6 --- prefs 2 Feb 2006 07:51:03 -0000 1.7 *************** *** 1,3 **** FrontierVcsFile:1:optx:mainResponder.adminSite.data.localization.languages.english.outlines.prefs ! Server Settings Basic Settings You can edit the personalization and mail server (SMTP) information used for this server. <br/> <%radio.prefs.stringPref ("Name", @user.prefs.name)%> <%radio.prefs.stringPref ("Organization", @user.prefs.organization)%> <%radio.prefs.stringPref ("Email address", @user.prefs.mailAddress)%> <%radio.prefs.stringPref ("Outgoing (SMTP) mail server", @user.prefs.mailHost)%> <%radio.prefs.numberPref ("Outgoing (SMTP) mail server port", @user.prefs.mailHostPort)%> Security You can set security access controls on all content that the server renders. The values on this page control the global settings. The directory and script settings can be over-ridden at the site level, while IP address security is global. <%mainResponder.adminSite.prefs.securityLevel ("Admin security level")%> <%radio.prefs.checkboxPref ("Check this box to allow directory listings by default.", @config.mainresponder.globals.allowDirectoryListings)%> <%radio.prefs.checkboxPref ("Check this box to allow script listings by default.", @config.mainresponder.globals.allowScriptListings)%> <%radio.prefs.checkboxPref ("Check this box to allow scripts to run by default.", @config.mainresponder.globals.allowScriptsToRun)%> <br /> <b>Blocking HTTP requests by IP address</b> <%radio.prefs.checkboxPref ("Check this box to allow HTTP access <i>only</i> from the following IP addresses.", @config.mainresponder.prefs.flAllowByIpOnly)%> <%radio.prefs.textAreaPref ("IP addresses<br />separated by<br />commas", @config.mainresponder.prefs.allowedIpAddresses)%> <br /> <b>Membership</b> <%radio.prefs.checkboxPref ("Check this box to use the more secure encrypted cookie format. The encrypted format does not store passwords in membership cookies. Instead it hashes the password, plus additional information, to make membership more secure.", @config.mainresponder.prefs.flMembershipHashedCookies)%> Administrators You can add or remove administrators access to the Frontier Admin Site or edit the information for an existing administrator. You can also grant access to the WebEdit server to an administrator. <%mainResponder.adminSite.prefs.listAdministrators ()%> <br /><%mainResponder.adminSite.prefs.addOrEditAdministrator ()%> Domains The settings on this page are used configure virtual domains and sub-sites. For each site hosted on your server, there's a domain, a path, and a collection of objects which comprise the site. For a site hosted from an object database -- a Manila site for example, the objects will be specified by a database address. For a site hosted fom the filesystem, the objects will be specified by the path to a folder on disk. To map a domain and path to a site, type the domain name, and the path under the domain where the site will be served. In the Object field, enter either an object database address or the path to a folder of files on disk. Then click the Add Site button to add the site to the hierarchy. You can specify a redirect by entering the URL to redirect to, starting with http:\\// without a trailing slash, for example http:\\//www.example.com -- This will redirect all requests for the specified URL to the site of your choosing. <%local (pta = html.getPageTableAddress ()); pta^.flAddSubmitButton = false; if defined (pta^.postArgs.delete) {""} else {mainResponder.adminSite.prefs.addMappingToSiteTree () + "<br /><br />"}%> <b>Domains on this server</b> <%mainResponder.adminSite.prefs.listDomains ()%> Search Engine You can enable and set up the search engine server on this page. <%radio.prefs.checkboxPref ("Check this box to enable the search engine.", @config.mainResponder.prefs.flSearchEngine)%> <%radio.prefs.stringPref ("Search page URL", @config.mainResponder.urls.searchHome,size:80, maxlength:300)%> <%radio.prefs.numberPref ("Index stored pages every", @config.mainResponder.search.prefs.minutesBetweenIndexes, 1, textToRight:" minute(s).")%> <%radio.prefs.checkboxPref ("Check this box if you want to store the full text of indexed pages, so that excerpts can be displayed in search results.", @config.mainResponder.search.prefs.flStoreFullText)%> <%radio.prefs.checkboxPref ("Check this box to allow public search submissions.", @config.mainresponder.prefs.flAllowPublicSearchSubmissions)%> <%radio.prefs.checkboxPref ("Check this box to enable search engine logging", @config.mainResponder.search.prefs.flLogEnabled)%> MIME Types <%if defined (searchArgTable.itemToEdit) {"To change the MIME type associated with the ." + searchArgTable.itemToEdit + " extension, fill in the Type input box and click the Submit button."} else {"To add a new MIME type, fill in the suffix and its MIME type, then click the Add New Type button. To delete one or more types, check its checkbox and click the Delete button at the bottom of the page. To edit a type, click an Edit link on the right."}%> <%mainResponder.adminSite.prefs.mimeTypes ()%> Update Notification Frontier can automatically connect to a server at UserLand each night, to check the availability of new features and bug fixes. When software updates are available, Frontier will notify you via email. It's recommended that you turn this feature on. <%radio.prefs.checkboxPref ("Check this box to receive email notification when new software updates are available.", @config.mainResponder.prefs.flUpdateNightly)%> <br />You can view a list of pending software updates, and optionally install them via the <%"<a href=\"" + mainResponder.adminSite.urls.updates + "\">"%>Updates page</a>. <br /><b>Databases to update</b> Check the box next to each database that you want to be updated when installing new software. It's strongly recommended that you enable updating all of these databases. <%mainResponder.adminSite.prefs.dbToUpdateCheck ("Frontier.root")%> <%mainResponder.adminSite.prefs.dbToUpdateCheck ("mainResponder.root")%> <%mainResponder.adminSite.prefs.dbToUpdateCheck ("prefs.root")%> Backups This page contains the global backup settings for Manila sites, Frontier databases, and discussion group archives in XML. <br /> <b>Databases</b> Frontier can automatically save all changed databases every minute, and make backup copies each night. It's strongly recommended that you enable the saving of changed databases every minute. Depending on the size of your databases, nightly backups may take some time, so you may want to only enable this feature if your databases are small, or if the server traffic is low at night. <%radio.prefs.checkboxPref ("Check this box to save all changed databases every minute.", @config.mainresponder.prefs.flSaveDatabasesEveryMinute)%> <%radio.prefs.checkboxPref ("Check this box to back up all changed files in the Guest Databases folder every night?", @config.mainResponder.prefs.flBackupNightly)%> <%radio.prefs.stringPref ("Backup folder", @config.mainResponder.prefs.backupFolder, size:60)%> <br /><br /><b>Discussion group archives</b> The discussion group archives feature saves an XML file for every discussion group message. Only new or changed discussion group messages will be archived in XML. <%radio.prefs.checkboxPref ("Check this box to archive changes to discussion group messages in XML?", @config.mainResponder.prefs.flArchiveDiscuss)%> <%radio.prefs.stringPref ("Archive folder", @config.mainResponder.prefs.discussArchiveFolder, size:60)%> Logging and Statistics Frontier can maintain logs detailing what happens on your server and statistics that provide a cumulative view. You can choose which logs and stats Frontier should maintain, and where to store the logs. <br /> <%radio.prefs.checkboxPref ("Check this box to log every HTTP request.", @config.mainResponder.prefs.flLog)%> <%radio.prefs.checkboxPref ("Check this box to log every XML-RPC and SOAP request.", @user.betty.prefs.flKeepServerLog)%> <%radio.prefs.checkboxPref ("Check this box to log root updates.", @user.rootUpdates.prefs.flShowUpdatesToUser)%> <%radio.prefs.checkboxPref ("Check this box to enable search engine logging", @config.mainResponder.search.prefs.flLogEnabled)%> <%radio.prefs.checkboxPref ("Check this box to log scheduled tasks.", @user.scheduler.prefs.logInGuestDatabase)%> <%radio.prefs.checkboxPref ("Check this box to close and re-open the log database every hour, to reclaim allocated memory.", @config.mainresponder.prefs.flLogReopenHourly)%> <%radio.prefs.stringPref ("Log folder", @user.log.prefs.folder, size:70, maxlength:300)%> <br /> <b>Common Log Format</b> Common log format is a text file format used by popular web servers like Apache. Many log analysis programs used to generate traffic graphs and summaries can read this format. Settings in this section enable or disable the output of common log text files, and determine what information is included. <%table.surePath ("system.temp.mainResponder.misc.flCommonLog"); local (ad...@sy..., adr...@us..., s); if method != "POST" {adr^ = defined (adrcallback^)}; s=radio.prefs.checkboxPref ("Check this box to log HTTP requests in common log format.", adr); if method == "POST" {if adr^ {script.newScriptObject ("on commonLog (pta)\r\treturn (webserver.postFilters.commonLog (pta, true))", adrcallback)} else {if defined (adrcallback^) {delete (adrcallback)}}}; delete (adr); s%> <%radio.prefs.checkboxPref ("Check this box to use common log date format.", @user.webserver.prefs.commonLog.flUseCommonLogDateFormat)%> <%radio.prefs.checkboxPref ("Check this box to include virtual hosts.", @user.webserver.prefs.commonLog.flIncludeVirtualHosts)%> <%radio.prefs.checkboxPref ("Check this box to include referers.", @user.webserver.prefs.commonLog.flIncludeReferers)%> <%radio.prefs.checkboxPref ("Check this box to include User-Agents.", @user.webserver.prefs.commonLog.flIncludeUserAgents)%> <br /> <b>Statistics</b> Frontier can count hits on a per-domain basis, complie nightly discussion group stats, and write XML reports listing the most read sites. <%radio.prefs.checkboxPref ("Check this box to compile discussion group stats every night.", @config.mainresponder.prefs.flDiscussStatsNightly)%> <%radio.prefs.checkboxPref ("Check this box to count total hits for each domain hosted on this server.", @user.webserver.prefs.flDomainStats)%> Database Subscriptions You can publish a guest database and allow other people to subscribe to changes made to the guest database. Changes to the guest database made using WebEdit will be added to the updates flow for the database.<br /><br /> <%radio.prefs.checkboxPref ("Check this box to enable database subscriptions from this server to other copies of Frontier or Radio UserLand.", @config.mainresponder.prefs.flSubscriptions)%> <br /><b>Subscribable databases</b> Below is a list of all databases on this server. To enable or disable subscriptions for a given database, check or uncheck the box next to its name and click the Submit button below.<br /><br /> <%mainResponder.adminSite.prefs.listSubscribableDatabases ()%> WebEdit WebEdit allows remote access to your databases, from one copy of Frontier to another. On this page you can enable and disable the WebEdit server, add users, edit user information, and manage the custody of checked-out objects. <%local (pta = html.getPageTableAddress ()); pta^.flAddSubmitButton = false; if not defined (system.temp.mainResponder.misc) {new (tableType, @system.temp.mainResponder.misc)}; ""%> <%local (adrpref = @system.temp.mainResponder.misc.flWebEditEnabled, adrhandlers = @user.betty.rpcHandlers.webEdit); if method != "POST" {if defined (adrhandlers^) {adrpref^ = true} else {adrpref^ = false}}; local (s = radio.prefs.checkboxPref ("Check this box to enable the WebEdit server.", adrpref)); if method == "POST" {if adrpref^ {adrhandlers^ = @webeditServer.rpcHandlers.webEdit} else {try {delete (adrhandlers)}}}; s%> <br /><input type="submit" value="Submit"> <br /> <b>Add User</b> To add a new WebEdit user, enter the user's name, email address and password below, and click the Add User button.<br /><br /> <%mainResponder.adminSite.prefs.addWebeditUser ()%> <br /> <b>Current users</b> Below is a list of users who currently have WebEdit access to this server. To remove a user, check the box next to the user's name, and then click the Remove Users button below.<br /><br /> <%mainResponder.adminSite.prefs.listWebeditUsers ()%> <br /> <b>Objects</b> The following objects have been checked out with WebEdit. To force the check-in of an object, check the box next to its name, and then click the Force Check-In button below.<br /><br /> <%mainResponder.adminSite.prefs.listObjects ()%> Legal Macros <%mainResponder.adminSite.prefs.legalMacros ()%> News Aggregator <%local (htmlText = ""); xml.aggregator.init (); htmlText = radio.prefs.checkboxPref ("Check this box to enable the news aggregator on this server. If it's enabled, Frontier will automatically scan subscribed channels once per hour.", @aggregatorData.prefs.enabled); xml.aggregator.init (); return (htmlText)%> <br /><b>When and how the aggregator runs</b>: <br />At what minute past the top of each hour should the aggregator scan for news? <%radio.prefs.numberPref ("Minute to scan", @aggregatorData.prefs.minuteToRead, upperbound:59)%> <br />The aggregator is multi-threaded. This means it can read several RSS feeds at the same time. The larger this number the quicker it will finish each scan, but it may make the server slower while the scan is running. <%radio.prefs.numberPref ("Number of threads", @aggregatorData.prefs.maxThreads, lowerbound:1, upperbound:10)%> <br /><b>Archiving options</b>: <br />The news aggregator can automatically delete old stories from the database. It is highly recommended that you enable this option.<br /><br /> <%radio.prefs.checkboxPref ("Check this box to automatically delete old news items once an hour.", @aggregatorData.prefs.flArchive)%> <br />How old must an item be (in hours) in order to be deleted? <%radio.prefs.numberPref ("Hours before deletion", @aggregatorData.prefs.hoursBeforeArchive, lowerbound:1, upperbound:100)%> Subscriptions <%mainResponder.adminSite.prefs.subscriptions ()%> Debugging The settings on this page are for people who develop web applications in the Frontier environment. The debugging features help find problems with your code, and to isolate performance bottlenecks. Note that enabling these features can degrade server performance, and cause Frontier to use more memory and disk space than normal, so you should only enable them if needed. <br /> <b>mainResponder debugging</b> <%radio.prefs.checkboxPref ("Check this box to run mainResponder in debug mode. This will cause low-level errors to display an error window in the Frontier application.", @config.mainresponder.prefs.flDebug)%> <%radio.prefs.checkboxPref ("Check this box to copy the paramtable to scratchpad.params after every request.", @config.mainresponder.prefs.flKeepParamTable)%> <br /> <b>Profiling</b> Profiling allows you to find out what scripts and kernel verbs are being executed and for how long. It's a way of finding performance bottlenecks. With the feature enabled, you can view a web page showing the amount of time Frontier spent in each script and verb in processing the request by adding /profile/ to the begining of the path to the page. <%radio.prefs.checkboxPref ("Check this box to enable profiling.", @config.mainresponder.prefs.flProfiling)%> <br /> <b>Miscellaneous</b> Below are miscellaneous debugging features which may be useful depending on the type of application you're developing. <%radio.prefs.checkboxPref ("Check this box to record automatic database opens in system.temp.", @config.mainresponder.prefs.flLogDatabaseOpens)%> <%radio.prefs.checkboxPref ("Check this box to log available memory.", @config.mainresponder.prefs.flLogMemavail)%> Email Config <%flAddSubmitButton = false; mainResponder.controlPanel.emailConfig ()%> \ No newline at end of file --- 1,3 ---- FrontierVcsFile:1:optx:mainResponder.adminSite.data.localization.languages.english.outlines.prefs ! Server Settings Basic Settings You can edit the personalization and mail server (SMTP) information used for this server. <br/> <%radio.prefs.stringPref ("Name", @user.prefs.name)%> <%radio.prefs.stringPref ("Organization", @user.prefs.organization)%> <%radio.prefs.stringPref ("Email address", @user.prefs.mailAddress)%> <%radio.prefs.stringPref ("Outgoing (SMTP) mail server", @user.prefs.mailHost)%> <%radio.prefs.numberPref ("Outgoing (SMTP) mail server port", @user.prefs.mailHostPort)%> Security You can set security access controls on all content that the server renders. The values on this page control the global settings. The directory and script settings can be over-ridden at the site level, while IP address security is global. <%mainResponder.adminSite.prefs.securityLevel ("Admin security level")%> <%radio.prefs.checkboxPref ("Check this box to allow directory listings by default.", @config.mainresponder.globals.allowDirectoryListings)%> <%radio.prefs.checkboxPref ("Check this box to allow script listings by default.", @config.mainresponder.globals.allowScriptListings)%> <%radio.prefs.checkboxPref ("Check this box to allow scripts to run by default.", @config.mainresponder.globals.allowScriptsToRun)%> <br /> <b>Blocking HTTP requests by IP address</b> <%radio.prefs.checkboxPref ("Check this box to allow HTTP access <i>only</i> from the following IP addresses.", @config.mainresponder.prefs.flAllowByIpOnly)%> <%radio.prefs.textAreaPref ("IP addresses<br />separated by<br />commas", @config.mainresponder.prefs.allowedIpAddresses)%> <br /> <b>Membership</b> <%radio.prefs.checkboxPref ("Check this box to use the more secure encrypted cookie format. The encrypted format does not store passwords in membership cookies. Instead it hashes the password, plus additional information, to make membership more secure.", @config.mainresponder.prefs.flMembershipHashedCookies)%> Administrators You can add or remove administrators access to the Frontier Admin Site or edit the information for an existing administrator. You can also grant access to the WebEdit server to an administrator. <%mainResponder.adminSite.prefs.listAdministrators ()%> <br /><%mainResponder.adminSite.prefs.addOrEditAdministrator ()%> Domains The settings on this page are used configure virtual domains and sub-sites. For each site hosted on your server, there's a domain, a path, and a collection of objects which comprise the site. For a site hosted from an object database -- a Manila site for example, the objects will be specified by a database address. For a site hosted fom the filesystem, the objects will be specified by the path to a folder on disk. To map a domain and path to a site, type the domain name, and the path under the domain where the site will be served. In the Object field, enter either an object database address or the path to a folder of files on disk. Then click the Add Site button to add the site to the hierarchy. You can specify a redirect by entering the URL to redirect to, starting with http:\\// without a trailing slash, for example http:\\//www.example.com -- This will redirect all requests for the specified URL to the site of your choosing. <%local (pta = html.getPageTableAddress ()); pta^.flAddSubmitButton = false; if defined (pta^.postArgs.delete) {""} else {mainResponder.adminSite.prefs.addMappingToSiteTree () + "<br /><br />"}%> <b>Domains on this server</b> <%mainResponder.adminSite.prefs.listDomains ()%> Search Engine You can enable and set up the search engine server on this page. <%radio.prefs.checkboxPref ("Check this box to enable the search engine.", @config.mainResponder.prefs.flSearchEngine)%> <%radio.prefs.stringPref ("Search page URL", @config.mainResponder.urls.searchHome,size:80, maxlength:300)%> <%radio.prefs.numberPref ("Index stored pages every", @config.mainResponder.search.prefs.minutesBetweenIndexes, 1, textToRight:" minute(s).")%> <%radio.prefs.checkboxPref ("Check this box if you want to store the full text of indexed pages, so that excerpts can be displayed in search results.", @config.mainResponder.search.prefs.flStoreFullText)%> <%radio.prefs.checkboxPref ("Check this box to allow public search submissions.", @config.mainresponder.prefs.flAllowPublicSearchSubmissions)%> <%radio.prefs.checkboxPref ("Check this box to enable search engine logging", @config.mainResponder.search.prefs.flLogEnabled)%> MIME Types <%if defined (searchArgTable.itemToEdit) {"To change the MIME type associated with the ." + searchArgTable.itemToEdit + " extension, fill in the Type input box and click the Submit button."} else {"To add a new MIME type, fill in the suffix and its MIME type, then click the Add New Type button. To delete one or more types, check its checkbox and click the Delete button at the bottom of the page. To edit a type, click an Edit link on the right."}%> <%mainResponder.adminSite.prefs.mimeTypes ()%> Update Notification Frontier can automatically connect to the <a href="http://www.frontierOpenSource.editHere.com/rootUpdates/">Frontier Open Source Root Update server</a> each night, to check the availability of new features and bug fixes. When software updates are available, Frontier will notify you via email. It's recommended that you turn this feature on. <%radio.prefs.checkboxPref ("Check this box to receive email notification when new software updates are available.", @config.mainResponder.prefs.flUpdateNightly)%> <br />You can view a list of pending software updates, and optionally install them via the <%"<a href=\"" + mainResponder.adminSite.urls.updates + "\">"%>Updates page</a>. <br /><b>Databases to update</b> Check the box next to each database that you want to be updated when installing new software. It's strongly recommended that you enable updating all of these databases. <%mainResponder.adminSite.prefs.dbToUpdateCheck ("Frontier.root")%> <%mainResponder.adminSite.prefs.dbToUpdateCheck ("mainResponder.root")%> <%mainResponder.adminSite.prefs.dbToUpdateCheck ("prefs.root")%> Backups This page contains the global backup settings for Manila sites, Frontier databases, and discussion group archives in XML. <br /> <b>Databases</b> Frontier can automatically save all changed databases every minute, and make backup copies each night. It's strongly recommended that you enable the saving of changed databases every minute. Depending on the size of your databases, nightly backups may take some time, so you may want to only enable this feature if your databases are small, or if the server traffic is low at night. <%radio.prefs.checkboxPref ("Check this box to save all changed databases every minute.", @config.mainresponder.prefs.flSaveDatabasesEveryMinute)%> <%radio.prefs.checkboxPref ("Check this box to back up all changed files in the Guest Databases folder every night?", @config.mainResponder.prefs.flBackupNightly)%> <%radio.prefs.stringPref ("Backup folder", @config.mainResponder.prefs.backupFolder, size:60)%> <br /><br /><b>Discussion group archives</b> The discussion group archives feature saves an XML file for every discussion group message. Only new or changed discussion group messages will be archived in XML. <%radio.prefs.checkboxPref ("Check this box to archive changes to discussion group messages in XML?", @config.mainResponder.prefs.flArchiveDiscuss)%> <%radio.prefs.stringPref ("Archive folder", @config.mainResponder.prefs.discussArchiveFolder, size:60)%> Logging and Statistics Frontier can maintain logs detailing what happens on your server and statistics that provide a cumulative view. You can choose which logs and stats Frontier should maintain, and where to store the logs. <br /> <%radio.prefs.checkboxPref ("Check this box to log every HTTP request.", @config.mainResponder.prefs.flLog)%> <%radio.prefs.checkboxPref ("Check this box to log every XML-RPC and SOAP request.", @user.betty.prefs.flKeepServerLog)%> <%radio.prefs.checkboxPref ("Check this box to log root updates.", @user.rootUpdates.prefs.flShowUpdatesToUser)%> <%radio.prefs.checkboxPref ("Check this box to enable search engine logging", @config.mainResponder.search.prefs.flLogEnabled)%> <%radio.prefs.checkboxPref ("Check this box to log scheduled tasks.", @user.scheduler.prefs.logInGuestDatabase)%> <%radio.prefs.checkboxPref ("Check this box to close and re-open the log database every hour, to reclaim allocated memory.", @config.mainresponder.prefs.flLogReopenHourly)%> <%radio.prefs.stringPref ("Log folder", @user.log.prefs.folder, size:70, maxlength:300)%> <br /> <b>Common Log Format</b> Common log format is a text file format used by popular web servers like Apache. Many log analysis programs used to generate traffic graphs and summaries can read this format. Settings in this section enable or disable the output of common log text files, and determine what information is included. <%table.surePath ("system.temp.mainResponder.misc.flCommonLog"); local (ad...@sy..., adr...@us..., s); if method != "POST" {adr^ = defined (adrcallback^)}; s=radio.prefs.checkboxPref ("Check this box to log HTTP requests in common log format.", adr); if method == "POST" {if adr^ {script.newScriptObject ("on commonLog (pta)\r\treturn (webserver.postFilters.commonLog (pta, true))", adrcallback)} else {if defined (adrcallback^) {delete (adrcallback)}}}; delete (adr); s%> <%radio.prefs.checkboxPref ("Check this box to use common log date format.", @user.webserver.prefs.commonLog.flUseCommonLogDateFormat)%> <%radio.prefs.checkboxPref ("Check this box to include virtual hosts.", @user.webserver.prefs.commonLog.flIncludeVirtualHosts)%> <%radio.prefs.checkboxPref ("Check this box to include referers.", @user.webserver.prefs.commonLog.flIncludeReferers)%> <%radio.prefs.checkboxPref ("Check this box to include User-Agents.", @user.webserver.prefs.commonLog.flIncludeUserAgents)%> <br /> <b>Statistics</b> Frontier can count hits on a per-domain basis, complie nightly discussion group stats, and write XML reports listing the most read sites. <%radio.prefs.checkboxPref ("Check this box to compile discussion group stats every night.", @config.mainresponder.prefs.flDiscussStatsNightly)%> <%radio.prefs.checkboxPref ("Check this box to count total hits for each domain hosted on this server.", @user.webserver.prefs.flDomainStats)%> Database Subscriptions You can publish a guest database and allow other people to subscribe to changes made to the guest database. Changes to the guest database made using WebEdit will be added to the updates flow for the database.<br /><br /> <%radio.prefs.checkboxPref ("Check this box to enable database subscriptions from this server to other copies of Frontier or Radio UserLand.", @config.mainresponder.prefs.flSubscriptions)%> <br /><b>Subscribable databases</b> Below is a list of all databases on this server. To enable or disable subscriptions for a given database, check or uncheck the box next to its name and click the Submit button below.<br /><br /> <%mainResponder.adminSite.prefs.listSubscribableDatabases ()%> WebEdit WebEdit allows remote access to your databases, from one copy of Frontier to another. On this page you can enable and disable the WebEdit server, add users, edit user information, and manage the custody of checked-out objects. <%local (pta = html.getPageTableAddress ()); pta^.flAddSubmitButton = false; if not defined (system.temp.mainResponder.misc) {new (tableType, @system.temp.mainResponder.misc)}; ""%> <%local (adrpref = @system.temp.mainResponder.misc.flWebEditEnabled, adrhandlers = @user.betty.rpcHandlers.webEdit); if method != "POST" {if defined (adrhandlers^) {adrpref^ = true} else {adrpref^ = false}}; local (s = radio.prefs.checkboxPref ("Check this box to enable the WebEdit server.", adrpref)); if method == "POST" {if adrpref^ {adrhandlers^ = @webeditServer.rpcHandlers.webEdit} else {try {delete (adrhandlers)}}}; s%> <br /><input type="submit" value="Submit"> <br /> <b>Add User</b> To add a new WebEdit user, enter the user's name, email address and password below, and click the Add User button.<br /><br /> <%mainResponder.adminSite.prefs.addWebeditUser ()%> <br /> <b>Current users</b> Below is a list of users who currently have WebEdit access to this server. To remove a user, check the box next to the user's name, and then click the Remove Users button below.<br /><br /> <%mainResponder.adminSite.prefs.listWebeditUsers ()%> <br /> <b>Objects</b> The following objects have been checked out with WebEdit. To force the check-in of an object, check the box next to its name, and then click the Force Check-In button below.<br /><br /> <%mainResponder.adminSite.prefs.listObjects ()%> Legal Macros <%mainResponder.adminSite.prefs.legalMacros ()%> News Aggregator <%local (htmlText = ""); xml.aggregator.init (); htmlText = radio.prefs.checkboxPref ("Check this box to enable the news aggregator on this server. If it's enabled, Frontier will automatically scan subscribed channels once per hour.", @aggregatorData.prefs.enabled); xml.aggregator.init (); return (htmlText)%> <br /><b>When and how the aggregator runs</b>: <br />At what minute past the top of each hour should the aggregator scan for news? <%radio.prefs.numberPref ("Minute to scan", @aggregatorData.prefs.minuteToRead, upperbound:59)%> <br />The aggregator is multi-threaded. This means it can read several RSS feeds at the same time. The larger this number the quicker it will finish each scan, but it may make the server slower while the scan is running. <%radio.prefs.numberPref ("Number of threads", @aggregatorData.prefs.maxThreads, lowerbound:1, upperbound:10)%> <br /><b>Archiving options</b>: <br />The news aggregator can automatically delete old stories from the database. It is highly recommended that you enable this option.<br /><br /> <%radio.prefs.checkboxPref ("Check this box to automatically delete old news items once an hour.", @aggregatorData.prefs.flArchive)%> <br />How old must an item be (in hours) in order to be deleted? <%radio.prefs.numberPref ("Hours before deletion", @aggregatorData.prefs.hoursBeforeArchive, lowerbound:1, upperbound:100)%> Subscriptions <%mainResponder.adminSite.prefs.subscriptions ()%> Debugging The settings on this page are for people who develop web applications in the Frontier environment. The debugging features help find problems with your code, and to isolate performance bottlenecks. Note that enabling these features can degrade server performance, and cause Frontier to use more memory and disk space than normal, so you should only enable them if needed. <br /> <b>mainResponder debugging</b> <%radio.prefs.checkboxPref ("Check this box to run mainResponder in debug mode. This will cause low-level errors to display an error window in the Frontier application.", @config.mainresponder.prefs.flDebug)%> <%radio.prefs.checkboxPref ("Check this box to copy the paramtable to scratchpad.params after every request.", @config.mainresponder.prefs.flKeepParamTable)%> <br /> <b>Profiling</b> Profiling allows you to find out what scripts and kernel verbs are being executed and for how long. It's a way of finding performance bottlenecks. With the feature enabled, you can view a web page showing the amount of time Frontier spent in each script and verb in processing the request by adding /profile/ to the begining of the path to the page. <%radio.prefs.checkboxPref ("Check this box to enable profiling.", @config.mainresponder.prefs.flProfiling)%> <br /> <b>Miscellaneous</b> Below are miscellaneous debugging features which may be useful depending on the type of application you're developing. <%radio.prefs.checkboxPref ("Check this box to record automatic database opens in system.temp.", @config.mainresponder.prefs.flLogDatabaseOpens)%> <%radio.prefs.checkboxPref ("Check this box to log available memory.", @config.mainresponder.prefs.flLogMemavail)%> Email Config <%flAddSubmitButton = false; mainResponder.controlPanel.emailConfig ()%> \ No newline at end of file |
|
From: creedon <icr...@us...> - 2006-02-02 07:50:09
|
Update of /cvsroot/frontierkernel/odbs/mainResponderRoot/mainResponder/localization/languages/english/strings/setupFrontier In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv9874 Modified Files: portForwarding Log Message: towards XHTML compliance Index: portForwarding =================================================================== RCS file: /cvsroot/frontierkernel/odbs/mainResponderRoot/mainResponder/localization/languages/english/strings/setupFrontier/portForwarding,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 *** portForwarding 6 Jul 2005 19:55:11 -0000 1.2 --- portForwarding 2 Feb 2006 07:50:01 -0000 1.3 *************** *** 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]]> 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]]> 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]] /> 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]]> 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 |
|
From: creedon <icr...@us...> - 2006-02-02 07:50:00
|
Update of /cvsroot/frontierkernel/odbs/mainResponderRoot/mainResponder/localization/languages/english/strings/setupFrontier In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv9831 Modified Files: personalize Log Message: towards XHTML compliance Index: personalize =================================================================== RCS file: /cvsroot/frontierkernel/odbs/mainResponderRoot/mainResponder/localization/languages/english/strings/setupFrontier/personalize,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 *** personalize 6 Jul 2005 19:55:11 -0000 1.2 --- personalize 2 Feb 2006 07:49:49 -0000 1.3 *************** *** 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: </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]]: </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: </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: </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]]: </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: </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 |
|
From: creedon <icr...@us...> - 2006-02-02 07:48:47
|
Update of /cvsroot/frontierkernel/odbs/mainResponderRoot/mainResponder/adminSite/urls In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv9459 Modified Files: help Log Message: new url Index: help =================================================================== RCS file: /cvsroot/frontierkernel/odbs/mainResponderRoot/mainResponder/adminSite/urls/help,v retrieving revision 1.1.1.1 retrieving revision 1.2 diff -C2 -d -r1.1.1.1 -r1.2 *** help 26 Mar 2005 21:45:16 -0000 1.1.1.1 --- help 2 Feb 2006 07:48:38 -0000 1.2 *************** *** 1,3 **** FrontierVcsFile:1:TEXT:mainResponder.adminSite.urls.help ! http://frontier.userland.com/directory/7708 \ No newline at end of file --- 1,3 ---- FrontierVcsFile:1:TEXT:mainResponder.adminSite.urls.help ! http://groups.yahoo.com/group/frontierkernel/ \ No newline at end of file |
|
From: creedon <icr...@us...> - 2006-02-02 07:48:16
|
Update of /cvsroot/frontierkernel/odbs/mainResponderRoot/mainResponder/adminSite/urls In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv9273 Removed Files: store serialNumber Log Message: deleted --- serialNumber DELETED --- --- store DELETED --- |
|
From: creedon <icr...@us...> - 2006-02-02 07:46:49
|
Update of /cvsroot/frontierkernel/odbs/mainResponderRoot/mainResponder/adminSite/website In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv8801 Modified Files: setupFrontier Log Message: towards XHTML compliance lowercase method check, towards XHTML compliance Index: setupFrontier =================================================================== RCS file: /cvsroot/frontierkernel/odbs/mainResponderRoot/mainResponder/adminSite/website/setupFrontier,v retrieving revision 1.4 retrieving revision 1.5 diff -C2 -d -r1.4 -r1.5 *** setupFrontier 6 Jul 2005 19:55:21 -0000 1.4 --- setupFrontier 2 Feb 2006 07:46:38 -0000 1.5 *************** *** 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 --- 1,3 ---- FrontierVcsFile:1:scpt:mainResponder.adminSite.website.setupFrontier ! on setupFrontier () { ÇChanges Ç2/1/06; 1:32:48 PM by TAC Çtowards XHTML compliance Çlowercase method check, towards XHTML compliance Ç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 string.lower (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--}} else { scriptError ("!redirect " + pta^.URI + "$personalize")}; return (htmlText)} \ No newline at end of file |
|
From: creedon <icr...@us...> - 2006-02-02 07:45:57
|
Update of /cvsroot/frontierkernel/odbs/mainResponderRoot/mainResponder In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv8510 Modified Files: startup Log Message: change root update last update time from hard coded date to Frontier.data.initialLastUpdateTime Index: startup =================================================================== RCS file: /cvsroot/frontierkernel/odbs/mainResponderRoot/mainResponder/startup,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 *** startup 25 Dec 2005 01:49:22 -0000 1.2 --- startup 2 Feb 2006 07:45:45 -0000 1.3 *************** *** 1,3 **** FrontierVcsFile:1:scpt:mainResponder.startup ! ÇChanges Ç12/23/05; 9:31:12 PM by TAC ÇnirvanaServer is not a supported name for betty Çupdated root update server information for frontier open source Ç07/29/00; 10:12:31 AM by PBS ÇEnsure that the everyMinute task, if it already exists, is valid. It's crucial to save databases every minute. Ç05/15/00; 9:33:03 PM by PBS ÇMake sure the nightlyUpdates task has been created. This scheduler task handles updating the various Frontier gdbs. It was uncoupled from mainResponder.background.everyNight, as machines were competing on the hour to get updates. Now the times are more dispersed. Ç1999 Ç12/30/99; 12:16:25 PM by PBS ÇWhen creating a new default membership group, set the cookie expiration date to Mon, 01 Apr 2030 07:00:00 GMT. Ç12/11/99; 5:29:27 AM by AR ÇUpdated the code for hooking into the scheduler: Only create entries in user.scheduler if they don't already exist. Also, use scripts instead of addresses for better portability. Ç11/15/99; 10:57:16 PM by PBS ÇOn some systems, if any or all of config.root, discuss.root, members.root, and news.root are open before mainResponder's startup script runs, this would cause the startup script to abort with an error. Now the startup script checks to see if a database is open before trying to open it -- if it's already open, it doesn't try to open it. Ç10/25/99; 2:55:22 PM by PBS ÇCreate callbacks in user.webEditServer.callbacks as scripts, not addresses, since addresses break when Frontier is moved to another machine or folder or the hard drive is renamed. This removes the leading cause of problems with WebEditServer. ÇChanged default root updates prefs. Server is updates.userland.com, URL is http://frontier.userland.com/updates/mainResponder ÇThu, Mar 25, 1999 at 3:11:02 PM by PBS ÇDon't create an empty news.root if none exists. ÇTue, Mar 9, 1999 at 4:14:33 PM by PBS ÇCall Frontier.getSubFolder rather than mainResponder.getFolder. ÇThis script is called when Frontier starts up, to get mainResponder ready for another session. on startupmsg (s) { msg ("mainResponder.startup: " + s)}; new (tabletype, @system.temp.mainResponder); local (alist = string.parseAddress (this)); system.temp.mainResponder.mainResponderRootFile = alist [1]; bundle { //get the path to Index.root ÇTuesday, January 19, 1999 at 3:52:27 PM by PBS system.temp.mainResponder.indexRootFile = Frontier.getSubFolder ("ops/") + "Index.root"}; bundle { //system.temp.mainResponder.search ÇTuesday, January 19, 1999 at 3:44:11 PM by PBS new (tableType, @system.temp.mainResponder.search)}; bundle { //open config.root startupmsg ("Opening config.root" ); local (f = Frontier.getSubFolder ("apps") + "config.root"); system.temp.mainResponder.configRootFile = f; if not defined ([f]) { //PBS 11/15/99: open config.root only if it's not already open mainResponder.openFile ("apps", "config.root")}; local (adrconfig = @[system.temp.mainResponder.configRootFile].config); if not defined (adrconfig^) { new (tabletype, adrconfig)}}; mainResponder.init (); bundle { //init Frontier.root stuff Çuser.menus.nirvanaServer = @mainResponder.menu // Sun, 07 Mar 1999 15:06:26 GMT by AR ÇAdd XML-RPC handlers. Çif not defined (user.betty.rpcHandlers.nirvanaServer) Çuser.betty.rpcHandlers.nirvanaServer = @mainResponder.rpcHandlers if not defined (user.betty.rpcHandlers.mainResponder) { //PBS 3/16/99: both names are supported user.betty.rpcHandlers.mainResponder = @mainResponder.rpcHandlers}; ÇAdd WebEditServer callbacks needed to support #changes table and search engine indexing. webEditServer.init (); local (scriptCode = "on nirvanaServer (adrObject, username, now, description)\r\treturn (mainResponder.subscriptions.checkInCallback (adrObject, username, now, description))"); if not defined (user.webeditserver.callbacks.checkin.nirvanaServer) { script.newScriptObject (scriptCode, @user.webeditserver.callbacks.checkin.nirvanaServer)}; if not defined (user.webeditserver.callbacks.sendToServer.nirvanaServer) { if defined (user.webEditServer.callbacks.sendToServer) { script.newScriptObject (scriptCode, @user.webeditserver.callbacks.sendToServer.nirvanaServer)}}; scriptCode = "on searchEngineClient (adrObject, username=nil, now=nil, description=nil)\r\treturn (mainResponder.search.client.webEditCallback (adrObject, username, now, description))"; if not defined (user.webeditserver.callbacks.checkIn.searchEngineClient) { script.newScriptObject (scriptCode, @user.webeditserver.callbacks.checkIn.searchEngineClient)}; if not defined (user.webEditServer.callbacks.sendToServer.searchEngineClient) { if defined (user.webEditServer.callbacks.sendToServer) { script.newScriptObject (scriptCode, @user.webEditServer.callbacks.sendToServer.searchEngineClient)}}; ÇScheduler. scheduler.init (); //upgrades user.scheduler if it needs it if not defined (user.scheduler.everyMinute.nirvanaServer) { local (scriptCode = "mainresponder.background.everyminute ()"); script.newScriptObject (scriptCode, @user.scheduler.everyMinute.nirvanaServer)} else { //PBS 07/29/00: ensure that the everyMinute task is actually valid: it's crucial to save databases every minute if typeOf (user.scheduler.everyMinute.nirvanaServer) == addressType { if not defined (user.scheduler.everyMinute.nirvanaServer^) { local (scriptCode = "mainresponder.background.everyminute ()"); script.newScriptObject (scriptCode, @user.scheduler.everyMinute.nirvanaServer)}}}; if not defined (user.scheduler.hourly.nirvanaServer) { local (scriptCode = "mainresponder.background.everyHour ()"); script.newScriptObject (scriptCode, @user.scheduler.hourly.nirvanaServer)}; if not defined (user.scheduler.hourly.searchEngine) { local (scriptCode = "mainResponder.search.server.indexStoredPages ()"); script.newScriptObject (scriptCode, @user.scheduler.hourly.searchEngine)}; if not defined (user.scheduler.overnight.nirvanaServer) { local (scriptCode = "mainresponder.background.everynight ()"); script.newScriptObject (scriptCode, @user.scheduler.overnight.nirvanaServer)}; if not defined (user.scheduler.tasks.nightlyUpdates) { local (adrTable = @user.scheduler.tasks.nightlyUpdates); startupMsg ("Creating nightly updates task."); new (tableType, adrTable); local (scriptCode = "mainResponder.background.nightlyUpdates ()"); script.newScriptObject (scriptCode, @adrTable^.script); adrTable^.ctRuns = 0; adrTable^.error = ""; adrTable^.minutesBetweenRuns = 1440; ÇGet a task time that's a random 5 to 55 minutes in the hour after the overnight script runs. local (overnightTaskTime = user.scheduler.tasks.overnight.taskTime); local (minutesPastTime = random (5, 55)); local (updatesTaskTime = overnightTaskTime + (minutesPastTime * 60)); adrTable^.taskTime = updatesTaskTime}}; bundle { //init rootUpdates prefs for mainResponder.root. ÇWednesday, March 03, 1999 at 11:40:43 AM by PBS local (adrTable = @user.rootUpdates.servers.mainResponder); if not defined (adrTable^) { new (tableType, adrTable)}; if not defined (adrTable^.autobackup) { adrTable^.autobackup = true}; if not defined (adrTable^.dbname) { adrTable^.dbname = "mainResponder.root"}; if not defined (adrTable^.dialogs) { adrTable^.dialogs = true}; if not defined (adrTable^.lastUpdate) { adrTable^.lastUpdate = "Sun, 01 Jan 2006 08:00:00 GMT"}; if not defined (adrTable^.method) { adrTable^.method = "mainResponder.subscriptions.update"}; if not defined (adrTable^.port) { adrTable^.port = 8081}; if not defined (adrTable^.serialNum) { adrTable^.serialNum = 0}; if not defined (adrTable^.server) { adrTable^.server = "rootUpdates.frontierOpenSource.editHere.com"}; if not defined (adrTable^.URL) { adrTable^.URL = "http://www.frontierOpenSource.editHere.com/rootUpdates/mainResponder"}}; bundle { //open discuss.root startupmsg ("Opening discuss.root" ); local (f = Frontier.getSubFolder ("ops") + "discuss.root"); system.temp.mainResponder.discussRootFile = f; if not defined ([f]) { //PBS 11/15/99: open discuss.root only if it's not already open mainResponder.openFile ("ops", "discuss.root")}; local (adrdata = @[f].["discuss"]); if not defined (adrdata^) { new (tabletype, adrdata)}; if not defined (adrdata^.calendar) { new (tabletype, @adrdata^.calendar)}; if not defined (adrdata^.messages) { new (tabletype, @adrdata^.messages)}; bundle { //prefs local (adrprefs = @adrdata^.prefs); if not defined (adrprefs^) { new (tabletype, adrprefs)}; Çif not defined (adrprefs^.auditTrail) //Fri, 12 Mar 1999 17:43:10 GMT by AR Çadrprefs^.auditTrail = true Çif not defined (adrprefs^.auditTrailFolder) Çlocal (pc = file.getpathchar ()) Çadrprefs^.auditTrailFolder = Frontier.getSubFolder ("/ops/discuss/") //PBS 3/9/99 if not defined (adrprefs^.nextMsgNum) { adrprefs^.nextMsgNum = 1}; if not defined (adrprefs^.url) { //PBS 3/16/99 adrprefs^.url = config.mainResponder.urls.discussMsgReader}; if not defined (adrprefs^.adrMsgReader) { //PBS 3/16/99 local (f = Frontier.getSubFolder ("/www/") + "htmlInterfaces.root"); if defined ([f].discussionGroup.msgReader) { adrprefs^.adrMsgReader = @[f].discussionGroup.msgReader} else { adrprefs^.adrMsgReader = nil}}}; //it can be set later: it should exist, at least try {delete (@[f].["item #1"])}; filemenu.save (f)}; bundle { //open members.root startupmsg ("Opening members.root" ); local (f = Frontier.getSubFolder ("ops") + "members.root"); system.temp.mainResponder.membersRootFile = f; if not defined ([f]) { //PBS 11/15/99: open members.root only if it's not already open mainResponder.openFile ("ops", "members.root")}; local (adrtable = @[f].["default"]); if not defined (adrtable^) { new (tabletype, adrtable)}; if not defined (adrtable^.callbacks) { new (tabletype, @adrtable^.callbacks)}; if not defined (adrtable^.cookieDomain) { adrtable^.cookieDomain = ""}; if not defined (adrtable^.cookieExpires) { Çadrtable^.cookieExpires = "Friday, 31-Dec-99 23:59:59 GMT" adrtable^.cookieExpires = "Mon, 01 Apr 2030 07:00:00 GMT"}; //PBS 12/30/99: set the cookie expiration date farther in the future if not defined (adrtable^.cookieName) { adrtable^.cookieName = "Nirvana Server"}; if not defined (adrtable^.mailReturnAddress) { adrtable^.mailReturnAddress = user.prefs.mailAddress}; if not defined (adrtable^.mailSubject) { adrtable^.mailSubject = "Welcome!"}; if not defined (adrtable^.mailTemplate) { adrtable^.mailTemplate = mainResponder.data.mailTemplate}; if not defined (adrtable^.openToPublic) { adrtable^.openToPublic = true}; if not defined (adrtable^.users) { new (tabletype, @adrtable^.users)}; try {delete (@[f].["item #1"])}}; bundle { //open news.root local (folder = Frontier.getSubFolder ("/www/")); local (f = folder + "news.root"); if file.exists (f) { startupmsg ("Opening news.root" ); if not defined ([f]) { //PBS 11/15/99: open news.root only if it's not already open mainResponder.openFile ("www", "news.root")}; system.temp.mainResponder.newsRootFile = f}}; msg ("") //wipe out any msg we left behind \ No newline at end of file --- 1,3 ---- FrontierVcsFile:1:scpt:mainResponder.startup ! ÇChanges Ç2/1/06; 12:59:03 PM by TAC Çchange root update last update time from hard coded date to Frontier.data.initialLastUpdateTime Ç12/23/05; 9:31:12 PM by TAC ÇnirvanaServer is not a supported name for betty Çupdated root update server information for frontier open source Ç07/29/00; 10:12:31 AM by PBS ÇEnsure that the everyMinute task, if it already exists, is valid. It's crucial to save databases every minute. Ç05/15/00; 9:33:03 PM by PBS ÇMake sure the nightlyUpdates task has been created. This scheduler task handles updating the various Frontier gdbs. It was uncoupled from mainResponder.background.everyNight, as machines were competing on the hour to get updates. Now the times are more dispersed. Ç1999 Ç12/30/99; 12:16:25 PM by PBS ÇWhen creating a new default membership group, set the cookie expiration date to Mon, 01 Apr 2030 07:00:00 GMT. Ç12/11/99; 5:29:27 AM by AR ÇUpdated the code for hooking into the scheduler: Only create entries in user.scheduler if they don't already exist. Also, use scripts instead of addresses for better portability. Ç11/15/99; 10:57:16 PM by PBS ÇOn some systems, if any or all of config.root, discuss.root, members.root, and news.root are open before mainResponder's startup script runs, this would cause the startup script to abort with an error. Now the startup script checks to see if a database is open before trying to open it -- if it's already open, it doesn't try to open it. Ç10/25/99; 2:55:22 PM by PBS ÇCreate callbacks in user.webEditServer.callbacks as scripts, not addresses, since addresses break when Frontier is moved to another machine or folder or the hard drive is renamed. This removes the leading cause of problems with WebEditServer. ÇChanged default root updates prefs. Server is updates.userland.com, URL is http://frontier.userland.com/updates/mainResponder ÇThu, Mar 25, 1999 at 3:11:02 PM by PBS ÇDon't create an empty news.root if none exists. ÇTue, Mar 9, 1999 at 4:14:33 PM by PBS ÇCall Frontier.getSubFolder rather than mainResponder.getFolder. ÇThis script is called when Frontier starts up, to get mainResponder ready for another session. on startupmsg (s) { msg ("mainResponder.startup: " + s)}; new (tabletype, @system.temp.mainResponder); local (alist = string.parseAddress (this)); system.temp.mainResponder.mainResponderRootFile = alist [1]; bundle { //get the path to Index.root ÇTuesday, January 19, 1999 at 3:52:27 PM by PBS system.temp.mainResponder.indexRootFile = Frontier.getSubFolder ("ops/") + "Index.root"}; bundle { //system.temp.mainResponder.search ÇTuesday, January 19, 1999 at 3:44:11 PM by PBS new (tableType, @system.temp.mainResponder.search)}; bundle { //open config.root startupmsg ("Opening config.root" ); local (f = Frontier.getSubFolder ("apps") + "config.root"); system.temp.mainResponder.configRootFile = f; if not defined ([f]) { //PBS 11/15/99: open config.root only if it's not already open mainResponder.openFile ("apps", "config.root")}; local (adrconfig = @[system.temp.mainResponder.configRootFile].config); if not defined (adrconfig^) { new (tabletype, adrconfig)}}; mainResponder.init (); bundle { //init Frontier.root stuff Çuser.menus.nirvanaServer = @mainResponder.menu // Sun, 07 Mar 1999 15:06:26 GMT by AR ÇAdd XML-RPC handlers. Çif not defined (user.betty.rpcHandlers.nirvanaServer) Çuser.betty.rpcHandlers.nirvanaServer = @mainResponder.rpcHandlers if not defined (user.betty.rpcHandlers.mainResponder) { //PBS 3/16/99: both names are supported user.betty.rpcHandlers.mainResponder = @mainResponder.rpcHandlers}; ÇAdd WebEditServer callbacks needed to support #changes table and search engine indexing. webEditServer.init (); local (scriptCode = "on nirvanaServer (adrObject, username, now, description)\r\treturn (mainResponder.subscriptions.checkInCallback (adrObject, username, now, description))"); if not defined (user.webeditserver.callbacks.checkin.nirvanaServer) { script.newScriptObject (scriptCode, @user.webeditserver.callbacks.checkin.nirvanaServer)}; if not defined (user.webeditserver.callbacks.sendToServer.nirvanaServer) { if defined (user.webEditServer.callbacks.sendToServer) { script.newScriptObject (scriptCode, @user.webeditserver.callbacks.sendToServer.nirvanaServer)}}; scriptCode = "on searchEngineClient (adrObject, username=nil, now=nil, description=nil)\r\treturn (mainResponder.search.client.webEditCallback (adrObject, username, now, description))"; if not defined (user.webeditserver.callbacks.checkIn.searchEngineClient) { script.newScriptObject (scriptCode, @user.webeditserver.callbacks.checkIn.searchEngineClient)}; if not defined (user.webEditServer.callbacks.sendToServer.searchEngineClient) { if defined (user.webEditServer.callbacks.sendToServer) { script.newScriptObject (scriptCode, @user.webEditServer.callbacks.sendToServer.searchEngineClient)}}; ÇScheduler. scheduler.init (); //upgrades user.scheduler if it needs it if not defined (user.scheduler.everyMinute.nirvanaServer) { local (scriptCode = "mainresponder.background.everyminute ()"); script.newScriptObject (scriptCode, @user.scheduler.everyMinute.nirvanaServer)} else { //PBS 07/29/00: ensure that the everyMinute task is actually valid: it's crucial to save databases every minute if typeOf (user.scheduler.everyMinute.nirvanaServer) == addressType { if not defined (user.scheduler.everyMinute.nirvanaServer^) { local (scriptCode = "mainresponder.background.everyminute ()"); script.newScriptObject (scriptCode, @user.scheduler.everyMinute.nirvanaServer)}}}; if not defined (user.scheduler.hourly.nirvanaServer) { local (scriptCode = "mainresponder.background.everyHour ()"); script.newScriptObject (scriptCode, @user.scheduler.hourly.nirvanaServer)}; if not defined (user.scheduler.hourly.searchEngine) { local (scriptCode = "mainResponder.search.server.indexStoredPages ()"); script.newScriptObject (scriptCode, @user.scheduler.hourly.searchEngine)}; if not defined (user.scheduler.overnight.nirvanaServer) { local (scriptCode = "mainresponder.background.everynight ()"); script.newScriptObject (scriptCode, @user.scheduler.overnight.nirvanaServer)}; if not defined (user.scheduler.tasks.nightlyUpdates) { local (adrTable = @user.scheduler.tasks.nightlyUpdates); startupMsg ("Creating nightly updates task."); new (tableType, adrTable); local (scriptCode = "mainResponder.background.nightlyUpdates ()"); script.newScriptObject (scriptCode, @adrTable^.script); adrTable^.ctRuns = 0; adrTable^.error = ""; adrTable^.minutesBetweenRuns = 1440; ÇGet a task time that's a random 5 to 55 minutes in the hour after the overnight script runs. local (overnightTaskTime = user.scheduler.tasks.overnight.taskTime); local (minutesPastTime = random (5, 55)); local (updatesTaskTime = overnightTaskTime + (minutesPastTime * 60)); adrTable^.taskTime = updatesTaskTime}}; bundle { //init rootUpdates prefs for mainResponder.root. ÇWednesday, March 03, 1999 at 11:40:43 AM by PBS local (adrTable = @user.rootUpdates.servers.mainResponder); if not defined (adrTable^) { new (tableType, adrTable)}; if not defined (adrTable^.autobackup) { adrTable^.autobackup = true}; if not defined (adrTable^.dbname) { adrTable^.dbname = "mainResponder.root"}; if not defined (adrTable^.dialogs) { adrTable^.dialogs = true}; if not defined (adrTable^.lastUpdate) { adrTable^.lastUpdate = Frontier.data.initialLastUpdateTime}; if not defined (adrTable^.method) { adrTable^.method = "mainResponder.subscriptions.update"}; if not defined (adrTable^.port) { adrTable^.port = 8081}; if not defined (adrTable^.serialNum) { adrTable^.serialNum = 0}; if not defined (adrTable^.server) { adrTable^.server = "rootUpdates.frontierOpenSource.editHere.com"}; if not defined (adrTable^.URL) { adrTable^.URL = "http://www.frontierOpenSource.editHere.com/rootUpdates/mainResponder"}}; bundle { //open discuss.root startupmsg ("Opening discuss.root" ); local (f = Frontier.getSubFolder ("ops") + "discuss.root"); system.temp.mainResponder.discussRootFile = f; if not defined ([f]) { //PBS 11/15/99: open discuss.root only if it's not already open mainResponder.openFile ("ops", "discuss.root")}; local (adrdata = @[f].["discuss"]); if not defined (adrdata^) { new (tabletype, adrdata)}; if not defined (adrdata^.calendar) { new (tabletype, @adrdata^.calendar)}; if not defined (adrdata^.messages) { new (tabletype, @adrdata^.messages)}; bundle { //prefs local (adrprefs = @adrdata^.prefs); if not defined (adrprefs^) { new (tabletype, adrprefs)}; Çif not defined (adrprefs^.auditTrail) //Fri, 12 Mar 1999 17:43:10 GMT by AR Çadrprefs^.auditTrail = true Çif not defined (adrprefs^.auditTrailFolder) Çlocal (pc = file.getpathchar ()) Çadrprefs^.auditTrailFolder = Frontier.getSubFolder ("/ops/discuss/") //PBS 3/9/99 if not defined (adrprefs^.nextMsgNum) { adrprefs^.nextMsgNum = 1}; if not defined (adrprefs^.url) { //PBS 3/16/99 adrprefs^.url = config.mainResponder.urls.discussMsgReader}; if not defined (adrprefs^.adrMsgReader) { //PBS 3/16/99 local (f = Frontier.getSubFolder ("/www/") + "htmlInterfaces.root"); if defined ([f].discussionGroup.msgReader) { adrprefs^.adrMsgReader = @[f].discussionGroup.msgReader} else { adrprefs^.adrMsgReader = nil}}}; //it can be set later: it should exist, at least try {delete (@[f].["item #1"])}; filemenu.save (f)}; bundle { //open members.root startupmsg ("Opening members.root" ); local (f = Frontier.getSubFolder ("ops") + "members.root"); system.temp.mainResponder.membersRootFile = f; if not defined ([f]) { //PBS 11/15/99: open members.root only if it's not already open mainResponder.openFile ("ops", "members.root")}; local (adrtable = @[f].["default"]); if not defined (adrtable^) { new (tabletype, adrtable)}; if not defined (adrtable^.callbacks) { new (tabletype, @adrtable^.callbacks)}; if not defined (adrtable^.cookieDomain) { adrtable^.cookieDomain = ""}; if not defined (adrtable^.cookieExpires) { Çadrtable^.cookieExpires = "Friday, 31-Dec-99 23:59:59 GMT" adrtable^.cookieExpires = "Mon, 01 Apr 2030 07:00:00 GMT"}; //PBS 12/30/99: set the cookie expiration date farther in the future if not defined (adrtable^.cookieName) { adrtable^.cookieName = "Nirvana Server"}; if not defined (adrtable^.mailReturnAddress) { adrtable^.mailReturnAddress = user.prefs.mailAddress}; if not defined (adrtable^.mailSubject) { adrtable^.mailSubject = "Welcome!"}; if not defined (adrtable^.mailTemplate) { adrtable^.mailTemplate = mainResponder.data.mailTemplate}; if not defined (adrtable^.openToPublic) { adrtable^.openToPublic = true}; if not defined (adrtable^.users) { new (tabletype, @adrtable^.users)}; try {delete (@[f].["item #1"])}}; bundle { //open news.root local (folder = Frontier.getSubFolder ("/www/")); local (f = folder + "news.root"); if file.exists (f) { startupmsg ("Opening news.root" ); if not defined ([f]) { //PBS 11/15/99: open news.root only if it's not already open mainResponder.openFile ("www", "news.root")}; system.temp.mainResponder.newsRootFile = f}}; msg ("") //wipe out any msg we left behind \ No newline at end of file |
|
From: creedon <icr...@us...> - 2006-02-02 07:45:00
|
Update of /cvsroot/frontierkernel/odbs/mainResponderRoot/mainResponder/adminSite/prefs In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv8221 Modified Files: updateNowButton Log Message: commented out Manila update tweaked script formatting lowercase method check, towards XHTML compliance Index: updateNowButton =================================================================== RCS file: /cvsroot/frontierkernel/odbs/mainResponderRoot/mainResponder/adminSite/prefs/updateNowButton,v retrieving revision 1.1.1.1 retrieving revision 1.2 diff -C2 -d -r1.1.1.1 -r1.2 *** updateNowButton 26 Mar 2005 21:45:16 -0000 1.1.1.1 --- updateNowButton 2 Feb 2006 07:44:53 -0000 1.2 *************** *** 1,3 **** FrontierVcsFile:1:scpt:mainResponder.adminSite.prefs.updateNowButton ! on updateNowButton (flInTable=true) { ÇChanges Ç12/16/03; 3:41:23 AM by JES ÇIf the user updates their databases without error, clear the pending updates table so we don't show them stuff they've already seen. Ç6/26/02; 11:07:31 PM by JES ÇCreated. local (pta = html.getPageTableAddress ()); local (htmltext = ""); on add (s) { htmltext = htmltext + s;}; local (confirmText = "", totalNewParts = 0, flError = false); if pta^.method == "POST" { if defined (pta^.postArgs.updateNow) { //catch the submit button on addToConfirmText (ctNewParts, databaseName) { confirmText = confirmText + ctNewParts + " new part"; if ctNewParts != 1 { confirmText = confirmText + "s"}; confirmText = confirmText + " added to " + databaseName + ".root.<br />"}; on addErrorToConfirmText (databaseName) { confirmText = confirmText + "<b>Couldn't update " + databaseName + ".root because the server didn't respond within 2 minutes.</b><br />"}; on updateOneRoot (nameInRoot, adrCtNewParts) { local (scriptText); scriptText = "local (params = {@" + nameInRoot + ", true, @system.temp.Frontier.ctNewParts});\r"; scriptText = scriptText + "thread.callScript (@rootUpdates.update, params)"; local (adr = @system.temp.Frontier.doThreadedUpdate); new (scriptType, adr); local (oldtarget = target.set (adr)); op.setLineText (scriptText); try {target.set (oldtarget)}; script.getcode (adr, adr); //use script.getcode to avoid dialogs asking if you want to compile before closing adr^ (); local (now = clock.now (), flTimeout = false); while not defined (system.temp.Frontier.ctNewParts) { //loop until the update is complete, or we time out thread.sleepTicks (6); //0.1 seconds if clock.now () - now > 120 { //2 minute timeout flTimeout = true; break}}; if not flTimeout { //udpate completed -- set confirmation message, delete temporary objects adrCtNewParts^ = system.temp.Frontier.ctNewParts; delete (@system.temp.Frontier.ctNewParts)}; return (not flTimeout)}; local (ctNewParts); if updateOneRoot ("root", @ctNewParts) { addToConfirmText (ctNewParts, "Frontier"); totalNewParts = totalNewParts + ctNewParts} else { addErrorToConfirmText ("Frontier"); flError = true}; if updateOneRoot ("mainResponder", @ctNewParts) { addToConfirmText (ctNewParts, "mainResponder"); totalNewParts = totalNewParts + ctNewParts} else { addErrorToConfirmText ("mainResponder"); flError = true}; if updateOneRoot ("manilaSuite", @ctNewParts) { addToConfirmText (ctNewParts, "manila"); totalNewParts = totalNewParts + ctNewParts} else { addErrorToConfirmText ("manila"); flError = true}; if updateOneRoot ("prefsSuite", @ctNewParts) { addToConfirmText (ctNewParts, "prefs"); totalNewParts = totalNewParts + ctNewParts} else { addErrorToConfirmText ("prefs"); flError = true}; msg (""); if not flError { //empty out the pending updates table try {new (tableType, @config.mainResponder.stats.pendingUpdates)}}}}; add ("<input type=\"submit\" name=\"updateNow\" value=\"Update Now\" />"); if confirmText != "" { //render the confirm text if totalNewParts > 0 or flError { add ("<p><b>Thanks for updating. " + totalNewParts + " new or changed parts were installed. "); if flError { add ("At least one error occurred.")}; add ("The number of new parts installed in each database is listed below:</b></p>"); add (confirmText)} else { add ("<p><b>There are no new features or fixes at this time. Your copy of Frontier is up to date.</b></p>")}}; if flInTable { return ("<tr><td colspan=\"2\">" + htmltext + "</td></tr>")} else { return (htmltext)}} \ No newline at end of file --- 1,3 ---- FrontierVcsFile:1:scpt:mainResponder.adminSite.prefs.updateNowButton ! on updateNowButton (flInTable=true) { ÇChanges Ç2/1/06; 12:40:03 PM by TAC Çcommented out Manila update Çtweaked script formatting Çlowercase method check, towards XHTML compliance Ç12/16/03; 3:41:23 AM by JES ÇIf the user updates their databases without error, clear the pending updates table so we don't show them stuff they've already seen. Ç6/26/02; 11:07:31 PM by JES ÇCreated. local (pta = html.getPageTableAddress ()); local (htmlText = ""); on add (s) { htmlText = htmlText + s;}; local (confirmText = "", totalNewParts = 0, flError = false); if string.lower (pta^.method) == "post" { if defined (pta^.postArgs.updateNow) { //catch the submit button on addToConfirmText (ctNewParts, databaseName) { confirmText = confirmText + ctNewParts + " new part"; if ctNewParts != 1 { confirmText = confirmText + "s"}; confirmText = confirmText + " added to " + databaseName + ".root.<br />"}; on addErrorToConfirmText (databaseName) { confirmText = confirmText + "<b>Couldn't update " + databaseName + ".root because the server didn't respond within 2 minutes.</b><br />"}; on updateOneRoot (nameInRoot, adrCtNewParts) { local (scriptText); scriptText = "local (params = {@" + nameInRoot + ", true, @system.temp.Frontier.ctNewParts});\r"; scriptText = scriptText + "thread.callScript (@rootUpdates.update, params)"; local (adr = @system.temp.Frontier.doThreadedUpdate); new (scriptType, adr); local (oldtarget = target.set (adr)); op.setLineText (scriptText); try {target.set (oldtarget)}; script.getcode (adr, adr); //use script.getcode to avoid dialogs asking if you want to compile before closing adr^ (); local (now = clock.now (), flTimeout = false); while not defined (system.temp.Frontier.ctNewParts) { //loop until the update is complete, or we time out thread.sleepTicks (6); //0.1 seconds if clock.now () - now > 120 { //2 minute timeout flTimeout = true; break}}; if not flTimeout { //udpate completed -- set confirmation message, delete temporary objects adrCtNewParts^ = system.temp.Frontier.ctNewParts; delete (@system.temp.Frontier.ctNewParts)}; return (not flTimeout)}; local (ctNewParts); if updateOneRoot ("root", @ctNewParts) { addToConfirmText (ctNewParts, "Frontier"); totalNewParts = totalNewParts + ctNewParts} else { addErrorToConfirmText ("Frontier"); flError = true}; if updateOneRoot ("mainResponder", @ctNewParts) { addToConfirmText (ctNewParts, "mainResponder"); totalNewParts = totalNewParts + ctNewParts} else { addErrorToConfirmText ("mainResponder"); flError = true}; Çif updateOneRoot ("manilaSuite", @ctNewParts) ÇaddToConfirmText (ctNewParts, "manila") ÇtotalNewParts = totalNewParts + ctNewParts Çelse ÇaddErrorToConfirmText ("manila") ÇflError = true Ç if updateOneRoot ("prefsSuite", @ctNewParts) { addToConfirmText (ctNewParts, "prefs"); totalNewParts = totalNewParts + ctNewParts} else { addErrorToConfirmText ("prefs"); flError = true}; msg (""); if not flError { //empty out the pending updates table try {new (tableType, @config.mainResponder.stats.pendingUpdates)}}}}; add ("<input type=\"submit\" name=\"updateNow\" value=\"Update Now\" />"); if confirmText != "" { //render the confirm text if totalNewParts > 0 or flError { add ("<p><b>Thanks for updating. " + totalNewParts + " new or changed parts were installed. "); if flError { add ("At least one error occurred.")}; add ("The number of new parts installed in each database is listed below:</b></p>"); add (confirmText)} else { add ("<p><b>There are no new features or fixes at this time. Your copy of Frontier is up to date.</b></p>")}}; if flInTable { return ("<tr><td colspan=\"2\">" + htmlText + "</td></tr>")} else { return (htmlText)}} \ No newline at end of file |
|
From: creedon <icr...@us...> - 2006-02-02 07:43:26
|
Update of /cvsroot/frontierkernel/odbs/mainResponderRoot/mainResponder/adminSite/website In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv7803 Modified Files: updates Log Message: attribute values must be quoted, towards XHTML compliance Index: updates =================================================================== RCS file: /cvsroot/frontierkernel/odbs/mainResponderRoot/mainResponder/adminSite/website/updates,v retrieving revision 1.3 retrieving revision 1.4 diff -C2 -d -r1.3 -r1.4 *** updates 31 Jan 2006 20:23:26 -0000 1.3 --- updates 2 Feb 2006 07:43:17 -0000 1.4 *************** *** 1,3 **** FrontierVcsFile:1:scpt:mainResponder.adminSite.website.updates ! on updates () { ÇChanges Ç1/28/06; 7:24:10 PM by TAC Çtweaked script formatting Çadded categories for rootUpdates.getPendingUpdatesList call Ç12/24/05; 11:50:35 AM by TAC Çremoved UserLand and Manila references Ç12/16/03; 3:33:02 AM by JES ÇCreated. Display the pending feature updates and bug fixes which have yet to be downloaded. local (pta = html.getPageTableAddress ()); Çscratchpad.pt = pta^ pta^.title = "Pending Updates"; local (htmlText = ""); on add (s) { htmlText = htmlText + (s + "\r");}; bundle { //explanatory text add ("<p>The pending updates page displays features and bug fixes available, which have not yet been installed on this server. To download the recent updates, click the Update Now button.</p>")}; bundle { //update now button and processing add ("<form method=\"post\">"); add ("<table cellpadding=0 cellspacing=0 border=0>" + mainResponder.adminSite.prefs.updateNowButton (false) + "</table><br /><br />"); add ("</form>")}; local (dbsToUpdate = {"Frontier", "mainResponder", "prefs"}); try {rootUpdates.getPendingUpdatesList (@config.mainResponder.stats, mainResponder.data.featureListRssUrl, dbsToUpdate, {"Frontier.root Updates", "mainResponder.root Updates", "prefs.root Updates"})}; add (rootUpdates.listPendingUpdates (@config.mainResponder.stats)); return (htmlText)}; Çbundle // testing Çhtml.setPageTableAddress (@scratchpad.pt) Ç Çupdates () Ç Çhtml.deletePageTableAddress () \ No newline at end of file --- 1,3 ---- FrontierVcsFile:1:scpt:mainResponder.adminSite.website.updates ! on updates () { ÇChanges Ç2/1/06; 12:43:15 PM by TAC Çattribute values must be quoted, towards XHTML compliance Ç1/28/06; 7:24:10 PM by TAC Çtweaked script formatting Çadded categories for rootUpdates.getPendingUpdatesList call Ç12/24/05; 11:50:35 AM by TAC Çremoved UserLand and Manila references Ç12/16/03; 3:33:02 AM by JES ÇCreated. Display the pending feature updates and bug fixes which have yet to be downloaded. local (pta = html.getPageTableAddress ()); Çscratchpad.pt = pta^ pta^.title = "Pending Updates"; local (htmlText = ""); on add (s) { htmlText = htmlText + (s + "\r");}; bundle { //explanatory text add ("<p>The pending updates page displays features and bug fixes available, which have not yet been installed on this server. To download the recent updates, click the Update Now button.</p>")}; bundle { //update now button and processing add ("<form method=\"post\">"); add ("<table cellpadding=\"0\" cellspacing=\"0\" border=\"0\">" + mainResponder.adminSite.prefs.updateNowButton (false) + "</table><br /><br />"); add ("</form>")}; local (dbsToUpdate = {"Frontier", "mainResponder", "prefs"}); try {rootUpdates.getPendingUpdatesList (@config.mainResponder.stats, mainResponder.data.featureListRssUrl, dbsToUpdate, {"Frontier.root Updates", "mainResponder.root Updates", "prefs.root Updates"})}; add (rootUpdates.listPendingUpdates (@config.mainResponder.stats)); return (htmlText)}; Çbundle // testing Çhtml.setPageTableAddress (@scratchpad.pt) Ç Çupdates () Ç Çhtml.deletePageTableAddress () \ No newline at end of file |
|
From: creedon <icr...@us...> - 2006-02-02 07:41:17
|
Update of /cvsroot/frontierkernel/odbs/frontierRoot/system/startup In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv7009 Modified Files: startupScript Log Message: deleted some unneeded commented code Index: startupScript =================================================================== RCS file: /cvsroot/frontierkernel/odbs/frontierRoot/system/startup/startupScript,v retrieving revision 1.15 retrieving revision 1.16 diff -C2 -d -r1.15 -r1.16 *** startupScript 21 Jan 2006 02:47:35 -0000 1.15 --- startupScript 2 Feb 2006 07:41:01 -0000 1.16 *************** *** 1,3 **** FrontierVcsFile:1:scpt:system.startup.startupScript ! ÇChanges Ç1/20/06; 1:54:05 PM by TAC Çdisable agents for all startups, not just for first root run Çthere was a problem with Tools starting up and its agent manipulating menus at the same time and causing a crash Ç12/24/05; 12:33:32 PM by TAC Çprefs.root now has a #startup script, deal with it Ç11/10/05; 4:24:48 PM by TAC Çmoved system.temp.Frontier/starting up after first if firstRootRun check was causing startup problem Ç11/5/05; 12:00:32 PM by TAC Çmoved system.temp.Frontier check back to top of script Ç10/9/05; 3:39:07 PM by TAC Çwhen storing prefs.root path, store realative path Çuse table.copyUndefinedContents to copy some item Çmove some of the user prefs initializations into Frontier.data.userPrefs Çrearrange script so that some initializations can happen outside of the first root run, this should make it easier to add new items and not have them get missed because the first root run had already been run once Ç10/4/05; 7:26:36 PM by TAC Çupon check for presence of Psapi.dll, don't use hard coded application name Ç9/26/05; 4:30:14 PM by TAC Çadded user.prefs.flReplaceDialogExpertMode Ç8/23/05; 7:22:18 PM by TAC Çadded user.prefs.flCompactModalMenus Ç7/14/05; 10:35:39 AM by TAC Çsystem.menus.data.currentMenuType set to nil so agent will update modal menu properly upon relaunch Ç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 ÇThis script runs when Frontier opens the Frontier.root file. if defined (system.temp.Frontier) { // only run the startup script once return}; local (flEnableAgents = true, flOpenDatabases = true, flEnableHttpServer = true); // can be set by the external startup script local (flFirstRootRun = true); bundle { // miscellaneous initializations, checks, and etc., phase 1 of 2 Frontier.enableAgents (false); // try to keep agents from reporting errors and causing problems Frontier.pathString = file.folderFromPath (frontier.getFilePath ()); if defined (user.prefs.firstRootRun) { flFirstRootRun = user.prefs.firstRootRun}}; if flFirstRootRun { // hide all windows, wipe temp and user 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)}; bundle { // system.temp.Frontier, we are starting up new (tableType, @system.temp.Frontier); system.temp.Frontier.startupTime = clock.now (); system.temp.Frontier.startingUp = true}; 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 if flFirstRootRun { new (tableType, @user.prefs); 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}}}}; table.copyUndefinedContents (@Frontier.data.userPrefs, @user.prefs); bundle { // set up user.prefs.dialogs if flFirstRootRun { new (tableType, @user.prefs.dialogs)}; table.copyUndefinedContents (@Frontier.data.userPrefs.dialogs, @user.prefs.dialogs)}; bundle { // set up user.prefs.search if flFirstRootRun { new (tableType, @user.prefs.search)}; table.copyUndefinedContents (@Frontier.data.userPrefs.search, @user.prefs.search); if not (defined (user.prefs.search.replaceWith)) { user.prefs.search.replaceWith = Frontier.version ()}}; Frontier.setupUserPrefsFonts ()}; if flFirstRootRun { 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 { // 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 { // set up user.menus if flFirstRootRun { new (tableType, @user.menus)}; Çuser.menus.bookmarkMenu = userland.virginBookmarkMenu if not (defined (user.menus.customMenu)) { user.menus.customMenu = Frontier.data.virginCustomMenu}}; if flFirstRootRun { // open mainResponder.root and prefs.root 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 = file.getPathChar () + (f - Frontier.pathString); adrTable^.openOnStartup = true; adrTable^.runStartupScript = true; adrTable^.supportsSubscribe = false; bundle { // run the startup script local (adrStartupScript = @[adrTable^.f].["#startup"]); if defined (adrStartupScript^) { adrStartupScript^ ()}}}}; // run the startup script Ç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 { // miscellaneous variable initializations and checks, phase 2 of 2 system.menus.data.currentsuite = ""; system.menus.data.currentMenuType = nil; system.menus.data.currentmenu = 0; bundle { // check for presence of Psapi.dll if sys.os () == "WinNT" { if not (sys.appIsRunning (file.fileFromPath (Frontier.getProgramPath ()))) { // 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 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 if flFirstRootRun { // open a url and set first root run to false 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 ! ÇChanges Ç2/1/06; 1:27:51 PM by TAC Çdeleted some unneeded commented code Ç1/20/06; 1:54:05 PM by TAC Çdisable agents for all startups, not just for first root run Çthere was a problem with Tools starting up and its agent manipulating menus at the same time and causing a crash Ç12/24/05; 12:33:32 PM by TAC Çprefs.root now has a #startup script, deal with it Ç11/10/05; 4:24:48 PM by TAC Çmoved system.temp.Frontier/starting up after first if firstRootRun check was causing startup problem Ç11/5/05; 12:00:32 PM by TAC Çmoved system.temp.Frontier check back to top of script Ç10/9/05; 3:39:07 PM by TAC Çwhen storing prefs.root path, store realative path Çuse table.copyUndefinedContents to copy some item Çmove some of the user prefs initializations into Frontier.data.userPrefs Çrearrange script so that some initializations can happen outside of the first root run, this should make it easier to add new items and not have them get missed because the first root run had already been run once Ç10/4/05; 7:26:36 PM by TAC Çupon check for presence of Psapi.dll, don't use hard coded application name Ç9/26/05; 4:30:14 PM by TAC Çadded user.prefs.flReplaceDialogExpertMode Ç8/23/05; 7:22:18 PM by TAC Çadded user.prefs.flCompactModalMenus Ç7/14/05; 10:35:39 AM by TAC Çsystem.menus.data.currentMenuType set to nil so agent will update modal menu properly upon relaunch Ç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 ÇThis script runs when Frontier opens the Frontier.root file. if defined (system.temp.Frontier) { // only run the startup script once return}; local (flEnableAgents = true, flOpenDatabases = true, flEnableHttpServer = true); // can be set by the external startup script local (flFirstRootRun = true); bundle { // miscellaneous initializations, checks, and etc., phase 1 of 2 Frontier.enableAgents (false); // try to keep agents from reporting errors and causing problems Frontier.pathString = file.folderFromPath (frontier.getFilePath ()); if defined (user.prefs.firstRootRun) { flFirstRootRun = user.prefs.firstRootRun}}; if flFirstRootRun { 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)}; bundle { // system.temp.Frontier, we are starting up new (tableType, @system.temp.Frontier); system.temp.Frontier.startupTime = clock.now (); system.temp.Frontier.startingUp = true}; 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 if flFirstRootRun { new (tableType, @user.prefs); 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}}}}; table.copyUndefinedContents (@Frontier.data.userPrefs, @user.prefs); bundle { // set up user.prefs.dialogs if flFirstRootRun { new (tableType, @user.prefs.dialogs)}; table.copyUndefinedContents (@Frontier.data.userPrefs.dialogs, @user.prefs.dialogs)}; bundle { // set up user.prefs.search if flFirstRootRun { new (tableType, @user.prefs.search)}; table.copyUndefinedContents (@Frontier.data.userPrefs.search, @user.prefs.search); if not (defined (user.prefs.search.replaceWith)) { user.prefs.search.replaceWith = Frontier.version ()}}; Frontier.setupUserPrefsFonts ()}; if flFirstRootRun { 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 { // 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 { // set up user.menus if flFirstRootRun { new (tableType, @user.menus)}; Çuser.menus.bookmarkMenu = userland.virginBookmarkMenu if not (defined (user.menus.customMenu)) { user.menus.customMenu = Frontier.data.virginCustomMenu}}; if flFirstRootRun { 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 = file.getPathChar () + (f - Frontier.pathString); adrTable^.openOnStartup = true; adrTable^.runStartupScript = true; adrTable^.supportsSubscribe = false; bundle { // run the startup script local (adrStartupScript = @[adrTable^.f].["#startup"]); if defined (adrStartupScript^) { adrStartupScript^ ()}}}}; // run the startup script Ç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 { // miscellaneous variable initializations and checks, phase 2 of 2 system.menus.data.currentsuite = ""; system.menus.data.currentMenuType = nil; system.menus.data.currentmenu = 0; bundle { // check for presence of Psapi.dll if sys.os () == "WinNT" { if not (sys.appIsRunning (file.fileFromPath (Frontier.getProgramPath ()))) { // 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")}}; 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 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 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 () \ No newline at end of file |
|
From: creedon <icr...@us...> - 2006-02-02 01:36:54
|
Update of /cvsroot/frontierkernel/odbs/frontierRoot/system/menus In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv15639 Modified Files: helpMenu Log Message: updated help menu Index: helpMenu =================================================================== RCS file: /cvsroot/frontierkernel/odbs/frontierRoot/system/menus/helpMenu,v retrieving revision 1.1.1.1 retrieving revision 1.2 diff -C2 -d -r1.1.1.1 -r1.2 *** helpMenu 26 Mar 2005 19:41:50 -0000 1.1.1.1 --- helpMenu 2 Feb 2006 01:36:44 -0000 1.2 *************** *** 1,3 **** FrontierVcsFile:1:mbar:system.menus.helpMenu ! AAEFAQAAA0gAAQAAAAAAAAAAAAABTQA6AwACywAAAAAAAAZHZW5ldmEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAADgBkAGQBpAJEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAIAAAEaAAABRgAAAAAADwZHZW5ldmEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAADgAAAAAAAAAAAAAAAAAAsJcbpL32TiEAAGlMAAAA8QEbAbkCnExBTkT///////8AAAAAAABtYWMgAAAAAAAAAAAAAAAASGVscA0JTWFuaWxhL0Zyb250aWVyIFVzZXIncyBHdWlkZQ0JLQ0JU2VhcmNoLi4uDQktDQlTZXJ2ZXIgTWFuYWdlbWVudA0JCUFkbWluIFdlYnNpdGUgRG9jcw0JCU1haW50ZW5hbmNlIERvY3MNCQlTZXJ2ZXIgQWRtaW4gRG9jcyBEaXJlY3RvcnkNCQlNYW5pbGEgRGlzY3Vzc2lvbiBHcm91cA0JRGV2ZWxvcGVycw0JCURldmVsb3BlcidzIERpcmVjdG9yeQ0JCURvY1NlcnZlcg0JCU1hY3Jvcw0JCVNhbXBsZXMNCQlQbHVnLWlucw0JCUZyb250aWVyIERpc2N1c3Npb24gR3JvdXANCS0NCVVzZXJMYW5kIEhvbWUNCVVzZXJMYW5kIFByb2R1Y3QgTmV3cw0JLQ0JU3VwcG9ydA2AAAAAAAAAAAAAAAoAAAAAAAABeDEUAAAAAAAAAAAAAAAKAAAAAAAAAXgxGAAAAAAAAAAAAAAAAAAAAAAACgAAAAAAAAF4MRwAAAAAAAoAAAAAAAABeDEoAAAAAAAKAAAAAAAAAXgxpAAAAAAACgAAAAAAAAF4MbAAAAAAAAAAAAAAAAoAAAAAAAABeDG8AAAAAAAKAAAAAAAAAXgxyAAAAAAACgAAAAAAAAF4MdQAAAAAAAoAAAAAAAABeDHgAAAAAAAKAAAAAAAAAXgx/AAAAAAACgAAAAAAAAF4MggAAAAAAAAAAAAAAAoAAAAAAAABeDIUAAAAAAAKAAAAAAAAAXgyIAAAAAAAAAAAAAAACgAAAAAAAAF4MiwAAgAAAAYAAABFAAACAAAPBkdlbmV2YQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAKAAAAAAAAAAAAAAZUAAC80FMcvNBTKQAAAAQAAAGnAb8CbwNATEFORP///////wAAAAAAAG1hYyAAAAAAAAAAAAAAAABtZW51cy5zY3JpcHRzLm9wZW5IZWxwUGFnZSAoImh0dHA6Ly9tYW5pbGEudXNlcmxhbmQuY29tL3VzZXJzR3VpZGUiKQ2AAAAAAAAAAgAAAFoAAAGxAAECAAAPBkdlbmV2YQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAMAAAAAAAAAAAAAAAAAACy0jh4vNBSDgAAACIAAAEmAT8B7gLATEFORP///////wAAAAAAAG1hYyAAAAAAAAAAAAAAAAB3ZWJicm93c2VyLm9wZW5VcmwgKCJodHRwOi8vZnJvbnRpZXIudXNlcmxhbmQuY29tL3NlYXJjaFBhZ2UiKQ13ZWJicm93c2VyLmJyaW5nVG9Gcm9udCAoKQ0NYnVuZGxlIC8vb2xkIGNvZGUNCWxvY2FsIChzZWFyY2hTdHJpbmcpDQkNCWlmIG5vdCBkZWZpbmVkICh1c2VyLnByZWZzLmRpYWxvZ3MubGFzdFNlYXJjaCkNCQl1c2VyLnByZWZzLmRpYWxvZ3MubGFzdFNlYXJjaCA9ICIiDQlzZWFyY2hTdHJpbmcgPSB1c2VyLnByZWZzLmRpYWxvZ3MubGFzdFNlYXJjaA0JDQlpZiBkaWFsb2cuYXNrICgiU2VhcmNoIGZvcjoiLCBAc2VhcmNoU3RyaW5nKQ0JCXVzZXIucHJlZnMuZGlhbG9ncy5sYXN0U2VhcmNoID0gc2VhcmNoU3RyaW5nDQkJDQkJUnVuIHRoZSBzZWFyY2guDQkJc3lzdGVtLm1lbnVzLnNjcmlwdHMuc2VhcmNoVXNlckxhbmQgKHNlYXJjaFN0cmluZykNgAAAAAAAgAAAAAAAgAAAAAAAhAAAAAAAgAAAAAAAgAAAAAAAgAAAAAAAgAAAAAAAgAAAAAAAgAAAAAAAgAAAAAAAgAAAAAAAgAAAAAAAhAAAAAAAgAAAAAAAAAIAAAAGAAAAUQAAAgAADwZHZW5ldmEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACgAAAAAAAAAAAAAAAAAAvNBSgLzQVB8AAAAIAQABpwG/Am8DQExBTkT///////8AAAAAAABtYWMgAAAAAAAAAAAAAAAAbWVudXMuc2NyaXB0cy5vcGVuSGVscFBhZ2UgKCJodHRwOi8vZnJvbnRpZXIudXNlcmxhbmQuY29tL2Zyb250aWVyQWRtaW5XZWJzaXRlIikNgAAAAAAAAAIAAAAGAAAATgAAAgAADwZHZW5ldmEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACgAAAAAAAAAAAAAAAAAAvNBSgLzQVAMAAAAIAAABpwG/Am8DQExBTkT///////8AAAAAAABtYWMgAAAAAAAAAAAAAAAAbWVudXMuc2NyaXB0cy5vcGVuSGVscFBhZ2UgKCJodHRwOi8vZnJvbnRpZXIudXNlcmxhbmQuY29tL3NlcnZlck1haW50ZW5hbmNlIikNgAAAAAAAAAIAAAAGAAAAegAAAgAADwZHZW5ldmEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACgAAAAAAAAAAAAAAAAAAvNBSgLzQUt0AAAAHAAABpwG/Am8DQExBTkT///////8AAAAAAABtYWMgAAAAAAAAAAAAAAAAbWVudXMuc2NyaXB0cy5vcGVuSGVscFBhZ2UgKCJodHRwOi8vZnJvbnRpZXIudXNlcmxhbmQuY29tL2RpcmVjdG9yeS83NzA4L3VzZXJzR3VpZGVUYWJsZU9mQ29udGVudHMvc2VydmVyQWRtaW5pc3RyYXRpb24iKQ2AAAAAAAAAAgAAAAYAAABDAAACAAAPBkdlbmV2YQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAKAAAAAAAAAAAAAAZUAAC80FNmvNBTdwAAAAMBAAGnAb8CbwNATEFORP///////wAAAAAAAG1hYyAAAAAAAAAAAAAAAABtZW51cy5zY3JpcHRzLm9wZW5IZWxwUGFnZSAoImh0dHA6Ly9tYW5pbGEudXNlcmxhbmQuY29tL2Rpc2N1c3MvIikNgAAAAAAAAAIAAAAGAAAASwAAAAAADwZHZW5ldmEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAADAAAAAAAAAAAAAAAAAAAsOQr0bzQUmkAAACIAQAA8QEFAbkChkxBTkT///////8AAAAAAABtYWMgAAAAAAAAAAAAAAAAbWVudXMuc2NyaXB0cy5vcGVuSGVscFBhZ2UgKCJodHRwOi8vZnJvbnRpZXIudXNlcmxhbmQuY29tL2RpcmVjdG9yeS83NzA4IikNgAAAAAAAAAIAAAASAAAAgQABAAAADwZHZW5ldmEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAADAAAAAAAAAAAAAAGVAAAsR+fWrMkJuEAAABmAAAA8AELAbgCjExBTkT///////8AAAAAAABtYWMgAAAAAAAAAAAAAAAAbG9jYWwgKGZvbGRlck5hbWVzID0geyJEb2NTZXJ2ZXIifSkNbG9jYWwgKHVybCA9ICJodHRwOi8vZG9jc2VydmVyLnVzZXJsYW5kLmNvbS8iKQ1tZW51cy5zY3JpcHRzLm9wZW5IZWxwUGFnZSAodXJsLCBmb2xkZXJOYW1lcykNgAAAAAAAgAAAAAAAgAAAAAAAAAIAAAAGAAAAOwAAAgAADwZHZW5ldmEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACgAAAAAAAAAAAAAGVAAAvNBSgLzQUoYAAAADAQABpwG/Am8DQExBTkT///////8AAAAAAABtYWMgAAAAAAAAAAAAAAAAbWVudXMuc2NyaXB0cy5vcGVuSGVscFBhZ2UgKCJodHRwOi8vbWFjcm9zLnVzZXJsYW5kLmNvbS8iKQ2AAAAAAAAAAgAAAAYAAAA8AAACAAAPBkdlbmV2YQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAKAAAAAAAAAAAAAAAAAAC80FKAvNBSlQAAAAQAAAGnAb8CbwNATEFORP///////wAAAAAAAG1hYyAAAAAAAAAAAAAAAABtZW51cy5zY3JpcHRzLm9wZW5IZWxwUGFnZSAoImh0dHA6Ly9zYW1wbGVzLnVzZXJsYW5kLmNvbS8iKQ2AAAAAAAAAAgAAAAYAAAA8AAACAAAPBkdlbmV2YQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAKAAAAAAAAAAAAAAAAAAC80FKAvNBSrAAAAAUAAAGnAb8CbwNATEFORP///////wAAAAAAAG1hYyAAAAAAAAAAAAAAAABtZW51cy5zY3JpcHRzLm9wZW5IZWxwUGFnZSAoImh0dHA6Ly9wbHVnaW5zLnVzZXJsYW5kLmNvbS8iKQ2AAAAAAAAAAgAAAAYAAABFAAACAAAPBkdlbmV2YQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAKAAAAAAAAAAAAAAZUAAC80FODvNBTiwAAAAMAAAGnAb8CbwNATEFORP///////wAAAAAAAG1hYyAAAAAAAAAAAAAAAABtZW51cy5zY3JpcHRzLm9wZW5IZWxwUGFnZSAoImh0dHA6Ly9mcm9udGllci51c2VybGFuZC5jb20vZGlzY3Vzcy8iKQ2AAAAAAAAAAgAAAAYAAAA4AAAAAAAPBUFyaWFsAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAKAAAAAAAAAAAAAAZUAACxqvDXsarw3gAAACMAAADrAQABswKBTEFORP///////wAAAAAAAG1hYyAAAAAAAAAAAAAAAABtZW51cy5zY3JpcHRzLm9wZW5IZWxwUGFnZSAoImh0dHA6Ly93d3cudXNlcmxhbmQuY29tLyIpDYAAAAAAAAACAAAABgAAAGcAAAAAAA8GR2VuZXZhAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAoAAAAAAAAAAAAAAAAAALDkK/+8nQ+7AAAAiAAAAPEBBQG5AoZMQU5E////////AAAAAAAAbWFjIAAAAAAAAAAAAAAAAG1lbnVzLnNjcmlwdHMub3BlbkhlbHBQYWdlICgiaHR0cDovL3Byb2R1Y3RuZXdzLnVzZXJsYW5kLmNvbS9uZXdzSXRlbXMvZGVwYXJ0bWVudHMvZnJvbnRpZXJBbmRNYW5pbGEiKQ2AAAAAAAAAAgAAAAYAAABCAAACAAAPBkdlbmV2YQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAKAAAAAAAAAAAAAAAAAAC80FKAvNBS+wAAAAcAAAGnAb8CbwNATEFORP///////wAAAAAAAG1hYyAAAAAAAAAAAAAAAABtZW51cy5zY3JpcHRzLm9wZW5IZWxwUGFnZSAoImh0dHA6Ly9tYW5pbGEudXNlcmxhbmQuY29tL3N1cHBvcnQiKQ2AAAAAAAA= \ No newline at end of file --- 1,3 ---- FrontierVcsFile:1:mbar:system.menus.helpMenu ! AAEFAQAAAcoAAQAAAAAAAAAAAAAAKwADA/0E/QAAAAAAAAZHZW5ldmEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAADgArAAMD/QT9AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAIAAAB4AAAAagAAAAAADwZHZW5ldmEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAADgAAAAAAAAAAAAAAAAAAsJcbpMAGoRwAAP29AAAA8QEbAbkCnExBTkT///////8AAAAAAABtYWMgAAAAAAAAAAAAAAAASGVscA0JT3BlbiBTb3VyY2UgUHJvamVjdA0JLQ0JRGlzY3Vzc2lvbiBHcm91cA0JLQ0JU3VwcG9ydCBSZXF1ZXN0cw0JQnVncw0JRmVhdHVyZSBSZXF1ZXN0cw0JLQ0JU2VhcmNoLi4uDYAAAAAAAAAAAAAACgAAAAAAAAIgWwAAAAAAAAAAAAAAAAoAAAAAAAACIFsEAAAAAAAAAAAAAAAKAAAAAAAAAiBbCAAAAAAACgAAAAAAAAIgWxQAAAAAAAoAAAAAAAACIFsgAAAAAAAAAAAAAAAKAAAAAAAAAiBbLAACAAAABgAAAEYAAAIAAA8GR2VuZXZhAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA4AAAAAAAAAAAAAAAAAALzQUxzABp+eAAAACgAAAacBvwJvA0BMQU5E////////AAAAAAAAbWFjIAAAAAAAAAAAAAAAAG1lbnVzLnNjcmlwdHMub3BlbkhlbHBQYWdlICgiaHR0cDovL2Zyb250aWVya2VybmVsLnNvdXJjZWZvcmdlLm5ldC8iKQ2AAAAAAAAAAgAAAAYAAABNAAACAAAPBkdlbmV2YQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAOAAAAAAAAAAAAAAAAAAC80FODwAagcAAAAAcAAAGnAb8CbwNATEFORP///////wAAAAAAAG1hYyAAAAAAAAAAAAAAAABtZW51cy5zY3JpcHRzLm9wZW5IZWxwUGFnZSAoImh0dHA6Ly9ncm91cHMueWFob28uY29tL2dyb3VwL2Zyb250aWVya2VybmVsLyIpDYAAAAAAAAACAAAABgAAAFsAAAIAAA8GR2VuZXZhAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA4AAAAAAAAAAAAAAAAAALzQUoDABp/AAAAADQAAAacBvwJvA0BMQU5E////////AAAAAAAAbWFjIAAAAAAAAAAAAAAAAG1lbnVzLnNjcmlwdHMub3BlbkhlbHBQYWdlICgiaHR0cDovL3NvdXJjZWZvcmdlLm5ldC90cmFja2VyLz9ncm91cF9pZD0xMjA2NjYmYXRpZD02ODc3OTkiKQ2AAAAAAAAAAgAAAAYAAABbAAAAAAAPBkdlbmV2YQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAOAAAAAAAAAAAAAAAAAACxqvDXwAagzAAAACcAAADrAQABswKBTEFORP///////wAAAAAAAG1hYyAAAAAAAAAAAAAAAABtZW51cy5zY3JpcHRzLm9wZW5IZWxwUGFnZSAoImh0dHA6Ly9zb3VyY2Vmb3JnZS5uZXQvdHJhY2tlci8/Z3JvdXBfaWQ9MTIwNjY2JmF0aWQ9Njg3Nzk4IikNgAAAAAAAAAIAAAAGAAAAWgAAAAAADwZHZW5ldmEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAADgAAAAAAAAAAAAAAAAAAsOQr/8AGoAUAAACMAAAA8QEFAbkChkxBTkT///////8AAAAAAABtYWMgAAAAAAAAAAAAAAAAbWVudXMuc2NyaXB0cy5vcGVuSGVscFBhZ2UgKCJodHRwOi8vc291cmNlZm9yZ2UubmV0L3RyYWNrZXIvP2dyb3VwX2lkPTEyMDY2NiZhdGlkPTY4NzgwMSkNgAAAAAAAAAIAAAAMAAAAawAAAgAADwZHZW5ldmEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAADgAAAAAAAAAAAAAAAAAAstI4eMAGndsAAAAnAAABJgE/Ae4CwExBTkT///////8AAAAAAABtYWMgAAAAAAAAAAAAAAAAd2ViYnJvd3Nlci5vcGVuVXJsICgiaHR0cDovL3d3dy5nb29nbGUuY29tL3NlYXJjaD9xPUZyb250aWVyK09wZW4rU291cmNlKy1lZmYiKQ13ZWJicm93c2VyLmJyaW5nVG9Gcm9udCAoKQ2AAAAAAACAAAAAAAA= \ No newline at end of file |
|
From: creedon <icr...@us...> - 2006-01-31 20:23:37
|
Update of /cvsroot/frontierkernel/odbs/mainResponderRoot/mainResponder/adminSite/website In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv31094 Modified Files: updates Log Message: tweaked script formatting added categories for rootUpdates.getPendingUpdatesList call Index: updates =================================================================== RCS file: /cvsroot/frontierkernel/odbs/mainResponderRoot/mainResponder/adminSite/website/updates,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 *** updates 25 Dec 2005 01:48:22 -0000 1.2 --- updates 31 Jan 2006 20:23:26 -0000 1.3 *************** *** 1,3 **** FrontierVcsFile:1:scpt:mainResponder.adminSite.website.updates ! on updates () { ÇChanges Ç12/24/05; 11:50:35 AM by TAC Çremoved UserLand and Manila references Ç12/16/03; 3:33:02 AM by JES ÇCreated. Display the pending feature updates and bug fixes which have yet to be downloaded. local (pta = html.getPageTableAddress ()); pta^.title = "Pending Updates"; local (htext = ""); on add (s) { htext = htext + (s + "\r");}; bundle { //explanatory text add ("<p>The pending updates page displays features and bug fixes available, which have not yet been installed on this server. To download the recent updates, click the Update Now button.</p>")}; bundle { //update now button and processing add ("<form method=\"POST\">"); add ("<table cellpadding=0 cellspacing=0 border=0>" + mainResponder.adminSite.prefs.updateNowButton (false) + "</table><br><br>"); add ("</form>")}; local (dbsToUpdate = {"Frontier", "mainResponder", "prefs"}); try {rootUpdates.getPendingUpdatesList (@config.mainResponder.stats, mainResponder.data.featureListRssUrl, dbsToUpdate)}; add (rootUpdates.listPendingUpdates (@config.mainResponder.stats)); return (htext)} \ No newline at end of file --- 1,3 ---- FrontierVcsFile:1:scpt:mainResponder.adminSite.website.updates ! on updates () { ÇChanges Ç1/28/06; 7:24:10 PM by TAC Çtweaked script formatting Çadded categories for rootUpdates.getPendingUpdatesList call Ç12/24/05; 11:50:35 AM by TAC Çremoved UserLand and Manila references Ç12/16/03; 3:33:02 AM by JES ÇCreated. Display the pending feature updates and bug fixes which have yet to be downloaded. local (pta = html.getPageTableAddress ()); Çscratchpad.pt = pta^ pta^.title = "Pending Updates"; local (htmlText = ""); on add (s) { htmlText = htmlText + (s + "\r");}; bundle { //explanatory text add ("<p>The pending updates page displays features and bug fixes available, which have not yet been installed on this server. To download the recent updates, click the Update Now button.</p>")}; bundle { //update now button and processing add ("<form method=\"post\">"); add ("<table cellpadding=0 cellspacing=0 border=0>" + mainResponder.adminSite.prefs.updateNowButton (false) + "</table><br /><br />"); add ("</form>")}; local (dbsToUpdate = {"Frontier", "mainResponder", "prefs"}); try {rootUpdates.getPendingUpdatesList (@config.mainResponder.stats, mainResponder.data.featureListRssUrl, dbsToUpdate, {"Frontier.root Updates", "mainResponder.root Updates", "prefs.root Updates"})}; add (rootUpdates.listPendingUpdates (@config.mainResponder.stats)); return (htmlText)}; Çbundle // testing Çhtml.setPageTableAddress (@scratchpad.pt) Ç Çupdates () Ç Çhtml.deletePageTableAddress () \ No newline at end of file |
|
From: creedon <icr...@us...> - 2006-01-31 20:20:59
|
Update of /cvsroot/frontierkernel/odbs/mainResponderRoot/mainResponder/adminSite/prefs In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv29980 Modified Files: subscriptions Log Message: changed br tags for XHTML compliance added another <br /> above congratulations message Index: subscriptions =================================================================== RCS file: /cvsroot/frontierkernel/odbs/mainResponderRoot/mainResponder/adminSite/prefs/subscriptions,v retrieving revision 1.4 retrieving revision 1.5 diff -C2 -d -r1.4 -r1.5 *** subscriptions 17 Jan 2006 23:25:06 -0000 1.4 --- subscriptions 31 Jan 2006 20:20:43 -0000 1.5 *************** *** 1,3 **** FrontierVcsFile:1:scpt:mainResponder.adminSite.prefs.subscriptions ! on subscriptions () { ÇChanges Ç1/11/06; 1:22:28 PM by TAC Çchanged br tags for XHTML compliance Çadded another <br /> above congratulations message Ç1/7/06; 11:50:55 AM by TAC Çfor xmlImg use config.mainresponder.prefs.baseUrl Çlowercase method check, XHTML compliance Çminor script formatting tweaks Çconditionalize unsubscribing Manila websites Çimg and input tags XHTML compliant Ç9/7/05; 10:53:18 PM by TAC Çchanged userlandIcons to frontierIcons Çchanged /mainResponderResources/ to /resources/ Ç2003 Ç3/13/03; 3:11:00 AM by JES ÇWhen unsubscribing from a feed, make sure that all installed Manila sites are also unsubscribed. Ç3/10/03; 8:44:32 PM by JES ÇSet the border attribute for the XML icon IMG tag to "0". Ç3/4/03; 3:34:29 PM by JES ÇCreated. Render the list of subscriptions global to this server, along with a field for adding a new subscription. local (htmlText); on add (s) { htmlText = htmlText + (s + "\r");}; on getDateString (when, flIncludeSeconds=true) { ÇChanges Ç1/15/01; 11:00:50 AM by DW ÇReturn the time string if it's today, return the date string if it's earlier. local (day, month, year, hour, minute, second, nowday, nowmonth, nowyear); date.get (when, @day, @month, @year, @hour, @minute, @second); date.get (clock.now (), @nowday, @nowmonth, @nowyear, @hour, @minute, @second); if (day == nowday) and (month == nowmonth) and (year == nowyear) { return (date.timestring (when, flIncludeSeconds))}; return (date.shortstring (when))}; local (xmlImg = "<img src=\"" + config.mainresponder.prefs.baseUrl + "resources/frontierIcons/xml\" height=\"14\" width=\"36\" border=\"0\" alt=\"xml image\" />"); local (pta = html.getPageTableAddress ()); local (adrdata = xml.aggregator.init ()); pta^.errorString = ""; pta^.adrNewService = nil; pta^.flAddSubmitButton = false; if string.lower (pta^.method) == "post" { //add or remove subscription(s) local (adrArgs = @pta^.postArgs); if defined (adrArgs^.subscribe) { //user click the Subscribe button local (rssurl = adrArgs^.url); if not (rssurl beginswith "http://") { rssurl = "http://" + rssurl}; if rssurl != "http://" { //add this subscription xml.aggregator.subscribeService (rssurl, @pta^.errorString, @pta^.adrNewService); scratchpad.pt2 = pta^}}; if defined (adrArgs^.unsubscribe) { //user clicked the Unsubscribe button local (i, adr, adrservice); for i = sizeof (adrArgs^) downto 1 { adr = @adrArgs^[i]; local (urlservice = string.urlDecode (nameof (adr^)) ); adrservice = @adrdata^.services.[urlservice]; if defined (adrservice^) { xml.aggregator.unsubscribeService (nameof (adrservice^))}; if defined (config.manila.sites) { local (nomad); for nomad in @config.manila.sites { local (adrsite = nomad^); if defined (adrsite^) { local (adrnewssite = manilaSuite.getNewsSiteAddress (adrsite)); if defined (adrnewssite^) { if defined (adrnewssite^.aggregator) { if defined (adrnewssite^.aggregator.services.[urlservice]) { delete (@adrnewssite^.aggregator.services.[urlservice])}}}}}}}}}; bundle { //field to subscribe to a new feed, Subscribe button local (initialurl = "http://"); if defined (pta^.searchArgs) { //try to get the initial URL from a url argument in the request if pta^.searchArgs != "" { local (t); new (tableType, @t); webserver.parseArgs (pta^.searchArgs, @t); if defined (t.url) { initialurl = t.url}}}; add ("<td align=\"left\">" + "URL" + ":</td>"); add ("<td valign=\"top\"><input type=\"text\" name=\"url\" size=\"55\" maxlength=\"255\" value=\"" + initialurl + "\" /> <input type=\"submit\" name=\"subscribe\" value=\"Add\" /></td>"); if pta^.errorString != "" { //show the error to the user add ("</tr><tr><td colspan=\"2\"><br /><i>Can't subscribe to the channel. The most likely cure is to check the URL in a web browser and see if you can get it to read the feed. The following message probably won't help you figure out what went wrong, but we include it here because it might: \"" + errorstring + "\"</i></td>")}; if pta^.adrNewService != nil { //show confirmation to the user local (channeltitle = xml.entityDecode (pta^.adrNewService^.compilation.channeltitle, true, true) ); add ("</tr><tr><td colspan=\"2\"><br /><br /><i>Congratulations, you have successfully added the \"" + channeltitle + "\" feed to the news feeds available on this server. It now appears in the list of available feeds below. For subscribed sites, new items will appear on the Aggregator page every hour.</i></td>")}; add ("</td>")}; if sizeOf (adrdata^.services) > 0 { //list of feeds with check boxes and Delete button bundle { //add explanatory text add ("</tr><tr><td colspan=\"2\">"); add ("<br /><br />The following table lists the feeds available to sites on this server. Included is the name of the source, linked to its Web page, the time or day it last changed, the number of times it has changed since it was added, and a link to the XML file for the channel. To delete a feed, check it and then click on the Unsubscribe button at the bottom of the page.<br /><br />"); add ("</td>")}; add ("</tr><tr><td colspan=\"2\"><blockquote>"); local (sortedTable, adr, adrSort); bundle { //fill sorted table new (tabletype, @sortedTable); for adr in @adrdata^.services { if defined (adr^.compilation) { if sizeof (adr^.compilation) > 0 { try { //missing channeltitle doesn't stop us -- 3/20/02 DW local (channeltitle = adr^.compilation.channeltitle); if sizeof (channeltitle) > 0 { adrSort = @sortedTable.[adr^.compilation.channeltitle]; if defined (adrSort^) { //collision local (ct = 1); loop { adrSort = @sortedTable.[adr^.compilation.channeltitle + "." + ct++]; if not defined (adrSort^) { break}}}; adrSort^ = nameof (adr^)}}}}}}; bundle { //start the HTML table add ("<table cellspacing=\"0\" cellpadding=\"0\"><tr bgcolor=\"DCDCDC\"><td>"); add ("<table cellspacing=\"1\" cellpadding=\"5\" border=\"0\">")}; for adrSort in @sortedTable { //add the table rows for each channel adr = @adrdata^.services.[adrSort^]; if defined (adr^.compilation) { if sizeof (adr^.compilation) > 0 { local (title = adr^.compilation.channeltitle); local (channeldescription = "", channellink = ""); if defined (adr^.compilation.channeldescription) { channeldescription = xml.entityDecode (adr^.compilation.channeldescription, true, true); channeldescription = string.replaceAll (channeldescription, "\"", """); channeldescription = string.replaceAll (channeldescription, "\'", "'"); channeldescription = string.replaceAll (channeldescription, "<", "<"); channeldescription = string.replaceAll (channeldescription, ">", ">")}; if defined (adr^.compilation.channellink) { channellink = adr^.compilation.channellink}; add ("<tr bgcolor=\"white\">"); bundle { //add checkbox local (name = nameof (adr^)); local (checkboxval = "xxx "); if false { checkboxval = checkboxval + "checked"}; add ("<td valign=\"top\"><input type=\"checkbox\" name=\"" + string.urlEncode (nameOf (adr^)) + "\" value=" + checkboxval + " /></td>")}; if sizeof (title) > 50 { title = string.mid (title, 1, 50) + "..."}; add ("<td valign=\"top\" title=\"" + channeldescription + "\" nowrap><a href=\"" + channellink + "\">" + xml.entityDecode (title, true, true) + "</a></td>"); add ("<td align=\"right\" valign=\"top\"><nobr><font size=\"-1\">" + getDateString (adr^.timeLastChange, false) + "</font></nobr></td>"); add ("<td align=\"right\" valign=\"top\"><font size=\"-1\">" + adr^.ctChanges + "</font></td>"); add ("<td valign=\"top\"><a href=\"" + nameof (adr^) + "\" title=\"Click to view the current XML source text for the channel.\">" + xmlImg + "</a></td>"); add ("</tr>")}}}; bundle { //end the HTML table add ("</table></td></tr></table>")}; add ("</blockquote></td>"); bundle { //Unsubscribe button add ("</tr><tr><td colspan=\"2\">"); add ("<br /><input type=\"submit\" name=\"unsubscribe\" value=\"Unsubscribe\" />"); add ("</td>")}}; return (htmlText)} \ No newline at end of file --- 1,3 ---- FrontierVcsFile:1:scpt:mainResponder.adminSite.prefs.subscriptions ! on subscriptions () { ÇChanges Ç1/11/06; 1:22:28 PM by TAC Çchanged br tags for XHTML compliance Çadded another <br /> above congratulations message Ç1/7/06; 11:50:55 AM by TAC Çfor xmlImg use config.mainresponder.prefs.baseUrl Çlowercase method check, XHTML compliance Çminor script formatting tweaks Çconditionalize unsubscribing Manila websites Çimg and input tags XHTML compliant Ç9/7/05; 10:53:18 PM by TAC Çchanged userlandIcons to frontierIcons Çchanged /mainResponderResources/ to /resources/ Ç2003 Ç3/13/03; 3:11:00 AM by JES ÇWhen unsubscribing from a feed, make sure that all installed Manila sites are also unsubscribed. Ç3/10/03; 8:44:32 PM by JES ÇSet the border attribute for the XML icon IMG tag to "0". Ç3/4/03; 3:34:29 PM by JES ÇCreated. Render the list of subscriptions global to this server, along with a field for adding a new subscription. Ç1/15/01; 11:00:50 AM by DW ÇgetDateString, return the time string if it's today, return the date string if it's earlier. local (htmlText); on add (s) { htmlText = htmlText + (s + "\r");}; on getDateString (when, flIncludeSeconds=true) { local (day, month, year, hour, minute, second, nowday, nowmonth, nowyear); date.get (when, @day, @month, @year, @hour, @minute, @second); date.get (clock.now (), @nowday, @nowmonth, @nowyear, @hour, @minute, @second); if (day == nowday) and (month == nowmonth) and (year == nowyear) { return (date.timestring (when, flIncludeSeconds))}; return (date.shortstring (when))}; local (xmlImg = "<img src=\"" + config.mainresponder.prefs.baseUrl + "resources/frontierIcons/xml\" height=\"14\" width=\"36\" border=\"0\" alt=\"xml image\" />"); local (pta = html.getPageTableAddress ()); local (adrdata = xml.aggregator.init ()); pta^.errorString = ""; pta^.adrNewService = nil; pta^.flAddSubmitButton = false; if string.lower (pta^.method) == "post" { //add or remove subscription(s) local (adrArgs = @pta^.postArgs); if defined (adrArgs^.subscribe) { //user click the Subscribe button local (rssurl = adrArgs^.url); if not (rssurl beginswith "http://") { rssurl = "http://" + rssurl}; if rssurl != "http://" { //add this subscription xml.aggregator.subscribeService (rssurl, @pta^.errorString, @pta^.adrNewService)}}; if defined (adrArgs^.unsubscribe) { //user clicked the Unsubscribe button local (i, adr, adrservice); for i = sizeof (adrArgs^) downto 1 { adr = @adrArgs^[i]; local (urlservice = string.urlDecode (nameof (adr^)) ); adrservice = @adrdata^.services.[urlservice]; if defined (adrservice^) { xml.aggregator.unsubscribeService (nameof (adrservice^))}; if defined (config.manila.sites) { local (nomad); for nomad in @config.manila.sites { local (adrsite = nomad^); if defined (adrsite^) { local (adrnewssite = manilaSuite.getNewsSiteAddress (adrsite)); if defined (adrnewssite^) { if defined (adrnewssite^.aggregator) { if defined (adrnewssite^.aggregator.services.[urlservice]) { delete (@adrnewssite^.aggregator.services.[urlservice])}}}}}}}}}; bundle { //field to subscribe to a new feed, Subscribe button local (initialurl = "http://"); if defined (pta^.searchArgs) { //try to get the initial URL from a url argument in the request if pta^.searchArgs != "" { local (t); new (tableType, @t); webserver.parseArgs (pta^.searchArgs, @t); if defined (t.url) { initialurl = t.url}}}; add ("<td align=\"left\">" + "URL" + ":</td>"); add ("<td valign=\"top\"><input type=\"text\" name=\"url\" size=\"55\" maxlength=\"255\" value=\"" + initialurl + "\" /> <input type=\"submit\" name=\"subscribe\" value=\"Add\" /></td>"); if pta^.errorString != "" { //show the error to the user add ("</tr><tr><td colspan=\"2\"><br /><i>Can't subscribe to the channel. The most likely cure is to check the URL in a web browser and see if you can get it to read the feed. The following message probably won't help you figure out what went wrong, but we include it here because it might: \"" + errorstring + "\"</i></td>")}; if pta^.adrNewService != nil { //show confirmation to the user local (channeltitle = xml.entityDecode (pta^.adrNewService^.compilation.channeltitle, true, true) ); add ("</tr><tr><td colspan=\"2\"><br /><br /><i>Congratulations, you have successfully added the \"" + channeltitle + "\" feed to the news feeds available on this server. It now appears in the list of available feeds below. For subscribed sites, new items will appear on the Aggregator page every hour.</i></td>")}; add ("</td>")}; if sizeOf (adrdata^.services) > 0 { //list of feeds with check boxes and Delete button bundle { //add explanatory text add ("</tr><tr><td colspan=\"2\">"); add ("<br /><br />The following table lists the feeds available to sites on this server. Included is the name of the source, linked to its Web page, the time or day it last changed, the number of times it has changed since it was added, and a link to the XML file for the channel. To delete a feed, check it and then click on the Unsubscribe button at the bottom of the page.<br /><br />"); add ("</td>")}; add ("</tr><tr><td colspan=\"2\"><blockquote>"); local (sortedTable, adr, adrSort); bundle { //fill sorted table new (tabletype, @sortedTable); for adr in @adrdata^.services { if defined (adr^.compilation) { if sizeof (adr^.compilation) > 0 { try { //missing channeltitle doesn't stop us -- 3/20/02 DW local (channeltitle = adr^.compilation.channeltitle); if sizeof (channeltitle) > 0 { adrSort = @sortedTable.[adr^.compilation.channeltitle]; if defined (adrSort^) { //collision local (ct = 1); loop { adrSort = @sortedTable.[adr^.compilation.channeltitle + "." + ct++]; if not defined (adrSort^) { break}}}; adrSort^ = nameof (adr^)}}}}}}; bundle { //start the HTML table add ("<table cellspacing=\"0\" cellpadding=\"0\"><tr bgcolor=\"DCDCDC\"><td>"); add ("<table cellspacing=\"1\" cellpadding=\"5\" border=\"0\">")}; for adrSort in @sortedTable { //add the table rows for each channel adr = @adrdata^.services.[adrSort^]; if defined (adr^.compilation) { if sizeof (adr^.compilation) > 0 { local (title = adr^.compilation.channeltitle); local (channeldescription = "", channellink = ""); if defined (adr^.compilation.channeldescription) { channeldescription = xml.entityDecode (adr^.compilation.channeldescription, true, true); channeldescription = string.replaceAll (channeldescription, "\"", """); channeldescription = string.replaceAll (channeldescription, "\'", "'"); channeldescription = string.replaceAll (channeldescription, "<", "<"); channeldescription = string.replaceAll (channeldescription, ">", ">")}; if defined (adr^.compilation.channellink) { channellink = adr^.compilation.channellink}; add ("<tr bgcolor=\"white\">"); bundle { //add checkbox local (name = nameof (adr^)); local (checkboxval = "xxx "); if false { checkboxval = checkboxval + "checked"}; add ("<td valign=\"top\"><input type=\"checkbox\" name=\"" + string.urlEncode (nameOf (adr^)) + "\" value=" + checkboxval + " /></td>")}; if sizeof (title) > 50 { title = string.mid (title, 1, 50) + "..."}; add ("<td valign=\"top\" title=\"" + channeldescription + "\" nowrap><a href=\"" + channellink + "\">" + xml.entityDecode (title, true, true) + "</a></td>"); add ("<td align=\"right\" valign=\"top\"><nobr><font size=\"-1\">" + getDateString (adr^.timeLastChange, false) + "</font></nobr></td>"); add ("<td align=\"right\" valign=\"top\"><font size=\"-1\">" + adr^.ctChanges + "</font></td>"); add ("<td valign=\"top\"><a href=\"" + nameof (adr^) + "\" title=\"Click to view the current XML source text for the channel.\">" + xmlImg + "</a></td>"); add ("</tr>")}}}; bundle { //end the HTML table add ("</table></td></tr></table>")}; add ("</blockquote></td>"); bundle { //Unsubscribe button add ("</tr><tr><td colspan=\"2\">"); add ("<br /><input type=\"submit\" name=\"unsubscribe\" value=\"Unsubscribe\" />"); add ("</td>")}}; return (htmlText)} \ No newline at end of file |
1 message has been excluded from this view by a project administrator.