Welcome back, <% $user_info->{username} %>!
% } else {Either your password was wrong, or no such user exists.
% } <%once> my ($dbh, $sql, $sth, $result, $user_id, $user_info); <\n> <%init> $dbh = $m->comp("database-connect.comp"); $sql = "SELECT user_id "; $sql .= "FROM Users "; $sql .= "WHERE username = ? "; $sql .= "AND password = ? "; $sth = $dbh->prepare($sql) || die qq{Error preparing "$sql": $DBI::errstr}; $result = $sth->execute($username, $password) || die qq{Error preparing "$sql": $DBI::errstr}; # Get the user ID ($user_id) = $sth->fetchrow_array; # Set the user ID for this session $session{user_id} = $user_id; # Now get information about the user $user_info = $m->comp("get-user-info.comp", user_id => $user_id); <%args> $username $password