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
|
<%
# process user login
my $error;
my $user = $Form->{'user'};
if(defined $user) {
$user =~ /^\w+$/ or $error =
"Your username must made of only letter and numbers";
length($user) > 3 or $error =
"Your username much be at least 4 character long";
unless($error) {
$Session->{user} = $user;
$Response->Redirect('bookmarks.asp');
}
}
$user ||= $Session->{user};
%>
Hello, and welcome to the MyBookmarks Apache::ASP demo application.
To begin your bookmark experience, please login now:
<center>
<% if($error) { %>
<p><b><font color=red size=-1>* <%=$error%></font></b>
<% } %>
<form src=<%=$Basename%> method=POST>
<input type=text name=user value="<%=$Server->HTMLEncode($user)%>">
<input type=submit value=Login>
</form>
</center>
This demo makes use of the Apache::ASP objects, especially
<tt>$Session</tt> and <tt>$Response</tt>, modularizes html
via SSI file includes, and uses the <tt>Script_OnStart</tt>
and <tt>Script_OnEnd</tt> event hooks to
simplify common tasks done for each script in this web
application.
|
