Anonymous

sub message_public {
	my ($server, $msg, $nick, $address, $target) = @_;
	return unless $enabledin{lc $server->{'chatnet'}}->{lc $target};
	if ($msg =~ /^(!lostintrans(?:lation)?|!lit)\b ?(.+)?/i) {
		my ($cmd, $opts) = (lc $1, $2);
		if ($opts) {
			my $text = $opts;
			$text = translate('en', 'fr', $text);
			$text = translate('fr', 'en', $text);
			$text = translate('en', 'de', $text);
			$text = translate('de', 'en', $text);
			$text = translate('en', 'it', $text);
			$text = translate('it', 'en', $text);
			$text = translate('en', 'pt', $text);
			$text = translate('pt', 'en', $text);
			$text = translate('en', 'es', $text);
			$text = translate('es', 'en', $text);
			unless ($text) {
				sendToChannel($server, $target, "Error in translation");
				return;
			}
			sendToChannel($server, $target, "Result: $text");
		} else {
			sendToChannel($server, $target, "\x02Usage\x02: $cmd text to lose in translation");
		}
	}
}