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."); } } }