in reply to Re^2: Error Message
in thread Error Message
my @colors = qw/ cyan megantha yellow pink Red Green blue cyan meganth +a yellow orange /; my $font = 'Euclid fraktur'; print "<br><br><H1 align='center'><b>"; foreach my $letter ( split //, 'PERL MODULES' ){ do { print $letter; next; } if $letter = ' '; # special case of s +pace printf "<font face='%s' color='%s'>%s</font>", $font, $colors[0], $l +etter; push @colors, shift @colors; # rotate the colors } print "</b></H1>";
$message = ''; if( $login_form_submitted ){ check user and pass params if ok redirect to main page else $message = 'login failed' end } print login form here, including $message if it is set
|
|---|
| Replies are listed 'Best First'. | |
|---|---|
|
Re^4: Error Message
by Samy_rio (Vicar) on Jul 05, 2005 at 04:49 UTC |