Subversion Repositories DevTools

Rev

Rev 6048 | Rev 6576 | Go to most recent revision | Details | Compare with Previous | Last modification | View Log | RSS feed

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