Subversion Repositories DevTools

Rev

Rev 1284 | Details | Compare with Previous | Last modification | View Log | RSS feed

Rev Author Line No. Line
62 rsolanki 1 
<%@LANGUAGE="VBSCRIPT"%>
2 
<%
3 
'=====================================================
4 
'|                                                   |
5 
'|				          INDEX						 |
6 
'|                                                   |
7 
'=====================================================
8 
%>
9 
<%
10 
Option explicit
11 
Response.Expires = 0
12 
%>
13 
<!--#include file="common/globals.asp"-->
14 
<!--#include file="common/config.asp"-->
15 
<!--#include file="common/common_subs.asp"-->
16 
<%
17 
'------------ VARIABLE DEFINITION -------------
18 
'------------ CONSTANTS DECLARATION -----------
19 
'------------ VARIABLE INIT -------------------
20 
objAccessControl.objOraSession = OraSession	' Create database link for orasession
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 CheckPasswordUpdate ()
39 
 
40 
	If objAccessControl.RequiresPasswordUpdate ( Request("user_name") ) Then
41 
		Session(enumUSER_TEMP_VARIABLE) = Request("user_password")
42 
		Call OpenInWindow ( "UpdatePassword.asp?user_name="& Request("user_name") &"&"& objPMod.ComposeURL() )
43 
	End If
44 
 
45 
End Sub
46 
'----------------------------------------------------------------------------------------------------------------------------------------------
47 
Sub AccessManagerMessage ( nMessage )
48 
	Dim sMessage
49 
	On Error Resume Next
50 
 
51 
	objEH.Try()
52 
		Select Case CInt( nMessage )
53 
			Case 1
54 
				Err.Raise 8, _
55 
					"Application Access Denied !", "Please contact the <a href='mailto:"& ADMIN_EMAIL &"' class='body_link'>Administrator</a> to gain access to this application."
56 
			Case 2
57 
				Err.Raise 8, _
58 
					"Page Access Denied !", "Please contact the <a href='mailto:"& ADMIN_EMAIL &"' class='body_link'>Administrator</a> to gain access to this page."
59 
			Case 3
60 
				Err.Raise 8, _
61 
					"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."
4012 dpurdie 62 
 
63 
			Case 4
64 
				Err.Raise 8, _
65 
					"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 
 
62 rsolanki 67 
		End Select
68 
	objEH.Catch()
69 
 
70 
End Sub
71 
'----------------------------------------------------------------------------------------------------------------------------------------------
72 
%>
73 
<%
74 
'------------ RUN BEFORE PAGE RENDER ----------
75 
objPMod.PersistInQryString ( aPersistList )
76 
 
77 
' --- RUN onPostBack ---
78 
If CBool(Request("action")) Then
79 
 
80 
	' Try to check for password update
81 
	If Request("cpassword") = "" Then
82 
		Call CheckPasswordUpdate ()
83 
	End If
84 
 
85 
	Call Logon ()
86 
 
87 
	If objEH.Finally Then
88 
		If Request("rfile") <> "" Then
89 
			Call OpenInWindow ( Request("rfile") &"?LOGIN=ok"& objPMod.ComposeURLWithout("rfile") )
90 
		Else
91 
			Call OpenInWindow ( "Default.asp" )
92 
		End If
93 
 
94 
 
95 
	End If
96 
End If
97 
 
98 
Call AccessManagerMessage( Request("message") )
99 
'----------------------------------------------
100 
%>
101 
<html>
102 
<head>
103 
<title>Production Manager</title>
104 
<meta HTTP-EQUIV="Pragma" CONTENT="no-cache">
105 
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
106 
<link href="scripts/deployment_manager.css" rel="stylesheet" type="text/css">
107 
<script language="JavaScript" src="scripts/common.js"></script>
108 
 
