+
+2005-02-18 00:00 timriker
+
+ * CMD: is now cmd:
+
2005-02-18 00:00 timriker
* src/Factoids/Question.pl: minVolunteerLength now per channel
### END OF ADDING HOOKS.
###
-&status('CMD: loaded '.scalar(keys %cmdhooks).' command hooks.');
+&status('loaded '.scalar(keys %cmdhooks).' command hooks.');
1;
}
$faqtoid =~ tr/A-Z/a-z/;
- $faqtoid =~ s/^cmd:/CMD:/; # basic command forgetting
my $result = &getFactoid($faqtoid);
# if it doesn't exist, well... it doesn't!
}
$faqtoid =~ tr/A-Z/a-z/;
- $faqtoid =~ s/^cmd:/CMD:/; # basic command undeleteing
my $result = &getFactoid($faqtoid." #DEL#");
my $check = &getFactoid($faqtoid);
# TODO: cache this, update cache when altered. !!! !!! !!!
# my $t = &timeget();
my ($first) = split(/\s+/, $str);
- my @list = &searchTable("factoids", "factoid_key", "factoid_key", "^CMD: $first ");
+ my @list = &searchTable("factoids", "factoid_key", "factoid_key", "^cmd: $first ");
# my $delta_time = &timedelta($t);
# &DEBUG("factArgs: delta_time = $delta_time s");
# &DEBUG("factArgs: list => ".scalar(@list) );
foreach (sort { length($b) <=> length($a) } @list) {
next if (/#DEL#/); # deleted.
- s/^CMD: //i;
+ s/^cmd: //i;
# &DEBUG("factarg: '$str' =~ /^$_\$/");
my $arg = $_;
&status("Question: factoid Arguments for '$str'");
# TODO: use getReply() - need to modify it :(
my $i = 0;
- my $q = "CMD: $_";
+ my $q = "cmd: $_";
my $r = &getFactoid($q);
if (!defined $r) {
&DEBUG("question: !result... should this happen?");
}
$message =~ tr/A-Z/a-z/;
- $message =~ s/^cmd:/CMD:/;
@searches = split(/\s+/, &getChanConfDefault('factoidSearch', '_default'));
###
# don't evaluate if it has factoid arguments.
- if ($message =~ /^CMD:/i) {
+ if ($message =~ /^cmd:/i) {
&status("Reply: not doing substVars (eval dollar vars)");
} else {
$reply = &substVars($reply,1);
my($lhs, $mhs, $rhs) = ($`, $&, $');
# allows factoid arguments to be updated. -lear.
- $lhs =~ s/^(CMD: )?(.*)/$1||"" . lc $2/e;
+ $lhs =~ s/^(cmd: )?(.*)/$1||"" . lc $2/e;
# discard article.
$lhs =~ s/^(the|da|an?)\s+//i;
my @list;
my $count = 0;
- $lhs =~ s/^/CMD: /;
+ $lhs =~ s/^/cmd: /;
while ($lhs =~ s/\$(\S+)/(.*?)/) {
push(@list, "\$$1");
$count++;
($key,$val) = &randKey("factoids","factoid_key,factoid_value");
&DEBUG("rF: $key, $val");
### $val =~ tr/^[A-Z]/[a-z]/; # blah is Good => blah is good.
- last if ((defined $val) and ($val !~ /^</) and ($key !~ /\#DEL\#/) and ($key !~ /^CMD:/));
+ last if ((defined $val) and ($val !~ /^</) and ($key !~ /\#DEL\#/) and ($key !~ /^cmd:/));
$error++;
if ($error == 5) {
# Usage: &CmdFactInfo($faqtoid, $query);
sub CmdFactInfo {
my ($faqtoid, $query) = (lc $_[0], $_[1]);
- $faqtoid =~ s/^cmd:/CMD:/;
my @array;
my $string = "";
&do_info($chan);
} else {
- ### CMD: HELP:
+ ### HELP:
if ($cmd ne "" and $cmd !~ /^help/i) {
&msg($who, "Invalid command [$cmd].");
&msg($who, "Try 'help topic'.");