src/tests/boslistkeys.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, @hosts, $this, $cell, $cnt, %ret);
  11 $host = `hostname`;
  12 chomp $host;
  13 &AFS_Init();
  14 $cell = &AFS_fs_wscell();
  15
  16 %ret = &AFS_bos_listkeys(localhost,,);
  17 foreach $this (keys %ret) {
  18     if ($this == 250) {
  19         if ($ret{250} ne 3288840443) {
  20             if ($ret{250} ne 1530169307) {
  21                 exit(1);
  22             }
  23         }
  24     }
  25 }
  26 exit(0);
  27
  28
  29