git-svn-id: https://svn.code.sf.net/p/infobot/code/trunk/blootbot@823
c11ca15a-4712-0410-83d8-
924469b57eb5
#####
# Usage: &setFactInfo($faqtoid, $key, $val);
sub setFactInfo {
#####
# Usage: &setFactInfo($faqtoid, $key, $val);
sub setFactInfo {
{ factoid_key => $_[0] },
{ $_[1] => $_[2] }
);
{ factoid_key => $_[0] },
{ $_[1] => $_[2] }
);
#####
# Usage: &getFactInfo($faqtoid, [$what]);
#####
# Usage: &getFactInfo($faqtoid, [$what]);
return &getFactInfo($_[0], "factoid_value");
}
return &getFactInfo($_[0], "factoid_value");
}
# Usage: &delFactoid($faqtoid);
sub delFactoid {
my ($faqtoid) = @_;
&sqlDelete("factoids", { factoid_key => $faqtoid } );
&status("DELETED $faqtoid");
# Usage: &delFactoid($faqtoid);
sub delFactoid {
my ($faqtoid) = @_;
&sqlDelete("factoids", { factoid_key => $faqtoid } );
&status("DELETED $faqtoid");
my (@modifiedlist, @modified, %modified);
if (defined $modified_by) {
my (@modifiedlist, @modified, %modified);
if (defined $modified_by) {
- push(@modifiedlist, split(/\,/, $modified_by));
+ push(@modifiedlist, split(/\,/, $modified_by));
}
push(@modifiedlist,$nuh);
}
push(@modifiedlist,$nuh);