#!/usr/bin/perl

# This script keeps a connection alive by sending out a ping at regular
# intervals.
#
# Author: Mark A. Martin
# Last Modified: Sat Oct 17 07:54:03 PDT 1998
#
# This script is provided "As is" and all responsibility for its use is
# assumed by the user.  Copyright Mark A. Martin 1999.

die "Usage: pingd interval host\n" if $#ARGV != 1;

($interval, $host) = splice @ARGV, 0;

$ping = '/bin/ping -c 1';

while (1) {
    system "$ping $host";
    sleep $interval;
}
