# Request init string
sub pc18
{
- return "PC18^wot a load of twaddle^$DXProt::myprot_version^~";
+ my $info = DXCluster::cluster;
+ return "PC18^$info^$DXProt::myprot_version^~";
}
#
return "PC33^$fromnode^$tonode^$stream^";
}
+# remote cmd send
+sub pc34
+{
+ my($fromnode, $tonode, $msg) = @_;
+ return "PC34^$tonode^$fromnode^$msg^~";
+}
+
+# remote cmd reply
+sub pc35
+{
+ my($fromnode, $tonode, $msg) = @_;
+ return "PC35^$tonode^$fromnode^$msg^~";
+}
+
# send all the DX clusters I reckon are connected
sub pc38
{
sub pc39
{
my ($call, $reason) = @_;
- my $hops = get_hops(21);
+ my $hops = get_hops(39);
$reason = "Gone." if !$reason;
- return "PC39^$call^$reason^";
+ return "PC39^$call^$reason^$hops^";
}
# cue up bulletin or file for transfer