X-Git-Url: http://www.dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2Fcluster.pl;h=900d57a8b125a105765eda9bb096759da09a915e;hb=refs%2Fheads%2Fstaging;hp=177009ea20bb4a12cf63ed6d6e8aa994285c086c;hpb=bb3889c1d4930e2ca96b47aea10ce5e803737043;p=spider.git diff --git a/perl/cluster.pl b/perl/cluster.pl index 177009ea..900d57a8 100755 --- a/perl/cluster.pl +++ b/perl/cluster.pl @@ -218,6 +218,12 @@ our $clssecs; # the amount of cpu time the DXSpider process have consumed our $cldsecs; # the amount of cpu time any child processes have consumed our $allowslashcall; # Allow / in connecting callsigns (ie PA0/G1TLH, or even PA0/G1TLH/2) +our @localhost_names = qw(127.0.0.1 ::1); # all ip addresses that will need to be aliased below (ipv4 or ipv6) + +our $localhost_alias_ipv4; # these are the IPV4 & 6 aliases for localhost connected clients +our $localhost_alias_ipv6; # for things (PC92, PC61 etc) that expose IP addresses. These *may* + # be set by Msg.pm stuff if they are left undefined but, if you need + # certanty then set/var them in the startup file. use vars qw($version $subversion $build $gitversion $gitbranch); @@ -515,7 +521,6 @@ sub AGWrestart AGWMsg::init(\&new_channel); } - sub setup_start { #############################################################