1#!/usr/bin/perl
2# Copyright (C) 2009 Stefan Metzmacher <metze@samba.org>
3# Published under the GNU GPL, v3 or later.
4
5package Template;
6
7use strict;
8
9sub new($$) {
10	my ($classname) = @_;
11	my $self = {
12		classname => $classname
13	};
14	bless $self;
15	return $self;
16}
17
18sub teardown_env($$)
19{
20	my ($self, $envvars) = @_;
21
22	return 0;
23}
24
25sub getlog_env($$)
26{
27	my ($self, $envvars) = @_;
28
29	return "";
30}
31
32sub check_env($$)
33{
34	my ($self, $envvars) = @_;
35
36	return 1;
37}
38
39sub setup_env($$$)
40{
41	my ($self, $envname, $path) = @_;
42	my $envvars = undef;
43
44	return $envvars;
45}
46
47sub stop($)
48{
49	my ($self) = @_;
50}
51
521;
53