sirc/sirc-2.211/dsirc.prepatch

335   local($sfh, $rfh)=@_;
336   &dohooks("dcc_disconnect", $dnick{$sfh}, $dfile{$rfh}, $dtransferred{$sfh},
338 …&tell("*\cbD\cb* DCC transfer with $dnick{$sfh} terminated; $dtransferred{$sfh} bytes transferred …
339   close($sfh);
341   delete $dgrfh{$sfh};
342   delete $dsrfh{$sfh};
345   delete $dtransferred{$sfh};
346   delete $dnick{$sfh};
973 	foreach $sfh (grep(&eq($newarg, $dnick{$_}), keys(%dnick))) {
974 	  if (!$found && $dgrfh{$sfh}) {
975 	    local($fh)=$dgrfh{$sfh};
977 	    &dohooks("dcc_disconnect", $dnick{$sfh}, $dfile{$fh},
978 		$dtransferred{$sfh}, time-$dstarttime{$fh});
981 	    close $sfh;
983 	    delete $dgrfh{$sfh};
986 	    delete $dtransferred{$sfh};
987 	    delete $dnick{$sfh};
996 	foreach $sfh (keys(%dswait), keys(%dsrfh)) {
997 	  next unless &eq($dnick{$sfh}, $n);
998 	  $fh=$dswait{$sfh} || $dsrfh{$sfh} || next;
1002 	    &dohooks("dcc_disconnect", $dnick{$sfh}, $dfile{$fh},
1003 		$dtransferred{$sfh}, time-$dstarttime{$fh});
1004 	    close($sfh);
1006 	    delete $dswait{$sfh};
1007 	    delete $dsrfh{$sfh};
1010 	    delete $dtransferred{$sfh};
1011 	    delete $dnick{$sfh};
1046 	local($fh, $sfh);
1051 	&connect($sfh, $dgadr, $dgport) || return;
1052 	$dgrfh{$sfh}=$fh;
1053 	$dnick{$sfh}=$n;
1056 	$dtransferred{$sfh}=0;
1954   foreach $sfh (keys (%dswait)) {
1955     local($rfh, $fh)=$dswait{$sfh};
1956     if (vec($rout, fileno($sfh), 1)) {
1957       if (&accept($fh, $sfh)) {
1962 	$dnick{$fh}=$dnick{$sfh};
1963 	&tell("*\cbD\cb* DCC SEND connection with $dnick{$sfh} established");
1965       delete $dnick{$sfh};
1966       delete $dswait{$sfh};
1969   foreach $sfh (keys (%dgrfh)) {
1970     local($rfh)=$dgrfh{$sfh};
1971     if (vec($rout, fileno($sfh), 1)) {
1973       $a=sysread($sfh, $buf, 4096);
1975 	$dtransferred{$sfh}+=$a;
1977 	print $sfh pack("N", $dtransferred{$sfh});
1979 	&dgsclose($sfh, $rfh);
1983   foreach $sfh (keys (%dsrfh)) {
1984     local($rfh)=$dsrfh{$sfh};
1985     if (vec($rout, fileno($sfh), 1) || !$dtransferred{$sfh}) {
1987       if ($dtransferred{$sfh}) {
1988 	&dgsclose($sfh, $rfh), next if sysread($sfh, $b, 4)!=4;
1991       $csa=$set{"SENDAHEAD"}-$dtransferred{$sfh}+$ack;
1994       $w=syswrite($sfh, $buf, $l) if $l;
1995       next if $l==0 && $ack<$dtransferred{$sfh};
1996       $dtransferred{$sfh}+=$w;
1997       &dgsclose($sfh, $rfh), next if ($w<$l || $l==0);