Subversion Repositories DevTools

Rev

Details | Last modification | View Log | RSS feed

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