+#@outstanding_connects = (); # list of outstanding connects
+@listeners = (); # list of listeners
+$reqreg = 0; # 1 = registration required, 2 = deregister people
+$bumpexisting = 1; # 1 = allow new connection to disconnect old, 0 - don't allow it
+$allowdxby = 0; # 1 = allow "dx by <othercall>", 0 - don't allow it
+
+
+use vars qw($VERSION $BRANCH $build $branch);
+$VERSION = sprintf( "%d.%03d", q$Revision$ =~ /(\d+)\.(\d+)/ );
+$BRANCH = sprintf( "%d.%03d", q$Revision$ =~ /\d+\.\d+\.(\d+)\.(\d+)/ || (0,0));
+$main::build += $VERSION;
+$main::branch += $BRANCH;
+$main::build -= 3; # fudge (put back for now)
+
+
+
+# send a message to call on conn and disconnect
+sub already_conn
+{
+ my ($conn, $call, $mess) = @_;
+
+ $conn->disable_read(1);
+ dbg("-> D $call $mess\n") if isdbg('chan');
+ $conn->send_now("D$call|$mess");
+ sleep(2);
+ $conn->disconnect;
+}
+
+sub error_handler