#!/opt/bin/perl
#
# fix the first line of the perl program to use the right perl program.
#

$PERL = $ARGV[0];
if (!-f $PERL) {
  print "Cannot run $perl, aborting\n";
  exit(1);
}

foreach $pr ('rashttp','rasagent','testt3', 'checkAgent',
     'ras_install.exe', 'checkcron','save_password','clearcache','luxdisc',
     'config_solution', 'storconfig','mess_sum','storstat','rawdump','cdmenu' ) {

      &fix("/opt/SUNWrasag", "bin/$pr", 1);
}

&fix("/var/sadm/pkg/SUNWrasag", "install/preremove", 2);


sub fix {
  my($DIR, $pr, $line) = @_;

  if (open(W, ">$DIR/$pr.tmp")) {
    open(O, "$DIR/$pr");
    if ($line == 1) {
      $l = <O>;  
      print W "#!$PERL -I$DIR/lib\n";
    } else {
      $l = <O>;
      print W $l;
      $l = <O>;
      print W " $PERL <<'EOF'\n";
    }

    while ($l = <O>) {
       print W $l;
    }
    close(O);
    close(W);
  } else {
    print "Error: Cannot write to $DIR/$pr.tmp: $! \n";
  }
  open(W, ">$DIR/$pr");
  open(O, "$DIR/$pr.tmp");

  while ($l = <O>) {
     print W $l;
  }
  close(O); close(W);
  unlink("$DIR/$pr.tmp");
}

  
