Changeset 227


Ignore:
Timestamp:
Jun 19, 2018, 6:51:13 PM (2 years ago)
Author:
g7moreau
Message:
  • Uodate tag Id and clean training space
Location:
trunk/ddt
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • trunk/ddt/Makefile

    r222 r227  
    5353ignore: svnignore.txt
    5454        svn propset svn:ignore -F svnignore.txt .
     55        svn propset svn:keywords "Id" ddt
  • trunk/ddt/ddt

    • Property svn:keywords set to Id
    r224 r227  
    2121use strict;
    2222#use warnings;
    23 use version; our $VERSION = version->declare('0.9.3');
     23use version; our $VERSION = version->declare('0.9.4');
    2424
    2525use Getopt::Long qw(GetOptions);
     
    10141014
    10151015   control_exist_domainset($COMPUTER_DB, $domainset) or exit;
    1016    
     1016
    10171017   $mac = get_mac_from_ip($domainset, $ip, $mac)             if $ip ne '';
    10181018   $mac = get_mac_from_hostname($domainset, $hostname, $mac) if $hostname ne '';
     
    16351635   LOOP_ON_PXE:
    16361636   for my $pool ( keys %{$COMPUTER_DB->{'pool'}} ) {
    1637      
     1637
    16381638      printf "%-17s %-17s %s\n",
    16391639         $pool,
     
    17431743      my $filename       = $COMPUTER_DB->{'pxe'}{$pxe_config}{'filename'};
    17441744      my $comment        = $COMPUTER_DB->{'pxe'}{$pxe_config}{'comment'};
    1745      
     1745
    17461746      printf "%-12s %-13s %-30s %s\n", $pxe_config, $ip_next_server, $filename, $comment;
    17471747      }
     
    18731873               if ($computer->{$id}->{'ip'} eq $ip) {
    18741874                  next if not exists $COMPUTER_DB->{$domain_name}[$cpt_mac]->{$id}->{'pxe_config'};
    1875                  
     1875
    18761876                  my $pxe_config = $COMPUTER_DB->{$domain_name}[$cpt_mac]->{$id}->{'pxe_config'};
    18771877                  my $timestamp  = time;
     
    18971897            if (($value->{$id}->{'hostname'} eq $hostname) and ($value->{$id}->{'address_type'} ne 'pool-dhcp')) {
    18981898               next if not exists $value->{$id}->{'pxe_config'};
    1899                
     1899
    19001900               my $pxe_config = $COMPUTER_DB->{$domainset}[$cpt_mac]->{$id}->{'pxe_config'};
    19011901               my $timestamp  = time;
     
    22762276                  $buffer .= "   hardware ethernet $mac_addres;\n";
    22772277                  $buffer .= "   fixed-address $ip;\n";
    2278                  
     2278
    22792279                  if (exists $value->{$mac_addres}{'pxe_config'}) {
    22802280                     my $pxe_config     = $value->{$mac_addres}{'pxe_config'};
     
    23952395               my $address_type = $value->{$id}->{'address_type'};
    23962396               my $enabled      = $value->{$id}->{'enabled'};
    2397                
     2397
    23982398               my $dns_domain = $domain_name;
    23992399               if (exists $COMPUTER_DB->{'dset'}{$domain_name}) {
     
    29362936
    29372937   print "Version $VERSION\n\n";
    2938    print ' $Id: klask 397 2018-02-28 18:53:47Z g7moreau $'."\n";
     2938   print ' $Id$'."\n";
    29392939   return;
    29402940   }
Note: See TracChangeset for help on using the changeset viewer.