projects
/
spider.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
added set/page and paging
[spider.git]
/
perl
/
DXProtout.pm
diff --git
a/perl/DXProtout.pm
b/perl/DXProtout.pm
index ad431481bcfd356f0ea2dcb6599d01dda3864329..07d5a0e98baeb9f51173797efd3101f1412d0a7e 100644
(file)
--- a/
perl/DXProtout.pm
+++ b/
perl/DXProtout.pm
@@
-93,7
+93,8
@@
sub pc17
# Request init string
sub pc18
{
# 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^~";
}
#
}
#
@@
-199,6
+200,20
@@
sub pc33
return "PC33^$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^~";
+}
+
# send all the DX clusters I reckon are connected
sub pc38
{
# send all the DX clusters I reckon are connected
sub pc38
{
@@
-216,9
+231,9
@@
sub pc38
sub pc39
{
my ($call, $reason) = @_;
sub pc39
{
my ($call, $reason) = @_;
- my $hops = get_hops(
21
);
+ my $hops = get_hops(
39
);
$reason = "Gone." if !$reason;
$reason = "Gone." if !$reason;
- return "PC39^$call^$reason^";
+ return "PC39^$call^$reason^
$hops^
";
}
# cue up bulletin or file for transfer
}
# cue up bulletin or file for transfer