ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/AnyEvent-MP/MP/Base.pm
(Generate patch)

Comparing AnyEvent-MP/MP/Base.pm (file contents):
Revision 1.18 by root, Mon Aug 10 01:37:19 2009 UTC vs.
Revision 1.19 by root, Mon Aug 10 19:19:29 2009 UTC

… …
37 37
38 NODE $NODE node_of snd kil _any_ 38 NODE $NODE node_of snd kil _any_
39 resolve_node initialise_node 39 resolve_node initialise_node
40); 40);
41 41
42our $DEFAULT_SECRET;
43our $DEFAULT_PORT = "4040"; 42our $DEFAULT_PORT = "4040";
44 43
45our $CONNECT_INTERVAL = 2; # new connect every 2s, at least 44our $CONNECT_INTERVAL = 2; # new connect every 2s, at least
46our $CONNECT_TIMEOUT = 5; # includes handshake 45our $CONNECT_TIMEOUT = 5; # includes handshake
47our $CONNECT_TIMEOUT_MAX = 90; # never retry less often 46our $CONNECT_TIMEOUT_MAX = 90; # never retry less often
… …
93 $data =~ s/\//s/g; 92 $data =~ s/\//s/g;
94 $data =~ s/\+/p/g; 93 $data =~ s/\+/p/g;
95 } 94 }
96 95
97 $data 96 $data
98}
99
100sub default_secret {
101 unless (defined $DEFAULT_SECRET) {
102 if (open my $fh, "<$ENV{HOME}/.aemp-secret") {
103 sysread $fh, $DEFAULT_SECRET, -s $fh;
104 } else {
105 $DEFAULT_SECRET = nonce 32;
106 }
107 }
108
109 $DEFAULT_SECRET
110} 97}
111 98
112sub gen_uniq { 99sub gen_uniq {
113 asciibits pack "wNa*", $$, time, nonce 2 100 asciibits pack "wNa*", $$, time, nonce 2
114} 101}

Diff Legend

– Removed lines
+ Added lines
< Changed lines
> Changed lines