- my ($fromnode, $tonode, $stream) = @_;
- return "PC33^$fromnode^$tonode^$stream^";
+ my ($fromnode, $tonode, $stream) = @_;
+ 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^~";