-if (&IsParam("useStrict")) { use strict; }
-
-use vars qw($message $arg $qWord $verb $lobotomized);
-use vars qw(%channels %chanstats %cmdstats);
+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);
&addCmdHook("main", 'factinfo', ('CODEREF' => 'factinfo',
'Cmdstats' => 'Factoid Info', Module => 'factoids', ) );
&addCmdHook("main", 'factstats?', ('CODEREF' => 'factstats',
&addCmdHook("main", 'factinfo', ('CODEREF' => 'factinfo',
'Cmdstats' => 'Factoid Info', Module => 'factoids', ) );
&addCmdHook("main", 'factstats?', ('CODEREF' => 'factstats',
Forker => 1, 'Identifier' => 'factoids', ) );
&addCmdHook("main", 'help', ('CODEREF' => 'help',
'Cmdstats' => 'Help', ) );
Forker => 1, 'Identifier' => 'factoids', ) );
&addCmdHook("main", 'help', ('CODEREF' => 'help',
'Cmdstats' => 'Help', ) );
$cache{countryStats}{chan} = $chan;
$cache{countryStats}{mtype} = $msgType;
$cache{countryStats}{who} = $who;
$cache{countryStats}{chan} = $chan;
$cache{countryStats}{mtype} = $msgType;
$cache{countryStats}{who} = $who;
" and \002$count{'Commands'}\002 ".
&fixPlural("command",$count{'Commands'}).
". I have been awake for $upString this session, and ".
" and \002$count{'Commands'}\002 ".
&fixPlural("command",$count{'Commands'}).
". I have been awake for $upString this session, and ".
my %hash = &dbGetCol("stats", "nick,counter", "type='cmdstats'".
# " ORDER BY counter DESC LIMIT 3", 1);
" ORDER BY counter DESC", 1);
my %hash = &dbGetCol("stats", "nick,counter", "type='cmdstats'".
# " ORDER BY counter DESC LIMIT 3", 1);
" ORDER BY counter DESC", 1);
if ($param{'ircNick'} eq $ident) {
&msg($who, "I hope you're right. I'll try anyway.");
}
if ($param{'ircNick'} eq $ident) {
&msg($who, "I hope you're right. I'll try anyway.");
}
if (! &IsNickInAnyChan( $param{ircNick} ) ) {
my $str = "attempting to change nick to $param{'ircNick'}";
if (! &IsNickInAnyChan( $param{ircNick} ) ) {
my $str = "attempting to change nick to $param{'ircNick'}";