<% '===================================================== ' COMMON DB EDIT '===================================================== %> <% Sub Update_Pkg_Category ( SSrtag_id, SSpv_id, SSbase_view_id ) OraDatabase.Parameters.Add "PV_ID", SSpv_id, ORAPARM_INPUT, ORATYPE_NUMBER OraDatabase.Parameters.Add "RTAG_ID", SSrtag_id, ORAPARM_INPUT, ORATYPE_NUMBER OraDatabase.Parameters.Add "VIEW_ID", SSbase_view_id, ORAPARM_INPUT, ORATYPE_NUMBER OraSession.BeginTrans OraDatabase.ExecuteSQL _ "BEGIN PK_ENVIRONMENT.CHANGE_PACKAGE_VIEW ( :PV_ID, :RTAG_ID, :VIEW_ID ); END;" OraSession.CommitTrans OraDatabase.Parameters.Remove "PV_ID" OraDatabase.Parameters.Remove "RTAG_ID" OraDatabase.Parameters.Remove "VIEW_ID" End Sub '----------------------------------------------------------------------------------------------------------------------------- Sub Seed_Package_Names_Versions ( ARRdep, NNretPV_ID ) Dim i OraDatabase.Parameters.Add "retPV_ID", 0, ORAPARM_OUTPUT, ORATYPE_NUMBER OraSession.BeginTrans For i = 0 To UBound( ARRdep, 2 ) OraDatabase.ExecuteSQL "BEGIN Seed_Package_Names_Versions ('"& ARRdep(0,i) &"','"& ARRdep(1,i) &"', "& objAccessControl.UserId &", :retPV_ID); END;" Next OraSession.CommitTrans OraDatabase.Parameters.Remove "retPV_ID" End Sub '----------------------------------------------------------------------------------------------------------------------------- Function IsExtention ( SSstr ) Dim objRegEx, Match, Matches, StrReturnStr Set objRegEx = New RegExp objRegEx.IgnoreCase = True objRegEx.Pattern = "[A-Za-z]+" Set Matches = objRegEx.Execute( SSstr ) For Each Match in Matches IsExtention = true Next End Function '----------------------------------------------------------------------------------------------------------------------------- Function Get_Pkg_Base_View_ID ( NNpv_id, NNrtag_id ) Dim rsTemp, Query_String If Request("rtag_id") = "" Then Get_Pkg_Base_View_ID = -1 Exit Function End If Query_String = _ " SELECT rc.base_view_id"&_ " FROM release_content rc"&_ " WHERE rc.rtag_id = "& NNrtag_id &_ " AND rc.pv_id = "& NNpv_id Set rsTemp = OraDatabase.DbCreateDynaset( Query_String, cint(0)) If ((NOT rsTemp.BOF) AND (NOT rsTemp.EOF)) Then Get_Pkg_Base_View_ID = CInt( rsTemp("base_view_id") ) Else Get_Pkg_Base_View_ID = NULL End If rsTemp.Close Set rsTemp = nothing End Function '----------------------------------------------------------------------------------------------------------------------------- Function Get_V_EXT ( SSversion ) Dim v_ext v_ext = Right(SSversion, Len(SSversion) - InStrRev( SSversion, "." )) If IsExtention ( v_ext ) Then Get_V_EXT = v_ext Else Get_V_EXT = NULL End If End Function '----------------------------------------------------------------------------------------------------------------------------- Sub Touch_Package ( NNpv_id ) If NNpv_id = "" Then Exit Sub OraSession.BeginTrans OraDatabase.ExecuteSQL " UPDATE package_versions "&_ " SET modified_stamp = "& ORA_SYSDATETIME &", modifier_id = "& objAccessControl.UserId &_ " WHERE pv_id = "& NNpv_id OraSession.CommitTrans End Sub '----------------------------------------------------------------------------------------------------------------------------- Sub Rebuild_Environment ( NNrtag_id ) Dim Query_String, rsTemp, needRebuild, secToday If NNrtag_id = "" Then Exit Sub ' Exit if rtag_id is not supplied ' Find if rebuild is required Query_String = "SELECT rebuild_env FROM release_tags WHERE rtag_id = "& NNrtag_id Set rsTemp = OraDatabase.DbCreateDynaset( Query_String, cint(0)) If ((NOT rsTemp.BOF) AND (NOT rsTemp.EOF)) Then If rsTemp("rebuild_env") = "Y" Then needRebuild = TRUE Else needRebuild = FALSE End If Else needRebuild = FALSE End If rsTemp.Close Set rsTemp = nothing ' EXIT on no rebuild required If NOT needRebuild Then Exit Sub ' /* REBUILD ENVIRONMENT */ OraSession.BeginTrans ' Update rebuild stamp secToday = Int( Timer ) 'OraDatabase.ExecuteSQL " UPDATE release_tags "&_ ' " SET rebuild_stamp = "& secToday &_ ' " WHERE rtag_id = "& NNrtag_id ' It is important to set the flag rebuild_env = 'N' first, to stop multiple processes doing the same thing OraDatabase.ExecuteSQL " UPDATE release_tags "&_ " SET rebuild_env = 'N'"&_ " WHERE rtag_id = "& NNrtag_id OraSession.CommitTrans OraSession.BeginTrans ' Now rebuild environment OraDatabase.ExecuteSQL " BEGIN Rebuild_Environment( "& NNrtag_id &" ); END;" ' Remove rebuild flag 'OraDatabase.ExecuteSQL " UPDATE release_tags "&_ ' " SET rebuild_env = 'N'"&_ ' " WHERE rtag_id = "& NNrtag_id &_ ' " AND rebuild_stamp = "& secToday OraSession.CommitTrans End Sub '----------------------------------------------------------------------------------------------------------------------------- Sub CheckRequirements ( nPv_id, nRtag_id, nPkgType, returnERRmsg, returnALRTmsg, returnParameters, sQuery ) Dim rsErr, Query_String Query_String = sQuery ' --------- SQL PARAMETERS ------------ OraDatabase.Parameters.Add "RTAG_ID", nRtag_id, ORAPARM_INPUT, ORATYPE_NUMBER OraDatabase.Parameters.Add "PV_ID", nPv_id, ORAPARM_INPUT, ORATYPE_NUMBER OraDatabase.Parameters.Add "enumPKG_STATE_OK", enumPKG_STATE_OK, ORAPARM_INPUT, ORATYPE_NUMBER OraDatabase.Parameters.Add "enumISSUES_STATE_FIXED", enumISSUES_STATE_FIXED, ORAPARM_INPUT, ORATYPE_NUMBER ' ------------------------------------- Set rsErr = OraDatabase.DbCreateDynaset( Query_String, cint(0)) returnERRmsg = NULL returnALRTmsg = NULL If ( nPkgType = enumBASE_VIEW_PRODUCTS ) Then ' Check Requirement for products Do While ((NOT rsErr.BOF) AND (NOT rsErr.EOF)) If Not IsNull(rsErr("err_message")) Then returnERRmsg = rsErr("err_message") returnALRTmsg = rsErr("products_msg") returnParameters = "_make_released.asp" &"|" If returnALRTmsg = "ERROR" Then returnParameters = rsErr("rfile") &"|"& rsErr("anchor") Exit Do End If End If rsErr.MoveNext Loop Else ' Check Requirements for other packages Do While ((NOT rsErr.BOF) AND (NOT rsErr.EOF)) If Not IsNull(rsErr("err_message")) Then returnERRmsg = rsErr("err_message") returnParameters = rsErr("rfile") &"|"& rsErr("anchor") Exit Do End If rsErr.MoveNext Loop End If rsErr.Close Set rsErr = nothing OraDatabase.Parameters.Remove "RTAG_ID" OraDatabase.Parameters.Remove "PV_ID" OraDatabase.Parameters.Remove "enumPKG_STATE_OK" OraDatabase.Parameters.Remove "enumISSUES_STATE_FIXED" End Sub '----------------------------------------------------------------------------------------------------------------------------- Sub CheckRequirementsForMakeRelease ( nPv_id, nRtag_id, nPkgType, returnERRmsg, returnALRTmsg, returnParameters ) Dim QueryString, rsQry QueryString = "SELECT pv.IS_PATCH FROM PACKAGE_VERSIONS pv WHERE pv.PV_ID = "& nPv_id Set rsQry = OraDatabase.DbCreateDynaset( QueryString, cint(0)) If IsNull(rsQry("is_patch")) Then ' For Package 'Response.write "HERE" Call CheckRequirements ( nPv_id, nRtag_id, nPkgType, returnERRmsg, returnALRTmsg, returnParameters, ReadFile( rootPath & "queries\req_make_official.sql" ) ) Else ' For Patch Call CheckRequirements ( nPv_id, nRtag_id, nPkgType, returnERRmsg, returnALRTmsg, returnParameters, ReadFile( rootPath & "queries\req_make_official_patch.sql" ) ) End If rsQry.Close() Set rsQry = nothing End Sub '----------------------------------------------------------------------------------------------------------------------------- Sub CheckRequirementsForMakePending ( nPv_id, nRtag_id, nPkgType, returnERRmsg, returnALRTmsg, returnParameters ) Call CheckRequirements ( nPv_id, nRtag_id, nPkgType, returnERRmsg, returnALRTmsg, returnParameters, ReadFile( rootPath & "queries\req_make_pending.sql" ) ) End Sub '----------------------------------------------------------------------------------------------------------------------------- Sub CheckRequirementsForMakeApproved ( nPv_id, nRtag_id, nPkgType, returnERRmsg, returnALRTmsg, returnParameters ) Call CheckRequirements ( nPv_id, nRtag_id, nPkgType, returnERRmsg, returnALRTmsg, returnParameters, ReadFile( rootPath & "queries\req_make_approved.sql" ) ) End Sub '----------------------------------------------------------------------------------------------------------------------------- Sub Notify ( NNrtag_id ) Dim Query_String, Location_SQL, rsNotify, emailBody, readyPv_id_list, SentTODict, releaseSTR Dim httpRef, URL_root, headerSTR, footerSTR, oAttachmentsDict Set SentTODict = CreateObject("Scripting.Dictionary") Set oAttachmentsDict = CreateObject("Scripting.Dictionary") OraSession.BeginTrans Query_String = ReadFile( rootPath & "queries\to_notify.sql" ) Query_String = Replace( Query_String, "/*PKG_STATE_MAJOR_READY*/", enumPKG_STATE_MAJOR_READY) Query_String = Replace( Query_String, "/*PKG_STATE_MINOR_READY*/", enumPKG_STATE_MINOR_READY) Query_String = Replace( Query_String, "/*PKG_STATE_OK*/", enumPKG_STATE_OK) Query_String = Replace( Query_String, "/*ORA_SYSDATETIME*/", ORA_SYSDATETIME) ' --------- SQL PARAMETERS ------------ OraDatabase.Parameters.Add "RTAG_ID", NNrtag_id, ORAPARM_INPUT OraDatabase.Parameters("RTAG_ID").ServerType = ORATYPE_NUMBER OraDatabase.Parameters.Add "CURRENT_USER", objAccessControl.UserId, ORAPARM_INPUT OraDatabase.Parameters("CURRENT_USER").ServerType = ORATYPE_NUMBER ' ------------------------------------- 'Response.write Query_String Set rsNotify = OraDatabase.DbCreateDynaset( Query_String, cint(0)) readyPv_id_list = "-1" emailBody = "" '---- Get notification list ---- If ((NOT rsNotify.BOF) AND (NOT rsNotify.EOF)) Then httpRef = Request.ServerVariables("HTTP_REFERER") URL_root = Left( httpRef, InStrRev(httpRef, "/") ) emailBody = emailBody & "" emailBody = emailBody & "Owner" emailBody = emailBody & "Package Name" emailBody = emailBody & "Version" emailBody = emailBody & "" While ((NOT rsNotify.BOF) AND (NOT rsNotify.EOF)) emailBody = emailBody & "" emailBody = emailBody & ""& rsNotify("full_name") &"" emailBody = emailBody & ""& rsNotify("pkg_name") &"" emailBody = emailBody & ""& rsNotify("pkg_version") &"" emailBody = emailBody & "" readyPv_id_list = readyPv_id_list &","& rsNotify("pv_id") If NOT SentTODict.Exists (Cstr(rsNotify("user_email"))) Then SentTODict.Add Cstr(rsNotify("user_email")), Cstr(rsNotify("full_name")) rsNotify.MoveNext WEnd emailBody = "" & emailBody & "
" End If rsNotify.Close Set rsNotify = nothing If readyPv_id_list <> "-1" Then '---- Header ---- headerSTR = _ ""&_ " "&_ " "&_ " "&_ " "&_ " "&_ " "&_ " "&_ " "&_ "
releasemanager Notifications


