Subversion Repositories DevTools

Rev

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

Rev 4063 Rev 5357
Line 1... Line 1...
1 
<%@LANGUAGE="VBSCRIPT"%>
 1 
<%@LANGUAGE="VBSCRIPT"%>
2 
<%
 2 
<%
3 
'=====================================================
 3 
'=====================================================
4 
'|                                                   |
 4 
'|                                                   |
5 
'|				          Login						 |
 5 
'|				          Login						 |
6 
'|                                                   |
 6 
'|                                                   |
7 
'=====================================================
 7 
'=====================================================
8 
%>
 8 
%>
9 
<%
 9 
<%
10 
Option explicit
 10 
Option explicit
11 
Response.Expires = 0
 11 
Response.Expires = 0
12 
%>
 12 
%>
13 
<!--#include file="common/conf.asp"-->
 13 
<!--#include file="common/conf.asp"-->
14 
<!--#include file="common/globals.asp"-->
 14 
<!--#include file="common/globals.asp"-->
15 
<!--#include file="common/qstr.asp"-->
 15 
<!--#include file="common/qstr.asp"-->
16 
<!--#include file="common/common_subs.asp"-->
 16 
<!--#include file="common/common_subs.asp"-->
17 
<%
 17 
<%
18 
'------------ VARIABLE DEFINITION -------------
 18 
'------------ VARIABLE DEFINITION -------------
19 
'------------ CONSTANTS DECLARATION -----------
 19 
'------------ CONSTANTS DECLARATION -----------
20 
'------------ VARIABLE INIT -------------------
 20 
'------------ VARIABLE INIT -------------------
21 
objAccessControl.objOraSession = OraSession	' Create database link for orasession
 21 
objAccessControl.objOraSession = OraSession	' Create database link for orasession
22 
objAccessControl.objOraDatabase = OraDatabase	' Create database link for oradatabase
 22 
objAccessControl.objOraDatabase = OraDatabase	' Create database link for oradatabase
23 
'------------ CONDITIONS ----------------------
 23 
'------------ CONDITIONS ----------------------
24 
'----------------------------------------------
 24 
'----------------------------------------------
25 
%>
 25 
%>
26 
<%
 26 
<%
27 
'----------------------------------------------------------------------------------------------------------------------------------------------
 27 
'----------------------------------------------------------------------------------------------------------------------------------------------
28 
Sub Logon ()
 28 
Sub Logon ()
29 
	On Error Resume Next
 29 
	On Error Resume Next
30
30
31 
	objEH.Try()
 31 
	objEH.Try()
32
32
33 
	Call objAccessControl.LogonUser ( Request("user_name"), Request("user_password") )
 33 
	Call objAccessControl.LogonUser ( Request("user_name"), Request("user_password") )
34
34
35 
	objEH.Catch()
 35 
	objEH.Catch()
36
36
37 
End Sub
 37 
End Sub
38 
'----------------------------------------------------------------------------------------------------------------------------------------------
 38 
'----------------------------------------------------------------------------------------------------------------------------------------------
39 
Sub CheckPasswordUpdate ()
 39 
Sub CheckPasswordUpdate ()
40
40
41 
	If objAccessControl.RequiresPasswordUpdate ( Request("user_name") ) Then
 41 
	If objAccessControl.RequiresPasswordUpdate ( Request("user_name") ) Then
42 
		Session(enumUSER_TEMP_VARIABLE) = Request("user_password")
 42 
		Session(enumUSER_TEMP_VARIABLE) = Request("user_password")
43 
		Call OpenInWindow ( "UpdatePassword.asp?user_name="& Request("user_name") &"&"& objPMod.ComposeURL() )
 43 
		Call OpenInWindow ( "UpdatePassword.asp?user_name="& Request("user_name") &"&"& objPMod.ComposeURL() )
44 
	End If
 44 
	End If
45
45
46 
End Sub
 46 
End Sub
47 
'----------------------------------------------------------------------------------------------------------------------------------------------
 47 
'----------------------------------------------------------------------------------------------------------------------------------------------
48 
Sub AccessManagerMessage ( nMessage )
 48 
Sub AccessManagerMessage ( nMessage )
49 
	Dim sMessage
 49 
	Dim sMessage
