git://git.openafs.org
/
openafs.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
37a348798aaa350d2a6a3db7bde52fcf82e573c6
[openafs.git]
/
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 "/usr/tmp/garbage") {
19
} else {
20
exit(1);
21
}
22
unlink "/usr/tmp/garbage";
23
exit(0);
24
25
26