}
$message =~ tr/A-Z/a-z/;
+ $message =~ s/^cmd:/CMD:/;
- my ($count, $fauthor, $result) = &sqlSelect("factoids",
+ my ($count, $fauthor, $result) = &sqlSelect("factoids",
"requested_count,created_by,factoid_value",
{ factoid_key => $message }
);
requested_count => $count
} );
- # todo: rename $real to something else!
+ # TODO: rename $real to something else!
my $real = 0;
# my $author = &getFactInfo($lhs,"created_by") || '';
# $real++ if ($author =~ /^\Q$who\E\!/);
my($reply,$flag) = @_;
# $date, $time.
- # todo: support localtime.
+ # TODO: support localtime.
my $date = scalar(gmtime());
$date =~ s/\:\d+(\s+\w+)\s+\d+$/$1/;
$reply =~ s/\$date/$date/gi;