X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=src%2FUserExtra.pl;h=12ec9c324a2f6729c5381cf2341b602f9da802c5;hb=d3faaba2ad8c02cdf10e1a9698592afc6ed928bc;hp=9d27eb9d5e52280399af1d0cbef20b0f99d8c4e5;hpb=8df0fa618dc55e5c565d45b3b76aa8858a845097;p=infobot.git diff --git a/src/UserExtra.pl b/src/UserExtra.pl index 9d27eb9..12ec9c3 100644 --- a/src/UserExtra.pl +++ b/src/UserExtra.pl @@ -1,41 +1,15 @@ # # UserExtra.pl: User Commands, Public. # Author: dms -# Version: v0.2b (20000707) -# Created: 20000107 # use strict; use vars qw($message $arg $qWord $verb $lobotomized $who $result $chan $conn $msgType $query $talkchannel $ident $memusage); use vars qw(%channels %chanstats %cmdstats %count %ircstats %param - %cache %mask %userstats %hooks_main); + %cache %mask %userstats); -### -### Start of command hooks for UserExtra. -### - -&addCmdHook("main", 'chan(stats|info)', ('CODEREF' => 'chaninfo', ) ); -&addCmdHook("main", 'cmd(stats|info)', ('CODEREF' => 'cmdstats', ) ); -&addCmdHook("main", 'sched(stats|info)', ('CODEREF' => 'scheduleList', ) ); -&addCmdHook("main", 'factinfo', ('CODEREF' => 'factinfo', - 'Cmdstats' => 'Factoid Info', Module => 'Factoids', ) ); -&addCmdHook("main", 'factstats?', ('CODEREF' => 'factstats', - 'Cmdstats' => 'Factoid Stats', Help => "factstats", - Forker => 1, 'Identifier' => 'Factoids', ) ); -&addCmdHook("main", 'help', ('CODEREF' => 'help', - 'Cmdstats' => 'Help', ) ); -&addCmdHook("main", 'karma', ('CODEREF' => 'karma', ) ); -&addCmdHook("main", 'tell|explain', ('CODEREF' => 'tell', - Help => 'tell', Identifier => 'allowTelling', - Cmdstats => 'Tell') ); -&addCmdHook("main", 'News', ('CODEREF' => 'News::Parse', - Module => 'News', 'Cmdstats' => 'News' ) ); -&addCmdHook("main", 'countrystats', ('CODEREF' => 'countryStats', -# Forker => "NULL", - ) ); - -&status("CMD: loaded ".scalar(keys %hooks_main)." MAIN command hooks."); +### hooks get added in CommandHooks.pl. ### ### Start of commands for hooks. @@ -47,7 +21,7 @@ sub chaninfo { if ($chan eq "") { # all channels. my $i = keys %channels; - my $reply = "i am on \002$i\002 ".&fixPlural("channel",$i); + my $reply = "I'm on \002$i\002 ".&fixPlural("channel",$i); my $tucount = 0; # total user count. my $uucount = 0; # unique user count. my @array; @@ -61,11 +35,10 @@ sub chaninfo { } next if (/^_default$/); - my $str = sprintf("%s (%d)", $_, scalar(keys %{ $channels{$_}{''} })); + my $str = sprintf("%s/%d", $_, scalar(keys %{ $channels{$_}{''} })); push(@array, $str); } - &pSReply($reply.": ".join(', ', @array)); - &ircCheck(); + &performStrictReply($reply.": ".join(', ', @array)); ### total user count. foreach $chan (keys %channels) { @@ -73,26 +46,23 @@ sub chaninfo { } ### unique user count. - my @nicks; + my %nicks = (); foreach $chan (keys %channels) { - foreach (keys %{ $channels{$chan}{''} }) { - next if (grep /^\Q$_\E$/, @nicks); - $uucount++; - push(@nicks, $_); + my $nick; + foreach $nick (keys %{ $channels{$chan}{''} }) { + $nicks{$nick}++; } } - - if (scalar @nicks != $uucount) { - &DEBUG("nicks != uucount..."); - } + $uucount = scalar(keys %nicks); my $chans = scalar(keys %channels); - &pSReply( + &performStrictReply( "i've cached \002$tucount\002 ". &fixPlural("user",$tucount). ", \002$uucount\002 unique ". &fixPlural("user",$uucount). ", distributed over \002$chans\002 ". &fixPlural("channel", $chans)."." ); + &ircCheck(); return; } @@ -166,7 +136,7 @@ sub chaninfo { if ($count) { $reply .= ". \002$count\002 has said the most with a total of \002$new{$count}\002 messages"; } - &pSReply("$reply."); + &performStrictReply("$reply."); } # Command statistics. @@ -191,7 +161,7 @@ sub cmdstats { push(@array, "\002$int\002 of $_"); } } - &pSReply("command usage include ". &IJoin(@array)."."); + &performStrictReply("command usage include ". &IJoin(@array)."."); } # Factoid extension info. xk++ @@ -214,8 +184,8 @@ sub factinfo { sub factstats { my $type = shift(@_); - &Forker("factoids", sub { - &pSReply( &CmdFactStats($type) ); + &Forker("Factoids", sub { + &performStrictReply( &CmdFactStats($type) ); } ); } @@ -225,9 +195,9 @@ sub karma { { nick => $target, type => "karma" }) || 0; if ($karma != 0) { - &pSReply("$target has karma of $karma"); + &performStrictReply("$target has karma of $karma"); } else { - &pSReply("$target has neutral karma"); + &performStrictReply("$target has neutral karma"); } } @@ -306,8 +276,7 @@ sub tell { # support command redirection. # recursive cmdHooks aswell :) my $done = 0; - $done++ if &parseCmdHook("main", $tell_obj); - $done++ if &parseCmdHook("extra", $tell_obj); + $done++ if &parseCmdHook($tell_obj); $message = $tell_obj; $done++ unless (&Modules()); @@ -394,9 +363,9 @@ sub do_countrystats { push(@list, "$str ($_, $perc %)"); } - # TODO: move this into a scheduler like nickometer + # TODO: move this into a scheduler $msgType = "private"; - &pSReply( &formListReply(0, "Country Stats ", @list) ); + &performStrictReply( &formListReply(0, "Country Stats ", @list) ); delete $cache{countryStats}; delete $cache{on_who_Hack}; @@ -410,7 +379,7 @@ sub userCommands { # conversion: ascii. if ($message =~ /^(asci*|chr) (\d+)$/) { &DEBUG("ascii/chr called ..."); - return unless (&hasParam("allowConv")); + return unless (&IsChanConfOrWarn("allowConv")); &DEBUG("ascii/chr called"); @@ -425,7 +394,7 @@ sub userCommands { # conversion: ord. if ($message =~ /^ord(\s+(.*))$/) { - return unless (&hasParam("allowConv")); + return unless (&IsChanConfOrWarn("allowConv")); $arg = $2; @@ -449,7 +418,7 @@ sub userCommands { # hex. if ($message =~ /^hex(\s+(.*))?$/i) { - return unless (&hasParam("allowConv")); + return unless (&IsChanConfOrWarn("allowConv")); my $arg = $2; if (!defined $arg) { @@ -467,7 +436,7 @@ sub userCommands { $retval .= sprintf(" %X", ord($_)); } - &pSReply("$arg is$retval"); + &performStrictReply("$arg is$retval"); return; } @@ -488,9 +457,9 @@ sub userCommands { # return; # } - &pSReply( crypt($args[1], $args[0]) ); + &performStrictReply( crypt($args[1], $args[0]) ); } else { - &pSReply( &mkcrypt($args[0]) ); + &performStrictReply( &mkcrypt($args[0]) ); } return; @@ -530,9 +499,9 @@ sub userCommands { return unless (&hasFlag("n")); &status("USER reload $who"); - &pSReply("reloading..."); + &performStrictReply("reloading..."); my $modules = &reloadAllModules(); - &pSReply("reloaded:$modules"); + &performStrictReply("reloaded:$modules"); return; } @@ -589,16 +558,21 @@ sub userCommands { } # rot13 it. - if ($message =~ /^rot13(\s+(.*))?/i) { - my $reply = $2; + if ($message =~ /^rot([0-9]*)(\s+(.*))?/i) { + my $reply = $3; if (!defined $reply) { &help("rot13"); return; } + my $num = $1 % 26; + my $upper="ABCDEFGHIJKLMNOPQRSTUVWXYZ"; + my $lower="abcdefghijklmnopqrstuvwxyz"; + my $to=substr($upper,$num).substr($upper,0,$num).substr($lower,$num).substr($lower,0,$num); + eval "\$reply =~ tr/$upper$lower/$to/;"; - $reply =~ y/A-Za-z/N-ZA-Mn-za-m/; - &pSReply($reply); + #$reply =~ y/A-Za-z/N-ZA-Mn-za-m/; + &performStrictReply($reply); return; } @@ -644,7 +618,7 @@ sub userCommands { } $ratio = sprintf("%.01f", 100*$perc/($perc+$perc2) ); - &pSReply("Total CPU usage: \002$cpu_usage\002 s ... ". + &performStrictReply("Total CPU usage: \002$cpu_usage\002 s ... ". "Total used: \002$total\002 % ". "(parent/child ratio: $ratio %)" ); @@ -695,7 +669,7 @@ sub userCommands { $reply .= ". I was last disconnected for '$reason'."; } - &pSReply($reply); + &performStrictReply($reply); return; } @@ -716,7 +690,7 @@ sub userCommands { $count{'Commands'} += $cmdstats{$_}; } - &pSReply( + &performStrictReply( "Since $startString, there have been". " \002$count{'Update'}\002 ". &fixPlural("modification", $count{'Update'}). @@ -737,23 +711,6 @@ sub userCommands { ); return; - - my %hash = &sqlSelectColHash("stats", "nick,counter", - { type => "cmdstats" }, 1); -# ORDER won't be retained in a hash -# " ORDER BY counter DESC", 1); - -if (0) { - foreach (keys %hash) { - my $i = $_; - foreach (keys %{ $hash{$i} }) { - &DEBUG("cmdstats: $hash{$i}{$_} = $_"); - } - } - &DEBUG("end of cmdstats."); -} - - return; } # wantNick. xk++