dbg('connect', "CHAT \"$expect\" -> \"$send\"");
my $line;
- # alarm($timeout);
+ alarm($timeout);
if ($expect) {
if ($csort eq 'telnet') {
$sock->print("$send\n");
} elsif ($csort eq 'ax25') {
local $\ = "\r";
- $wfh->print("$send\r");
+ $wfh->print("$send");
}
dbg('connect', "sent \"$send\"");
}
$connsort = lc shift @ARGV;
$connsort = 'local' if !$connsort;
-$mode = ($connsort =~ /^ax/o) ? 1 : 2;
+#
+# strip off any SSID if it is a telnet connection
+#
+# SSID's are a problem, basically we don't allow them EXCEPT for the special case
+# of local users. i.e. you can have a cluster call with an SSID and a usercall with
+# an SSID and they are different to the system to those without SSIDs
+#
+
+$call =~ s/-\d+$//o if $mode eq 'telnet';
+$mode = ($connsort eq 'ax25') ? 1 : 2;
setmode();
if ($call eq $mycall) {