#
# ptsauto - perl calling script for ptsauto.exe
#
# h.b. 08.08.2000
#

use Getopt::Std;

if ( !getopts('hl') || $opt_h )
{
    print <DATA>;
    exit;
}

die "no ptsauto.exe in current directory" unless (-f "../pgm/ptsauto.exe");

system ("../pgm/ptsauto.exe");

while ($opt_l)
{
    sleep 300;
    system ("./ptsauto.exe");
}


__DATA__

   Usage: ptsauto.pl [-h] [-l]

          sets target version in pts to green

   options:  -h : provides this help text
             -l : calls ptsauto.exe in a loop

