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
/
bosremovekey.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
&AFS_bos_removekey(localhost,250,);
17
foreach
$this
(keys
%ret
) {
18
if (
$this
== 250) {
19
exit(1);
20
}
21
}
22
exit(0);
23
24
25