# WARN: this file does not reload on HUP.
#
-if (&IsParam("useStrict")) { use strict; }
+#use strict;
-$babel_lang_regex = "fr|sp|po|pt|it|ge|de|gr|en";
+$babel_lang_regex = "fr|sp|es|po|pt|it|ge|de|gr|en|zh|ja|jp|ko|kr|ru";
### COMMAND HOOK IMPLEMENTATION.
# addCmdHook("SECTION", 'TEXT_HOOK',
}
if ($hash{NoArgs} and $flatarg) {
- &DEBUG("cmd $ident does not take args; skipping.");
+ &DEBUG("cmd $ident does not take args ('$flatarg'); skipping.");
next;
}
&addCmdHook("extra", 'slashdot', ('CODEREF' => 'Slashdot::Slashdot',
'Identifier' => 'slashdot', 'Forker' => 1,
'Cmdstats' => 'Slashdot') );
+&addCmdHook("extra", 'plug', ('CODEREF' => 'Plug::Plug',
+ 'Identifier' => 'plug', 'Forker' => 1,
+ 'Cmdstats' => 'Plug') );
&addCmdHook("extra", 'uptime', ('CODEREF' => 'uptime', 'Identifier' => 'uptime',
'Cmdstats' => 'Uptime') );
&addCmdHook("extra", 'nullski', ('CODEREF' => 'nullski', ) );
'Identifier' => 'freshmeat', 'Cmdstats' => 'Freshmeat',
'Forker' => 1, 'Help' => 'freshmeat') );
&addCmdHook("extra", 'verstats', ('CODEREF' => 'do_verstats' ) );
+&addCmdHook("extra", 'weather', ('CODEREF' => 'Weather::Weather',
+ 'Identifier' => 'weather', 'Help' => 'weather',
+ 'Cmdstats' => 'Weather') );
+&addCmdHook("extra", 'bzflist', ('CODEREF' => 'BZFlag::list',
+ 'Identifier' => 'bzflag', 'Cmdstats' => 'BZFlag',
+ 'Forker' => 1) );
+&addCmdHook("extra", 'bzfquery', ('CODEREF' => 'BZFlag::query',
+ 'Identifier' => 'bzflag', 'Cmdstats' => 'BZFlag',
+ 'Forker' => 1, 'Help' => 'bzflag') );
+&addCmdHook("extra", 'zfi', ('CODEREF' => 'zfi::query',
+ 'Identifier' => 'zfi', 'Cmdstats' => 'zfi',
+ 'Forker' => 1) );
+&addCmdHook("extra", 'zsi', ('CODEREF' => 'zsi::query',
+ 'Identifier' => 'zsi', 'Cmdstats' => 'zsi',
+ 'Forker' => 1) );
###
### END OF ADDING HOOKS.
^\s*
(?:babel(?:fish)?|x|xlate|translate)
\s+
- (to|from) # direction of translation (through)
+ ($babel_lang_regex)\w* # from language?
\s+
- ($babel_lang_regex)\w* # which language?
+ ($babel_lang_regex)\w* # to language?
\s*
(.+) # The phrase to be translated
}xoi) {
$itc =~ s/([^\w\s])/\\$1/g;
my $z = join '|', split ' ', $itc;
+ if ($msgType eq "privmsg" and $message =~ / ($mask{chan})$/) {
+ &DEBUG("ircTC: privmsg detected; chan = $1");
+ $chan = $1;
+ }
+
if ($message =~ /^_stats(\s+(\S+))$/i) {
&textstats_main($2);
return;
}
}
my $topstr = "";
- &DEBUG("tp => $tp");
+ &DEBUG("*stats: tp => $tp");
if (scalar @top) {
$topstr = ". Top ".scalar(@top).": ".join(', ', @top);
}
$reply .= ". Started the scan ".&Time2String(time() - $wingaterun)." ago";
}
- &performStrictReply("$reply.");
+ &pSReply("$reply.");
return;
}
# seen.
sub seen {
- my($person) = @_;
+ my($person) = lc shift;
+ $person =~ s/\?*$//;
+
+ if (&whatInterface() !~ /IRC/) {
+ &status("seen disabled in CLI.");
+ return;
+ }
if (!defined $person or $person =~ /^$/) {
&help("seen");
}
my @seen;
- $person =~ s/\?*$//;
&seenFlush(); # very evil hack. oh well, better safe than sorry.
}
}
- my $line = &getRandomLineFromFile($bot_misc_dir. "/blootbot.lart");
+ my $line = &getRandomLineFromFile($bot_data_dir. "/blootbot.lart");
if (defined $line) {
if ($target =~ /^(me|you|itself|\Q$ident\E)$/i) {
$line =~ s/WHO/$who/g;
}
sub DebianNew {
- my $idx = "debian/Packages-woody.idx";
+ my $idx = "debian/Packages-sid.idx";
my $error = 0;
my %pkg;
my @new;
$error++ unless ( -e "$idx-old");
if ($error) {
- $error = "no woody/woody-old index file found.";
+ $error = "no sid/sid-old index file found.";
&ERROR("Debian: $error");
&msg($who, $error);
return;
next if (/^\*/);
next if (exists $pkg{$_});
- push(@new);
+ push(@new, $_);
}
close IDX1;
- &::performStrictReply( &::formListReply(0, "New debian packages:", @new) );
+ &::pSReply( &::formListReply(0, "New debian packages:", @new) );
}
sub do_verstats {
return;
}
- &msg($who, "Sending CTCP VERSION...");
+ &msg($who, "Sending CTCP VERSION to #$chan...");
$conn->ctcp("VERSION", $chan);
$cache{verstats}{chan} = $chan;
$cache{verstats}{who} = $who;
$cache{verstats}{msgType} = $msgType;
+ $conn->schedule(30, sub {
+ my $c = lc $cache{verstats}{chan};
+ @vernicktodo = ();
+
+ foreach (keys %{ $channels{$c}{''} } ) {
+ next if (grep /^\Q$_\E$/i, @vernick);
+ push(@vernicktodo, $_);
+ }
+
+ &verstats_flush();
+ } );
+
$conn->schedule(60, sub {
my $vtotal = 0;
my $c = lc $cache{verstats}{chan};
my $unknown = $total - $vtotal;
my $perc = sprintf("%.1f", $unknown * 100 / $total);
$perc =~ s/.0$//;
- $sorted{$perc}{"unknown/cloak"} = "$unknown ($perc%)";
+ $sorted{$perc}{"unknown/cloak"} = "$unknown ($perc%)" if ($unknown);
foreach (keys %ver) {
my $count = scalar keys %{ $ver{$_} };
return;
}
+sub verstats_flush {
+ for (1..5) {
+ last unless (scalar @vernicktodo);
+
+ my $n = shift(@vernicktodo);
+ $conn->ctcp("VERSION", $n);
+ }
+
+ return unless (scalar @vernicktodo);
+
+ $conn->schedule(3, \&verstats_flush() );
+}
+
sub textstats_main {
my($arg) = @_;
}
my $topstr = "";
- &DEBUG("tp => $tp");
+ &DEBUG("*stats: tp => $tp");
if (scalar @top) {
$topstr = ". Top ".scalar(@top).": ".join(', ', @top);
}