#!/usr/bin/perl
#
#    Satoshi Yasuda   7m3tjz/ad6gz
#
#  $Header: /usr/amsat/bin/RCS/receive_int,v 1.3 2006/03/08 23:01:11 root Exp $

$tbdcmdpath = "/usr/local/bin/tbdcmd";
$sleeppath = "/bin/sleep";

if (! defined($ARGV[0])) {
        print "Usage: $0 callsign [[loop_count:4] mute_duration:3]\n";
        exit 1;
}
#
$callsign = $ARGV[0];
#
$cnt = 4;
$duration = 3;
#
if (defined($ARGV[1])) {
	$cnt = $ARGV[1];
}

if (defined($ARGV[2])) {
    $duration = $ARGV[2];
}
#
$mutecmd = sprintf ("%s \"mute %s\"",$tbdcmdpath,$callsign);
$unmutecmd = sprintf ("%s \"unmute %s\"",$tbdcmdpath,$callsign);
#
while ($cnt)
{
 system ($mutecmd);
 system ($sleeppath . ' ' . $duration);   #  mute for desired interval
 system ($unmutecmd);
 system ($sleeppath . ' 150'); # wait 150 seconds
 $cnt -= 1;
 }
#