sub karma {
my $target = lc( shift || $who );
my $karma = &sqlSelect("stats", "counter",
sub karma {
my $target = lc( shift || $who );
my $karma = &sqlSelect("stats", "counter",
$result = $match." is ".$x unless ($x =~ /^\s*$/);
} else {
$result = "I can't seem to find that address in DNS";
$result = $match." is ".$x unless ($x =~ /^\s*$/);
} else {
$result = "I can't seem to find that address in DNS";
my $startString = scalar(gmtime $^T);
my $upString = &Time2String(time() - $^T);
my $factoids = &countKeys("factoids");
my $startString = scalar(gmtime $^T);
my $upString = &Time2String(time() - $^T);
my $factoids = &countKeys("factoids");
". I have been awake for $upString this session, and ".
"currently reference \002$factoids\002 factoids. ".
"I'm using about \002$memusage\002 ".
". I have been awake for $upString this session, and ".
"currently reference \002$factoids\002 factoids. ".
"I'm using about \002$memusage\002 ".