Subversion Repositories DevTools

Sub Config_Spec (NNRtag_id, NNPv_id)

   OraDatabase.Parameters.Add "RTAG_ID", NNRtag_id,   ORAPARM_INPUT, ORATYPE_NUMBER

   OraDatabase.Parameters.Add "PV_ID", NNPv_id,   ORAPARM_INPUT, ORATYPE_NUMBER

   Set rsQry = OraDatabase.DbCreateDynaset( GetQuery("config_spec.sql"), cint(0))

   OraDatabase.Parameters.Remove "RTAG_ID"

   OraDatabase.Parameters.Remove "PV_ID"

End Sub

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

Sub Config_Spec_Template (config_branch, pkg_label, src_path, pkg_name, release_name)

   Dim myMail, LocalPath, Template

   Set myMail=Server.CreateObject("Persits.MailSender")

   'LocalPath = Server.MapPath("docs\compareReleases_"&objAccessControl.UserName&".html")

   myMail.Host = SMTP_HOST

   myMail.Subject="Config Specs for package "& pkg_name &" in "& release_name &""

   myMail.From = ADMIN_EMAIL

   myMail.AddAddress objAccessControl.UserEmail

   ' Attach the file

   'myMail.AddAttachment LocalPath

   Template = "element * CHECKEDOUT" & chr(13) & chr(10) & _

   "element .../lost+found -none" & chr(13) & chr(10) & _

   "element * .../"& config_branch &"/LATEST" & chr(13) & chr(10) & _

   "element * "& pkg_label &" -mkbranch "& config_branch &"" & chr(13) & chr(10) & _

   "element * /main/0 -mkbranch "& config_branch &"" & chr(13) & chr(10) & _

   "load "& src_path &""

   myMail.Body = Template

   myMail.Send

   set myMail=nothing

End Sub

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

Function VersionHasCotsExtension ( newVersion )

   VersionHasCotsExtension = False

   Dim myRegExp

   Set myRegExp = New RegExp

   myRegExp.Pattern = "\.cots$"

   If myRegExp.Test( newVersion ) Then

      VersionHasCotsExtension = True

   End If

   Set myRegExp = Nothing

End Function

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

'Returns TRUE if the package is a COTS package and it has an ERG style

'patch-build number that can be rippled by the build system.

Function IsCotsPatch ( apv_id, achange_type)

   '--- get old package version ---

   Dim rsQry, Query_String

   Dim pkg_version_old

   Query_string = " SELECT pv.pkg_version FROM package_versions pv WHERE pv.pv_id = "& apv_id

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

   pkg_version_old = rsQry("pkg_version")

   rsQry.Close()

   Set rsQry = Nothing

   Dim myRegExp

   Set myRegExp = New RegExp

   ' Must be a patch and the version must have a patch build number, ie a dot and at least 4 digits before the cots extenstion.

   myRegExp.Pattern = "\.\d{4,}\.cots$"

   IsCotsPatch = myRegExp.Test( pkg_version_old ) and (achange_type = "P")

   Set myRegExp = Nothing      

End Function

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

If Request("build_type") = "A" AND VersionHasCotsExtension(parFRnewver) AND NOT (IsCotsPatch(parOLDpv_id,Request("change_type"))) Then

  Call RaiseMsg ( enum_MSG_CANNOT_AUTO_GENERATE_COTS_PKG&"?rtag_id="& parRtag_id &"&pv_id="& parOLDpv_id &"", parFRnewver)

Else

End If ' If Request("build_type") = "A" AND VersionHasCotsExtension( parFRnewver ) Then