generictest.pm

来自「Linux Distributed Replication Block Devi」· PM 代码 · 共 51 行

package LGE_CTH::GenericTest;
our @ISA = 'LGE_CTH::Resource';

our %ClassData = (
	%LGE_CTH::Resource::ClassData,
	config_template => {
		which => undef,
		fs    => undef,
		do_once => '',
		do_once_per_node => '',
		do_on_first_start => '',
		start_script => '# overridden in CheckConfig!',
		stop_script => 'generic_test_stop',
		start_ASYNC => 1,
	},
);

sub CheckConfig {
	my $me = shift;

	$me->SUPER::CheckConfig;

	my $which = $me->{_config}->{which};
	# FIXME die unless fs -> isa FileSystem ...
	for my $s (qw( do_on_first_start start_script stop_script )) {
		next unless $me->{_config}->{$s} eq '# overridden in CheckConfig!';
		(my $fn = $s) =~ s/_script$//;
		$me->{_config}->{$s} = "${which}_$fn";
	}
}

sub as_string {
	my $me = shift;
	"$me->{_id}: $me->{_config}->{which} on $me->{_config}->{fs}->{_id}: $me->{_status}->{status}"
	. ($me->{_current_node} ? " on $me->{_current_node}->{_id}" : "" )
}

sub env {
	my $me = shift;
	return "MNT=$me->{_config}->{fs}->{_config}->{mount_point}"
};


sub Initialize {
	my $me = shift;
	$me->depends_on($me->{_config}->{fs});
}

sub FileSystem_changed { }