X-Git-Url: http://www.dxcluster.org/gitweb/gitweb.cgi?p=spider.git;a=blobdiff_plain;f=perl%2FDXProtout.pm;h=555bc0c7cff445a30c118b546f8dcb5f58b75e27;hp=af833183846634a5dc528527eaa9e897b8b238fc;hb=b060a0a3ee72530aa3f10d453186a662b66d7efe;hpb=3d29b1a4d4aab997da2deff10470068601744530 diff --git a/perl/DXProtout.pm b/perl/DXProtout.pm index af833183..555bc0c7 100644 --- a/perl/DXProtout.pm +++ b/perl/DXProtout.pm @@ -199,6 +199,20 @@ sub pc33 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 {