return;
}
$chanconf{$chan}{_time_added} = time();
- $chanconf{$chan}{autojoin} = 1;
+ $chanconf{$chan}{autojoin} = $conn->nick();
&pSReply("Joining $chan...");
&joinchan($chan);
foreach (keys %chanconf) {
next if ($_ eq "_default");
- my $val = $chanconf{$_}{autojoin};
my $skip = 0;
+ my $val = $chanconf{$_}{autojoin};
if (defined $val) {
$skip++ if ($val eq "0");
+ if (($conn) and ($val eq "1")) {
+ # convert old +autojoin to autojoin <nick>
+ $val = $conn->nick();
+ $chanconf{$_}{autojoin} = $val;
+ }
} else {
$skip++;
}
if ($skip) {
push(@skip, $_);
- next;
+ } elsif (($conn) and ($conn->nick() eq $val)) {
+ push(@chans, $_);
+ } else {
+ push(@skip, $_);
}
-
- push(@chans, $_);
}
my $str;
&status("Chans: ".$str) if ($show);
- return @chans;
+ return sort @chans;
}
sub closeDCC {