Subversion Repositories DevTools

Rev

Rev 5169 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 5169 Rev 5170
Line 47... Line 47...
47 
   " AND rt.rtag_id = " & artag_id
 47 
   " AND rt.rtag_id = " & artag_id
48 
 
 48 
 
49 
   Set rsTemp = OraDatabase.CreateDynaset( ssql, cint(0))
 49 
   Set rsTemp = OraDatabase.CreateDynaset( ssql, cint(0))
50 
   If Err.Number <> 0 Then
 50 
   If Err.Number <> 0 Then
51 
      last_resultCode = Err.Number
 51 
      last_resultCode = Err.Number
52 
      last_errorMsg = Err.Description
 52 
      last_errorMsg = Err.Description & ":" & ssql
53 
      Exit Sub
 53 
      Exit Sub
54 
   End If
 54 
   End If
55 
 
 55 
 
56 
   If ((NOT rsTemp.BOF) AND (NOT rsTemp.EOF)) Then
 56 
   If ((NOT rsTemp.BOF) AND (NOT rsTemp.EOF)) Then
57 
      m_pkg_name = rsTemp("pkg_name")
 57 
      m_pkg_name = rsTemp("pkg_name")
Line 94... Line 94...
94 
'   Uses ssh to communicate with the archive server and run the unix script, make_release_changed
 94 
'   Uses ssh to communicate with the archive server and run the unix script, make_release_changed
95 
'
 95 
'
96 
'   Args:   artag_id    - Release Identifier
 96 
'   Args:   artag_id    - Release Identifier
97 
'           apv_id      - Package Identifier
 97 
'           apv_id      - Package Identifier
98 
'           amode_id    - Mode of indication. One of enumRELEASE_CHANGE_MODE_*
 98 
'           amode_id    - Mode of indication. One of enumRELEASE_CHANGE_MODE_*
99 
'           aget_info   - Boolean: true if we need to populate the glabls with pkg info
 99 
'           aget_info   - Boolean: true if we need to populate the global variables with pkg info
100 
'
 100 
'
101 
Sub Run_ReleaseChanged(artag_id,apv_id,amode_id,aget_info)
 101 
Sub Run_ReleaseChanged(artag_id,apv_id,amode_id,aget_info)
102 
    Dim pArchive_Path, sudoCmd, plinkPath, plinkCmd, wCmdLine
 102 
    Dim pArchive_Path, sudoCmd, plinkPath, plinkCmd, wCmdLine
103 
 
 103 
 
104 
    pArchive_Path = "dpkg_archive"
 104 
    pArchive_Path = "dpkg_archive"
105 
    last_resultCode = -1
 105 
    last_resultCode = -1
106 
 
 106 
 
107 
    if aget_info then
 107 
    if aget_info then
108 
        Call Get_Package_Info (artag_id,apv_id)
 108 
        Call Get_Package_Info (artag_id,apv_id)
109 
        If Err.Number <> 0 Then
 109 
        If Err.Number <> 0 Then
110 
            Report_Event enumEVENT_ERROR, "make_release_changed", "", "Get_Package_Info:" & Err.Description
 110 
            Report_Event enumEVENT_ERROR, "make_release_changed", last_errorMsg, "Get_Package_Info:" & Err.Description
111 
            Exit Sub
 111 
            Exit Sub
112 
        End If
 112 
        End If
113 
    end if
 113 
    end if
114 
 
 114 
 
115 
    ' Ensure that we have some data
 115 
    ' Ensure that we have some data