- Timestamp:
- Jun 19, 2018, 6:51:13 PM (7 years ago)
- Location:
- trunk/ddt
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/ddt/Makefile
r222 r227 53 53 ignore: svnignore.txt 54 54 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 21 21 use strict; 22 22 #use warnings; 23 use version; our $VERSION = version->declare('0.9. 3');23 use version; our $VERSION = version->declare('0.9.4'); 24 24 25 25 use Getopt::Long qw(GetOptions); … … 1014 1014 1015 1015 control_exist_domainset($COMPUTER_DB, $domainset) or exit; 1016 1016 1017 1017 $mac = get_mac_from_ip($domainset, $ip, $mac) if $ip ne ''; 1018 1018 $mac = get_mac_from_hostname($domainset, $hostname, $mac) if $hostname ne ''; … … 1635 1635 LOOP_ON_PXE: 1636 1636 for my $pool ( keys %{$COMPUTER_DB->{'pool'}} ) { 1637 1637 1638 1638 printf "%-17s %-17s %s\n", 1639 1639 $pool, … … 1743 1743 my $filename = $COMPUTER_DB->{'pxe'}{$pxe_config}{'filename'}; 1744 1744 my $comment = $COMPUTER_DB->{'pxe'}{$pxe_config}{'comment'}; 1745 1745 1746 1746 printf "%-12s %-13s %-30s %s\n", $pxe_config, $ip_next_server, $filename, $comment; 1747 1747 } … … 1873 1873 if ($computer->{$id}->{'ip'} eq $ip) { 1874 1874 next if not exists $COMPUTER_DB->{$domain_name}[$cpt_mac]->{$id}->{'pxe_config'}; 1875 1875 1876 1876 my $pxe_config = $COMPUTER_DB->{$domain_name}[$cpt_mac]->{$id}->{'pxe_config'}; 1877 1877 my $timestamp = time; … … 1897 1897 if (($value->{$id}->{'hostname'} eq $hostname) and ($value->{$id}->{'address_type'} ne 'pool-dhcp')) { 1898 1898 next if not exists $value->{$id}->{'pxe_config'}; 1899 1899 1900 1900 my $pxe_config = $COMPUTER_DB->{$domainset}[$cpt_mac]->{$id}->{'pxe_config'}; 1901 1901 my $timestamp = time; … … 2276 2276 $buffer .= " hardware ethernet $mac_addres;\n"; 2277 2277 $buffer .= " fixed-address $ip;\n"; 2278 2278 2279 2279 if (exists $value->{$mac_addres}{'pxe_config'}) { 2280 2280 my $pxe_config = $value->{$mac_addres}{'pxe_config'}; … … 2395 2395 my $address_type = $value->{$id}->{'address_type'}; 2396 2396 my $enabled = $value->{$id}->{'enabled'}; 2397 2397 2398 2398 my $dns_domain = $domain_name; 2399 2399 if (exists $COMPUTER_DB->{'dset'}{$domain_name}) { … … 2936 2936 2937 2937 print "Version $VERSION\n\n"; 2938 print ' $Id : klask 397 2018-02-28 18:53:47Z g7moreau$'."\n";2938 print ' $Id$'."\n"; 2939 2939 return; 2940 2940 } -
Property
svn:keywords
set to
Note: See TracChangeset
for help on using the changeset viewer.