Subversion Repositories DevTools

<%@LANGUAGE="VBSCRIPT"%>

<%

'=====================================================

'|

'|  wAddDaemonInstructionSimple.asp

'|      Either ripple or test-build the current package

'|      This window has few options

'|

'=====================================================

%>

<%

Option explicit

Response.Expires = 0

%>

<!--#include file="common/conf.asp"-->

<!--#include file="common/globals.asp"-->

<!--#include file="common/formating.asp"-->

<!--#include file="common/qstr.asp"-->

<!--#include file="common/common_subs.asp"-->

<!--#include file="common/_popup_window_common.asp"-->

<!--#include file="common/_form_window_common.asp"-->

<!--#include file="common/common_dbedit.asp"-->

<!--#include file="common/daemon_instructions.asp"-->

<%

'------------ ACCESS CONTROL ------------------

%>

<!--#include file="_access_control_login_optional.asp"-->

<!--#include file="_access_control_general.asp"-->

<%

'------------ VARIABLE DEFINITION -------------

Dim sMessage, sMessageType

Dim parPv_id

Dim parOp_code

Dim parRfile

Dim bPreventSubmit

Dim ripplePresent, rippleDisable

Dim testPresent, testDisable, testChecked

'------------ CONSTANTS DECLARATION -----------

'------------ VARIABLE INIT -------------------

sMessage = NULL

sMessageType = 3

bPreventSubmit = False

' collect all parameters from query string

parPv_id = Request("pv_id")

parOp_code = Request("op_code")

parRfile = Request("rfile")

Set objFormCollector = CreateObject("Scripting.Dictionary")

'------------ CONDITIONS ----------------------

'----------------------------------------------

%>

<%

'------------------------------------------------------------------------------------------------------------------------------------------

' For the specified Release, get a list of all that release's daemon configurations.

' Return True if at least one daemon configuration was found, else False

'------------------------------------------------------------------------------------------------------------------------------------------

Function DaemonsAvailable(NNrtag_id)

   Dim rsTemp, Query_String

   DaemonsAvailable = True

   Query_String = "SELECT * "&_

                  "  FROM release_config rc"&_

                  " WHERE rc.rtag_id = "& NNrtag_id

	Set rsTemp = OraDatabase.DbCreateDynaset( Query_String, cint(0))

   If rsTemp.RecordCount = 0 Then

      DaemonsAvailable = False

   End If

   rsTemp.Close

   Set rsTemp = nothing

End Function

'

' Add a lineof text to the System Message

'

Sub sMessageAdd(text)

    If NOT isNull(sMessage) Then

        sMessage = sMessage & "<br>"

    End If

    sMessage = sMessage & text

End Sub

%>

<%

'------------ RUN BEFORE PAGE RENDER ----------

' Make sure we dont have any null strings or empty strings for our parameters

If IsNull(parOp_code) OR parOp_code = "" Then

   parOp_code = "-1"

End If

If IsNull(parRtag_id) OR parRtag_id = "" Then

   parRtag_id = "0"

End If

If IsNull(parRfile) OR parRfile = "" Then

   parRfile = "dependencies.asp"

End If

' Check if form submit is happening

If CBool(Request("action")) Then

    If CInt(parOp_code) >= 0 Then

       Dim RepeatSeconds

       Dim ScheduledDateTime

       Dim ReleaseMode

       Dim sErrorMsg

       ReleaseMode = GetReleaseMode(parRtag_id)

       If NOT objAccessControl.UserLogedIn Then

            sMessage = "User is no longer logged in"

            sMessageType = 1

       ElseIf NOT UserCanAddOrEditThisDaemonInst(DB_PROJ_ID, ReleaseMode, parOp_code) Then

            sMessage = "You have been denied permission to add/update daemon instructions for the specified release."

            sMessageType = 1

       End If

       If isNull(sMessage) Then

           ' do daemon instruction validation, continuing only if it passes

           If ValidateDaemonInstruction(parOp_code, parRtag_id, parPv_id, sErrorMsg) = True Then

             RepeatSeconds = 0

             ScheduledDateTime = ORA_SYSDATETIME

            ' We are adding a new record

             objEH.TryORA ( OraSession )

             On Error Resume Next

             OraDatabase.ExecuteSQL "BEGIN PK_BUILDAPI.insert_daemon_inst( "& parOp_code & ", " &_

                                                                            parRtag_id & ", " &_

                                                                            parPv_id & ", " &_

                                                                            ScheduledDateTime & ", " &_

                                                                            CStr(RepeatSeconds) & ", " &_

                                                                            ORA_SYSDATETIME & ", " &_

                                                                            objAccessControl.UserId & "); END;"

             objEH.CatchORA ( OraSession )

             If objEH.Finally Then

                Call OpenInParentWindow (parRfile & "?rtag_id=" & parRtag_id & "&pv_id=" & parPv_id)

                Call Destroy_All_Objects

                Response.End

             End If

           Else

            sMessage = sErrorMsg

            sMessageType = 1

           End If

       End If

    Else

        sMessage = "No action selected."

        sMessageType = 1

    End If

