Unnamed

sub message_public {
	my ($server, $msg, $nick, $address, $target) = @_;
	return unless $enabledin{lc $server->{'chatnet'}}->{lc $target};
	if ($msg =~ /^(!lostintrans(?:lation)?|!lit)\b ?(.+)?/io) {
		my ($cmd, $opts) = (lc $1, $2);
		if ($opts) {
			my $text = $opts;
			if ($text =~ s/^-google //) {
				$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);
			} else {
				$text = babeltrans('en', 'fr', $text);
				$text = babeltrans('fr', 'en', $text);
				$text = babeltrans('en', 'de', $text);
				$text = babeltrans('de', 'en', $text);
				$text = babeltrans('en', 'it', $text);
				$text = babeltrans('it', 'en', $text);
				$text = babeltrans('en', 'pt', $text);
				$text = babeltrans('pt', 'en', $text);
				$text = babeltrans('en', 'es', $text);
				$text = babeltrans('es', 'en', $text);
			}
			unless ($text) {
				sendToChannel($server, $target, "Error in translation");
				return;
			}
			sendToChannel($server, $target, "Result: $text");
		} else {
			sendToChannel($server, $target, "\x02Usage\x02: \x0310$cmd [-google] text to lose in translation\x03 If -google is specified, it will use Google translator instead of BabelFish.");
		}
	}
}