Help for this page

Select Code to Download


  1. or download this
    my $book = MyPackage->new( # stuff );
  2. or download this
    my $book = MyPackage->new( # stuff );
print CGI::redirect(-uri=>"login.cgi?msg=$book->{error_msg}")
   unless $book->{login_successful};
  3. or download this
    print CGI::redirect(-uri=>"login.cgi?msg=$book->{no_access}")
  if $book->{user_access_level} < $book->{required_access_level};