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 
 
98 
End If
99 
 
100 
Call AccessManagerMessage( Request("message") )
101 
'----------------------------------------------
102 
%>
103 
<html>
104 
<head>
105 
<title>Release Manager</title>
106 
<meta HTTP-EQUIV="Pragma" CONTENT="no-cache">
107 
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
108 
<link rel="stylesheet" href="images/release_manager_style.css" type="text/css">
109 
<link rel="stylesheet" href="images/navigation.css" type="text/css">
110 
<script language="JavaScript" src="images/common.js"></script>
111 
 
112 
</head>
113 
<body leftmargin="0" topmargin="0" onLoad="FormName.user_name.focus();">
114 
<!-- HEADER ++++++++++++++++ -->
2365 dpurdie 115 
<!--#include file="_header.asp"-->
119 ghuddy 116 
<!-- +++++++++++++++++++++++ -->
117 
<table width="100%"  border="0" cellspacing="0" cellpadding="0">
118 
<form name="FormName" method="post" action="<%=ScriptName%>" >
119 
  <tr>
120 
    <td bgcolor="#FFFFFF"><img src="images/spacer.gif" width="1" height="42"></td>
121 
  </tr>
122 
  <tr>
123 
    <td align="center" valign="middle" bgcolor="#FFFFFF">
124 
	<!-- LOGIN FROM ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
125 
    <table width="570" border="0" cellspacing="0" cellpadding="0">
126 
      <tr>
127 
        <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>
128 
      </tr>
129 
    </table>
130 
      <table width="570" border="0" cellspacing="0" cellpadding="1">
131 
        <tr>
132 
          <td background="images/bg_bage_2.gif"><table width="100%"  border="0" cellspacing="0" cellpadding="0">
133 
            <tr>
134 
              <td bgcolor="#FFFFFF"><table width="100%"  border="0" cellspacing="0" cellpadding="10">
135 
                <tr>
136 
                  <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>
137 
      Please enter your Username and Password. <br>
138 
      <hr width="100%" size="1" noshade color="#ACA899">
139 
      Forgot your <a href="mailto:<%=ADMIN_EMAIL%>?subject=Request for Password Reset" class="body_link">password</a> ? <br>
140 
      New Members please <a href="mailto:<%=ADMIN_EMAIL%>?subject=Request for Release Manager Account" class="body_link">Register</a></td>
141 
                </tr>
142 
                <tr>
143 
                  <td align="center" valign="top">
144 
				  <table width="100"  border="0" cellspacing="2" cellpadding="0">
145 
                      <tr>
146 
                        <td width="10%" nowrap class="form_iname">Username</td>
147 
                        <td width="1%"><input name="user_name" type="text" class="form_ivalue" size="20"></td>
148 
                      </tr>
149 
                      <tr>
150 
                        <td nowrap class="form_iname">Password</td>
151 
                        <td><input name="user_password" type="password" class="form_ivalue" size="20"></td>
152 
                      </tr>
153 
                      <tr>
154 
                        <td nowrap class="form_iname" valign="top">&nbsp;</td>
155 
                        <td valign="top">&nbsp;</td>
156 
                      </tr>
157 
                  </table></td>
158 
                </tr>
159 
                <tr>
160 
                  <td background="images/bg_login.gif">
161 
				  <table width="100%"  border="0" cellspacing="0" cellpadding="0">
162 
                      <tr>
163 
                        <td><%=ProgressBar()%></td>
164 
                        <td align="right"><input name="btn" type="submit" class="form_btn" value="Login"></td>
165 
                      </tr>
166 
                  </table></td>
167 
                </tr>
168 
              </table>
169 
			  </td>
170 
            </tr>
171 
          </table></td>
172 
        </tr>
173 
      </table>
174 
	  <!-- ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
175 
	  </td>
176 
  </tr>
177 
  <tr>
178 
    <td bgcolor="#FFFFFF"><img src="images/spacer.gif" width="1" height="42"></td>
179 
  </tr>
180 
<%=objPMod.ComposeHiddenTags()%>
181 
<input type="hidden" name="action" value="true">
182 
</form>
183 
</table>
184 
<!-- FOOTER ++++++++++++++++++++++ -->
185 
<!--#include file="_footer.asp"-->
186 
<!-- +++++++++++++++++++++++++++++ -->
187 
</body>
188 
</html>
189 
<%
190 
'------------ RUN AFTER PAGE RENDER -----------
191 
Set objPMod = Nothing
192 
'----------------------------------------------
193 
%>
194 
<!--#include file="common/destructor.asp"-->