HCoop
/
hcoop
/
debian
/
openafs.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
blame
|
history
|
raw
|
HEAD
Import Upstream version 1.8.5
[hcoop/debian/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 "/tmp/garbage") {
19
} else {
20
exit(1);
21
}
22
unlink "/tmp/garbage";
23
exit(0);
24
25
26