50 
	On Error Resume Next
 50 
	On Error Resume Next
51
51
52 
	objEH.Try()
 52 
	objEH.Try()
53 
		Select Case CInt( nMessage )
 53 
		Select Case CInt( nMessage )
54 
			Case 1
 54 
			Case 1
55 
				Err.Raise 8, _
 55 
				Err.Raise 8, _
56 
					"Application Access Denied !", "Please contact the <a href='mailto:"& ADMIN_EMAIL &"' class='body_link'>Administrator</a> to gain access to this application."
 56 
					"Application Access Denied !", "Please contact the <a href='mailto:"& ADMIN_EMAIL &"' class='body_link'>Administrator</a> to gain access to this application."
57 
			Case 2
 57 
			Case 2
58 
				Err.Raise 8, _
 58 
				Err.Raise 8, _
59 
					"Page Access Denied !", "Please contact the <a href='mailto:"& ADMIN_EMAIL &"' class='body_link'>Administrator</a> to gain access to this page."
 59 
					"Page Access Denied !", "Please contact the <a href='mailto:"& ADMIN_EMAIL &"' class='body_link'>Administrator</a> to gain access to this page."
60 
			Case 3
 60 
			Case 3
61 
				Err.Raise 8, _
 61 
				Err.Raise 8, _
62 
					"Application is Off-Line !", "This application is currently off-line for maintenance. <br>Contact the <a href='mailto:"& ADMIN_EMAIL &"' class='body_link'>Administrator</a> for further details."
 62 
					"Application is Off-Line !", "This application is currently off-line for maintenance. <br>Contact the <a href='mailto:"& ADMIN_EMAIL &"' class='body_link'>Administrator</a> for further details."
63
63
64 
			Case 4
 64 
			Case 4
65 
				Err.Raise 8, _
 65 
				Err.Raise 8, _
66 
					"You are Not Authorised !", "You are not authorised to perform this action. <br>Contact the <a href='mailto:"& ADMIN_EMAIL &"' class='body_link'>Administrator</a> for further details."
 66 
					"You are Not Authorised !", "You are not authorised to perform this action. <br>Contact the <a href='mailto:"& ADMIN_EMAIL &"' class='body_link'>Administrator</a> for further details."
67
67
68 
		End Select
 68 
		End Select
69 
	objEH.Catch()
 69 
	objEH.Catch()
70
70
71 
End Sub
 71 
End Sub
72 
'----------------------------------------------------------------------------------------------------------------------------------------------
 72 
'----------------------------------------------------------------------------------------------------------------------------------------------
73 
%>
 73 
%>
74 
<%
 74 
<%
75 
'------------ RUN BEFORE PAGE RENDER ----------
 75 
'------------ RUN BEFORE PAGE RENDER ----------
76 
objPMod.PersistInQryString ( aPersistList )
 76 
objPMod.PersistInQryString ( aPersistList )
77 
 
 77 
 
78 
' --- RUN onPostBack ---
 78 
' --- RUN onPostBack ---
79 
If CBool(Request("action")) Then
 79 
If CBool(Request("action")) Then
80
80
81 
	' Try to check for password update
 81 
	' Try to check for password update
82 
	If Request("cpassword") = "" Then
 82 
	If Request("cpassword") = "" Then
83 
		Call CheckPasswordUpdate ()
 83 
		Call CheckPasswordUpdate ()
84 
	End If
 84 
	End If
85
85
86 
	Call Logon ()
 86 
	Call Logon ()
87
87
88 
	If objEH.Finally Then
 88 
	If objEH.Finally Then
89 
		If Request("rfile") <> "" Then
 89 
		If Request("rfile") <> "" Then
90 
			Call OpenInWindow ( Request("rfile") &"?LOGIN=ok"& objPMod.ComposeURLWithout("rfile") )
 90 
			Call OpenInWindow ( Request("rfile") &"?LOGIN=ok"& objPMod.ComposeURLWithout("rfile") )
91 
		Else
 91 
		Else
92 
			Call OpenInWindow ( "index.asp" )
 92 
			Call OpenInWindow ( "index.asp" )
93 
		End If
 93 
		End If
