Added BBS.pm to start allowing BBSes to send mail into the cluster

[spider.git] / perl / Msg.pm

diff --git a/perl/Msg.pm b/perl/Msg.pm
index 65a32a662c64e7e1ec82df62d2bc94ba19cd848f..e1ece5b93c35e932e118308785b6d8d7ca3e478f 100644 (file)
--- a/perl/Msg.pm
+++ b/perl/Msg.pm
@@ -68,6 +68,7 @@ sub disconnect {
     return unless defined($sock);
     set_event_handler ($sock, "read" => undef, "write" => undef);
     shutdown($sock, 3);
+       close($sock);
 }
 
 sub send_now {
@@ -277,6 +278,13 @@ sub _new_client {
     }
 }
 
+sub close_server
+{
+       set_event_handler ($main_socket, "read" => undef);
+       $main_socket->close;
+       $main_socket = 0;
+}
+
 #----------------------------------------------------
 # Event loop routines used by both client and server