Subversion Repositories DevTools

Rev

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

Rev 4980 Rev 5268
Line 1... Line 1...
1 
<%@LANGUAGE="VBSCRIPT"%>
 1 
<%@LANGUAGE="VBSCRIPT"%>
2 
<%
 2 
<%
- 
 
 3 
'=====================================================
- 
 
 4 
'
- 
 
 5 
'   _wform_new_patch.asp
- 
 
 6 
'
- 
 
 7 
'   This page needs some work
- 
 
 8 
'   It does some nasty stuff
- 
 
 9 
'   It accesses packages in dpkg_archive by mapping a drive letter
- 
 
 10 
'
- 
 
 11 
'   Ideally it should not access dpkg_archive at all
- 
 
 12 
'   If it does it should use MSXML2 and access it via http
- 
 
 13 
'   In this manner it won't need a login password
- 
 
 14 
'
- 
 
 15 
'=====================================================
- 
 
 16 
%>
- 
 
 17 
<%
3 
Option explicit
 18 
Option explicit
4 
Response.Expires = 0   ' always load the page, dont store
 19 
Response.Expires = 0   ' always load the page, dont store
5 
 
 20 
 
6 
'To enable the script timeout to 10 mins
 21 
'To enable the script timeout to 10 mins
7 
Server.ScriptTimeout=600
 22 
Server.ScriptTimeout=600
Line 33... Line 48...
33 
Dim rsQry
 48 
Dim rsQry
34 
Dim patch_number
 49 
Dim patch_number
35 
Dim pos,pos2
 50 
Dim pos,pos2
36 
Dim newPatch_version
 51 
Dim newPatch_version
37 
Dim fs, f, i
 52 
Dim fs, f, i
38 
Dim objNetwork, strDriveLetter, strRemotePath, strUser, strPassword, strProfile, CheckDrive
 53 
Dim objNetwork, strDriveLetter, strRemotePath, strProfile, CheckDrive
- 
 
 54 
Dim pkgCredentails, strUser, strPassword
39 
Dim skip, AlreadyConnected
 55 
Dim skip, AlreadyConnected
40 
Dim newPatchId
 56 
Dim newPatchId
41 
'------------ Constants Declaration -----------
 57 
'------------ Constants Declaration -----------
42 
'------------ Variable Init -------------------
 58 
'------------ Variable Init -------------------
43 
parPv_id = QStrPar("pv_id")
 59 
parPv_id = QStrPar("pv_id")
44 
strDriveLetter = "R:"
 60 
strDriveLetter = "R:"
- 
 
 61 
pkgCredentails = split(PKGARCHIVE_CREDENTIALS,":")
45 
strUser = "releasem"
 62 
strUser = pkgCredentails(0)
46 
strPassword = "releasem"
 63 
strPassword = pkgCredentails(1)
- 
 
 64 
strRemotePath = "\\" & Get_Archive_Server() & "\dpkg_archive"
47 
strProfile = "False" ' means do not store in profile leave as false.
 65 
strProfile = "False" ' means do not store in profile leave as false.
48 
AlreadyConnected = False
 66 
AlreadyConnected = False
49 
'----------------------------------------------
 67 
'----------------------------------------------
50 
%>
 68 
%>
51 
<%
 69 
<%
Line 314... Line 332...
314 
End Sub
 332 
End Sub
315 
'------------------------------------------------------------------------------------------------
 333 
'------------------------------------------------------------------------------------------------
316 
%>
 334 
%>
317 
<%
 335 
<%
318 
'Process submition
 336 
'Process submition
319 
Dim sarchive_server: sarchive_server = Get_Archive_Server()
 - 
 
320 
strRemotePath = "\\" & sarchive_server & "\dpkg_archive"
 - 
 
321 
 
 337 
 
322 
Call Get_Parent_Details ( Request("pv_id"),  Request("rtag_id"), pkg_name, patch_version, view_id )
 338 
Call Get_Parent_Details ( Request("pv_id"),  Request("rtag_id"), pkg_name, patch_version, view_id )
323 
 
 339 
 
324 
If CBool(QStrPar("action")) AND objAccessControl.UserLogedIn Then
 340 
If CBool(QStrPar("action")) AND objAccessControl.UserLogedIn Then
325 
   If Request("btn") = "AutoFill" Then
 341 
   If Request("btn") = "AutoFill" Then