git-svn-id: https://svn.code.sf.net/p/infobot/code/trunk/blootbot@321
c11ca15a-4712-0410-83d8-
924469b57eb5
- ### TODO: $what can be undefined. fix it!
- if ($what =~ s/^\+(\S+)/$1/) {
+ if (defined $what and $what =~ s/^\+(\S+)/$1/) {
my $was = $chanconf{$chan}{$1};
my $was = $chanconf{$chan}{$1};
+ if (defined $was and $was eq "1") {
&pSReply("setting $what for $chan already 1.");
return;
}
&pSReply("setting $what for $chan already 1.");
return;
}
$chanconf{$chan}{$what} = 1;
$update++;
$chanconf{$chan}{$what} = 1;
$update++;
- } elsif ($what =~ s/^\-(\S+)/$1/) {
+ } elsif (defined $what and $what =~ s/^\-(\S+)/$1/) {
my $was = $chanconf{$chan}{$1};
# hrm...
if (!defined $was) {
my $was = $chanconf{$chan}{$1};
# hrm...
if (!defined $was) {
$update++;
} elsif (defined $val) {
my $was = $chanconf{$chan}{$what};
$update++;
} elsif (defined $val) {
my $was = $chanconf{$chan}{$what};
+ if (defined $was and $was eq $val) {
&pSReply("setting $1 for $chan already '$val'.");
return;
}
&pSReply("setting $1 for $chan already '$val'.");
return;
}
$delete = ($1) ? 1 : 0;
&DEBUG("chan => $chan.");
} else {
$delete = ($1) ? 1 : 0;
&DEBUG("chan => $chan.");
} else {
- &DEBUG("no chan arg; setting to default.");
+ &VERB("no chan arg; setting to default.",2);