Subversion Repositories DevTools

Rev

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

Rev 1281 Rev 3610
Line 49... Line 49...
49 
'=====================================================
 49 
'=====================================================
50 
'-----------------------------------------------------------------------------------------------------------------
 50 
'-----------------------------------------------------------------------------------------------------------------
51 
'-----------------------------------------------------------------------------------------------------------------
 51 
'-----------------------------------------------------------------------------------------------------------------
52 
Sub onMakeUnofficial ( )
 52 
Sub onMakeUnofficial ( )
53 
	Dim fileSys, rootPath, objPkgFileSys
 53 
	Dim fileSys, rootPath, objPkgFileSys
54 
	Dim pkgType
 - 
 
55
- 
 
56 
	Set objPkgFileSys = New PkgArchive
 54 
	Set objPkgFileSys = New PkgArchive
57
55
58 
	objPkgFileSys.Map_Network_Drive  UNC_ARCHIVE, MappedDrive 	' Map Drive if required
 - 
 
59
- 
 
60 
	pkgType = Get_Package_Type ( parPv_id )
 - 
 
61
56
62 
	' Is this package ERG PRODUCT
 57 
	' Configure target machine
63 
	objPkgFileSys.Remote_Host = TELNET_MACHINE
 58 
	objPkgFileSys.Remote_Host = TELNET_MACHINE
64 
	If pkgType = enumPKG_TYPE_ERG_PRODUCT Then
 - 
 
65 
		rootPath = MappedDrive & DEPLOY_ARCHIVE &"\"& parPkg_name &"\"& parPkg_Version
 - 
 
66 
		objPkgFileSys.Archive_Path = TELNET_DEPLOY_ARCHIVE
 59 
	objPkgFileSys.Archive_Path = TELNET_DPKG_ARCHIVE
67
- 
 
68 
	Else
 60
- 
 
 61 
	objPkgFileSys.Map_Network_Drive  UNC_ARCHIVE, MappedDrive 	' Map Drive if required
69 
		rootPath = MappedDrive & DPKG_ARCHIVE &"\"& parPkg_name &"\"& parPkg_Version
 62 
	rootPath = MappedDrive & DPKG_ARCHIVE &"\"& parPkg_name &"\"& parPkg_Version
70 
		objPkgFileSys.Archive_Path = TELNET_DPKG_ARCHIVE
 - 
 
71
63
72 
	End If
 - 
 
73
- 
 
74 
	Set fileSys = CreateObject("Scripting.FileSystemObject")
64 
	Set fileSys = CreateObject("Scripting.FileSystemObject")
75
65
76 
    ' Do this only if folder exists
66 
    ' Do this only if folder exists
- 
 
 67
77 
	If fileSys.FolderExists( rootPath ) Then
 68 
	'If fileSys.FolderExists( rootPath ) Then
78 
	    objPkgFileSys.Ensure_Read_Write parPkg_name, parPkg_version		' Make sure all files and folders can be read
 69 
	    objPkgFileSys.Ensure_Read_Write parPkg_name, parPkg_version		' Make sure all files and folders can be read
79
70
80 
	    Call Write_To_Release_Notes_Info ( parPv_id, NULL )             ' Clean release notes info
 71 
	    Call Write_To_Release_Notes_Info ( parPv_id, NULL )             ' Clean release notes info
81 
	End If
 72 
	'End If
82
73
83 
End Sub
 74 
End Sub
84 
'-----------------------------------------------------------------------------------------------------------------
 75 
'-----------------------------------------------------------------------------------------------------------------
85 
'-------------------- MAIN LINE ----------------------
 76 
'-------------------- MAIN LINE ----------------------
86 
WScript.Echo "==================== job:onMakeUnofficial ===================="
 77 
WScript.Echo "==================== job:onMakeUnofficial ===================="
Line 115... Line 106...
115 
 
 106 
 
116 
WScript.Echo "onMakeUnofficial finished successfully!"
 107 
WScript.Echo "onMakeUnofficial finished successfully!"
117 
]]>
 108 
]]>
118 
		</script>
 109 
		</script>
119 
	</job>
 110 
	</job>
- 
 
 111
- 
 
 112 
	<job id="onTestArchiveAccess">
- 
 
 113 
		<?job error="false" debug="false" ?>
- 
 
 114 
		<runtime>
- 
 
 115 
			<usage>
- 
 
 116 
Usage:
- 
 
 117 
   Admin_Tools.wsf //job:onTestArchiveAccess
- 
 
 118 
			</usage>
- 
 
 119 
		</runtime>
- 
 
 120 
 
- 
 
 121 
		<script language="VBScript" src="common_subs.vbs"/>
- 
 
 122 
		<script language="VBScript" src="config.vbs"/>
- 
 
 123 
		<script language="VBScript" src="pkg_archive.vbs"/>
- 
 
 124 
		<script id="onTestArchiveAccess" language="VBScript">
- 
 
 125 