94
94
95
95
96 
	End If
 96 
	End If
97 
End If
 97 
End If
98 
 
 98 
 
99 
' Display Access Manager messages - before we kill the session
 99 
' Display Access Manager messages - before we kill the session
100 
' cookies that identify the message
 100 
' cookies that identify the message
101 
'
 101 
'
102 
Call AccessManagerMessage( Request("message") )
 102 
Call AccessManagerMessage( Request("message") )
103 
 
 103 
 
104 
' Attempt to kill of old ASPSESSIONID cookies
 104 
' Attempt to kill of old ASPSESSIONID cookies
105 
'   Appears that we get one every time we login
 105 
'   Appears that we get one every time we login
106 
'   Soluton: Kill them all before we login
 106 
'   Soluton: Kill them all before we login
107 
'
 107 
'
108 
If instr(Request.ServerVariables("HTTP_COOKIE"), "ASPSESSIONID") > 0 Then
 108 
If instr(Request.ServerVariables("HTTP_COOKIE"), "ASPSESSIONID") > 0 Then
109 
 
 109 
 
110 
    Dim Allcookies,i
 110 
    Dim Allcookies,i
111 
    AllCookies = Split(Request.ServerVariables("HTTP_COOKIE"),";")
 111 
    AllCookies = Split(Request.ServerVariables("HTTP_COOKIE"),";")
112 
    For i = 1 to UBound(AllCookies)
 112 
    For i = 1 to UBound(AllCookies)
113 
 
 113 
 
114 
        If instr(AllCookies(i), "ASPSESSIONID") > 0 Then
 114 
        If instr(AllCookies(i), "ASPSESSIONID") > 0 Then
115 
            Response.AddHeader "Set-Cookie", Left(AllCookies(i),instr(AllCookies(i),"=") -1) & "=0; path=/;secure;httponly"
 115 
            Response.AddHeader "Set-Cookie", Left(AllCookies(i),instr(AllCookies(i),"=") -1) & "=0; path=/;secure;httponly"
116 
        End if
 116 
        End if
117 
 
 117 
 
118 
    Next
 118 
    Next
119 
End If
 119 
End If
120 
 
 120 
 
121 
'----------------------------------------------
 121 
'----------------------------------------------
122 
%>
 122 
%>
123 
<html>
 123 
<html>
124 
<head>
 124 
<head>
125 
<title>Release Manager</title>
 125 
<title>Release Manager</title>
126 
<meta HTTP-EQUIV="Pragma" CONTENT="no-cache">
 126 
<link rel="shortcut icon" href="<%=FavIcon%>"/>
127 
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
 127 
<meta HTTP-EQUIV="Pragma" CONTENT="no-cache">
128 
<link rel="stylesheet" href="images/release_manager_style.css" type="text/css">
 128 
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
129 
<link rel="stylesheet" href="images/navigation.css" type="text/css">
 129 
<link rel="stylesheet" href="images/release_manager_style.css" type="text/css">
130 
<script language="JavaScript" src="images/common.js"></script>
 130 
<link rel="stylesheet" href="images/navigation.css" type="text/css">
131 
 
 131 
<script language="JavaScript" src="images/common.js"></script>
132 
</head>
 132 
 
133 
<body leftmargin="0" topmargin="0" onLoad="FormName.user_name.focus();">
 133 
</head>
134 
<!-- HEADER ++++++++++++++++ -->
 134 
<body leftmargin="0" topmargin="0" onLoad="FormName.user_name.focus();">
135 
<!--#include file="_header.asp"-->
 135 
<!-- HEADER ++++++++++++++++ -->
136 
<!-- +++++++++++++++++++++++ -->
 136 
<!--#include file="_header.asp"-->
137 
<table width="100%"  border="0" cellspacing="0" cellpadding="0">
 137 
<!-- +++++++++++++++++++++++ -->
138 
<form name="FormName" method="post" action="<%=ScriptName%>" >
 138 
<table width="100%"  border="0" cellspacing="0" cellpadding="0">
139 
  <tr>
 139 
<form name="FormName" method="post" action="<%=ScriptName%>" >
140 
    <td bgcolor="#FFFFFF"><img src="images/spacer.gif" width="1" height="42"></td>
 140 
  <tr>
