&delForked($forker);
}
- &DEBUG("dcc_close: nick => '$nick'.");
-
if (exists $dcc{'SEND'}{$nick} and -f "$param{tempDir}/$nick.txt") {
&status("${b_green}DCC SEND$ob close from $b_cyan$nick$ob");
} elsif (exists $dcc{'CHAT'}{$nick} and $dcc{'CHAT'}{$nick} eq $sock) {
&status("${b_green}DCC CHAT$ob close from $b_cyan$nick$ob");
delete $dcc{'CHAT'}{$nick};
+ delete $dcc{'CHATvrfy'}{$nick};
} else {
&status("${b_green}DCC$ob UNKNOWN close from $b_cyan$nick$ob (2)");
}
&status("${b_green}DCC lGET$ob established with $b_cyan$nick$ob");
} elsif ($type eq 'CHAT') {
&status("${b_green}DCC CHAT$ob established with $b_cyan$nick$ob $b_yellow($ob$nuh{$nick}$b_yellow)$ob");
- $userHandle = &verifyUser($nick, $nuh{lc $nick});
+ &verifyUser($nick, $nuh{lc $nick});
my $crypto = $users{$userHandle}{PASS};
$dcc{'CHAT'}{$nick} = $sock;
my $chan = $_;
foreach (keys %{ $ignore{$chan} }) {
- my @array = \@{ $ignore{$chan}{$_} };
+ my @array = @{ $ignore{$chan}{$_} };
foreach (@array) {
&DEBUG("ignore: => $_");
}
- next;
- next unless ($time > $ignore{$_});
+ next unless ($array[0] and $time > $array[0]);
delete $ignore{$chan}{$_};
&status("ignore: $_/$chan has expired.");