Opened by f0 at 2010-11-11 01:25
User since
2010-03-08
6 Artikel
BenutzerIn
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2010-03-08
6 Artikel
BenutzerIn
Ich habs jetzt anders gelöst, warum ich da Gestern nicht drauf grekommen bin... ich weis ja wie oft ich die Subroutine aufrufe..
Gruß f0
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
sub check_mount{
my ($must_mounted ,my $is_mounted) = @_;
my %erg;
my @not_mounted;
while ( my ($key, $value) = each(%$must_mounted) ) {
if ( not exists $is_mounted->{$key}){
push(@not_mounted,$key);
$erg{'servity'}='critical';
$erg{'mounts'} = \@not_mounted;
}
};
return \%erg;
};Code: (dl
)
1
2
%ergebnis{A} = &check_mount(\%block_mounts,\%mounts);
%ergebnis{B} = &check_mount(\%nfs_mounts,\%mounts);Gruß f0