package WebGUI::Macro::CaseWord;

use strict;
use WebGUI::Macro;
use WebGUI::Session;

#-------------------------------------------------------------------
sub process {
    my $argv = $_[0];
    my @param = WebGUI::Macro::getParams($argv);
	
	my $lcParam = lc($param[1]);
	
	if($lcParam eq "u") {
	  return uc($param[0]);
	} elsif ($lcParam eq "l") {
	  return lc($param[0]);
	} elsif ($lcParam eq "uf") {
	  return ucfirst($param[0]);
	} elsif ($lcParam eq "lf") {
	  return lcfirst($param[0]);
	}
	
	return($param[0]);
}

1;