[hcoop/debian/openafs.git] / src / tests / bosremovekey.pl

#!/usr/bin/env perl
use OpenAFS::CMU_copyright;
use OpenAFS::util qw(:DEFAULT %AFS_Help);
use OpenAFS::afsconf;
use OpenAFS::fs;
use OpenAFS::pts;
use OpenAFS::vos;
use OpenAFS::bos;

my ($host, @hosts, $this, $cell, $cnt, %ret);
$host = `hostname`;
chomp $host;
&AFS_Init();
$cell = &AFS_fs_wscell();

&AFS_bos_removekey(localhost,250,);
foreach $this (keys %ret) {
    if ($this == 250) {
	exit(1);
    }
}
exit(0);
Commit	Line	Data
805e021f CE	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