#!/bin/csh
#############################################################################
#
#                                              Hans Wolfgang Loidl, 29.5.1992
#  Usage: acpc-ping
#
#  Ping all machines in the ACPC network and deliver the result at stdout.
#
#############################################################################

echo Pinging all machines in the ACPC network ...
echo Today is `date`

# RISC (Group Buchberger)

echo \-\-\> Pinging Sequent and Transputers \(Host\) at RISC-Linz ...
/etc/ping melmac.risc.uni-linz.ac.at 16
/etc/ping venus.risc.uni-linz.ac.at 16

# Uni-Vienna (Group Haring)

echo \-\-\> Pinging Transputers \(Host\) at Uni-Vienna ...
/etc/ping epikur.ani.univie.ac.at 16

# TU-Vienna (Group Kleinert)

echo \-\-\> Pinging Sequent and Hypercube \(Host\) at TU-Vienna ...
/etc/ping eacpc1.tuwien.ac.at 16
/etc/ping eacpc2.tuwien.ac.at 16

# GUP  (Group Volkert)

echo \-\-\> Pinging nCube \(Host\) at GUP-Linz ...
#/etc/ping SUN330.edvz.uni-linz.ac.at 16
/etc/ping 140.78.3.5 16

# PPS  (Group Zima)

echo \-\-\> Pinging Hypercube \(Host\), Transputers \(Host\) and MasPar at PPS-Vienna ...
/etc/ping pixy.par.univie.ac.at 16
/etc/ping merlin.par.univie.ac.at 16
/etc/ping maspar.par.univie.ac.at 16
# /etc/ping 131.130.70.36 16

# Salzburg  (Group Zinterhof)

echo \-\-\> Pinging SUN, Convex and DEC Alpha CLuster at Uni-Salzburg ...
/etc/ping spock.coma.sbg.ac.at 16       # Sun 
/etc/ping 141.201.10.2 16               # Convex
/etc/ping picard.coma.sbg.ac.at 16      # Alpha Cluster
#/etc/ping ???

echo "======================================================================= "

# reschedule job
echo "/bin/sh /usr/users/hwloidl/bin/acpc-ping 1>>acpc-ping.out 2>/dev/null" | at now + 60 minutes