src/tests/bosstop.pl

   1 #!/usr/bin/env perl
   2 use OpenAFS::CMU_copyright;
   3 use OpenAFS::util qw(:DEFAULT %AFS_Help);
   4 use OpenAFS::afsconf;
   5 use OpenAFS::fs;
   6 use OpenAFS::pts;
   7 use OpenAFS::vos;
   8 use OpenAFS::bos;
   9
  10 my ($host, %info, %info2, $linfo);
  11 $host = `hostname`;
  12 &AFS_Init();
  13
  14 &AFS_bos_stop(localhost,[sleeper],1,);
  15 %info = &AFS_bos_status("localhost",[sleeper],);
  16 $linfo=$info{'sleeper'};
  17 %info2 = %$linfo;
  18 if ($info2{'num_starts'} != 1) {
  19     exit 1;
  20 }
  21 if ($info2{'status'} ne "disabled, currently shutdown.") {
  22     exit 1;
  23 }
  24 exit(0);
  25
  26
  27