umltools/UML/Validate.pm

package UML::Validate;

use strict;
use warnings;

use UML::Clone;

# output checks?
my $check = 1;

# die on error?
my $bool_DieOnError;

sub evalCheck {
  my $positive = shift;
  if ($positive) {
    print "ok", "\n";
    return 1;
  } else {
    print "failed", "\n";
    if ($bool_DieOnError) {
      die("exiting task via die");
    } else {
      return 0;
    }
  }
}

sub do {

  my $vhost_name = shift;
  my $args_r = shift;
  my %args = %{$args_r};

  $check = $args{'check'};
  $bool_DieOnError = $args{'die'};

  # check in config
  print "  - checking for \"$vhost_name\" in configuration ...";
  my $vhost = get_vhost_cfg($vhost_name);
  my %vhost;
  my $res = eval { %vhost = %{$vhost}; };
  if (!evalCheck($res)) {
    die("no config, no way!");
  }

  my $vhost_path = get_vhost_basepath($vhost_name);

  # check path
  print "  - checking for main-path ...";
  evalCheck(-d $vhost_path);

  # check rootfs
  print "  - checking for rootfs ...";
  my $rootfs = $vhost_path . '/rootfs/' . $vhost{'rootfs'};
  evalCheck(-f $rootfs);

  # check for datafs
  print "  - checking for datafs ...";
  my $datafs = $vhost_path . '/datafs/' . $vhost{'datafs'};
  evalCheck(-f $datafs);

  # check for swapfs
  print "  - checking for swapfs ...";
  my $swapfs = $vhost_path . '/' . $vhost{'swapfs'};
  evalCheck(-f $swapfs);

  # check for tap-device
  my $tapdevice = '/proc/sys/net/ipv4/conf/' . $vhost{'bridge'}{'device'};
  print "  - checking for tap-device \"$tapdevice\" ...";
  evalCheck(-e $tapdevice);

  return 1;

}

1;
1	joko	1.1	package UML::Validate;
2
3			use strict;
4			use warnings;
5
6			use UML::Clone;
7
8			# output checks?
9			my $check = 1;
10
11			# die on error?
12			my $bool_DieOnError;
13
14			sub evalCheck {
15			my $positive = shift;
16			if ($positive) {
17			print "ok", "\n";
18			return 1;
19			} else {
20			print "failed", "\n";
21			if ($bool_DieOnError) {
22			die("exiting task via die");
23			} else {
24			return 0;
25			}
26			}
27			}
28
29			sub do {
30
31			my $vhost_name = shift;
32			my $args_r = shift;
33			my %args = %{$args_r};
34
35			$check = $args{'check'};
36			$bool_DieOnError = $args{'die'};
37
38			# check in config
39			print " - checking for \"$vhost_name\" in configuration ...";
40			my $vhost = get_vhost_cfg($vhost_name);
41			my %vhost;
42			my $res = eval { %vhost = %{$vhost}; };
43			if (!evalCheck($res)) {
44			die("no config, no way!");
45			}
46
47			my $vhost_path = get_vhost_basepath($vhost_name);
48
49			# check path
50			print " - checking for main-path ...";
51			evalCheck(-d $vhost_path);
52
53			# check rootfs
54			print " - checking for rootfs ...";
55			my $rootfs = $vhost_path . '/rootfs/' . $vhost{'rootfs'};
56			evalCheck(-f $rootfs);
57
58			# check for datafs
59			print " - checking for datafs ...";
60			my $datafs = $vhost_path . '/datafs/' . $vhost{'datafs'};
61			evalCheck(-f $datafs);
62
63			# check for swapfs
64			print " - checking for swapfs ...";
65			my $swapfs = $vhost_path . '/' . $vhost{'swapfs'};
66			evalCheck(-f $swapfs);
67
68			# check for tap-device
69			my $tapdevice = '/proc/sys/net/ipv4/conf/' . $vhost{'bridge'}{'device'};
70			print " - checking for tap-device \"$tapdevice\" ...";
71			evalCheck(-e $tapdevice);
72
73			return 1;
74
75			}
76
77			1;
MailToCvsAdmin">MailToCvsAdmin	ViewVC Help
Powered by ViewVC 1.1.26