End If

' Prevent editing if build instruction is already present

testPresent   = DaemonInstructionPresent(parRtag_id, parPv_id, 1 )

ripplePresent = DaemonInstructionPresent(parRtag_id, parPv_id, 0 )

If ripplePresent Then

    rippleDisable = " disabled"

    sMessageAdd "Ripple Instruction already present"

End If

If testPresent Then

    testDisable = " disabled"

    sMessageAdd "Test Instruction already present"

End If

If ripplePresent AND testPresent Then

    bPreventSubmit = true

    If sMessageType = 3 Then

        sMessageType = 2

    End If

End If

'----------------------------------------------

%>

<html>

   <head>

      <title>Release Manager</title>

      <link rel="shortcut icon" href="<%=FavIcon%>"/>

      <meta HTTP-EQUIV="Pragma" CONTENT="no-cache">

      <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">

      <link href="images/release_manager_style.css?ver=<%=VixVerNum%>" rel="stylesheet" type="text/css">

      <script language="JavaScript" src="scripts/common.js?ver=<%=VixVerNum%>"></script>

   </head>

   <body leftmargin="0" topmargin="0">

      <table width="600px"  border="0" cellspacing="0" cellpadding="5">

         <%

         '-- FROM START --------------------------------------------------------------------------------------------------------------

         objFormComponent.FormName = "DaemonInstruction"

         objFormComponent.FormClass = "form_tight"

         objFormComponent.Action = ScriptName &_

                                   "?proj_id="& DB_PROJ_ID &_

                                   "&rtag_id="& parRtag_id &_

                                   "&pv_id="  & parPv_id &_

                                   "&rfile="  & parRfile

         objFormComponent.OnSubmit = "ShowProgress();"

         Call objFormComponent.FormStart()

         %>

         <tr>

            <td>

               <!-- MESSAGE ++++++++++++++++++++++++++++++++++++++++++++++ -->

               <%Call Messenger ( sMessage , sMessageType, "100%" )%>

               <!-- MESSAGE +++++++++++++++++++++++++++++++++++++++++++++++++++ -->

               <!--#include file="messages/_msg_inline.asp"-->

               <table class="full_table form_item form_field_bg" style="padding: 5;">

                  <tr>

                      <td class="nowrap form_align" >

                        <input type="radio" name="op_code" value="0" <%=rippleDisable%>> Ripple the current package. 

                      <td>This will cause a new package version to be created.<br>All packages that depend on this package will also be rippled.

                  </tr>

                  <tr>

                    <td colspan=2><hr width=80%>

                  </tr>

                  <tr>

                      <td class="nowrap form_align">

                        <input type="radio" name="op_code" value="1" <%=testChecked%><%=testDisable%>> Test Build the current package. 

                       <td>No new version will be created, nor will a build ripple be propagated.<br>This will simply ensure that the current package can be built with<br>the current build machine configuration.

                  </tr>

               </table>

            </td>

          <%

              Dim disableText : disableText = ""

              If NOT (DaemonsAvailable(parRtag_id) AND NOT bPreventSubmit) Then

                  disableText = "disabled=""disabled"""

              End If

          %>

          <tr>

             <td>

                <span  style="float:left"><%=ProgressBar()%></span>

                <button name="btn"  style="float:right" type="reset" onclick="parent.closeIFrame();">Cancel</button>

                <button name="btn"  style="float:right;margin-right: 5px;" type="submit" <%=disableText%> >Add/Update</button>

          </tr>

         <%=objPMod.ComposeHiddenTags()%>

         <input type="hidden" name="action" value="true">

         <input type="hidden" id="rtag_id"     name="rtag_id"      value="<%=parRtag_id%>">

         <input type="hidden" id="pv_id"       name="pv_id"        value="<%=parPv_id%>">

         <input type="hidden" id="rfile"       name="rfile"        value="<%=parRfile%>">

         <%

         Call objFormComponent.FormEnd()

         '-- FROM END ----------------------------------------------------------------------------------------------------------------

         %>

      </table>

   </body>

</html>

<%

'------------ RUN AFTER PAGE RENDER -----------

Set objFormCollector = Nothing

'----------------------------------------------

Call Destroy_All_Objects

%>