-@inqueue = undef; # the main input queue, an array of hashes
-
-# handle out going messages
-sub send_now
-{
- my ($conn, $sort, $call, $line) = @_;
-
- print DEBUG "$t > $sort $call $line\n" if defined DEBUG;
- print "> $sort $call $line\n";
- $conn->send_now("$sort$call|$line");
-}
-
-sub send_later
-{
- my ($conn, $sort, $call, $line) = @_;
-
- print DEBUG "$t > $sort $call $line\n" if defined DEBUG;
- print "> $sort $call $line\n";
- $conn->send_later("$sort$call|$line");
-}