home *** CD-ROM | disk | FTP | other *** search
/ Computer Shopper 139 / dpcs0999.iso / Web / CFserver / data1.cab / Administrator / variables / index.cfm (.txt) < prev   
Encoding:
ColdFusion Encrypted Template  |  1999-04-12  |  24.2 KB  |  625 lines
  1. <META NAME="Author" CONTENT="Copyright 1996 Allaire Corp. All rights reserved.">
  2. <META NAME="Version" CONTENT="$Revision: 35 $ $Modtime: 3/24/99 11:15a $">
  3.  
  4. <!--------- If apply button was pressed, update default client store
  5.             and Session App settings --------------->
  6.  
  7. <CFIF ParameterExists(FORM.Apply)>
  8.     <!--- Validation of form fields. --->
  9.     <CFIF isNumeric(DefaultAppVarTimeoutDays)  IS "NO" OR DefaultAppVarTimeoutDays  LT 0 OR
  10.               isNumeric(DefaultAppVarTimeoutHours) IS "NO" OR DefaultAppVarTimeoutHours LT 0 OR
  11.               isNumeric(DefaultAppVarTimeoutMins)  IS "NO" OR DefaultAppVarTimeoutMins  LT 0 OR
  12.               isNumeric(DefaultAppVarTimeoutSecs)  IS "NO" OR DefaultAppVarTimeoutSecs  LT 0 >
  13.         <CFSET Error_Message = "All the values for the default application variable timeout must numbers greater than or equal to 0.">
  14.         <CFINCLUDE TEMPLATE="../include/errormessage.cfm">
  15.         <CFABORT>
  16.     <CFELSEIF isNumeric(MaxAppVarTimeoutDays)  IS "NO" OR MaxAppVarTimeoutDays  LT 0 OR
  17.               isNumeric(MaxAppVarTimeoutHours) IS "NO" OR MaxAppVarTimeoutHours LT 0 OR
  18.               isNumeric(MaxAppVarTimeoutMins)  IS "NO" OR MaxAppVarTimeoutMins  LT 0 OR
  19.               isNumeric(MaxAppVarTimeoutSecs)  IS "NO" OR MaxAppVarTimeoutSecs  LT 0 >
  20.         <CFSET Error_Message = "All the valies for the maximum application variable timeout must be numbers greater than or equal to 0.">
  21.         <CFINCLUDE TEMPLATE="../include/errormessage.cfm">
  22.         <CFABORT>
  23.     <CFELSEIF isNumeric(DefaultSessionVarTimeoutDays)  IS "NO" OR DefaultSessionVarTimeoutDays  LT 0 OR
  24.               isNumeric(DefaultSessionVarTimeoutHours) IS "NO" OR DefaultSessionVarTimeoutHours LT 0 OR
  25.               isNumeric(DefaultSessionVarTimeoutMins)  IS "NO" OR DefaultSessionVarTimeoutMins  LT 0 OR
  26.               isNumeric(DefaultSessionVarTimeoutSecs)  IS "NO" OR DefaultSessionVarTimeoutSecs  LT 0 >
  27.         <CFSET Error_Message = "All the values for the default session variable timeout must be numbers greater than or equal to 0.">
  28.         <CFINCLUDE TEMPLATE="../include/errormessage.cfm">
  29.         <CFABORT>
  30.     <CFELSEIF isNumeric(MaxSessionVarTimeoutDays)  IS "NO" OR MaxSessionVarTimeoutDays  LT 0 OR
  31.               isNumeric(MaxSessionVarTimeoutHours) IS "NO" OR MaxSessionVarTimeoutHours LT 0 OR
  32.               isNumeric(MaxSessionVarTimeoutMins)  IS "NO" OR MaxSessionVarTimeoutMins  LT 0 OR
  33.               isNumeric(MaxSessionVarTimeoutSecs)  IS "NO" OR MaxSessionVarTimeoutSecs  LT 0 >
  34.         <CFSET Error_Message = "All the values for the maximum session variable timeout must be numbers greater than or equal to 0.">
  35.         <CFINCLUDE TEMPLATE="../include/errormessage.cfm">
  36.         <CFABORT>
  37.     </CFIF>
  38.  
  39.     <!---- Set new values in the registry ---->
  40.     <CFNewInternalRegistry ACTION=SET
  41.         ENTRY="DefaultStore"
  42.         VALUE="#DefaultStore#"
  43.         TYPE="STRING"
  44.         BRANCH ="HKEY_LOCAL_MACHINE\SOFTWARE\Allaire\ColdFusion\CurrentVersion\ClientStores">
  45.  
  46.     <CFSET Branch="HKEY_LOCAL_MACHINE\SOFTWARE\Allaire\ColdFusion\CurrentVersion\Server">
  47.     <CFIF ParameterExists( FORM.AllowAppVarsCheckbox )>
  48.         <CFNewInternalRegistry ACTION=SET Branch="#Branch#" 
  49.             Entry="ApplicationVarsEnabled" 
  50.             Type="STRING" 
  51.             Value="1">
  52.     <CFELSE>
  53.         <CFNewInternalRegistry ACTION=SET Branch="#Branch#" 
  54.             Entry="ApplicationVarsEnabled" 
  55.             Type="STRING" 
  56.             Value="0">
  57.     </CFIF>
  58.     <CFIF ParameterExists( FORM.AllowSessionVarsCheckbox )>
  59.         <CFNewInternalRegistry ACTION=SET Branch="#Branch#" 
  60.             Entry="SessionVarsEnabled" 
  61.             Type="STRING" 
  62.             Value="1">
  63.     <CFELSE>
  64.         <CFNewInternalRegistry ACTION=SET Branch="#Branch#" 
  65.             Entry="SessionVarsEnabled" 
  66.             Type="STRING" 
  67.             Value="0">
  68.     </CFIF>
  69.     <CFNewInternalRegistry ACTION=SET Branch="#Branch#"
  70.         Entry="ApplicationTimeouts" 
  71.         Type="STRING"
  72.         Value="#FORM.DefaultAppVarTimeoutDays#,#FORM.DefaultAppVarTimeoutHours#,#FORM.DefaultAppVarTimeoutMins#,#FORM.DefaultAppVarTimeoutSecs#">
  73.     <CFNewInternalRegistry ACTION=SET Branch="#Branch#"
  74.         Entry="ApplicationVarsMaxTimeout" 
  75.         Type="STRING"
  76.         Value="#FORM.MaxAppVarTimeoutDays#,#FORM.MaxAppVarTimeoutHours#,#FORM.MaxAppVarTimeoutMins#,#FORM.MaxAppVarTimeoutSecs#">
  77.     <CFNewInternalRegistry ACTION=SET Branch="#Branch#"
  78.         Entry="SessionTimeouts" 
  79.         Type="STRING"
  80.         Value="#FORM.DefaultSessionVarTimeoutDays#,#FORM.DefaultSessionVarTimeoutHours#,#FORM.DefaultSessionVarTimeoutMins#,#FORM.DefaultSessionVarTimeoutSecs#">
  81.     <CFNewInternalRegistry ACTION=SET Branch="#Branch#" 
  82.         Entry="SessionVarsMaxTimeout"
  83.         Type="STRING"
  84.         Value="#FORM.MaxSessionVarTimeoutDays#,#FORM.MaxSessionVarTimeoutHours#,#FORM.MaxSessionVarTimeoutMins#,#FORM.MaxSessionVarTimeoutSecs#">
  85.  
  86.     <!---- Tell the engine to refresh from the registry ---->
  87.     <CFSET bSuccess = cfusion_settings_refresh()>
  88. </CFIF>
  89.  
  90.  
  91. <!----------------- Get all registered System ODBC data sources. --------------->
  92. <CFIF #Server.OS.Name# IS NOT "UNIX">
  93. <CFNewInternalRegistry ACTION=SET BRANCH="HKEY_LOCAL_MACHINE\SOFTWARE\ODBC" ENTRY="ODBC.INI" TYPE="KEY">
  94. <CFNewInternalRegistry ACTION=SET BRANCH="HKEY_LOCAL_MACHINE\SOFTWARE\ODBC" ENTRY="ODBCINST.INI" TYPE="KEY">
  95. <CFNewInternalRegistry ACTION=SET BRANCH="HKEY_LOCAL_MACHINE\SOFTWARE\ODBC\ODBC.INI" ENTRY="ODBC Data Sources" TYPE="KEY">
  96. <CFNewInternalRegistry ACTION=SET BRANCH="HKEY_LOCAL_MACHINE\SOFTWARE\ODBC\ODBCINST.INI" ENTRY="ODBC Drivers" TYPE="KEY">
  97.  
  98. <CFNewInternalRegistry ACTION=GETALL NAME="DS_List" TYPE="ANY" Sort="Entry"
  99.         BRANCH="HKEY_LOCAL_MACHINE\SOFTWARE\ODBC\ODBC.INI\ODBC Data Sources">
  100.  
  101. <CFELSE>
  102.  
  103. <CFSET DS_List = cfusion_getodbcdsn()>
  104.  
  105. </CFIF>
  106.  
  107. <!------------- Add the native datasources to the query list -------------->
  108.     <!--- Get a list of the native DSNs --->
  109.     <CFSET DSBranch = "HKEY_LOCAL_MACHINE\SOFTWARE\Allaire\ColdFusion\CurrentVersion\DataSources"> 
  110.     <CFNewInternalRegistry ACTION=GETALL NAME="DS_NativeList" TYPE="KEY" BRANCH=#DSBranch#>
  111.  
  112.     <!--- Loop through the list adding the entries to the DS_List query --->
  113.     <CFLOOP QUERY="DS_NativeList">
  114.         <CFSET dbType = "">
  115.         <!--- List the data sources only if they are native --->
  116.         <CFNewInternalRegistry ACTION="GET" BRANCH="#DSBranch#\#DS_NativeList.Entry#" ENTRY="DBType" VARIABLE="dbType">
  117.         <CFIF #dbType# IS NOT "" AND #dbType# IS NOT "OLEDB">
  118.             <CFSET Temp = QueryAddRow(DS_List)>
  119.              <CFIF  #Server.OS.Name# IS NOT "UNIX">
  120.                 <CFSET Temp = QuerySetCell(DS_List, "Entry", #Entry# )>
  121.                 <CFSET Temp = QuerySetCell(DS_List, "Type", "STRING" )>
  122.                 <CFSET Temp = QuerySetCell(DS_List, "Value", #dbType# )>
  123.             <CFELSE>
  124.                 <CFSET Temp = QuerySetCell(DS_List, "Name", #Entry# )>
  125.                 <CFSET Temp = QuerySetCell(DS_List, "Description", #dbType# )>
  126.             </CFIF>
  127.         <CFELSEIF #dbType# IS "OLEDB" AND #Server.OS.Name# IS NOT "UNIX">
  128.             <CFSET dbProvider = "">
  129.             <!---- OLEDB Drivers ----> 
  130.             <CFNewInternalRegistry ACTION="GET" BRANCH="#DSBranch#\#DS_NativeList.Entry#" ENTRY="Provider" VARIABLE="dbProvider">
  131.  
  132.             <CFSET Temp = QueryAddRow(DS_List)>             
  133.             <CFSET Temp = QuerySetCell(DS_List, "Entry", #Entry# )>
  134.             <CFSET Temp = QuerySetCell(DS_List, "Type", "STRING" )>
  135.             
  136.             <CFIF  #dbProvider# IS "Microsoft.Jet.OLEDB.3.51" OR #dbProvider# IS "SQLOLEDB">    
  137.                 <CFSET Temp = QuerySetCell(DS_List, "Value", #dbProvider# )>
  138.             <CFELSE>    
  139.                 <CFSET Temp = QuerySetCell(DS_List, "Value", #dbType# )>            
  140.             </CFIF>                        
  141.         </CFIF>
  142.     </CFLOOP>
  143.  
  144.  
  145. <!--------------------------Get all the current Backing stores------------------>
  146. <CFNewInternalRegistry ACTION=SET BRANCH="HKEY_LOCAL_MACHINE\SOFTWARE\Allaire\ColdFusion\CurrentVersion" ENTRY="ClientStores" TYPE="KEY">
  147. <CFNewInternalRegistry ACTION=GETALL NAME="BS_List" TYPE="KEY"
  148.         BRANCH="HKEY_LOCAL_MACHINE\SOFTWARE\Allaire\ColdFusion\CurrentVersion\ClientStores">
  149.  
  150.  
  151. <!----Get list of System datasources which could be backing stores --->
  152. <CFSET DataSourceList="">
  153. <CFSET DriverList="">
  154. <CFSET TypeList="">
  155. <CFSET UnsupportedDataSources="Intersolv Text Driver,Microsoft Text Driver (*.txt; *.csv),Microsoft Excel Driver (*.xls)">
  156. <CFSET index=0>
  157. <CFLOOP Query="DS_List">
  158.  
  159.   <CFIF #Server.OS.Name# IS NOT "UNIX">
  160.     <CFIF #DS_List.Type# IS "STRING" AND #DS_List.Entry# IS NOT "DEFAULT">
  161.         <CFSET DSName=#DS_List.Entry#>
  162.         <CFSET DSType=#DS_List.Value#>
  163.     <CFELSE>
  164.         <CFSET DSName="">
  165.         <CFSET DSType="">
  166.     </CFIF>
  167.   <CFELSE>
  168.         <CFSET DSName=#DS_List.Name#>
  169.         <CFSET DSType=#DS_List.Description#>
  170.   </CFIF>
  171.  
  172.   <CFIF CompareNoCase(DSName, "Cookie") IS 0>
  173.     <CFSET DSName="">
  174.   </CFIF>
  175.  
  176.   <CFIF "#DSName#" IS NOT "">
  177.  
  178.     <!--- Check for Client backing store of the same name --->
  179.     <CFNewInternalRegistry ACTION=GET
  180.             BRANCH ="HKEY_LOCAL_MACHINE\SOFTWARE\Allaire\ColdFusion\CurrentVersion\ClientStores"
  181.             TYPE="KEY"
  182.             VARIABLE="Param#index#" 
  183.             ENTRY="#DSName#">
  184.  
  185.     <!--- If there is not a key by this name in the registry, its OK --->                        
  186.     <CFIF NOT Evaluate("ParameterExists(Param#index#)")>
  187.         <!---- Make sure we support client storage for this type ---->
  188.         <CFIF ListFindNoCase(#UnsupportedDataSources#, #DSType#) IS 0>
  189.           <!--- Add to the list of possible new backing stores --->
  190.           <CFSET DataSourceList=ListAppend(#DataSourceList#, #DSName#)>
  191.           <CFSET TypeList=ListAppend(#TypeList#, #DSType#)>
  192.           <CFSET DriverList=ListAppend(#DriverList#, "odbc")>
  193.         </CFIF>
  194.     </CFIF>
  195.     <CFSET index=index+1>
  196.   </CFIF>
  197.  
  198.  
  199. </CFLOOP>
  200.  
  201. <!--- Add other options (File, LDAP, etc) to lists here
  202.         <CFSET DataSourceList=ListAppend(#DataSourceList#, "LDAP")>
  203.         <CFSET TypeList=ListAppend(#TypeList#, "LDAP service")>
  204.         <CFSET DriverList=ListAppend(#DriverList#, "LDAP")>
  205. ------>
  206. <!----------------------------- Build the page --------------------------------->
  207. <HTML>
  208. <HEAD><TITLE>ColdFusion Administrator - Variables</TITLE></HEAD>
  209. <!--- General page formatting is controled by this template --->
  210. <cfinclude template="../formatting/header.cfm">
  211.  
  212. <LINK Rel="Stylesheet" Type="text/css" Href="../TableDataStylesheet.css">
  213.  
  214. <CFOUTPUT>
  215. <FONT SIZE="#Evaluate(2 + FONTSIZE)#" FACE="#FONTFACE#"><B>Client Variable Storage</B></FONT>
  216. <FONT SIZE="#FONTSIZE#" FACE="#FONTFACE#">
  217. <BR><BR>
  218. To configure a data source for client variable storage, first configure an ODBC, OLEDB or native
  219. data source, then select it from the list below.
  220. </FONT>
  221. </CFOUTPUT>
  222.  
  223. <FORM ACTION="editcbsinfo.cfm" METHOD="post">
  224.  
  225. <TABLE BORDER=0 CELLSPACING=0 CELLPADDING=3 WIDTH="100%">
  226. <TR  BGCOLOR="#669966">
  227.     <CFOUTPUT>
  228.     <TD ALIGN="Left" VALIGN="Top"><FONT SIZE="#FONTSIZE#" FACE="#FONTFACE#" COLOR="##FFFFFF"><B>Name</B></FONT></TD>
  229.     <TD ALIGN="Left" VALIGN="Top"><FONT SIZE="#FONTSIZE#" FACE="#FONTFACE#" COLOR="##FFFFFF"><B>Type</B></FONT></TD>
  230.     </CFOUTPUT>
  231. </TR>
  232.  
  233.  
  234. <!------Display list of possible new backing stores in a dropdown box --->
  235. <CFIF ListLen(#DataSourceList#) IS NOT 0>
  236. <TR>
  237.     <TD ALIGN="Left" VALIGN="Top" Class="Data">
  238.         <SELECT NAME="Index">
  239.             <CFSET iIndex=0>
  240.             <CFLOOP INDEX="Item" LIST="#DataSourceList#">
  241.                 <CFSET iIndex = iIndex + 1>
  242.                 <CFOUTPUT>
  243.                 <OPTION VALUE="#iIndex#">#Item#
  244.                 </CFOUTPUT>
  245.             </CFLOOP>
  246.         </SELECT>
  247.     </TD>
  248.     <CFOUTPUT>
  249.     <INPUT TYPE="hidden" NAME="DSList" VALUE="#DataSourceList#">
  250.     <INPUT TYPE="hidden" NAME="DSTypeList" VALUE="#TypeList#">
  251.     <INPUT TYPE="hidden" NAME="DSDriverList" VALUE="#DriverList#">
  252.     </CFOUTPUT>
  253.     <TD ALIGN="Left" Class="DataNoBorder">
  254.         <INPUT TYPE="SUBMIT" NAME="AddBSWasPressed" VALUE="  Add...  ">
  255.     </TD>
  256.  </TR>
  257. </CFIF>        
  258.  
  259. <CFSET RowCount = 0>
  260. <CFLOOP Query="BS_List">
  261.  
  262.     <CFSET Name=#BS_List.Entry#>
  263.   
  264.     <!--- Check for Client backing store Enabled --->
  265.     <CFSET BSDriver="default">
  266.     <CFSET BS_Description="default">
  267.     <CFNewInternalRegistry ACTION=GET
  268.         VARIABLE="BSDriver"
  269.         ENTRY="Type"
  270.         TYPE="STRING"
  271.         BRANCH ="HKEY_LOCAL_MACHINE\SOFTWARE\Allaire\ColdFusion\CurrentVersion\ClientStores\#Name#">
  272.     <CFNewInternalRegistry ACTION=GET
  273.         VARIABLE="BS_Description"
  274.         ENTRY="Description"
  275.         TYPE="STRING"
  276.         BRANCH ="HKEY_LOCAL_MACHINE\SOFTWARE\Allaire\ColdFusion\CurrentVersion\ClientStores\#Name#">
  277.  
  278.     <!---- Skip over any poorly formed entries ---->
  279.     <CFIF BSDriver IS  NOT "default" AND BS_Description IS NOT "default">
  280.       <CFSET RowCount = IncrementValue(RowCount)>
  281.       <TR<CFIF RowCount / 2 is not Int(RowCount / 2)> BGColor="#EEEEEE"</cfif>>
  282.       <CFOUTPUT>
  283.         <TD ALIGN="Left" VALIGN="Top" Class="Data">
  284.           <A HREF="editcbsinfo.cfm?EditLinkWasPressed=Yes&Name=#URLEncodedFormat(Name)#&BSDriver=#BSDriver#&Description=#URLEncodedFormat(BS_Description)#"><B>#Name#</B></A>
  285.         </TD>
  286.         <TD ALIGN="Left" VALIGN="Top" Class="DataNoBorder">#BS_Description#</TD>
  287.       </CFOUTPUT>
  288.       </TR>
  289.     </CFIF>
  290. </CFLOOP>
  291. </TABLE>
  292.  
  293. </FORM>
  294.  
  295. <FORM ACTION="index.cfm" METHOD="POST">
  296.  
  297. <CFOUTPUT>
  298. <br>
  299. <FONT SIZE="#Evaluate(2 + FONTSIZE)#" FACE="#FONTFACE#"><B>Default Client Variable Storage</B></FONT>
  300.  
  301. <CFPARAM NAME="DefaultStore" DEFAULT="Registry">
  302. <CFNewInternalRegistry ACTION=GET
  303.     VARIABLE="DefaultStore"
  304.     ENTRY="DefaultStore"
  305.     TYPE="STRING"
  306.     BRANCH ="HKEY_LOCAL_MACHINE\SOFTWARE\Allaire\ColdFusion\CurrentVersion\ClientStores">
  307.  
  308. <TABLE>
  309. <TR>
  310. <TD VALIGN=top><SELECT NAME="DefaultStore">
  311. <OPTION VALUE="Cookie" <CFIF #DefaultStore# IS "Cookie">SELECTED</CFIF>>Cookie
  312. <CFLOOP Query="BS_List">
  313.     <CFSET Name=#BS_List.Entry#>
  314.     <OPTION VALUE="#Name#" <CFIF #DefaultStore# IS "#Name#">SELECTED</CFIF>>#Name#
  315. </CFLOOP>    
  316. </SELECT><BR>
  317. <FONT SIZE="#FONTSIZE#" FACE="#FONTFACE#">Select the system-wide default for client variable storage.
  318. This setting is used when no ClientStorage attribute is specified in a CFAPPLICATION tag.</FONT></TD>
  319. </TR>
  320. <TD colspan=2>
  321. </CFOUTPUT>
  322. <!---- Form buttons 
  323. <CFSET ApplyButtonName="UpdateDefault">
  324. <CFINCLUDE TEMPLATE="../include/stdformbuttons.cfm">
  325. ---->
  326. </TD>
  327. </TR>
  328. </TABLE>
  329.  
  330.  
  331. <CFSET Branch="HKEY_LOCAL_MACHINE\SOFTWARE\Allaire\ColdFusion\CurrentVersion\Server">
  332. <CFNewInternalRegistry ACTION=GET Branch="#Branch#" 
  333.     VARIABLE="AllowApplicationVars" 
  334.     Entry="ApplicationVarsEnabled" 
  335.     Type="STRING">
  336. <CFNewInternalRegistry ACTION=GET Branch="#Branch#" 
  337.     VARIABLE="AllowSessionVars" 
  338.     Entry="SessionVarsEnabled" 
  339.     Type="STRING">
  340. <CFNewInternalRegistry ACTION=GET Branch="#Branch#" 
  341.     VARIABLE="DefaultAppVarTimeoutList" 
  342.     Entry="ApplicationTimeouts" 
  343.     Type="STRING">
  344. <CFNewInternalRegistry ACTION=GET Branch="#Branch#" 
  345.     VARIABLE="MaxAppVarTimeoutList" 
  346.     Entry="ApplicationVarsMaxTimeout" 
  347.     Type="STRING">
  348. <CFNewInternalRegistry ACTION=GET Branch="#Branch#"
  349.     VARIABLE="DefaultSessionVarTimeoutList" 
  350.     Entry="SessionTimeouts" 
  351.     Type="STRING">
  352. <CFNewInternalRegistry ACTION=GET Branch="#Branch#" 
  353.     VARIABLE="MaxSessionVarTimeoutList" 
  354.     Entry="SessionVarsMaxTimeout"
  355.     Type="STRING">
  356.  
  357. <!--- Massage the input parameters. --->
  358. <CFPARAM Name="ClientTimeout" Default="90">
  359. <CFPARAM Name="AllowApplicationVars" Default="1">
  360. <CFPARAM Name="AllowSessionVars" Default="1">
  361. <CFIF ParameterExists(DefaultAppVarTimeoutList) IS NOT "YES">
  362.     <CFSET DefaultAppVarTimeoutList="2,0,0,0">
  363. <CFELSEIF ListLen(DefaultAppVarTimeoutList) IS NOT 4>
  364.     <CFSET DefaultAppVarTimeoutList="2,0,0,0"> 
  365. </CFIF>
  366. <CFIF ParameterExists(MaxAppVarTimeoutList) IS NOT "YES">
  367.     <CFSET MaxAppVarTimeoutList="2,0,0,0">
  368. <CFELSEIF ListLen(MaxAppVarTimeoutList) IS NOT 4>
  369.     <CFSET MaxAppVarTimeoutList="2,0,0,0">
  370. </CFIF>
  371. <CFIF ParameterExists(DefaultSessionVarTimeoutList) IS NOT "YES">    
  372.     <CFSET DefaultSessionVarTimeoutList="0,0,20,0">
  373. <CFELSEIF ListLen(DefaultSessionVarTimeoutList) IS NOT 4>
  374.     <CFSET DefaultSessionVarTimeoutList="0,0,20,0">
  375. </CFIF>
  376. <CFIF ParameterExists(MaxSessionVarTimeoutList) IS NOT "YES">
  377.     <CFSET MaxSessionVarTimeoutList="0,0,20,0">
  378. <CFELSEIF ListLen(MaxSessionVarTimeoutList) IS NOT 4>
  379.     <CFSET MaxSessionVarTimeoutList="0,0,20,0">
  380. </CFIF>
  381.  
  382. <!--- Parse each appl/session max/default string into 4 individual values --->
  383. <CFSET DefaultAppVarTimeoutDays=  #ListGetAt( DefaultAppVarTimeoutList, 1 )# >
  384. <CFSET DefaultAppVarTimeoutHours= #ListGetAt( DefaultAppVarTimeoutList, 2 )#>
  385. <CFSET DefaultAppVarTimeoutMins=  #ListGetAt( DefaultAppVarTimeoutList, 3 )#>
  386. <CFSET DefaultAppVarTimeoutSecs=  #ListGetAt( DefaultAppVarTimeoutList, 4 )#>
  387. <CFSET MaxAppVarTimeoutDays=  #ListGetAt( MaxAppVarTimeoutList, 1 )#>
  388. <CFSET MaxAppVarTimeoutHours= #ListGetAt( MaxAppVarTimeoutList, 2 )#>
  389. <CFSET MaxAppVarTimeoutMins=  #ListGetAt( MaxAppVarTimeoutList, 3 )#>
  390. <CFSET MaxAppVarTimeoutSecs=  #ListGetAt( MaxAppVarTimeoutList, 4 )#>
  391. <CFSET DefaultSessionVarTimeoutDays=  #ListGetAt( DefaultSessionVarTimeoutList, 1 )#>
  392. <CFSET DefaultSessionVarTimeoutHours= #ListGetAt( DefaultSessionVarTimeoutList, 2 )#>
  393. <CFSET DefaultSessionVarTimeoutMins=  #ListGetAt( DefaultSessionVarTimeoutList, 3 )#>
  394. <CFSET DefaultSessionVarTimeoutSecs=  #ListGetAt( DefaultSessionVarTimeoutList, 4 )#>
  395. <CFSET MaxSessionVarTimeoutDays=  #ListGetAt( MaxSessionVarTimeoutList, 1 )#>
  396. <CFSET MaxSessionVarTimeoutHours= #ListGetAt( MaxSessionVarTimeoutList, 2 )#>
  397. <CFSET MaxSessionVarTimeoutMins=  #ListGetAt( MaxSessionVarTimeoutList, 3 )#>
  398. <CFSET MaxsessionVarTimeoutSecs=  #ListGetAt( MaxSessionVarTimeoutList, 4 )#>
  399.  
  400. <CFOUTPUT>
  401. <TABLE BORDER=0 CELLPADDING=0 CELLSPACING=0>
  402.     <TR>
  403.         <TD>
  404.                 <!-- Session/Application variables settings. -->
  405.                 <BR>
  406.                 <FONT SIZE="#Evaluate(2 + FONTSIZE)#" FACE="#FONTFACE#"><B>Session and Application Variables</B></FONT>
  407.                 <BR>
  408.                 <CFIF AllowApplicationVars IS 1>
  409.                      <INPUT Name="AllowAppVarsCheckbox" Type="CHECKBOX" Value="1" CHECKED>
  410.                 <CFELSE>
  411.                     <INPUT Name="AllowAppVarsCheckbox" Type="CHECKBOX" Value="0">
  412.                 </CFIF>
  413.                 <FONT SIZE="#FONTSIZE#" FACE="#FONTFACE#">
  414.                 <B>Enable Application Variables</B>
  415.                 </FONT>
  416.                 <BR> 
  417.                 <CFIF AllowSessionVars IS 1>
  418.                     <INPUT Name="AllowSessionVarsCheckbox" Type="CHECKBOX" Value="1" CHECKED>
  419.                 <CFELSE>
  420.                     <INPUT Name="AllowSessionVarsCheckbox" Type="CHECKBOX" Value="0">
  421.                 </CFIF>
  422.                 <FONT SIZE="#FONTSIZE#" FACE="#FONTFACE#">
  423.                 <B>Enable Session Variables</B>
  424.                 <BR>
  425.                 Application and Session variables are in-memory variables, therefore, using them can 
  426.                 increase the total amount of memory used by the server. By default, these variables
  427.                 are enabled but you may choose to disable them if you have limited server memory
  428.                 resources.
  429.                 
  430.                 If these variables are enabled, you may set default and maximum timeout values
  431.                 below. The default timeout value will be used if the user fails to specify a timeout 
  432.                 in the CFAPPLICATION tag. The maximum timeout value will be used instead of
  433.                 the value specified by the user in CFAPPLICATION tag if the user's value is larger 
  434.                 than this maximum value. 
  435.                 <BR><BR>
  436.                 <TABLE BORDER=0 CELLPADDING=0 CELLSPACING=0>
  437.                     <TR>
  438.                         <TH>
  439.                             <!--- Empty --->
  440.                         </TH>
  441.                         <TH COLSPAN=4>
  442.                             <FONT SIZE="#FONTSIZE#" FACE="#FONTFACE#">
  443.                             <B>Maximum Timeout</B>
  444.                             </FONT>
  445.                         </TH>
  446.                         <TH>
  447.                             <!--- Empty --->
  448.                         </TH>
  449.                         <TH COLSPAN=4>
  450.                             <FONT SIZE="#FONTSIZE#" FACE="#FONTFACE#">
  451.                             <B>Default Timeout</B>
  452.                             </FONT>
  453.                         </TH>
  454.                     </TR>
  455.                     <TR>
  456.                         <TD>
  457.                             <!--- Empty --->
  458.                         </TD>
  459.                         <TD ALIGN=center>
  460.                             <FONT SIZE="#FONTSIZE#" FACE="#FONTFACE#">
  461.                             (Days)
  462.                             </FONT>
  463.                         </TD>
  464.                         <TD ALIGN=center>
  465.                             <FONT SIZE="#FONTSIZE#" FACE="#FONTFACE#">
  466.                             (Hours)
  467.                             </FONT>
  468.                         </TD>
  469.                         <TD ALIGN=center>
  470.                             <FONT SIZE="#FONTSIZE#" FACE="#FONTFACE#">
  471.                             (Mins)
  472.                             </FONT>
  473.                         </TD>
  474.                         <TD ALIGN=center>
  475.                             <FONT SIZE="#FONTSIZE#" FACE="#FONTFACE#">
  476.                             (Secs)
  477.                             </FONT>
  478.                         </TD>
  479.                         <TD>
  480.                             <!--- Empty --->
  481.                         </TD>
  482.                         <TD ALIGN=center>
  483.                             <FONT SIZE="#FONTSIZE#" FACE="#FONTFACE#">
  484.                             (Days)
  485.                             </FONT>
  486.                         </TD>
  487.                         <TD ALIGN=center>
  488.                             <FONT SIZE="#FONTSIZE#" FACE="#FONTFACE#">
  489.                             (Hours)
  490.                             </FONT>
  491.                         </TD>
  492.                         <TD ALIGN=center>
  493.                             <FONT SIZE="#FONTSIZE#" FACE="#FONTFACE#">
  494.                             (Mins)
  495.                             </FONT>
  496.                         </TD>
  497.                         <TD ALIGN=center>
  498.                             <FONT SIZE="#FONTSIZE#" FACE="#FONTFACE#">
  499.                             (Secs)
  500.                             </FONT>
  501.                         </TD>
  502.                     </TR>
  503.                     <TR>
  504.                         <TH>
  505.                             <FONT SIZE="#FONTSIZE#" FACE="#FONTFACE#">
  506.                             <B>Application<BR>Variables</B>
  507.                             </FONT>
  508.                         </TH>
  509.                         <TD>
  510.                             <FONT SIZE="#FONTSIZE#" FACE="#FONTFACE#">                 
  511.                             <INPUT Name="MaxAppVarTimeoutDays"  Type="TEXT" Value="#MaxAppVarTimeoutDays#"  Size=3 MaxLength=3 onFocus="select()">
  512.                             </FONT>
  513.                         </TD>
  514.                         <TD>
  515.                             <FONT SIZE="#FONTSIZE#" FACE="#FONTFACE#">                 
  516.                             <INPUT Name="MaxAppVarTimeoutHours" Type="TEXT" Value="#MaxAppVarTimeoutHours#" Size=3 MaxLength=2 onFocus="select()">
  517.                             </FONT>
  518.                         </TD>
  519.                         <TD>
  520.                             <FONT SIZE="#FONTSIZE#" FACE="#FONTFACE#">                                  
  521.                             <INPUT Name="MaxAppVarTimeoutMins"  Type="TEXT" Value="#MaxAppVarTimeoutMins#"  Size=3 MaxLength=2 onFocus="select()">
  522.                             </FONT>
  523.                         </TD>
  524.                         <TD>
  525.                             <FONT SIZE="#FONTSIZE#" FACE="#FONTFACE#">                                  
  526.                             <INPUT Name="MaxAppVarTimeoutSecs"  Type="TEXT" Value="#MaxAppVarTimeoutSecs#"  Size=3 MaxLength=2 onFocus="select()">
  527.                             </FONT>
  528.                         </TD>
  529.                         <TD>
  530.                             <FONT SIZE="#FONTSIZE#" FACE="#FONTFACE#">
  531.                             -
  532.                             </FONT>
  533.                         </TD>
  534.                         <TD>
  535.                             <FONT SIZE="#FONTSIZE#" FACE="#FONTFACE#">                 
  536.                             <INPUT Name="DefaultAppVarTimeoutDays" Type="TEXT" Value="#DefaultAppVarTimeoutDays#" Size=3 MaxLength=3 onFocus="select()">
  537.                             </FONT>
  538.                         </TD>
  539.                         <TD>
  540.                             <FONT SIZE="#FONTSIZE#" FACE="#FONTFACE#">                 
  541.                             <INPUT Name="DefaultAppVarTimeoutHours" Type="TEXT" Value="#DefaultAppVarTimeoutHours#" Size=3 MaxLength=2 onFocus="select()">
  542.                             </FONT>
  543.                         </TD>
  544.                         <TD>
  545.                             <FONT SIZE="#FONTSIZE#" FACE="#FONTFACE#">                                  
  546.                             <INPUT Name="DefaultAppVarTimeoutMins"  Type="TEXT" Value="#DefaultAppVarTimeoutMins#"  Size=3 MaxLength=2 onFocus="select()">
  547.                             </FONT>
  548.                         </TD>
  549.                         <TD>
  550.                             <FONT SIZE="#FONTSIZE#" FACE="#FONTFACE#">                 
  551.                             <INPUT Name="DefaultAppVarTimeoutSecs" Type="TEXT" Value="#DefaultAppVarTimeoutSecs#" Size=3 MaxLength=2 onFocus="select()">
  552.                             </FONT>
  553.                         </TD>
  554.                     </TR>                
  555.                     <TR>
  556.                         <TH>
  557.                             <FONT SIZE="#FONTSIZE#" FACE="#FONTFACE#">
  558.                             <B>Session<BR>Variables</B>
  559.                             </FONT>
  560.                         </TH>
  561.                         <TD>
  562.                             <FONT SIZE="#FONTSIZE#" FACE="#FONTFACE#">                 
  563.                             <INPUT Name="MaxSessionVarTimeoutDays"  Type="TEXT" Value="#MaxSessionVarTimeoutDays#"  Size=3 MaxLength=3 onFocus="select()">
  564.                             </FONT>
  565.                         </TD>
  566.                         <TD>
  567.                             <FONT SIZE="#FONTSIZE#" FACE="#FONTFACE#">                 
  568.                             <INPUT Name="MaxSessionVarTimeoutHours" Type="TEXT" Value="#MaxSessionVarTimeoutHours#" Size=3 MaxLength=2 onFocus="select()">
  569.                             </FONT>
  570.                         </TD>
  571.                         <TD>
  572.                             <FONT SIZE="#FONTSIZE#" FACE="#FONTFACE#">                                  
  573.                             <INPUT Name="MaxSessionVarTimeoutMins"  Type="TEXT" Value="#MaxSessionVarTimeoutMins#"  Size=3 MaxLength=2 onFocus="select()">
  574.                             </FONT>
  575.                         </TD>
  576.                         <TD>
  577.                             <FONT SIZE="#FONTSIZE#" FACE="#FONTFACE#">                                  
  578.                             <INPUT Name="MaxSessionVarTimeoutSecs"  Type="TEXT" Value="#MaxSessionVarTimeoutSecs#"  Size=3 MaxLength=2 onFocus="select()">
  579.                             </FONT>
  580.                         </TD>
  581.                         <TD>
  582.                             <FONT SIZE="#FONTSIZE#" FACE="#FONTFACE#">
  583.                             -
  584.                             </FONT>
  585.                         </TD>
  586.                         <TD>
  587.                             <FONT SIZE="#FONTSIZE#" FACE="#FONTFACE#">                 
  588.                             <INPUT Name="DefaultSessionVarTimeoutDays" Type="TEXT" Value="#DefaultSessionVarTimeoutDays#" Size=3 MaxLength=3 onFocus="select()">
  589.                             </FONT>
  590.                         </TD>
  591.                         <TD>
  592.                             <FONT SIZE="#FONTSIZE#" FACE="#FONTFACE#">                 
  593.                             <INPUT Name="DefaultSessionVarTimeoutHours" Type="TEXT" Value="#DefaultSessionVarTimeoutHours#" Size=3 MaxLength=2 onFocus="select()">
  594.                             </FONT>
  595.                         </TD>
  596.                         <TD>
  597.                             <FONT SIZE="#FONTSIZE#" FACE="#FONTFACE#">                                  
  598.                             <INPUT Name="DefaultSessionVarTimeoutMins"  Type="TEXT" Value="#DefaultSessionVarTimeoutMins#"  Size=3 MaxLength=2 onFocus="select()">
  599.                             </FONT>
  600.                         </TD>
  601.                         <TD>
  602.                             <FONT SIZE="#FONTSIZE#" FACE="#FONTFACE#">                 
  603.                             <INPUT Name="DefaultSessionVarTimeoutSecs" Type="TEXT" Value="#DefaultSessionVarTimeoutSecs#" Size=3 MaxLength=2 onFocus="select()">
  604.                             </FONT>
  605.                         </TD>
  606.                     </TR>
  607.                 </TABLE>
  608.                 </FONT>
  609.                 <BR>
  610.  
  611.         </TD>
  612.     </TR>
  613. </TABLE>
  614. </CFOUTPUT>
  615. <!-- Form buttons -->
  616. <CFINCLUDE TEMPLATE="../include/stdformbuttons.cfm">
  617. </FORM>
  618.  
  619.  
  620. <!--- This closes the page formatting template --->
  621. <CFINCLUDE TEMPLATE="../formatting/footer.cfm">
  622. </BODY>
  623. </HTML>
  624.  
  625.