#!/usr/bin/perl

#pick restart file (zr00ca is a new start)
@restart=`ls -1 -t zr*`;
$_=shift @restart;
chomp($_);

  if(!/zr/){
    $_='zr00ca';
  }

$res_file=$_;

#insert restart file into inzeus
@ARGV=qw#inzeus#;
$^I="~";
$restartline = "dtdmp=-1, id='ca', resfile='$res_file', iaddz=-1          \$";

  while(<>){
  s/rescon.*/rescon   $restartline/;
  print;
}

#run xzeus34
system './xzeus34 > screen.out';

#Clean up script??
#maybe tar -cvzf config. files and
#output files (not zhto*) when done (if zhto200ca exists)

print "ALL FINISHED";