#!/usr/bin/perl -Tw use CGI; use CGI::Carp qw( fatalsToBrowser ); use strict; my $cgi = CGI->new(); my $mode = $cgi->param('mode'); my $action = get_action( $cgi ); my $date = scalar localtime(); print $cgi->header(); print < Test Three: ( $action : $mode )




EndHTML sub get_action { my $cgi = shift; my $action; my @actions = qw( view invite leave ); TRY: for my $try ( @actions ) { if ( $cgi->param("$try.x") || $cgi->param("$try.y") ) { $action = $try; last TRY; } } $action; }