Changeset d1c88304cad0718a35367b4e5068e687459d1665

Timestamp:

03/22/07 03:58:32 (6 years ago)

Author:

Theo Schlossnagle <jesus@omniti.com>

git-committer:

Theo Schlossnagle <jesus@omniti.com> 1174535912 +0000

git-parent:

[c203f3d61063c12a4ce36e097772325e4ca8f26f]

git-author:

Theo Schlossnagle <jesus@omniti.com> 1174535912 +0000

Message:

auto adapt external referenced modules into the Resmon::Module name space for execution

git-svn-id: https://labs.omniti.com/resmon/trunk@25 8c0face9-b7db-6ec6-c4b3-d5f7145c7d55

Files:

• lib/Resmon/Module.pm (modified) (3 diffs)

lib/Resmon/Module.pm

@@ -3 +3 @@
-use strict;
-use Data::Dumper;
-
+
-my %coderefs;
-
@@ -12 +12 @@
-  my $coderef = $coderefs{$type};
-  return $coderef if ($coderef);
+
+  # First if the monitor name is raw and looks right:
+  #   is a subclass of Resmon::Module and can 'handler'
+  # then we will promote it into the Resmon::Module namespace
+  # and use this one.
-  eval "use $type;";
+  if($type->isa(__PACKAGE__) && $type->can('handler')) {
+    eval " 
+      package Resmon::Module::$type;
+      use vars qw/\@ISA/;
+      \@ISA = qw($type);
+      1;
+    ";
+    if($@) {
+      die "Could not repackage $type as Resmon::Module::$type\n";
+    }
+    return undef;
+  }
-  eval "use Resmon::Module::$type;";
-  return undef;
@@ -38 +55 @@
-  $arg->{lastmessage} = shift;
-  $arg->{lastupdate} = time;
-[^\)]+
+.*
-    # This handles old-style modules that return just set status as
-    #     STATE(message)