Help for this page

Select Code to Download


  1. or download this
     
switch: { 
warn("manage_users.cgi line 54 '$action'");
...
        manageusers::OpenConnection();
        } 
 }
  2. or download this
    my $q = new CGI::Switch;
  3. or download this
    use Switch;

...
        case (\&sub)    { print "arg to subroutine" }
        else            { print "previous case not true" }
    }