Listing 7: login-form.html Login form

Login form

% if ($user_info) {

You are currently logged in as <% $user_info->{username} %>. Do you really want to log in as someone else?

% }
Username:
Password:
<%once> my $dbh; <%init> $dbh = $m->comp("database-connect.comp"); my $user_info = $m->comp("get-user-info.comp" user_id => $session{user_id});