# NOTE: Merged from User.pl
#
-if (&IsParam("useStrict")) { use strict; }
+use strict;
+
+use vars qw(%chanconf %cache %bans %channels %nuh %users %ignore
+ %talkWho %dcc %mask %flag2attr);
+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
+ $wcount_userfile $wtime_chanfile $nuh $message);
#####
##### USERFILE CONFIGURATION READER/WRITER
#####
sub readUserFile {
- if (!open IN,"$bot_misc_dir/blootbot.users") {
- &ERROR("cannot read userfile.");
+ my $f = "$bot_state_dir/blootbot.users";
+
+ if (! -f $f) {
+ &DEBUG("userfile not found; new fresh run detected.");
+ return;
+ }
+
+ if ( -f $f and -f "$f~") {
+ my $s1 = -s $f;
+ my $s2 = -s "$f~";
+
+ if ($s2 > $s1*3) {
+ &FIXME("rUF: backup file bigger than current file.");
+ }
+ }
+
+ if (!open IN, $f) {
+ &ERROR("Cannot read userfile ($f): $!");
&closeLog();
exit 1;
}
undef %users; # clear on reload.
undef %bans; # reset.
- undef %ingore; # reset.
+ undef %ignore; # reset.
my $ver = <IN>;
- if ($ver !~ /^#v1/) {
+ if ($ver !~ /^#v[12]/) {
&ERROR("old or invalid user file found.");
&closeLog();
exit 1; # correct?
next if /^$/;
next if /^#/;
- if (/^--(\S+)[\s\t]+(.*)$/) { # user: middle entry.
+ if (/^--(\S+)[\s\t]+(.*)$/) { # user: body
my ($what,$val) = ($1,$2);
if (!defined $val or $val eq "") {
next;
}
- # nice little hack.
- if ($what eq "HOSTS") {
+ if (!defined $nick) {
+ &WARN("DynaConfig: invalid line: $_");
+ next;
+ }
+
+ # hack for attribute support.
+ if ($what =~ /^attr$/) {
+ foreach (split / /, $val) {
+ $users{$nick}{$what}{$_} = 1;
+ }
+ next;
+ }
+
+ if ($what =~ /^HOSTS$/) {
$users{$nick}{$what}{$val} = 1;
} else {
$users{$nick}{$what} = $val;
}
- } elsif (/^(\S+)$/) { # user: start entry.
+ } elsif (/^(\S+)$/) { # user: start.
$nick = $1;
- } elsif (/^::(\S+) ignore$/) { # ignore: start entry.
+ } elsif (/^::(\S+) ignore$/) { # ignore: start.
$chan = $1;
$type = "ignore";
} elsif (/^- (\S+):\+(\d+):\+(\d+):(\S+):(.*)$/ and $type eq "ignore") {
- ### ignore: middle entry.
+ ### ignore: body.
my $mask = $1;
my(@array) = ($2,$3,$4,$5);
### DEBUG purposes only!
}
$ignore{$chan}{$mask} = \@array;
- } elsif (/^::(\S+) bans$/) { # bans: start entry.
+ } elsif (/^::(\S+) bans$/) { # bans: start.
$chan = $1;
$type = "bans";
} elsif (/^- (\S+):\+(\d+):\+(\d+):(\d+):(\S+):(.*)$/ and $type eq "bans") {
- ### bans: middle entry.
+ ### bans: body.
# $btime, $atime, $count, $whoby, $reason.
my(@array) = ($2,$3,$4,$5,$6);
$bans{$chan}{$1} = \@array;
}
sub writeUserFile {
- if (!open OUT,">$bot_misc_dir/blootbot.users") {
- &ERROR("cannot write to userfile.");
+ if (!scalar keys %users) {
+ &DEBUG("wUF: nothing to write.");
return;
}
- my $time = scalar(localtime);
+ if (!open OUT,">$bot_state_dir/blootbot.users") {
+ &ERROR("Cannot write userfile ($bot_state_dir/blootbot.users): $!");
+ return;
+ }
+
+ my $time = scalar(gmtime);
print OUT "#v1: blootbot -- $ident -- written $time\n\n";
print OUT "$user\n";
foreach (sort keys %{ $users{$user} }) {
+ # todo: rename what to key?
my $what = $_;
- my $val = $users{$user}{$_};
+ my $val = $users{$user}{$what};
+
+ if (ref($val) eq "SCALAR") {
+ print OUT "--$what\t\t$val\n";
+ next;
+ }
+
+ next unless (ref($val) eq "HASH");
- if (ref($val) eq "HASH") {
- foreach (sort keys %{ $users{$user}{$_} }) {
+ if ($what ne "attr") {
+ foreach (sort keys %{ $users{$user}{$what} }) {
print OUT "--$what\t\t$_\n";
}
+ next;
+ }
- } else {
- print OUT "--$_\t\t$val\n";
+ # 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";
}
}
print OUT "\n";
$wtime_userfile = time();
&status("--- Saved USERFILE ($cusers users; $cbans bans; $cignore ignore) at $time");
if (defined $msgType and $msgType =~ /^chat$/) {
- &performStrictReply("--- Writing user file...");
+ &pSReply("--- Writing user file...");
}
}
#####
sub readChanFile {
- if (!open IN,"$bot_misc_dir/blootbot.chan") {
- &ERROR("cannot erad chanfile.");
+ my $f = "$bot_state_dir/blootbot.chan";
+ if ( -f $f and -f "$f~") {
+ my $s1 = -s $f;
+ my $s2 = -s "$f~";
+
+ if ($s2 > $s1*3) {
+ &FIXME("rCF: backup file bigger than current file.");
+ }
+ }
+
+ if (!open IN, $f) {
+ &ERROR("Cannot read chanfile ($f): $!");
return;
}
while (<IN>) {
chop;
- next if /^$/;
+ next if /^\s*$/;
+ next if /^\// or /^\;/; # / or ; are comment lines.
if (/^(\S+)\s*$/) {
$chan = $1;
$chanconf{$chan}{$1} = 1;
} elsif (/^[\s\t]+\-(\S+)$/) { # bool, false.
- $chanconf{$chan}{$1} = 0;
+ &DEBUG("deprecated support of negative options.") unless ($cache{negative});
+ # although this is supported in run-time configuration.
+ $cache{negative} = 1;
+# $chanconf{$chan}{$1} = 0;
} elsif (/^[\s\t]+(\S+)[\ss\t]+(.*)$/) {# what = val.
$chanconf{$chan}{$1} = $2;
### TODO: check against valid params.
foreach $chan (keys %chanconf) {
foreach (keys %{ $chanconf{$chan} }) {
- next unless (/^[+-]/);
+ next unless /^[+-]/;
+
&WARN("invalid param: chanconf{$chan}{$_}; removing.");
delete $chanconf{$chan}{$_};
undef $chanconf{$chan}{$_};
}
}
+ delete $cache{negative};
+
&status("CHANFILE: Loaded: ".(scalar(keys %chanconf)-1)." chans");
}
sub writeChanFile {
- if (!open OUT,">$bot_misc_dir/blootbot.chan") {
- &ERROR("cannot write chanfile.");
+ if (!scalar keys %chanconf) {
+ &DEBUG("wCF: nothing to write.");
return;
}
- my $time = scalar(localtime);
+ if (!open OUT,">$bot_state_dir/blootbot.chan") {
+ &ERROR("Cannot write chanfile ($bot_state_dir/blootbot.chan): $!");
+ return;
+ }
+
+ my $time = scalar(gmtime);
print OUT "#v1: blootbot -- $ident -- written $time\n\n";
if ($flag_quit) {
next if ($chan eq "_default");
next unless (exists $chanconf{$chan}{$opt});
next unless ($val eq $chanconf{$chan}{$opt});
+
push(@chans,$chan);
delete $chanconf{$chan}{$opt};
}
}
}
- &DEBUG("chans => ".scalar(keys %chanconf)." - 1");
foreach (keys %opts) {
+ next unless ($opts{$_} > 2);
&DEBUG(" opts{$_} => $opts{$_}");
}
" chans) at $time");
if (defined $msgType and $msgType =~ /^chat$/) {
- &performStrictReply("--- Writing chan file...");
+ &pSReply("--- Writing chan file...");
}
}
##### USER COMMANDS.
#####
+# TODO: support multiple flags, eg: "+o-m"
sub IsFlag {
my $flags = shift;
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;
sub verifyUser {
my ($nick, $lnuh) = @_;
- my ($user,$m);
+ my ($user, $m);
if ($userHandle = $dcc{'CHATvrfy'}{$who}) {
&VERB("vUser: cached auth for $who.",2);
foreach $user (keys %users) {
next if ($user eq "_default");
- foreach $m (keys %{$users{$user}{HOSTS}}) {
+ foreach $m (keys %{ $users{$user}{HOSTS} }) {
$m =~ s/\?/./g;
$m =~ s/\*/.*?/g;
$m =~ s/([\@\(\)\[\]])/\\$1/g;
return 0 unless ($plain ne "" and $encrypted ne "");
# MD5 // DES. Bobby Billingsley++.
- my $salt = substr($encrypted, 0, 2);
- if ($encrypted =~ /^\$\d\$(\w\w)\$/) {
+ my $salt;
+ if ($encrypted =~ /^(\S{2})/ and length $encrypted == 13) {
+ $salt = $1;
+ } elsif ($encrypted =~ /^\$\d\$(\w\w)\$/) {
$salt = $1;
+ } else {
+ &DEBUG("unknown salt from $encrypted.");
+ return 0;
}
return ($encrypted eq crypt($plain, $salt));
sub hasFlag {
my ($flag) = @_;
- if (&IsFlag($flag) eq $flag) {
- return 1;
- } else {
+ if (&IsFlag($flag) ne $flag) {
&status("DCC CHAT: <$who> $message -- not enough flags.");
- &performStrictReply("error: you do not have enough flags for that. ($flag required)");
+ &pSReply("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) = @_;
my $count ||= 0;
if ($expire > 0) {
- $expire = $expire*60 + time();
+ $expire = ($expire*60) + time();
} else {
$expire = 0;
}
$ignore{$chan}{$mask} = [$expire, time(), $who, $comment];
+ # TODO: improve this.
+ if ($expire == 0) {
+ &status("ignore: Added $mask for $chan to NEVER expire, by $who, for $comment");
+ } else {
+ &status("ignore: Added $mask for $chan to expire $expire mins, by $who, for $comment");
+ }
+
if ($exist) {
$utime_userfile = time();
$ucount_userfile++;
}
sub userAdd {
- my($nick,$mask) = @_;
+ my($nick,$mask) = @_;
- if (exists $users{$nick}) {
- return 0;
- }
+ return 0 if (exists $users{$nick});
$utime_userfile = time();
$ucount_userfile++;
- $users{$nick}{HOSTS}{$mask} = 1;
- $users{$nick}{FLAGS} ||= $users{_default}{FLAGS};
+ if (defined $mask and $mask !~ /^\s*$/) {
+ &DEBUG("userAdd: mask => $mask");
+ $users{$nick}{HOSTS}{$mask} = 1;
+ }
+
+ $users{$nick}{FLAGS} ||= $users{_default}{FLAGS};
return 1;
}
sub userDel {
my($nick) = @_;
- if (!exists $users{$nick}) {
- return 0;
- }
+ return 0 if (!exists $users{$nick});
$utime_userfile = time();
$ucount_userfile++;
sub banAdd {
my($mask,$chan,$expire,$reason) = @_;
-
$chan ||= "*";
$expire ||= 0;
-
- if ($expire > 0) {
- $expire = $expire*60 + time();
- }
+ $expire = $expire*60 + time() if ($expire > 0);
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 $m = $mask;
+ $m =~ s/\?/\\./g;
+ $m =~ s/\*/\\S*/g;
+ foreach (@chans) {
+ my $chan = $_;
+ foreach (keys %{ $channels{$chan}{''} }) {
+ next unless (exists $nuh{lc $_});
+ next unless ($nuh{lc $_} =~ /^$m$/i);
+ &FIXME("nuh{$_} =~ /$m/");
+ }
+ }
+
if ($exist == 1) {
$utime_userfile = time();
$ucount_userfile++;
return;
}
$chanconf{$chan}{_time_added} = time();
- $chanconf{$what}{autojoin} = 1;
+ $chanconf{$chan}{autojoin} = 1;
&pSReply("Joining $chan...");
&joinchan($chan);
my $update = 0;
- if (defined $what and $what =~ s/^\+(\S+)/$1/) {
- my $was = $chanconf{$chan}{$1};
- if (defined $was and $was eq "1") {
- &pSReply("setting $what for $chan already 1.");
- return;
- }
+ if (defined $what and $what =~ s/^([+-])(\S+)/$2/) {
+ ### ".chanset +blah"
+ ### ".chanset +blah 10" -- error.
- $was = ($was) ? "; was '$was'" : "";
- &pSReply("Setting $what for $chan to '1'$was.");
+ my $state = ($1 eq "+") ? 1 : 0;
+ my $was = $chanconf{$chan}{$what};
- $chanconf{$chan}{$what} = 1;
+ if ($state) { # add/set.
+ if (defined $was and $was eq "1") {
+ &pSReply("setting $what for $chan already 1.");
+ return;
+ }
- $update++;
- } elsif (defined $what and $what =~ s/^\-(\S+)/$1/) {
- my $was = $chanconf{$chan}{$1};
- # hrm...
- if (!defined $was) {
- &pSReply("setting $what for $chan is not set.");
- return;
- }
+ $val = 1;
- if ($was eq "0") {
- &pSReply("setting $what for $chan already 0.");
- 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.");
+ return;
+ }
+
+ $val = 0;
}
+ # alter for cosmetic (print out) reasons only.
$was = ($was) ? "; was '$was'" : "";
- &pSReply("Setting $what for $chan to '0'$was.");
- $chanconf{$chan}{$what} = 0;
+ if ($val eq "0") {
+ &pSReply("Unsetting $what for $chan$was.");
+ delete $chanconf{$chan}{$what};
+ } else {
+ &pSReply("Setting $what for $chan to '$val'$was.");
+ $chanconf{$chan}{$what} = $val;
+ }
$update++;
+
} elsif (defined $val) {
+ ### ".chanset blah testing"
+
my $was = $chanconf{$chan}{$what};
if (defined $was and $was eq $val) {
&pSReply("setting $what for $chan already '$val'.");
$chanconf{$chan}{$what} = $val;
$update++;
+
} else { # read only.
+ ### ".chanset"
+ ### ".chanset blah"
+
+ if (!defined $what) {
+ &WARN("chanset/DC: what == undefine.");
+ return;
+ }
+
if (exists $chanconf{$chan}{$what}) {
&pSReply("$what for $chan is '$chanconf{$chan}{$what}'");
} else {
if ($update) {
$utime_chanfile = time();
$ucount_chanfile++;
- return;
}
- ### TODO: move to UserDCC again.
- if ($cmd eq "chanset" and !defined $what) {
- &DEBUG("showing channel conf.");
-
- foreach $chan ($chan, "_default") {
- &pSReply("chan: $chan");
- ### TODO: merge 2 or 3 per line.
- my @items;
- my $str = "";
- foreach (sort keys %{ $chanconf{$chan} }) {
- my $newstr = join(', ', @items);
- if (length $newstr > 60) {
- &pSReply(" $str");
- @items = ();
- }
- $str = $newstr;
- push(@items, "$_ => $chanconf{$chan}{$_}");
- }
+ return;
+}
+
+sub rehashConfVars {
+ # this is an attempt to fix where an option is enabled but the module
+ # has been not loaded. it also can be used for other things.
+
+ foreach (keys %{ $cache{confvars} }) {
+ my $i = $cache{confvars}{$_};
+ &DEBUG("rehashConfVars: _ => $_");
- &pSReply(" $str") if (@items);
+ if (/^news$/ and $i) {
+ &loadMyModule("news");
+ delete $cache{confvars}{$_};
}
- return;
+ if (/^uptime$/ and $i) {
+ &loadMyModule("uptime");
+ delete $cache{confvars}{$_};
+ }
+
+ if (/^rootwarn$/i and $i) {
+ &loadMyModule($_);
+ delete $cache{confvars}{$_};
+ }
}
- return;
+ &DEBUG("end of rehashConfVars");
+
+ delete $cache{confvars};
}
-my @regFlagsChan = (
- "autojoin",
- "freshmeat",
- "limitcheckInterval",
- "limitcheckPlus",
- "allowConv",
- "allowDNS",
-### TODO: finish off this list.
-);
+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;
+ }
-my @regFlagsUser = ("mno"); # todo...
+ 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"
+);
1;