summaryrefslogtreecommitdiffstats
path: root/config-db/OpenSLX
diff options
context:
space:
mode:
authorOliver Tappe2006-10-29 14:45:03 +0100
committerOliver Tappe2006-10-29 14:45:03 +0100
commit425ca246b826a52fab2481681da31a5d35d0f212 (patch)
tree068af2159b68de238bbaf3fc893be96cb65dc91d /config-db/OpenSLX
parent* added transparent mechanism for generating placeholders (diff)
downloadcore-425ca246b826a52fab2481681da31a5d35d0f212.tar.gz
core-425ca246b826a52fab2481681da31a5d35d0f212.tar.xz
core-425ca246b826a52fab2481681da31a5d35d0f212.zip
* added stub for DHCP-exporter and adjusted config-demuxer
to use it. git-svn-id: http://svn.openslx.org/svn/openslx/trunk@485 95ad53e4-c205-0410-b2fa-d234c58c8868
Diffstat (limited to 'config-db/OpenSLX')
-rw-r--r--config-db/OpenSLX/Export/DHCP/ISC.pm38
1 files changed, 38 insertions, 0 deletions
diff --git a/config-db/OpenSLX/Export/DHCP/ISC.pm b/config-db/OpenSLX/Export/DHCP/ISC.pm
new file mode 100644
index 00000000..18cc1fe7
--- /dev/null
+++ b/config-db/OpenSLX/Export/DHCP/ISC.pm
@@ -0,0 +1,38 @@
+# ISC.pm - provides ISC-specific implementation of DHCP export.
+#
+# (c) 2006 - OpenSLX.com
+#
+# Oliver Tappe <ot@openslx.com>
+#
+package OpenSLX::Export::DHCP::ISC;
+
+use vars qw(@ISA $VERSION);
+$VERSION = 1.01; # API-version . implementation-version
+
+################################################################################
+### This class provides an ISC specific implementation for DHCP export.
+################################################################################
+use strict;
+use Carp;
+use OpenSLX::Basics;
+
+################################################################################
+### implementation
+################################################################################
+sub new
+{
+ my $class = shift;
+ my $self = {};
+ return bless $self, $class;
+}
+
+sub execute
+{
+ my $self = shift;
+ my $clients = shift;
+
+ vlog 1, _tr("writing dhcp-config for %s clients", scalar(@$clients));
+ foreach my $client (@$clients) {
+print "ISC-DHCP: $client->{name}\n";
+ }
+} \ No newline at end of file