[hcoop/debian/openafs.git] / src / tests / bosshutdown.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, %info, %info2, $linfo);
$host = `hostname`;
&AFS_Init();

&AFS_bos_shutdown(localhost,[sleeper],1,);
%info = &AFS_bos_status("localhost",[sleeper],);
$linfo=$info{'sleeper'};
%info2 = %$linfo;
if ($info2{'num_starts'} != 2) {
    exit 1;
}
if ($info2{'status'} ne "temporarily disabled, currently shutdown.") {
    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, %info, %info2, $linfo);
	11	$host = `hostname`;
	12	&AFS_Init();
	13
	14	&AFS_bos_shutdown(localhost,[sleeper],1,);
	15	%info = &AFS_bos_status("localhost",[sleeper],);
	16	$linfo=$info{'sleeper'};
	17	%info2 = %$linfo;
	18	if ($info2{'num_starts'} != 2) {
	19	exit 1;
	20	}
	21	if ($info2{'status'} ne "temporarily disabled, currently shutdown.") {
	22	exit 1;
	23	}
	24	exit(0);
	25
	26
	27