141 
  </tr>
 141 
    <td bgcolor="#FFFFFF"><img src="images/spacer.gif" width="1" height="42"></td>
142 
  <tr>
 142 
  </tr>
143 
    <td align="center" valign="middle" bgcolor="#FFFFFF">
 143 
  <tr>
144 
	<!-- LOGIN FROM ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
 144 
    <td align="center" valign="middle" bgcolor="#FFFFFF">
145 
    <table width="570" border="0" cellspacing="0" cellpadding="0">
 145 
	<!-- LOGIN FROM ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
146 
      <tr>
 146 
    <table width="570" border="0" cellspacing="0" cellpadding="0">
147 
        <td align="right"><a href="<%=ACCESS_MANAGER_URL%>" title="Access Manager Home"><img src="icons/img_auth_by_access_manager.gif" width="103" height="26" hspace="2" vspace="3" border="0"></a></td>
 147 
      <tr>
148 
      </tr>
 148 
        <td align="right"><a href="<%=ACCESS_MANAGER_URL%>" title="Access Manager Home"><img src="icons/img_auth_by_access_manager.gif" width="103" height="26" hspace="2" vspace="3" border="0"></a></td>
149 
    </table>
 149 
      </tr>
150 
      <table width="570" border="0" cellspacing="0" cellpadding="1">
 150 
    </table>
151 
        <tr>
 151 
      <table width="570" border="0" cellspacing="0" cellpadding="1">
152 
          <td background="images/bg_bage_2.gif"><table width="100%"  border="0" cellspacing="0" cellpadding="0">
 152 
        <tr>
153 
            <tr>
 153 
          <td background="images/bg_bage_2.gif"><table width="100%"  border="0" cellspacing="0" cellpadding="0">
154 
              <td bgcolor="#FFFFFF"><table width="100%"  border="0" cellspacing="0" cellpadding="10">
 154 
            <tr>
155 
                <tr>
 155 
              <td bgcolor="#FFFFFF"><table width="100%"  border="0" cellspacing="0" cellpadding="10">
156 
                  <td class="body_txt"><span class="body_h1"><img src="icons/i_user_lrg.gif" width="13" height="17" align="absmiddle">&nbsp;Log In</span> <br>
 156 
                <tr>
157 
      Please enter your Username and Password. <br>
 157 
                  <td class="body_txt"><span class="body_h1"><img src="icons/i_user_lrg.gif" width="13" height="17" align="absmiddle">&nbsp;Log In</span> <br>
158 
      <hr width="100%" size="1" noshade color="#ACA899">
 158 
      Please enter your Username and Password. <br>
159 
      Forgot your <a href="mailto:<%=ADMIN_EMAIL%>?subject=Request for Password Reset" class="body_link">password</a> ? <br>
 159 
      <hr width="100%" size="1" noshade color="#ACA899">
160 
      New Members please <a href="mailto:<%=ADMIN_EMAIL%>?subject=Request for Release Manager Account" class="body_link">Register</a></td>
 160 
      Forgot your <a href="mailto:<%=ADMIN_EMAIL%>?subject=Request for Password Reset" class="body_link">password</a> ? <br>
161 
                </tr>
 161 
      New Members please <a href="mailto:<%=ADMIN_EMAIL%>?subject=Request for Release Manager Account" class="body_link">Register</a></td>
162 
                <tr>
 162 
                </tr>
163 
                  <td align="center" valign="top">
 163 
                <tr>
164 
				  <table width="100"  border="0" cellspacing="2" cellpadding="0">
 164 
                  <td align="center" valign="top">
165 
                      <tr>
 165 
				  <table width="100"  border="0" cellspacing="2" cellpadding="0">
166 
                        <td width="10%" nowrap class="form_iname">Username</td>
 166 
                      <tr>
167 
                        <td width="1%"><input name="user_name" type="text" class="form_item" size="20"></td>
 167 
                        <td width="10%" nowrap class="form_iname">Username</td>
168 
                      </tr>
 168 
                        <td width="1%"><input name="user_name" type="text" class="form_item" size="20"></td>
169 
                      <tr>
 169 
                      </tr>
