X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=src%2FModules%2FUserDCC.pl;h=8337c952d09f12377dfb3f7ecfa757a1a902008d;hb=3e69b8928b0848d1c36928854823ecf10fa215dc;hp=8478822fd93f99175d54dfe6a3aced67e556edea;hpb=1983ccd1278ee484c9ba906b89e094b2de61f851;p=infobot.git

diff --git a/src/Modules/UserDCC.pl b/src/Modules/UserDCC.pl
index 8478822..8337c95 100644
--- a/src/Modules/UserDCC.pl
+++ b/src/Modules/UserDCC.pl
@@ -339,6 +339,59 @@ sub userDCC {
 	exit 0;
     }
 
+    # global factoid substitution.
+    if ($message =~ m|^s([/,#])(.+?)\2(.*?)\2;?\s*$|) {
+	&DEBUG("global factoid subst called!");
+	my ($delim,$op,$np) = ($1, $2, $3);
+	return $noreply unless (&hasFlag("n"));
+
+	# incorrect format.
+	if ($np =~ /$delim/) {
+	    &msg($who,"looks like you used the delimiter too many times. You may want to use a different delimiter, like ':' or '#'.");
+	    return $noreply;
+	}
+
+	### TODO: fix up $op to support mysql/pgsql/dbm(perl)
+	### TODO: => add db/sql specific function to fix this.
+	my @list = &searchTable("factoids", "factoid_key",
+			"factoid_value", $op);
+
+	if (!scalar @list) {
+	    &performStrictReply("Expression didn't match anything.");
+	    return $noreply;
+	}
+
+	my $error = 0;
+	foreach (@list) {
+	    my $faqtoid = $_;
+
+	    next if (&IsLocked($faqtoid) == 1);
+	    my $result = &getFactoid($faqtoid);
+	    my $was = $result;
+	    &DEBUG("was($faqtoid) => '$was'.");
+
+	    # global global
+	    # we could support global local (once off).
+	    if ($result =~ s/\Q$op/$np/gi) {
+		if (length $result > $param{'maxDataSize'}) {
+		    &performReply("that's too long (or was long)");
+		    return $noreply;
+		}
+###		&setFactInfo($faqtoid, "factoid_value", $result);
+		&status("update: '$faqtoid' =is=> '$result'; was '$was'");
+	    } else {
+		&WARN("subst: that's weird... thought we found the string ($op) in '$faqtoid'.");
+		$error++;
+	    }
+	}
+
+	if ($error) {
+	    &ERROR("Something happened...");
+	}
+
+	return $noreply;
+    }
+
     # jump.
     if ($message =~ /^jump(\s+(\S+))?$/i) {
 	return $noreply unless (&hasFlag("n"));