return unless (&hasFlag("m"));
if ($cmd eq "+chan") {
- &DEBUG("setting _time_added...");
+ if (exists $chanconf{$chan}) {
+ &pSReply("chan $chan already exists.");
+ return;
+ }
$chanconf{$chan}{_time_added} = time();
+ $chanconf{$what}{autojoin} = 1;
&pSReply("Joining $chan...");
&joinchan($chan);
}
my $update = 0;
- if (defined $what and $what =~ s/^\+(\S+)/$1/) {
+### FIX THIS UP.
+ if (defined $what) {
+ if ($what =~ s/^\+(\S+)/$1/) {
my $was = $chanconf{$chan}{$1};
if (defined $was and $was eq "1") {
&pSReply("setting $what for $chan already 1.");
$chanconf{$chan}{$what} = 1;
$update++;
- } elsif (defined $what and $what =~ s/^\-(\S+)/$1/) {
+ } elsif ($what =~ s/^\-(\S+)/$1/) {
my $was = $chanconf{$chan}{$1};
# hrm...
if (!defined $was) {
- &pSReply("setting $1 for $chan is not set.");
+ &pSReply("setting $what for $chan is not set.");
return;
}
if ($was eq "0") {
- &pSReply("setting $1 for $chan already 0.");
+ &pSReply("setting $what for $chan already 0.");
return;
}
} elsif (defined $val) {
my $was = $chanconf{$chan}{$what};
if (defined $was and $was eq $val) {
- &pSReply("setting $1 for $chan already '$val'.");
+ &pSReply("setting $what for $chan already '$val'.");
return;
}
$was = ($was) ? "; was '$was'" : "";
$chanconf{$chan}{$what} = $val;
$update++;
- } elsif (defined $what) {
+ } else {
if (exists $chanconf{$chan}{$what}) {
&pSReply("$what for $chan is '$chanconf{$chan}{$what}'");
} else {
&pSReply("$what for $chan is not set.'");
}
}
+ }
+### END OF cheap insert of if statement.
if ($update) {
$utime_chanfile = time();
$str = $newstr;
push(@items, "$_ => $chanconf{$chan}{$_}");
}
+
+ &pSReply(" $str") if (@items);
}
return;