From dafb8e9f1b0c0d7cfe092ddb467a7650109efb51 Mon Sep 17 00:00:00 2001
From: James <git@panaceas.org>
Date: Mon, 17 Mar 2014 11:20:42 +0000
Subject: fish

---
 INF.pm | 38 ++++++++++++++++++++++++++++++++++++++
 1 file changed, 38 insertions(+)
 create mode 100644 INF.pm

(limited to 'INF.pm')

diff --git a/INF.pm b/INF.pm
new file mode 100644
index 0000000..d3301f6
--- /dev/null
+++ b/INF.pm
@@ -0,0 +1,38 @@
+package INF;
+use INF::APC;
+use INF::DSRx020;
+
+
+#$infs = [
+#    {
+#        host      => 'ms2.foo.com',
+#	 nice_name => 'ms2',
+#        community => 'write_cty_name',
+#        inf_type  => 'apc'
+#    },
+#    {
+#        host      => 'kvm2.foo.com',
+#	 nice_name => 'kvm2',
+#        user      => 'Admin',
+#        password  => 'password',
+#        inf_type  => 'dsr'
+#    },
+#];
+
+require 'INF/INF.pm';
+
+sub new ($;$) {
+    my ( $class, $inf ) = @_;
+
+    if ( $inf->{inf_type} eq 'dsr' ) {
+        return INF::DSRx020->new($inf);
+    }
+    elsif ( $inf->{inf_type} eq 'apc' ) {
+        return INF::APC->new($inf);
+    }
+    else {
+        return undef;
+    }
+}
+
+1;
-- 
cgit v1.2.3