<& /form.comp, title => 'Login', action => $action, inputs => $inputs, message => $message{$msg}, submit => 'Login' &> <%init> 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 password was incorrect. $pta", disabled => "$err Your account has been temporarily disabled. $sorry" ); my $inputs = [ {name => 'uid', prompt => 'Your Login ID:', type => 'text'}, {name => 'pw', prompt => 'Your Password:', type => 'password'} ]; my $action = "https://lysander.acme.com/authen?url=$url"; <%args> $msg => undef $url => undef