}
# also checking.
- my $also = ($rhs =~ s/^(\-)?also //i);
- &DEBUG("1=>$1"); # this does not work!
+ my $also = ($rhs =~ s/^-?also //i);
my $also_or = ($also and $rhs =~ s/\s+(or|\|\|)\s+//);
# freshmeat
if (&IsChanConf("freshmeatForFactoid")) {
+ # todo: "name" is invalid for fm ][
if (&dbGet("freshmeat", "name", $lhs, "name")) {
&msg($who, "permission denied. (freshmeat)");
&status("alert: $who wanted to teach me something that freshmeat already has info on.");
}
}
+ if (&IsChanConf("factoidArguments") and $lhs =~ /\$/) {
+ &status("Update: Factoid Arguments found.");
+ &status("Update: orig lhs => '$lhs'.");
+ &status("Update: orig rhs => '$rhs'.");
+ $lhs =~ s/^/CMD: /;
+ my @list;
+ while ($lhs =~ s/\$(\S+)/(.*?)/) {
+ push(@list, "\$$1");
+ }
+ my $z = join(',',@list);
+ $rhs =~ s/^/($z): /;
+
+ &status("Update: new lhs => '$lhs'.");
+ &status("Update: new rhs => '$rhs'.");
+ }
+
# the fun begins.
my $exists = &getFactoid($lhs);
if (!$exists) {
# nice 'are' hack (or work-around).
if ($mhs =~ /^are$/i and $rhs !~ /<\S+>/) {
- &DEBUG("Update: 'are' hack detected.");
+ &status("Update: 'are' hack detected.");
$mhs = "is";
$rhs = "<REPLY> are ". $rhs;
}
# if ($exists =~ s/\,\s*$/, /) {
if ($exists =~ /\,\s*$/) {
&DEBUG("current has trailing comma, just append as is");
+ &DEBUG("Up: exists => $exists");
+ &DEBUG("Up: rhs => $rhs");
# $rhs =~ s/^\s+//;
# $rhs = $exists." ".$rhs; # keep comma.
}
if ($exists =~ /\.\s*$/) {
&DEBUG("current has trailing period, just append as is with 2 WS");
+ &DEBUG("Up: exists => $exists");
+ &DEBUG("Up: rhs => $rhs");
# $rhs =~ s/^\s+//;
# use ucfirst();?
# $rhs = $exists." ".$rhs; # keep comma.