<![CDATA[
- 
 
 126 
Option Explicit
- 
 
 127 
'=====================================================
- 
 
 128 
'        Name: 	onTestArchiveAccess
- 
 
 129 
' Description:	Run this job to test access to Release Manager
- 
 
 130 
' 		INPUT:  None
- 
 
 131 
'=====================================================
- 
 
 132 
'================ Variable Definition ================
- 
 
 133 
Dim objArgs
- 
 
 134 
'=============== Constants Declaration ===============
- 
 
 135 
'================== Variable Init ====================
- 
 
 136 
'=====================================================
- 
 
 137 
'-----------------------------------------------------------------------------------------------------------------
- 
 
 138 
'-----------------------------------------------------------------------------------------------------------------
- 
 
 139 
Sub onTestArchiveAccess ( )
- 
 
 140 
	Dim fileSys, rootPath, objPkgFileSys, rv
- 
 
 141 
	Set objPkgFileSys = New PkgArchive
- 
 
 142
- 
 
 143 
	' Configure target machine
- 
 
 144 
	objPkgFileSys.Remote_Host = TELNET_MACHINE
- 
 
 145 
	objPkgFileSys.Archive_Path = TELNET_DPKG_ARCHIVE
- 
 
 146
- 
 
 147 
	Set fileSys = CreateObject("Scripting.FileSystemObject")
- 
 
 148 
	rv = objPkgFileSys.Test_Pkg_Archive_Access
- 
 
 149 
    WScript.Echo "onTestArchiveAccess rv:" & rv
- 
 
 150
- 
 
 151 
    Set fileSys = Nothing
- 
 
 152 
    Set objPkgFileSys = Nothing
- 
 
 153
- 
 
 154 
End Sub
- 
 
 155 
'-----------------------------------------------------------------------------------------------------------------
- 
 
 156 
'-------------------- MAIN LINE ----------------------
- 
 
 157 
WScript.Echo "==================== job:onTestArchiveAccess ===================="
- 
 
 158 
 
- 
 
 159 
Set objArgs = WScript.Arguments
- 
 
 160 
 
- 
 
 161 
Call onTestArchiveAccess ( )
- 
 
 162 
 
- 
 
 163 
WScript.Echo "onTestArchiveAccess finished successfully!"
- 
 
 164 
]]>
- 
 
 165 
		</script>
- 
 
 166 
	</job>
- 
 
 167
- 
 
 168 
	<job id="onTestMapArchive">
- 
 
 169 
		<?job error="false" debug="false" ?>
- 
 
 170 
		<runtime>
- 
 
 171 
			<usage>
- 
 
 172 
Usage:
- 
 
 173 
   Admin_Tools.wsf //job:onTestMapArchive
- 
 
 174 
			</usage>
- 
 
 175 
		</runtime>
- 
 
 176 
 
- 
 
 177 
		<script language="VBScript" src="common_subs.vbs"/>
- 
 
 178 
		<script language="VBScript" src="config.vbs"/>
- 
 
 179 
		<script language="VBScript" src="pkg_archive.vbs"/>
- 
 
 180 
		<script id="onTestMapArchive" language="VBScript">
- 
 
 181 
<![CDATA[
- 
 
 182 
Option Explicit
- 
 
 183 
'=====================================================
- 
 
 184 
'        Name: 	onTestMapArchive
- 
 
 185 
' Description:	Run this job to test access to Package Archive
- 
 
 186 
' 		INPUT:  None
- 
 
 187 
'=====================================================
- 
 
 188 
'================ Variable Definition ================
- 
 
 189 
'=============== Constants Declaration ===============
- 
 
 190 
'================== Variable Init ====================
- 
 
 191 
'=====================================================
- 
 
 192 
'-----------------------------------------------------------------------------------------------------------------
- 
 
 193 
'-----------------------------------------------------------------------------------------------------------------
- 
 
 194 
Sub onTestMapArchive ( )
- 
 
 195 
	Dim rootPath, objPkgFileSys, rv
- 
 
 196 
	Set objPkgFileSys = New PkgArchive
- 
 
 197
- 
 
 198 
	' Configure target machine
- 
 
 199 
	objPkgFileSys.Remote_Host = TELNET_MACHINE
- 
 
 200 
	objPkgFileSys.Archive_Path = TELNET_DPKG_ARCHIVE
- 
 
 201 
 
- 
 
 202 
	objPkgFileSys.Map_Network_Drive  UNC_ARCHIVE, MappedDrive
- 
 
 203
- 
 
 204 
    rv = 0
- 
 
 205 
    If MappedDrive  = "" Then
- 
 
 206 
        rv = 1
- 
 
 207 
    End If
- 
 
 208 
 
- 
 
 209 
    WScript.Echo "onTestMapArchive rv:" & rv
- 
 
 210 
    Set objPkgFileSys = Nothing
- 
 
 211
- 
 
 212 
End Sub
- 
 
 213 
'-----------------------------------------------------------------------------------------------------------------
- 
 
 214 
'-------------------- MAIN LINE ----------------------
- 
 
 215 
WScript.Echo "==================== job:onTestMapArchive ===================="
- 
 
 216 
Call onTestMapArchive ( )
- 
 
 217 
WScript.Echo "onTestMapArchive finished successfully!"
- 
 
 218 
 
- 
 
 219 
]]>
- 
 
 220 
		</script>
- 
 
 221 
	</job>
- 
 
 222
- 
 
 223
120 
</package>
 224 
</package>