1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
|
#!/usr/bin/perl -w
# --
# login.pl - a simple external login page for OTRS
# Copyright (C) 2002 Martin Edenhofer <martin+code@otrs.org>
# --
# $Id: login.pl,v 1.2 2002/09/01 13:03:26 martin Exp $
# --
# This program is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
# the Free Software Foundation; either version 2 of the License, or
# (at your option) any later version.
#
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
# GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public License
# along with this program; if not, write to the Free Software
# Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
# --
use strict;
# to get the errors on screen
use CGI::Carp qw(fatalsToBrowser);
# Simple Common Gateway Interface Class
use CGI;
my $CGI = new CGI;
# --
# config options
# --
my $OTRSLocation = 'http://otrs.example.com/otrs/index.pl';
my $RequestedURL = $CGI->param('RequestedURL') || '';
my $User = $CGI->param('User') || '';
my $Reason = $CGI->param('Reason') || '';
# --
# reason param translation
# --
my $ReasonTranslation = {
SystemError => 'System error! Contact your admin!',
LoginFailed => 'Login failed! Your username or password was entered incorrectly.',
Logout => 'Logout successful. Thank you for using OTRS!',
InvalidSessionID => 'Invalid SessionID!',
'' => '',
};
# --
# html page
# --
print "Content-Type: text/html
<html>
<head>
<title>login page</title>
</head>
<body>
<h1>login page</h1>
<p>
<font color='red'>$ReasonTranslation->{$Reason}</font>
</p>
<form action='$OTRSLocation' method='get' enctype='application/x-www-form-urlencoded'>
<input type='hidden' name='Action' value='Login'>
<input type='hidden' name='RequestedURL' value='$RequestedURL'>
<table cellspacing='8' cellpadding='2'>
<tr>
<td>Username:</td>
<td><input type='text' name='User' value='$User' size='18'></td>
</tr>
<tr>
<td>Password:</td>
<td><input type='password' name='Password' size='18'></td>
</tr>
</table>
<input type='submit' value='Login'>
</form>
</body>
</html>
";
|
