#!/bin/sh
/usr/bin/perl <<'EOF'

  print "Removing SUNWrasag cron\n";
  print "-------------------------------------\n";
  $F = "/var/spool/cron/crontabs/root";
  if (open(W, ">/tmp/ras_crons")) {
    if (open(O, $F)) {
       while ($l = <O>) {
          if ($l !~ /\/bin\/rasagent /) {
             print W $l;
          }
       }
    } else {
       print " -> Cannot read $F!\n";
    }
    close(O); close(W);
    open(O,"/usr/bin/crontab /tmp/ras_crons|");
    $l = <O>; close(O);
    if ($l) {
       print " -> Crons update failed: $l \n";
    } else {
       print " -> Network Storage Agent cron removed.\n";
    }
  } else {
    $err = 1;
    print " -> Cannot write to /tmp/ras_crons!\n";
  }
  open(O, "/etc/services");
  @a = <O>; close(O);
  open(O, ">/etc/services");
  foreach $l (@a) {
     print O  $l if ($l !~ /^rashttp/);
  }
  close(O);

  open(O, "/etc/inetd.conf");
  @a = <O>; close(O);
  open(O, ">/etc/inetd.conf");
  foreach $l (@a) {
     print O  $l if ($l !~ /^rashttp/);
  }
  close(O);
EOF
