- _sendf('D', $main::mycall, $conn->{call}, $conn->{agwport}, $conn->{agwpid}, $msg . $conn->{lineend});
+# _sendf('Y', $main::mycall, $conn->{call}, $conn->{agwport}, $conn->{agwpid});
+ _sendf('D', $main::mycall, $conn->{agwcall}, $conn->{agwport}, $conn->{agwpid}, $msg . $conn->{lineend});
+ }
+}
+
+sub process
+{
+ return unless $sock;
+ if ($ypolltime && $main::systime - $lastytime >= $ypolltime) {
+ for (my $i = 0; $i < $noports; $i++) {
+ _sendf('y', undef, undef, $i );
+ }
+ $lastytime = $main::systime;
+ }
+ if ($hpolltime && $main::systime - $lasthtime >= $hpolltime) {
+ for (my $i = 0; $i < $noports; $i++) {
+ _sendf('H', undef, undef, $i );
+ }
+ $lasthtime = $main::systime;