Subversion Repositories DevTools

Rev

Rev 6827 | 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">
6579 dpurdie 113 
<link rel="stylesheet" href="images/release_manager_style.css?ver=<%=VixVerNum%>" type="text/css">
114 
<link rel="stylesheet" href="images/navigation.css?ver=<%=VixVerNum%>" type="text/css">
115 
<script language="JavaScript" src="images/common.js?ver=<%=VixVerNum%>"></script>
6048 dpurdie 116 
<!--#include file="_jquery_includes.asp"-->
6576 dpurdie 117 
<script type="text/javascript">
118 
    //Clear any session cookies
119 
    (function(){
120 
        var cookiesArr = document.cookie.split("; ");
121 
        for (var i = 0; i < cookiesArr.length; i++) {
122 
            var cItem = cookiesArr[i].split("=");
123 
            if (cItem.length > 0 && cItem[0].indexOf("ASPSESSIONID") == 0) {
124 
                deleteCookie(cItem[0]);
125 
            }
126 
        }
127 
 
128 
        function deleteCookie(name) {
129 
            var expDate = new Date();
130 
            expDate.setTime(expDate.getTime() - 86400000); //-1 day
131 
            var value = "; expires=" + expDate.toGMTString() + ";path=/";
132 
            document.cookie = name + "=" + value;
133 
        }
134 
    })();
135 
</script>
5357 dpurdie 136 
</head>
137 
<body leftmargin="0" topmargin="0" onLoad="FormName.user_name.focus();">
138 
<!-- HEADER ++++++++++++++++ -->
139 
<!--#include file="_header.asp"-->
140 
<!-- +++++++++++++++++++++++ -->
141 
<table width="100%"  border="0" cellspacing="0" cellpadding="0">
142 
<form name="FormName" method="post" action="<%=ScriptName%>" >
143 
  <tr>
144 
    <td bgcolor="#FFFFFF"><img src="images/spacer.gif" width="1" height="42"></td>
145 
  </tr>
146 
  <tr>
147 
    <td align="center" valign="middle" bgcolor="#FFFFFF">
148 
	<!-- LOGIN FROM ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
149 
    <table width="570" border="0" cellspacing="0" cellpadding="0">
150 
      <tr>
6052 dpurdie 151 
        <td align="right">
152 
            <a href="<%=ACCESS_MANAGER_URL%>" title="Access Manager Home">
153 
                <img src="icons/img_auth_by_access_manager.gif" width="103" height="26" hspace="2" vspace="3" border="0">
154 
            </a>
155 
        </td>
5357 dpurdie 156 
      </tr>
157 
    </table>
158 
      <table width="570" border="0" cellspacing="0" cellpadding="1">
159 
        <tr>
7288 dpurdie 160 
          <td background="images/bg_bage_2.gif">
161 
			<table width="100%"  border="0" cellspacing="0" cellpadding="0" style="position:relative;">
5357 dpurdie 162 
            <tr>
163 
              <td bgcolor="#FFFFFF"><table width="100%"  border="0" cellspacing="0" cellpadding="10">
7288 dpurdie 164 
				<div id='divProgressBar' class='vixSpinner' style='visibility:hidden;'></div>
5357 dpurdie 165 
                <tr>
6048 dpurdie 166 
                  <td class="body_txt"><span class="body_h1">
167 
                    <img src="icons/i_user_lrg.gif" width="13" height="17" align="absmiddle">
168 
                    &nbsp;Log In</span> <br>
169 
                    Please enter your Username and Password. <br>
170 
                    <hr width="100%" size="1" noshade color="#ACA899">
6827 dpurdie 171 
                    Forgot your <span onclick="MM_openVixIFrame('_wform_lost_password.asp', 'Lost Password');" class="body_link pointer">password</span> ? <br>
172 
                    <span onclick="MM_openVixIFrame('_wform_new_members.asp', 'New Members');" class="body_link pointer">New Members</span></td>
5357 dpurdie 173 
                </tr>
174 
                <tr>
175 
                  <td align="center" valign="top">
176 
				  <table width="100"  border="0" cellspacing="2" cellpadding="0">
177 
                      <tr>
178 
                        <td width="10%" nowrap class="form_iname">Username</td>
179 
                        <td width="1%"><input name="user_name" type="text" class="form_item" size="20"></td>
180 
                      </tr>
181 
                      <tr>
182 
                        <td nowrap class="form_iname">Password</td>
183 
                        <td><input name="user_password" type="password" class="form_item" size="20" <%If objAccessControl.isDevSystem Then Response.write"disabled"%>></td>
184 
                      </tr>
185 
                      <tr>
186 
                        <td nowrap class="form_iname" valign="top">&nbsp;</td>
187 
                        <td valign="top">&nbsp;</td>
188 
                      </tr>
189 
                  </table></td>
190 
                </tr>
191 
                <tr>
192 
                  <td background="images/bg_login.gif">
193 
				  <table width="100%"  border="0" cellspacing="0" cellpadding="0">
194 
                      <tr>
6052 dpurdie 195 
                        <td align="right">
196 
                            <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 197 
                      </tr>
198 
                  </table></td>
199 
                </tr>
200 
              </table>
201 
			  </td>
202 
            </tr>
203 
          </table></td>
204 
        </tr>
205 
      </table>
206 
	  <!-- ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
207 
	  </td>
208 
  </tr>
209 
  <tr>
7288 dpurdie 210 
    <td bgcolor="#FFFFFF">
211 
		<img src="images/spacer.gif" width="1" height="42">
212 
	</td>
5357 dpurdie 213 
  </tr>
214 
<%=objPMod.ComposeHiddenTags()%>
215 
<input type="hidden" name="action" value="true">
216 
</form>
217 
</table>
5957 dpurdie 218 
<!-- FOOTER -->
5357 dpurdie 219 
<!--#include file="_footer.asp"-->
220 
</body>
221 
</html>