| Current File : //var/wcp4/mycath2o/public_html/file/file/private/templates.old/compiled/login_form.html.compiled |
# This file is a compiled version of a template that can be run much faster
# than reparsing the file, yet accomplishes the same thing. You should not
# attempt to modify this file as any changes you make would be lost as soon as
# the original template file is modified.
# Generated: Sun Jul 20 14:38:19 2003
# Editor: vim:syn=perl
local $^W;
{
parse_date => 1058683099,
deps => [],
parser_version => 2.078,
file_type => 'REL',
code => \>::Template::parsed_template
};
sub GT::Template::parsed_template {
local $^W; # Get rid of warnings. unfortunately, this won't work for Perl 5.6's -W switch
my $self = shift;
my $return = '';
my $escape = $self->{opt}->{escape};
my $strict = $self->{opt}->{strict};
my $tmp;
$return .= q{<html>
<head>
<title>File Manager - Login Form</title>
<link rel="stylesheet" href="};
$return .= $tmp if defined($tmp = $self->_get_var(q{html_url}, $escape, $strict));
$return .= q{/};
$return .= $tmp if defined($tmp = $self->_get_var(q{scheme}, $escape, $strict));
$return .= q{.css">
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body class="bg_main" onload='document.frmlogin.password.focus()'>
<form action='./' method=post name=frmlogin target="_top">
<table height=70% width=100%>
<tr><td valign=middle align=center>
<table width="400" border="1" cellspacing="0" cellpadding="0" align="center" class="bg_window">
<tr>
<td>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr bgcolor="#000066" class="header_format">
<td><font face=arial size=2 color=white><b>Login form</b></font></td>
</tr>
<tr>
<td align=center><br>
<font face=arial size=2>};
if ($self->_get_var(q{msg}, 0, 0)) {
$return .= $tmp if defined($tmp = $self->_get_var(q{msg}, $escape, $strict));
}
else {
$return .= q{Welcome!! Please enter Username and Password.};
}
$return .= q{</font>
<table border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td><font face=arial size=2>User name: </font></td>
<td>
<input type="text" name="username" value="};
if ($self->_get_var(q{username}, 0, 0)) {
$return .= $tmp if defined($tmp = $self->_get_var(q{username}, $escape, $strict));
}
$return .= q{" class='button'>
</td>
</tr>
<tr>
<td><font face=arial size=2>Password: </font></td>
<td>
<input type="password" name="password" class='button'>
</td>
</tr>
<tr>
<td colspan="2">
<div align="center"><BR>
<input type="submit" name="login" value="Submit" class='submit'>
</div>
</td>
</tr>
</table>
<br>
</td>
</tr>
</table>
</td>
</tr>
</table>
</td></tr>
</table>
<input name=login type=hidden value="1">
</form>
</body>
</html>
};
return \$return;
}