src/tests/vosexamine.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, @rosites, $tmp, @rosite);
  11 $host = `hostname`;
  12 chomp $host;
  13 &AFS_Init();
  14
  15 %info = &AFS_vos_examine("rep",);
  16 if ($info{'rwpart'} ne "a") {
  17     exit 1;
  18 }
  19
  20 $ret = $info{'rosites'};
  21 @rosites = @$ret;
  22 while ($ret = pop(@rosites)) {
  23     @rosite = @$ret;
  24     if ($rosite[1] ne "a") {
  25         exit 1;
  26     }
  27 }
  28
  29 exit(0);
  30
  31
  32