#!/usr/bin/perl -I/opt/SUNWstade/lib

use System;
#if(!-d "/opt/SUNWstade/apache"){
  # apache directory doesn't exist
  # Don't want to update files
#  exit;
#}
$FILES = "bin/ras_admin,sysbin/config_solution,sysbin/sys_admin,bin/ras_patchlist,bin/ras_upgrade,bin/ras_downgrade,bin/ras_patchdowngrade";

my @F = split(/,/, $FILES);
my @IF;

foreach my $f (@F) {
   $file = "/opt/SUNWstade/$f";
   &fix($file);
   system("chown root $file");
   system("/usr/bin/chmod ug+s $file");
   push (@IF, $file);
}
System->updateInstalledFiles(@IF);

system("/bin/mv /usr/perl5/vendor_perl /usr/perl5/vendor2_perl");
system("/bin/ln -s /opt/SUNWstade/lib /usr/perl5/vendor_perl");

#
# FIX t4_rnid to not use -I
#
$F = "/usr/local/bin/t4_rnid_cfg";

if (open(O, $F)) {
  $first = <O>;

  if ($first =~ /\-I/) {
    my($save);
    while ($l = <O>) {
      $save .= $l;
    }
    close(O);
    open(W, ">$F");
    print W "#!/opt/SUNWstade/bin/perl -U\n";
    print W "use lib \"/usr/local/lib/perl5\";\n";
    print W $save;
    close(W);
  }
}


sub fix {
  my($file) = @_;
  my $text;
  open(O, $file);
  $first = <O>;
  while ($l = <O>){ 
    $text .= $l;
  }
  close(O);
  open(W, ">$file");
  print W "#!/opt/SUNWstade/bin/perl -U\n";
  print W $text;
  close(W);
}