" '---- Footer ---- footerSTR = _ "

"&_ ""&_ " "&_ " "&_ " "&_ " "&_ " "&_ " "&_ " "&_ "
 massERG Confidential © ERG
" '---- Get Release loction ---- Location_SQL = _ " SELECT proj.proj_name, rt.rtag_name"&_ " FROM release_tags rt,"&_ " projects proj"&_ " WHERE rt.proj_id = proj.proj_id"&_ " AND rt.rtag_id = :RTAG_ID" Set rsNotify = OraDatabase.DbCreateDynaset( Location_SQL, cint(0)) If ((NOT rsNotify.BOF) AND (NOT rsNotify.EOF)) Then releaseSTR = rsNotify("proj_name") &" > "& rsNotify("rtag_name") emailBody = ""&_ "Following packages are ready to build.

"&_ rsNotify("proj_name") &" > "& rsNotify("rtag_name") &"
"&_ ""& URL_root &"dependencies.asp?rtag_id="& NNrtag_id &""&_ ""&_ emailBody End If rsNotify.Close Set rsNotify = nothing emailBody = headerSTR & emailBody & footerSTR '---- Remove pkg form notification history ---- OraDatabase.ExecuteSQL " DELETE FROM notification_history WHERE rtag_id = :RTAG_ID AND pv_id IN ( "& readyPv_id_list &" )" '---- Insert into notification history ---- OraDatabase.ExecuteSQL "INSERT INTO notification_history (rtag_id, pv_id, user_id, date_time_stamp) "&_ " SELECT ins.rtag_id, ins.pv_id, ins.user_id, ins.date_time_stamp"&_ " FROM ("&_ Query_String &_ " ) ins" End If OraSession.CommitTrans '================= Send Email ========================== 'Call Send_Email ( "Release Manager Notifications", adminEmail, adminEmail, "Your package is ready to build at "& releaseSTR, emailBody, oAttachmentsDict ) ' ---------- Attachments ------------- oAttachmentsDict.Add "images\i_mail.gif", "RM-Envelop" oAttachmentsDict.Add "images\s_masslogo_w.gif", "RM-MASSlogo" Call Send_Email ( "Release Manager Notifications", adminEmail, SentTODict, "Your package is ready to build at "& releaseSTR, emailBody, oAttachmentsDict ) OraDatabase.Parameters.Remove "RTAG_ID" OraDatabase.Parameters.Remove "CURRENT_USER" End Sub '----------------------------------------------------------------------------------------------------------------------------- Function NeedSync ( nPv_id, nRtag_id ) Dim rsTemp, Query_String Query_String = ReadFile( rootPath & "queries\sync_check.sql" ) ' --------- SQL PARAMETERS ------------ OraDatabase.Parameters.Add "RTAG_ID", nRtag_id, ORAPARM_INPUT, ORATYPE_NUMBER OraDatabase.Parameters.Add "PV_ID", nPv_id, ORAPARM_INPUT, ORATYPE_NUMBER ' ------------------------------------- Set rsTemp = OraDatabase.DbCreateDynaset( Query_String, cint(0)) If rsTemp.RecordCount > 0 Then NeedSync = TRUE Else NeedSync = FALSE End If rsTemp.Close Set rsTemp = nothing OraDatabase.Parameters.Remove "RTAG_ID" OraDatabase.Parameters.Remove "PV_ID" End Function '----------------------------------------------------------------------------------------------------------------------------- Function Lookup_Document ( sDocNum, outDocTitle, outDoc_id, outDoc_version, outDoc_created ) Dim rsDocReg outDocTitle = NULL outDoc_id = NULL outDoc_version = NULL outDoc_created = NULL Set rsDocReg = Server.CreateObject("ADODB.Recordset") rsDocReg.ActiveConnection = DOCREP_conn rsDocReg.Source = "EXEC docregister.dbo.sp_RM_getDocumentFiles '"& sDocNum &"';" rsDocReg.CursorType = 0 rsDocReg.CursorLocation = 2 rsDocReg.LockType = 3 On Error Resume Next rsDocReg.Open() If (NOT rsDocReg.BOF) AND (NOT rsDocReg.EOF) Then outDocTitle = rsDocReg("title") outDoc_id = rsDocReg("id") outDoc_version = rsDocReg("version") outDoc_created = rsDocReg("created") End If rsDocReg.Close Lookup_Document = Err.Number ' Return Error number Set rsDocReg = nothing End Function '----------------------------------------------------------------------------------------------------------------------------- Function Short_Document_Details ( nDocId, outDocTitle, outDoc_version, outDoc_created ) Dim rsDocReg outDocTitle = NULL outDoc_version = NULL outDoc_created = NULL Set rsDocReg = Server.CreateObject("ADODB.Recordset") rsDocReg.ActiveConnection = DOCREP_conn rsDocReg.Source = "EXEC docregister.dbo.sp_RM_getFileDetails "& nDocId &";" rsDocReg.CursorType = 0 rsDocReg.CursorLocation = 2 rsDocReg.LockType = 3 On Error Resume Next rsDocReg.Open() If (NOT rsDocReg.BOF) AND (NOT rsDocReg.EOF) Then outDocTitle = rsDocReg("title") outDoc_version = rsDocReg("version") outDoc_created = rsDocReg("created") End If rsDocReg.Close Short_Document_Details = Err.Number ' Return Error number Set rsDocReg = nothing End Function '----------------------------------------------------------------------------------------------------------------------------- Sub LoadFieldRules ( sFieldList, ByRef outobjForm ) Dim rsQry, query query = _ " SELECT FIELD_NAME, "&_ " IS_REQUIRED, "&_ " IS_NUMERIC, "&_ " MIN_NUMERIC_VALUE, "&_ " MAX_NUMERIC_VALUE, "&_ " IS_DATE, "&_ " START_DATE, "&_ " END_DATE, "&_ " MIN_STRING_LENGTH, "&_ " MAX_STRING_LENGTH, "&_ " REGEXP, "&_ " REGEXP_DESCRIPTION "&_ " FROM VALIDATION_RULES"&_ " WHERE field_name IN ("& sFieldList &")" Set rsQry = OraDatabase.DbCreateDynaset( query , ORADYN_DEFAULT ) If ((NOT rsQry.BOF) AND (NOT rsQry.EOF)) Then outobjForm.LoadFieldRules rsQry.GetRows() End If rsQry.Close Set rsQry = Nothing End Sub '----------------------------------------------------------------------------------------------------------------------------- Sub Log_Action ( nPvId, sActionTypeName, sComments ) OraDatabase.Parameters.Add "PV_ID", nPvId, ORAPARM_INPUT, ORATYPE_NUMBER OraDatabase.Parameters.Add "USER_ID", objAccessControl.UserId, ORAPARM_INPUT, ORATYPE_NUMBER OraDatabase.Parameters.Add "ACTION_TYPE_NAME", sActionTypeName, ORAPARM_INPUT, ORATYPE_VARCHAR2 OraDatabase.Parameters.Add "COMMENTS", sComments, ORAPARM_INPUT, ORATYPE_VARCHAR2 OraSession.BeginTrans OraDatabase.ExecuteSQL _ "BEGIN Log_Action ( :PV_ID, :ACTION_TYPE_NAME, :USER_ID, :COMMENTS ); END;" OraSession.CommitTrans OraDatabase.Parameters.Remove "PV_ID" OraDatabase.Parameters.Remove "USER_ID" OraDatabase.Parameters.Remove "ACTION_TYPE_NAME" OraDatabase.Parameters.Remove "COMMENTS" End Sub '----------------------------------------------------------------------------------------------------------------------------- Function GetUsername ( nUser_id ) Dim rsQry, sQuery OraDatabase.Parameters.Add "USER_ID", nUser_id, ORAPARM_INPUT, ORATYPE_VARCHAR2 sQuery = "SELECT full_name FROM users WHERE user_id = :USER_ID" Set rsQry = OraDatabase.DbCreateDynaset( sQuery, cint(0)) If rsQry.RecordCount = 1 Then GetUsername = rsQry.Fields("full_name").Value Else GetUsername = nothing End If OraDatabase.Parameters.remove "USER_ID" rsQry.Close Set rsQry = nothing End Function '----------------------------------------------------------------------------------------------------------------------------- Function GetUserEmail ( nUser_id ) Dim rsQry, sQuery OraDatabase.Parameters.Add "USER_ID", nUser_id, ORAPARM_INPUT, ORATYPE_VARCHAR2 sQuery = "SELECT user_email FROM users WHERE user_id = :USER_ID" Set rsQry = OraDatabase.DbCreateDynaset( sQuery, cint(0)) If rsQry.RecordCount = 1 Then GetUserEmail = rsQry.Fields("user_email").Value Else GetUserEmail = nothing End If OraDatabase.Parameters.remove "USER_ID" rsQry.Close Set rsQry = nothing End Function '------------------------------------------------------------------------------------------------------------------ %>