<& /form.comp, title => 'Login', action => $action, inputs => $inputs, message => "$welcome

\n$message{$msg}", submit => 'Login' &> <%init> my $welcome = "Welcome, user '$uid'."; my $pta = 'Please try again.'; my $sorry = 'Please contact the system administrator.'; my $err = 'An Error Occurred.

'; my $noerr = 'Logging in.

'; my %message = ( empty => "$err One or more required fields contained no data. $pta", unknown => "$err Unknown user. $pta", again => "$err The supplied PIN code was incorrect. $pta", disabled => "$err Your account has been temporarily disabled. $sorry" ); my $inputs = [ {name => 'pin', prompt => 'Your PIN Code:', type => 'password'} ]; my $action = "https://john.sec.acme.com/authen?url=$url"; <%args> $uid => undef $msg => undef $url => undef