X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXChannel.pm;h=5505610e9752b8520f6270733fdc0b1387185bc0;hb=5d197c9f7aa2ea796d86aa5473f93956b24cf1b7;hp=d540004e638f2c9ad2051dc487a37433f50f5549;hpb=f3adc82a0299652d929b73c718127fa38571eec5;p=spider.git

diff --git a/perl/DXChannel.pm b/perl/DXChannel.pm
index d540004e..5505610e 100644
--- a/perl/DXChannel.pm
+++ b/perl/DXChannel.pm
@@ -231,6 +231,22 @@ sub disconnect
 	$self->del();
 }
 
+#
+# just close all the socket connections down without any fiddling about, cleaning, being
+# nice to other processes and otherwise telling them what is going on.
+#
+# This is for the benefit of forked processes to prepare for starting new programs, they
+# don't want or need all this baggage.
+#
+
+sub closeall
+{
+	my $ref;
+	foreach $ref (values %channels) {
+		$ref->{conn}->disconnect() if $ref->{conn};
+	}
+}
+
 # various access routines
 
 #