170 
                        <td nowrap class="form_iname">Password</td>
 170 
                      <tr>
171 
                        <td><input name="user_password" type="password" class="form_item" size="20" <%If objAccessControl.isDevSystem Then Response.write"disabled"%>></td>
 171 
                        <td nowrap class="form_iname">Password</td>
172 
                      </tr>
 172 
                        <td><input name="user_password" type="password" class="form_item" size="20" <%If objAccessControl.isDevSystem Then Response.write"disabled"%>></td>
173 
                      <tr>
 173 
                      </tr>
174 
                        <td nowrap class="form_iname" valign="top">&nbsp;</td>
 174 
                      <tr>
175 
                        <td valign="top">&nbsp;</td>
 175 
                        <td nowrap class="form_iname" valign="top">&nbsp;</td>
176 
                      </tr>
 176 
                        <td valign="top">&nbsp;</td>
177 
                  </table></td>
 177 
                      </tr>
178 
                </tr>
 178 
                  </table></td>
179 
                <tr>
 179 
                </tr>
180 
                  <td background="images/bg_login.gif">
 180 
                <tr>
181 
				  <table width="100%"  border="0" cellspacing="0" cellpadding="0">
 181 
                  <td background="images/bg_login.gif">
182 
                      <tr>
 182 
				  <table width="100%"  border="0" cellspacing="0" cellpadding="0">
183 
                        <td><%=ProgressBar()%></td>
 183 
                      <tr>
184 
                        <td align="right"><input name="btn" type="submit" class="form_btn" value="Login" onclick="MM_validateForm('user_name','Username','R'<%If NOT objAccessControl.isDevSystem Then Response.write",'user_password','Password','R'"%>);return document.MM_returnValue"></td>
 184 
                        <td><%=ProgressBar()%></td>
185 
                      </tr>
 185 
                        <td align="right"><input name="btn" type="submit" class="form_btn" value="Login" onclick="MM_validateForm('user_name','Username','R'<%If NOT objAccessControl.isDevSystem Then Response.write",'user_password','Password','R'"%>);return document.MM_returnValue"></td>
186 
                  </table></td>
 186 
                      </tr>
187 
                </tr>
 187 
                  </table></td>
188 
              </table>
 188 
                </tr>
189 
			  </td>
 189 
              </table>
190 
            </tr>
 190 
			  </td>
191 
          </table></td>
 191 
            </tr>
192 
        </tr>
 192 
          </table></td>
193 
      </table>
 193 
        </tr>
194 
	  <!-- ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
 194 
      </table>
195 
	  </td>
 195 
	  <!-- ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
196 
  </tr>
 196 
	  </td>
197 
  <tr>
 197 
  </tr>
198 
    <td bgcolor="#FFFFFF"><img src="images/spacer.gif" width="1" height="42"></td>
 198 
  <tr>
199 
  </tr>
 199 
    <td bgcolor="#FFFFFF"><img src="images/spacer.gif" width="1" height="42"></td>
200 
<%=objPMod.ComposeHiddenTags()%>
 200 
  </tr>
201 
<input type="hidden" name="action" value="true">
 201 
<%=objPMod.ComposeHiddenTags()%>
202 
</form>
202 
<input type="hidden" name="action" value="true">
203 
</table>
 203 
</form>
204 
<!-- FOOTER ++++++++++++++++++++++ -->
 204 
</table>
205 
<!--#include file="_footer.asp"-->
 205 
<!-- FOOTER ++++++++++++++++++++++ -->
206 
<!-- +++++++++++++++++++++++++++++ -->
 206 
<!--#include file="_footer.asp"-->
207 
</body>
 207 
<!-- +++++++++++++++++++++++++++++ -->
208 
</html>
 208 
</body>
209 
<%
 209 
</html>
210 
'------------ RUN AFTER PAGE RENDER -----------
 210 
<%
211 
Set objPMod = Nothing
 211 
'------------ RUN AFTER PAGE RENDER -----------
212 
'----------------------------------------------
 212 
Set objPMod = Nothing
213 
%>
 213 
'----------------------------------------------
- 
 
 214 
%>
214 
<!--#include file="common/destructor.asp"-->
 215 
<!--#include file="common/destructor.asp"-->
215 

            216