src/tests/bosinstall.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);
  11 $host = `hostname`;
  12 &AFS_Init();
  13
  14 open(FOO, ">foo.sh");
  15 print FOO "#!/bin/sh\n";
  16 print FOO "touch /usr/tmp/garbage\n";
  17 print FOO "exit 0\n";
  18 close FOO;
  19 chmod 0755, "foo.sh";
  20
  21 &AFS_bos_install(localhost,["foo.sh"],,);
  22
  23 exit(0);
  24
  25
  26