GIT.Harvie.CZ
/
mirrors
/
Programs.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
blame
|
history
|
raw
|
HEAD
Script to automatically open Cluster SSH to all machines in network
[mirrors/Programs.git]
/
perl
/
timeout.pl
1
#!/usr/bin/env perl
2
use
strict
;
3
use
warnings
;
4
use
LWP
::
Simple
;
5
use
Time
::
HiRes
qw(alarm ualarm)
;
6
7
while
(
1
) {
8
$SIG
{
ALRM
} =
sub
{
9
alarm
(
1
);
10
print
(
"again
\n
"
);
11
getprint
(
'http://192.168.2.1:2/'
);
12
#print get('http://192.168.2.1:2/');
13
};
14
alarm
(
1
);
15
sleep
(
1
);
16
}
This page took
0.35349 seconds
and
4
git commands to generate.