Changeset 3596d9c8a2b13b9f524e13fd871eb6400764b1d7
- Timestamp:
- 03/22/07 02:38:19
(6 years ago)
- Author:
- Theo Schlossnagle <jesus@omniti.com>
- git-committer:
- Theo Schlossnagle <jesus@omniti.com> 1174531099 +0000
- git-parent:
[b3c640775d36906eb2e9f8a2b1cbf1bbb0ba8fd4]
- git-author:
- Theo Schlossnagle <jesus@omniti.com> 1174531099 +0000
- Message:
rename Resmon::Modules as Resmon::Module
git-svn-id: https://labs.omniti.com/resmon/trunk@21 8c0face9-b7db-6ec6-c4b3-d5f7145c7d55
-
Files:
-
Legend:
- Unmodified
- Added
- Removed
- Modified
- Copied
- Moved
| rb3c6407 |
r3596d9c |
|
| 24 | 24 | my @params = split(/,/, $2); |
|---|
| 25 | 25 | grep { $kvs{$1} = $2 if /^\s*(\S+)\s*=>\s*(\S+)\s*$/ } @params; |
|---|
| 26 | | my $object = bless \%kvs, "Resmon::Modules::$current"; |
|---|
| 27 | | push(@{$self->{Modules}->{$current}}, $object); |
|---|
| | 26 | my $object = bless \%kvs, "Resmon::Module::$current"; |
|---|
| | 27 | push(@{$self->{Module}->{$current}}, $object); |
|---|
| 28 | 28 | } elsif (/^\s*\}\s*$/) { |
|---|
| 29 | 29 | $current = undef; |
|---|
| … | … | |
| 34 | 34 | if(/\s*(\S+)\s*\{/) { |
|---|
| 35 | 35 | $current = $1; |
|---|
| 36 | | $self->{Modules}->{$current} = []; |
|---|
| | 36 | $self->{Module}->{$current} = []; |
|---|
| 37 | 37 | next; |
|---|
| 38 | 38 | } |
|---|
| rb3c6407 |
r3596d9c |
|
| 13 | 13 | use Resmon::ExtComm; |
|---|
| 14 | 14 | use Resmon::Status; |
|---|
| 15 | | use Resmon::Modules; |
|---|
| | 15 | use Resmon::Module; |
|---|
| 16 | 16 | |
|---|
| 17 | 17 | GetOptions( |
|---|
| … | … | |
| 51 | 51 | my $status = Resmon::Status->new($config->{statusfile}); |
|---|
| 52 | 52 | while(1) { |
|---|
| 53 | | while(my($module_name, $mod_configs) = each %{$config->{Modules}}) { |
|---|
| 54 | | my $coderef = Resmon::Modules::fetch_monitor($module_name); |
|---|
| | 53 | while(my($module_name, $mod_configs) = each %{$config->{Module}}) { |
|---|
| | 54 | my $coderef = Resmon::Module::fetch_monitor($module_name); |
|---|
| 55 | 55 | foreach my $monobj (@$mod_configs) { |
|---|
| 56 | 56 | my $check_rv = 'BAD', |
|---|