sub upercase { my ($bot, $self, $user, $msg) = @_;
my $user_settings = $bot->{users}->{$user}; my $msn = $bot->{msn}; my $settings = $bot->{settings};
# Make sure we have a string to make uppercase. if ($msg) { $reply = "Result: " . uc($msg); } else { $reply = "This command is used to uppercase a string.\n\n" . "!upercase HeLlO wOrLd!"; }
return $reply; }
};
Have you tested that code? There's a lone } there all by itself.
Code:
sub upercase <br />{<br /> my ($bot, $self, $user, $msg) = @_;<br /><br /> my $user_settings = $bot->{users}->{$user};<br /> my $msn = $bot->{msn};<br /> my $settings = $bot->{settings};<br /><br /># Make sure we have a string to make uppercase.<br />if ($msg) {<br /> $reply = "Result: " . uc($msg);<br />}<br />else {<br /> $reply = "This command is used to uppercase a string.\n\n"<br /> . "!upercase HeLlO wOrLd!";<br />}<br /><br />return $reply;<br />}<br /><br />{<br /> Category => "fun",<br />};
That's a little bit better. _________________ Current Site (2008) http://www.cuvou.com/
well.. seeing as this is very very pointless.. but also useful, i will make it nicer one command called case P.S It isnt tested becase i did it at school and dont have active perl installed
Code:
<br />sub case<br />{<br /> my ($bot,$self,$user,$msg);<br /> $self->{settings}->{callback} = "case";<br /> if ($msg eq '')<br /> {<br /> $self->{settings}->{doing} = "pick";<br /> return "Please pick which case you would like to change your text to.\n\n1.) Upper\n2.) Lower";<br /> }<br /> elsif ($self->{settings}->{doing} eq "pick")<br /> {<br /> if ($msg =~ /^(1|upper)$/i)<br /> {<br /> $self->{settings}->{doing} = "upper";<br /> return "Please enter the string you want to be converted to uppercase.";<br /> }<br /> elsif ($msg =~ /^(2|lower)$/i)<br /> {<br /> $self->{settings}->{doing} = "lower";<br /> return "Please enter the string you want to be converted to lowercase.";<br /> }<br /> else<br /> {<br /> delete $self->{settings}->{doing};<br /> return "Incorrect Usage!";<br /> }<br /> }<br /> elsif ($self->{settings}->{doing} eq "upper")<br /> {<br /> delete $self->{settings}->{doing};<br /> $self->{settings}->{callback} = ";<br /> $msg = uc($msg);<br /> return "$msg";<br /> }<br /> elsif ($self->{settings}->{doing} eq "lower")<br /> {<br /> delete $self->{settings}->{doing};<br /> $self->{settings}->{callback} = ";<br /> $msg = lc($msg);<br /> return "$msg";<br /> }<br /> else<br /> {<br /> delete $self->{settings}->{doing} if exists $self-->{settings}->{doing};<br /> $self->{settings}->{callback} = ";<br /> return "Incorrect Usage!";<br /> }<br />}<br /><br />{<br /> Category => 'Utilities',<br /> Usage => 'case',<br /> Description => 'Convert a string to either upper case or lower case.',<br />};<br />
User Control Panel
...
