src/tests/bosexec.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 use OpenAFS::ConfigUtils;
  10 use OpenAFS::Dirpath;
  11 use OpenAFS::OS;
  12
  13 my ($host);
  14 $host = `hostname`;
  15 &AFS_Init();
  16
  17 &AFS_bos_exec(localhost,"$openafsdirpath->{'afssrvbindir'}/foo.sh",);
  18 if (-f "/tmp/garbage") {
  19 } else {
  20     exit(1);
  21 }
  22 unlink "/tmp/garbage";
  23 exit(0);
  24
  25
  26