use strict;
use vars qw(%chanconf %cache %bans %channels %nuh %users %ignore
- %talkWho %dcc %mask %flag2attr);
+ %talkWho %dcc %mask);
use vars qw($utime_userfile $ucount_userfile $utime_chanfile $who
$ucount_chanfile $userHandle $chan $msgType $talkchannel
$ident $bot_state_dir $talkWho $flag_quit $wtime_userfile
#####
sub readUserFile {
- my $f = "$bot_state_dir/blootbot.users";
+ my $f = "$bot_state_dir/infobot.users";
if (! -f $f) {
&DEBUG("userfile not found; new fresh run detected.");
undef %ignore; # reset.
my $ver = <IN>;
- if ($ver !~ /^#v[12]/) {
+ if ($ver !~ /^#v1/) {
&ERROR("old or invalid user file found.");
&closeLog();
exit 1; # correct?
next if /^$/;
next if /^#/;
- if (/^--(\S+)[\s\t]+(.*)$/) { # user: body
+ if (/^--(\S+)[\s\t]+(.*)$/) { # user: middle entry.
my ($what,$val) = ($1,$2);
- if (!defined $val or $val eq "") {
+ if (!defined $val or $val eq '') {
&WARN("$what: val == NULL.");
next;
}
next;
}
- # hack for attribute support.
- if ($what =~ /^attr$/) {
- foreach (split / /, $val) {
- $users{$nick}{$what}{$_} = 1;
- }
- next;
- }
-
- if ($what =~ /^HOSTS$/) {
+ # nice little hack.
+ if ($what eq 'HOSTS') {
$users{$nick}{$what}{$val} = 1;
} else {
$users{$nick}{$what} = $val;
}
- } elsif (/^(\S+)$/) { # user: start.
+ } elsif (/^(\S+)$/) { # user: start entry.
$nick = $1;
- } elsif (/^::(\S+) ignore$/) { # ignore: start.
+ } elsif (/^::(\S+) ignore$/) { # ignore: start entry.
$chan = $1;
- $type = "ignore";
+ $type = 'ignore';
- } elsif (/^- (\S+):\+(\d+):\+(\d+):(\S+):(.*)$/ and $type eq "ignore") {
- ### ignore: body.
+ } elsif (/^- (\S+):\+(\d+):\+(\d+):(\S+):(.*)$/ and $type eq 'ignore') {
+ ### ignore: middle entry.
my $mask = $1;
my(@array) = ($2,$3,$4,$5);
### DEBUG purposes only!
}
$ignore{$chan}{$mask} = \@array;
- } elsif (/^::(\S+) bans$/) { # bans: start.
+ } elsif (/^::(\S+) bans$/) { # bans: start entry.
$chan = $1;
- $type = "bans";
+ $type = 'bans';
- } elsif (/^- (\S+):\+(\d+):\+(\d+):(\d+):(\S+):(.*)$/ and $type eq "bans") {
- ### bans: body.
+ } elsif (/^- (\S+):\+(\d+):\+(\d+):(\d+):(\S+):(.*)$/ and $type eq 'bans') {
+ ### bans: middle entry.
# $btime, $atime, $count, $whoby, $reason.
my(@array) = ($2,$3,$4,$5,$6);
$bans{$chan}{$1} = \@array;
return;
}
- if (!open OUT,">$bot_state_dir/blootbot.users") {
- &ERROR("Cannot write userfile ($bot_state_dir/blootbot.users): $!");
+ if (!open OUT,">$bot_state_dir/infobot.users") {
+ &ERROR("Cannot write userfile ($bot_state_dir/infobot.users): $!");
return;
}
my $time = scalar(gmtime);
- print OUT "#v1: blootbot -- $ident -- written $time\n\n";
+ print OUT "#v1: infobot -- $ident -- written $time\n\n";
### USER LIST.
my $cusers = 0;
print OUT "$user\n";
foreach (sort keys %{ $users{$user} }) {
- # todo: rename what to key?
my $what = $_;
- my $val = $users{$user}{$what};
-
- if (ref($val) eq "SCALAR") {
- print OUT "--$what\t\t$val\n";
- next;
- }
-
- next unless (ref($val) eq "HASH");
+ my $val = $users{$user}{$_};
- if ($what ne "attr") {
- foreach (sort keys %{ $users{$user}{$what} }) {
+ if (ref($val) eq 'HASH') {
+ foreach (sort keys %{ $users{$user}{$_} }) {
print OUT "--$what\t\t$_\n";
}
- next;
- }
-
- # disabled until confirmed to work flawlessly.
- next if (1);
-
- # attr support.
- my $str = "--$what\t\t";
- my @attr = sort keys %{ $users{$user}{$what} };
- # some fucking weird code ;) does it work?
- # any room for improvement?
- while (@attr) {
- my $attr = shift(@attr);
- my $_str = $str." ".$attr;
- my $print = 0;
-
- if (length $str < 60 && length $_str > 60) {
- $print++;
- } else {
- $str = $_str;
- $print++ if (!@attr);
- }
- next unless ($print);
- print OUT "$str\n";
- $str = "--$what\t\t";
+ } elsif ($_ eq 'FLAGS') {
+ print OUT "--$_\t\t" . join('', sort split('', $val)) . "\n";
+ } else {
+ print OUT "--$_\t\t$val\n";
}
}
print OUT "\n";
$wtime_userfile = time();
&status("--- Saved USERFILE ($cusers users; $cbans bans; $cignore ignore) at $time");
if (defined $msgType and $msgType =~ /^chat$/) {
- &pSReply("--- Writing user file...");
+ &performStrictReply("--- Writing user file...");
}
}
#####
sub readChanFile {
- my $f = "$bot_state_dir/blootbot.chan";
+ my $f = "$bot_state_dir/infobot.chan";
if ( -f $f and -f "$f~") {
my $s1 = -s $f;
my $s2 = -s "$f~";
$chanconf{$chan}{$1} = 1;
} elsif (/^[\s\t]+\-(\S+)$/) { # bool, false.
- &DEBUG("deprecated support of negative options.") unless ($cache{negative});
# although this is supported in run-time configuration.
- $cache{negative} = 1;
-# $chanconf{$chan}{$1} = 0;
+ $chanconf{$chan}{$1} = 0;
- } elsif (/^[\s\t]+(\S+)[\ss\t]+(.*)$/) {# what = val.
+ } elsif (/^[\s\t]+(\S+)[\s\t]+(.*)$/) {# what = val.
$chanconf{$chan}{$1} = $2;
} else {
}
}
- delete $cache{negative};
-
&status("CHANFILE: Loaded: ".(scalar(keys %chanconf)-1)." chans");
}
return;
}
- if (!open OUT,">$bot_state_dir/blootbot.chan") {
- &ERROR("Cannot write chanfile ($bot_state_dir/blootbot.chan): $!");
+ if (!open OUT,">$bot_state_dir/infobot.chan") {
+ &ERROR("Cannot write chanfile ($bot_state_dir/infobot.chan): $!");
return;
}
my $time = scalar(gmtime);
- print OUT "#v1: blootbot -- $ident -- written $time\n\n";
+ print OUT "#v1: infobot -- $ident -- written $time\n\n";
if ($flag_quit) {
" chans) at $time");
if (defined $msgType and $msgType =~ /^chat$/) {
- &pSReply("--- Writing chan file...");
+ &performStrictReply("--- Writing chan file...");
}
}
##### USER COMMANDS.
#####
-# todo: support multiple flags, eg: "+o-m"
+# TODO: support multiple flags.
+# TODO: return all flags for opers
sub IsFlag {
my $flags = shift;
- my ($ret, $f, $o) = "";
+ my ($ret, $f, $o) = '';
&verifyUser($who, $nuh);
- # userfile v2 support:
- if ($users{$userHandle}{attr}) {
- # todo: fix for multiple flags/attr
- my $attr = $flag2attr{$flags};
- if (!$attr) {
- &WARN("IsFlag: !flag2attr{$flags}");
- return 0;
- }
- return 1 if ($users{$userHandle}{attr}{$attr});
- return 0;
- }
-
foreach $f (split //, $users{$userHandle}{FLAGS}) {
- foreach $o (split //, $flags) {
+ foreach $o ( split //, $flags ) {
next unless ($f eq $o);
$ret = $f;
return $userHandle;
}
- $userHandle = "";
+ $userHandle = '';
foreach $user (keys %users) {
next if ($user eq "_default");
last;
}
- last if ($userHandle ne "");
+ last if ($userHandle ne '');
if ($user =~ /^\Q$nick\E$/i and !exists $cache{VUSERWARN}{$user}) {
&status("vU: nick matched but host is not in list ($lnuh).");
sub ckpasswd {
# returns true if arg1 encrypts to arg2
my ($plain, $encrypted) = @_;
- if ($encrypted eq "") {
+ if ($encrypted eq '') {
($plain, $encrypted) = split(/\s+/, $plain, 2);
}
- return 0 unless ($plain ne "" and $encrypted ne "");
+ return 0 unless ($plain ne '' and $encrypted ne '');
# MD5 // DES. Bobby Billingsley++.
my $salt;
sub hasFlag {
my ($flag) = @_;
- if (&IsFlag($flag) ne $flag) {
+ if (&IsFlag($flag) eq $flag) {
+ return 1;
+ } else {
&status("DCC CHAT: <$who> $message -- not enough flags.");
- &pSReply("error: you do not have enough flags for that. ($flag required)");
+ &performStrictReply("error: you do not have enough flags for that. ($flag required)");
return 0;
}
-
- return 1;
}
# expire is time in minutes
sub ignoreAdd {
my($mask,$chan,$expire,$comment) = @_;
- $chan ||= "*"; # global if undefined.
- $comment ||= ""; # optional.
+ $chan ||= '*'; # global if undefined.
+ $comment ||= ''; # optional.
$expire ||= 0; # permament.
my $count ||= 0;
$ignore{$chan}{$mask} = [$expire, time(), $who, $comment];
- # todo: improve this.
+ # TODO: improve this.
if ($expire == 0) {
&status("ignore: Added $mask for $chan to NEVER expire, by $who, for $comment");
} else {
}
sub userAdd {
- my($nick,$mask) = @_;
+ my($nick,$mask) = @_;
- return 0 if (exists $users{$nick});
+ if (exists $users{$nick}) {
+ return 0;
+ }
$utime_userfile = time();
$ucount_userfile++;
$users{$nick}{HOSTS}{$mask} = 1;
}
- $users{$nick}{FLAGS} ||= $users{_default}{FLAGS};
+ $users{$nick}{FLAGS} ||= $users{_default}{FLAGS};
return 1;
}
sub userDel {
my($nick) = @_;
- return 0 if (!exists $users{$nick});
+ if (!exists $users{$nick}) {
+ return 0;
+ }
$utime_userfile = time();
$ucount_userfile++;
sub banAdd {
my($mask,$chan,$expire,$reason) = @_;
- $chan ||= "*";
+
+ $chan ||= '*';
$expire ||= 0;
- $expire = $expire*60 + time() if ($expire > 0);
+
+ if ($expire > 0) {
+ $expire = $expire*60 + time();
+ }
my $exist = 1;
- $exist++ if (exists $bans{$chan}{$mask} or exists $bans{'*'}{$mask});
+ $exist++ if (exists $bans{$chan}{$mask} or
+ exists $bans{'*'}{$mask});
$bans{$chan}{$mask} = [$expire, time(), 0, $who, $reason];
- my @chans = ($chan eq "*") ? keys %channels : $chan;
+ my @chans = ($chan eq '*') ? keys %channels : $chan;
my $m = $mask;
$m =~ s/\?/\\./g;
$m =~ s/\*/\\S*/g;
if ($cmd eq "+chan") {
if (exists $chanconf{$chan}) {
- &pSReply("chan $chan already exists.");
+ &performStrictReply("chan $chan already exists.");
return;
}
$chanconf{$chan}{_time_added} = time();
- $chanconf{$chan}{autojoin} = 1;
+ $chanconf{$chan}{autojoin} = $conn->nick();
- &pSReply("Joining $chan...");
+ &performStrictReply("Joining $chan...");
&joinchan($chan);
return;
}
if (!exists $chanconf{$chan}) {
- &pSReply("no such channel $chan");
+ &performStrictReply("no such channel $chan");
return;
}
### ".chanset +blah"
### ".chanset +blah 10" -- error.
- my $state = ($1 eq "+") ? 1 : 0;
+ my $set = ($1 eq "+") ? 1 : 0;
my $was = $chanconf{$chan}{$what};
- if ($state) { # add/set.
- if (defined $was and $was eq "1") {
- &pSReply("setting $what for $chan already 1.");
+ if ($set) { # add/set.
+ if (defined $was and $was eq '1') {
+ &performStrictReply("setting $what for $chan already 1.");
return;
}
} else { # delete/unset.
if (!defined $was) {
- &pSReply("setting $what for $chan is not set.");
- return;
- }
-
- if ($was eq "0") {
- &pSReply("setting $what for $chan already 0.");
+ &performStrictReply("setting $what for $chan is not set.");
return;
}
}
# alter for cosmetic (print out) reasons only.
- $was = ($was) ? "; was '$was'" : "";
+ $was = (defined $was) ? "; was '$was'" : '';
- if ($val eq "0") {
- &pSReply("Unsetting $what for $chan$was.");
+ if ($val eq '0') {
+ &performStrictReply("Unsetting $what for $chan$was.");
delete $chanconf{$chan}{$what};
} else {
- &pSReply("Setting $what for $chan to '$val'$was.");
+ &performStrictReply("Setting $what for $chan to '$val'$was.");
$chanconf{$chan}{$what} = $val;
}
my $was = $chanconf{$chan}{$what};
if (defined $was and $was eq $val) {
- &pSReply("setting $what for $chan already '$val'.");
+ &performStrictReply("setting $what for $chan already '$val'.");
return;
}
- $was = ($was) ? "; was '$was'" : "";
- &pSReply("Setting $what for $chan to '$val'$was.");
+ $was = ($was) ? "; was '$was'" : '';
+ &performStrictReply("Setting $what for $chan to '$val'$was.");
$chanconf{$chan}{$what} = $val;
}
if (exists $chanconf{$chan}{$what}) {
- &pSReply("$what for $chan is '$chanconf{$chan}{$what}'");
+ &performStrictReply("$what for $chan is '$chanconf{$chan}{$what}'");
} else {
- &pSReply("$what for $chan is not set.");
+ &performStrictReply("$what for $chan is not set.");
}
}
&DEBUG("rehashConfVars: _ => $_");
if (/^news$/ and $i) {
- &loadMyModule("news");
+ &loadMyModule('News');
delete $cache{confvars}{$_};
}
if (/^uptime$/ and $i) {
- &loadMyModule("uptime");
+ &loadMyModule('Uptime');
delete $cache{confvars}{$_};
}
if (/^rootwarn$/i and $i) {
- &loadMyModule($_);
+ &loadMyModule('RootWarn');
+ delete $cache{confvars}{$_};
+ }
+
+ if (/^onjoin$/i and $i) {
+ &loadMyModule('OnJoin');
delete $cache{confvars}{$_};
}
}
delete $cache{confvars};
}
-sub convertUserFileVer2 {
- foreach (keys %users) {
- my $handle = $_;
- my $flags = $users{$handle}{FLAGS};
- if (!$flags) {
- &WARN("cUFV2: handle $handle has no flags!");
- next;
- }
-
- my $fail = 0;
- foreach (split //, $flags) {
- my $flag = $_;
- my $attr = $flag2attr{$flag};
- if (!$attr) {
- &DEBUG("cUFV2: handle=$handle: flag=$flag does not exist.");
- $fail++;
- next;
- }
- $users{$handle}{attr}{$attr} = 1;
- }
-
- next if ($fail);
-# uncomment to enable attribute conversion support.
-# delete $users{$handle}{FLAGS};
- }
-}
-
-# support more than one attribute?
-%flag2attr = (
- m => "modify_factoid",
- r => "delete_factoid",
- t => "add_factoid",
- a => "ask_factoid",
- n => "bot_owner",
- o => "bot_master",
- A => "admin_over_msg",
- T => "topic"
+my @regFlagsUser = (
+ # possible chars to include in FLAG
+ 'A', # bot administration over /msg
+ # default is only via DCC CHAT
+ 'O', # dynamic ops (as on channel). (automatic +o)
+ 'T', # add topics.
+ 'a', # ask/request factoid.
+ 'm', # modify factoid. (includes renaming)
+ 'n', # bot owner, can 'reload'
+ 'o', # master of bot (automatic +amrt)
+ # can search on factoid strings shorter than 2 chars
+ # can tell bot to join new channels
+ # can [un]lock factoids
+ 'r', # remove factoid.
+ 't', # teach/add factoid.
);
1;