diff options
| author | Oliver Tappe | 2008-03-20 01:04:16 +0100 |
|---|---|---|
| committer | Oliver Tappe | 2008-03-20 01:04:16 +0100 |
| commit | a0ce0340d0f95514008cfac751fe58748bbadd88 (patch) | |
| tree | 844bb9e015f2fbcd83de54c3a63dd027b1218211 /config-db/OpenSLX/ConfigExport/DHCP/ISC.pm | |
| parent | * fixed several bugs with respect to the listing of plugins (as part of a system (diff) | |
| download | core-a0ce0340d0f95514008cfac751fe58748bbadd88.tar.gz core-a0ce0340d0f95514008cfac751fe58748bbadd88.tar.xz core-a0ce0340d0f95514008cfac751fe58748bbadd88.zip | |
* Switched indent used in Perl-code and settings files from tabs to 4 spaces.
May need some manual corrections here and there, but should basically be ok.
git-svn-id: http://svn.openslx.org/svn/openslx/openslx/trunk@1658 95ad53e4-c205-0410-b2fa-d234c58c8868
Diffstat (limited to 'config-db/OpenSLX/ConfigExport/DHCP/ISC.pm')
| -rw-r--r-- | config-db/OpenSLX/ConfigExport/DHCP/ISC.pm | 20 |
1 files changed, 10 insertions, 10 deletions
diff --git a/config-db/OpenSLX/ConfigExport/DHCP/ISC.pm b/config-db/OpenSLX/ConfigExport/DHCP/ISC.pm index e3dd0738..14b427c8 100644 --- a/config-db/OpenSLX/ConfigExport/DHCP/ISC.pm +++ b/config-db/OpenSLX/ConfigExport/DHCP/ISC.pm @@ -9,14 +9,14 @@ # General information about OpenSLX can be found at http://openslx.org/ # ----------------------------------------------------------------------------- # ISC.pm -# - provides ISC-specific implementation of DHCP export. +# - provides ISC-specific implementation of DHCP export. # ----------------------------------------------------------------------------- package OpenSLX::ConfigExport::DHCP::ISC; use strict; use warnings; -our $VERSION = 1.01; # API-version . implementation-version +our $VERSION = 1.01; # API-version . implementation-version ################################################################################ ### This class provides an ISC specific implementation for DHCP export. @@ -28,18 +28,18 @@ use OpenSLX::Basics; ################################################################################ sub new { - my $class = shift; - my $self = {}; - return bless $self, $class; + my $class = shift; + my $self = {}; + return bless $self, $class; } sub execute { - my $self = shift; - my $clients = shift; + my $self = shift; + my $clients = shift; - vlog(1, _tr("writing dhcp-config for %s clients", scalar(@$clients))); - foreach my $client (@$clients) { + 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 |