X-Git-Url: http://www.dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXVars.pm;h=8cc17e6cac1e1fe1a0dda3f59b8e3ba0512a42af;hb=1cf4bd14be226274d5deb05da8480ab91a5dac52;hp=39549e64db576dfcc699df6aa858d806de5a881e;hpb=6b6a8002929017b6d4217f68fa492a2d728ee1fe;p=spider.git diff --git a/perl/DXVars.pm b/perl/DXVars.pm index 39549e64..8cc17e6c 100644 --- a/perl/DXVars.pm +++ b/perl/DXVars.pm @@ -13,10 +13,11 @@ require Exporter; @ISA = qw(Exporter); @EXPORT_OK = qw($mycall $myname $myalias $mylatitude $mylongtitude $mylocator - $myqth $myemail $myprot + $myqth $myemail $myprot_version $clusterport $clusteraddr $debugfn $def_hopcount $root $data $system $cmd $userfn $motd $local_cmd $mybbsaddr + $pc50_interval, $user_interval ); @@ -56,11 +57,14 @@ $clusterport = 27754; # cluster debug file $debugfn = "/tmp/debug_cluster"; -# the version of DX cluster (tm) software I am masquerading as -$myprot = "5447"; +# your favorite way to say 'Yes' +$yes = 'Yes'; -# default hopcount to use - note this will override any incoming hop counts, if they are greater -$def_hopcount = 7; +# your favorite way to say 'No' +$no = 'No'; + +# the interval between unsolicited prompts if not traffic +$user_interval = 11*60; # root of directory tree for this system $root = "/spider";