#!/usr/local/bin/perl -w
 
#  Process command line
#  --------------------
   if ($#ARGV < 2) {
      print "\n";
      print "Usage: fixslip qmfile satellite hh:mm\n";
      print "\n";
      exit 1;
   }

system("rm -f temp.in");
system("rm -f temp.out");

$filename = $ARGV[0];
$satellite = $ARGV[1];
$timet = $ARGV[2];
($hour,$minute) = split (':',$timet);
$hoursec = $hour * 3600;
$minsec = $minute * 60;

system ("cp $filename temp.in");
$version = substr ($filename,16,1);
$version = ++$version;

$first7 = substr ($filename,0,7);

system("yymmmdd2sec $first7 > mdy.seconds");
open (HDL,"mdy.seconds");
$total_time = <HDL>;
close (HDL);

$testtime = $total_time + $hoursec +$minsec;

print "Inserting phase break in $filename at time $hour $minute for satellite $satellite\n";
system("del_qm -i temp.in -o temp.out -sb $satellite $testtime");

system("mv temp.out $filename");