mirror of
https://git.savannah.gnu.org/git/parallel.git
synced 2024-12-23 21:27:53 +00:00
31 lines
1.4 KiB
Bash
31 lines
1.4 KiB
Bash
#!/bin/bash
|
|
|
|
# Check servers up on http://www.polarhome.com/service/status/
|
|
|
|
P_ALL="vax freebsd solaris openbsd netbsd debian alpha aix redhat hpux ultrix minix qnx irix tru64 openindiana suse solaris-x86 mandriva ubuntu scosysv unixware dragonfly centos miros hurd raspbian macosx hpux-ia64 syllable"
|
|
P_NOTWORKING="vax alpha openstep"
|
|
P_NOTWORKING_YET="ultrix irix"
|
|
|
|
P_WORKING="minix freebsd solaris openbsd netbsd debian aix redhat hpux qnx tru64 openindiana suse solaris-x86 mandriva ubuntu scosysv unixware dragonfly centos miros hurd raspbian macosx hpux-ia64 syllable"
|
|
|
|
P="$P_WORKING"
|
|
POLAR=`parallel -k echo {}.polarhome.com ::: $P`
|
|
# Avoid the stupid /etc/issue.net banner at Polarhome: -oLogLevel=quiet
|
|
|
|
echo '### Tests on polarhome machines'
|
|
echo 'Setup on polarhome machines'
|
|
stdout parallel -kj0 ssh -oLogLevel=quiet {} mkdir -p bin ::: $POLAR &
|
|
|
|
copy_and_test() {
|
|
H=$1
|
|
# scp to each polarhome machine do not work. Use cat
|
|
# Avoid the stupid /etc/issue.net banner with -oLogLevel=quiet
|
|
echo '### Run the test on '$H
|
|
cat `which parallel` |
|
|
stdout ssh -oLogLevel=quiet $H 'cat > bin/p.tmp && chmod 755 bin/p.tmp && mv bin/p.tmp bin/parallel && bin/perl bin/parallel echo Works on {} ::: '$H'; bin/perl bin/parallel --tmpdir / echo ::: test read-only tmp' |
|
|
perl -pe 's:/[a-z0-9_]+.arg:/XXXXXXXX.arg:gi'
|
|
}
|
|
export -f copy_and_test
|
|
stdout parallel -j0 -k --retries 5 --timeout 80 --delay 0.1 --tag -v copy_and_test {} ::: $POLAR
|
|
|