'O', # dynamic ops (as on channel). (automatic +o)
'T', # add topics.
'a', # ask/request factoid.
- 'm', # modify factoid. (includes renaming)
+ 'm', # modify all factoids. (includes renaming)
+ 'M', # modify own factoids. (includes renaming)
'n', # bot owner, can 'reload'
'o', # master of bot (automatic +amrt)
# can search on factoid strings shorter than 2 chars
sub readUserFile {
my $f = "$bot_state_dir/infobot.users";
+ if (! -e $f and -e "$bot_state_dir/blootbot.users") {
+ $f = "$bot_state_dir/blootbot.users";
+ }
if ( !-f $f ) {
&DEBUG('userfile not found; new fresh run detected.');
sub readChanFile {
my $f = "$bot_state_dir/infobot.chan";
+ if (-e "$bot_state_dir/infobot.chan" and -e "$bot_state_dir/blootbot.chan") {
+ $f = "$bot_state_dir/blootbot.chan";
+ }
if ( -f $f and -f "$f~" ) {
my $s1 = -s $f;
my $s2 = -s "$f~";
sub chanSet {
my ( $cmd, $chan, $what, $val ) = @_;
- if ( $cmd eq '+chan' ) {
+ if ( $cmd eq 'chanadd' ) {
if ( exists $chanconf{$chan} ) {
&performStrictReply("chan $chan already exists.");
return;