home *** CD-ROM | disk | FTP | other *** search
/ Computer Shopper 139 / dpcs0999.iso / Web / CFserver / data1.cab / Administrator / scheduler / index.cfm (.txt) < prev    next >
Encoding:
ColdFusion Encrypted Template  |  1999-04-12  |  4.7 KB  |  117 lines
  1. <META NAME="Author" CONTENT="Copyright 1996 Allaire Corp. All rights reserved.">
  2. <META NAME="Version" CONTENT="$Revision: 21 $ $Modtime: 1/05/99 5:44p $">
  3.  
  4. <!---------------------- Initialize registry key and get task data -------------------------->
  5. <CFNewInternalRegistry ACTION=SET BRANCH="HKEY_LOCAL_MACHINE\SOFTWARE\Allaire\ColdFusion\CurrentVersion" ENTRY="Schedule" TYPE="KEY">
  6.  
  7. <CFNewInternalRegistry ACTION=GETALL NAME="Task_List"
  8.         TYPE="KEY"
  9.         BRANCH="HKEY_LOCAL_MACHINE\SOFTWARE\Allaire\ColdFusion\CurrentVersion\Schedule">
  10.     
  11. <!----------------------------- Build the page --------------------------------->
  12. <HTML>
  13. <HEAD><TITLE>ColdFusion Administrator - ColdFusion Scheduler</TITLE></HEAD>
  14. <!--- General page formatting is controled by this template --->
  15. <cfinclude template="../formatting/header.cfm">
  16.  
  17. <LINK Rel="Stylesheet" Type="text/css" Href="../TableDataStylesheet.css">
  18.  
  19. <CFOUTPUT>
  20. <FONT SIZE="#Evaluate(2 + FONTSIZE)#" FACE="#FONTFACE#"><B>Scheduled Tasks</B></FONT><BR><BR>
  21. </CFOUTPUT>
  22.  
  23. <FORM ACTION="edittaskinfo.cfm" METHOD="POST">
  24. <INPUT Name="CreateTaskName_required" Type="hidden" VALUE="You need to enter a valid Task name in order to proceed." >
  25.  
  26. <TABLE BORDER=0 CELLSPACING=0 CELLPADDING=3 WIDTH="100%">
  27. <TR  BGCOLOR="#669966">
  28.     <CFOUTPUT>
  29.     <TD ALIGN="Left" VALIGN="Top"><FONT SIZE="#FONTSIZE#" FACE="#FONTFACE#" COLOR="##FFFFFF"><B>Task Name</B></FONT></TD>
  30.     <TD ALIGN="Left" VALIGN="Top"><FONT SIZE="#FONTSIZE#" FACE="#FONTFACE#" COLOR="##FFFFFF"><B>Operation</B></FONT></TD>
  31.     <TD ALIGN="Left" VALIGN="Top"><FONT SIZE="#FONTSIZE#" FACE="#FONTFACE#" COLOR="##FFFFFF"><B>Duration</B></FONT></TD>
  32.     <TD ALIGN="Left" VALIGN="Top"><FONT SIZE="#FONTSIZE#" FACE="#FONTFACE#" COLOR="##FFFFFF"><B>Interval</B></FONT></TD>            
  33.     </CFOUTPUT>
  34. </TR>
  35.  
  36. <TR>
  37.     <CFOUTPUT>
  38.     <TD ALIGN="Left" VALIGN="Top" Class="Data"><INPUT Name="CreateTaskName" Type="TEXT" VALUE="" Size=20></TD>
  39.     <TD ALIGN="Left" VALIGN="Top" Class="Data"><SELECT NAME="CreateOperation"><OPTION VALUE="HTTPRequest">HTTPRequest</SELECT></TD>
  40.     <TD ALIGN="Left" VALIGN="Top" Class="Data"><INPUT TYPE="submit" VALUE="Add New Task..."></TD>
  41.     <TD Class="DataNoBorder"></TD>
  42.     </CFOUTPUT>
  43. </TR>
  44.         
  45. <CFSET RowCount = 0>
  46. <CFLOOP QUERY="Task_List">
  47.     <!--- Get Task Details before proceding --->
  48.     <CFSET sTaskKey     = "HKEY_LOCAL_MACHINE\SOFTWARE\Allaire\ColdFusion\CurrentVersion\Schedule\#Task_List.Entry#">
  49.     <CFSET sTaskName     = #Task_List.Entry#>
  50.     <CFSET sOperation     = "Unknown">
  51.     <CFSET sStartDate     = "Unknown">
  52.     <CFSET sEndDate     = "Unknown">
  53.     <CFSET sStartTime     = "Unknown">
  54.     <CFSET sEndTime     = "Unknown">
  55.     <CFSET sInterval     = "Unknown">
  56.     
  57.     <CFNewInternalRegistry ACTION=GET BRANCH="#sTaskKey#" TYPE="STRING"
  58.         VARIABLE="sOperation"
  59.         ENTRY="Operation">
  60.         
  61.     <CFNewInternalRegistry ACTION=GET BRANCH="#sTaskKey#" TYPE="STRING"
  62.         VARIABLE="sStartDate"
  63.         ENTRY="StartDate">
  64.         
  65.     <CFNewInternalRegistry ACTION=GET BRANCH="#sTaskKey#" TYPE="STRING"
  66.         VARIABLE="sEndDate"
  67.         ENTRY="EndDate">
  68.         
  69.     <CFNewInternalRegistry ACTION=GET BRANCH="#sTaskKey#" TYPE="STRING"
  70.         VARIABLE="sStartTime"
  71.         ENTRY="StartTime">
  72.  
  73.     <CFNewInternalRegistry ACTION=GET BRANCH="#sTaskKey#" TYPE="STRING"
  74.         VARIABLE="sEndTime"
  75.         ENTRY="EndTime">
  76.         
  77.     <CFNewInternalRegistry ACTION=GET BRANCH="#sTaskKey#" TYPE="STRING"
  78.         VARIABLE="sInterval"
  79.         ENTRY="Interval">
  80.  
  81.         <CFOUTPUT>
  82.  
  83.             <CFSET RowCount = IncrementValue(RowCount)>
  84.             
  85.             <TR<CFIF RowCount / 2 is Int(RowCount / 2)> BGColor="##EEEEEE"</cfif>>
  86.             <TD ALIGN="Left" VALIGN="Top" Class="Data"><A HREF="edittaskinfo.cfm?EditTaskName=#URLEncodedFormat(Entry)#"><B>#Entry#</B></A></TD>
  87.             <TD ALIGN="Left" VALIGN="Top" Class="Data">#sOperation#</TD>
  88.             <TD ALIGN="Left" VALIGN="Top" Class="Data">
  89.             #DateFormat(sStartDate,'mm/dd/yyyy')# - <CFIF sEndDate IS ''>INDEFINITELY<CFELSE>#DateFormat(sEndDate,'mm/dd/yyyy')#</CFIF>
  90.             </TD>
  91.             <TD ALIGN="Left" VALIGN="Top" Class="DataNoBorder">
  92.             <CFIF sInterval IS "DAILY">
  93.                 Daily at #sStartTime#.
  94.             <CFELSEIF sInterval IS "MONTHLY">
  95.                 Monthly at #sStartTime#.
  96.             <CFELSEIF sInterval IS "WEEKLY">
  97.                 Weekly at #sStartTime#.
  98.             <CFELSEIF IsNumeric(sInterval)>
  99.                  Daily every #Ceiling(Evaluate(sInterval/60))# minutes from #sStartTime# <CFIF sEndTime IS NOT ''>to #sEndTime#</CFIF>
  100.             <CFELSEIF sInterval IS "ONCE">
  101.                 One-time at #sStartTime#. 
  102.             </CFIF>
  103.             </TD>
  104.         </TR>
  105.         </CFOUTPUT>
  106.  
  107. </CFLOOP>
  108. </TABLE>
  109.  
  110. </FORM>    
  111.     
  112. <!--- This closes the page formatting template --->
  113. <CFINCLUDE TEMPLATE="../formatting/footer.cfm">
  114. </BODY>
  115. </HTML>
  116.  
  117.