109 
</head>
110 
<body background="images/bg_lightgreen.gif" leftmargin="0" topmargin="0" onLoad="FormName.user_name.focus();">
111 
<!-- HEADER ++++++++++++++++ -->
112 
<!--#include file="_header.asp"-->
113 
<!-- +++++++++++++++++++++++ -->
114 
<table width="100%"  border="0" cellspacing="0" cellpadding="0">
115 
<form name="FormName" method="post" action="<%=SCRIPT_NAME%>" >
116 
  <tr>
117 
    <td bgcolor="#FFFFFF"><img src="images/spacer.gif" width="1" height="42"></td>
118 
  </tr>
119 
  <tr>
120 
    <td align="center" valign="middle" bgcolor="#FFFFFF">
121 
	<!-- LOGIN FROM ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
122 
    <table width="570" border="0" cellspacing="0" cellpadding="0">
123 
      <tr>
124 
        <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>
125 
      </tr>
126 
    </table>
127 
      <table width="570" border="0" cellspacing="0" cellpadding="1">
128 
        <tr>
129 
          <td background="images/bg_bage_2.gif"><table width="100%"  border="0" cellspacing="0" cellpadding="0">
130 
            <tr>
131 
              <td background="images/bg_form.gif"><table width="100%"  border="0" cellspacing="0" cellpadding="10">
132 
                <tr>
133 
                  <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>
134 
      Please enter your Username and Password. <br>
135 
      <hr width="100%" size="1" noshade color="#ACA899">
4012 dpurdie 136 
      Forgot your <a href="mailto:<%=ADMIN_EMAIL%>?subject=Request for Password Reset" class="body_link">password</a> ? <br>
137 
      New Members please <a href="mailto:<%=ADMIN_EMAIL%>?subject=Request for Production Manager Account" class="body_link">Register</a></td>
62 rsolanki 138 
                </tr>
139 
                <tr>
140 
                  <td align="center" valign="top">
141 
				  <table width="100"  border="0" cellspacing="2" cellpadding="0">
142 
                      <tr>
143 
                        <td width="10%" nowrap class="form_iname">Username</td>
144 
                        <td width="1%"><input name="user_name" type="text" class="form_ivalue" size="20"></td>
145 
                      </tr>
146 
                      <tr>
147 
                        <td nowrap class="form_iname">Password</td>
4012 dpurdie 148 
                        <td><input name="user_password" type="password" class="form_ivalue" size="20" <%If objAccessControl.isDevSystem Then Response.write"disabled"%>></td>
62 rsolanki 149 
                      </tr>
150 
                      <tr>
151 
                        <td nowrap class="form_iname" valign="top">&nbsp;</td>
152 
                        <td valign="top">&nbsp;</td>
153 
                      </tr>
154 
                  </table></td>
155 
                </tr>
156 
                <tr>
157 
                  <td background="images/bg_login.gif">
158 
				  <table width="100%"  border="0" cellspacing="0" cellpadding="0">
159 
                      <tr>
160 
                        <td><%=ProgressBar()%></td>
161 
                        <td align="right"><input name="btn" type="submit" class="form_btn" value="Login"></td>
162 
                      </tr>
163 
                  </table></td>
164 
                </tr>
165 
              </table>
166 
			  </td>
167 
            </tr>
168 
          </table></td>
169 
        </tr>
170 
      </table>
171 
	  <!-- ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
172 
	  </td>
173 
  </tr>
174 
  <tr>
175 
    <td bgcolor="#FFFFFF"><img src="images/spacer.gif" width="1" height="42"></td>
176 
  </tr>
177 
<%=objPMod.ComposeHiddenTags()%>
178 
<input type="hidden" name="action" value="true">
179 
</form>
180 
</table>
181 
<!-- FOOTER ++++++++++++++++++++++ -->
182 
<!--#include file="_footer.asp"-->
183 
<!-- +++++++++++++++++++++++++++++ -->
184 
</body>
185 
</html>
186 
<%
187 
'------------ RUN AFTER PAGE RENDER -----------
188 
Set objPMod = Nothing
189 
'----------------------------------------------
190 
%>
191 
<!--#include file="common/globals_destructor.asp"-->