Context Navigation

source: trunk/ddt/ddt @ 235

Last change on this file since 235 was 235, checked in by g7moreau, 6 years ago
Begin command doc
Property svn:executable set to ``* Property svn:keywords set to `Id`
File size: 110.4 KB

Line
1	#!/usr/bin/perl
2	#
3	# Copyright (C) 2006-2018 Gabriel Moreau <Gabriel.Moreau(A)univ-grenoble-alpes.fr>
4	# License GNU GPL version 2 or later and Perl equivalent
5	#
6	# apt-get install perl-base perl-modules libyaml-syck-perl libnet-netmask-perl libreadonly-perl libfile-touch-perl
7
8	package DDT::RE;
9
10	use strict;
11	#use warnings;
12
13	use Readonly;
14
15	Readonly our $MAC_ADDRESS => qr{ (?: [0-9A-F]{2} :){5} [0-9A-F]{2} }xms;
16	Readonly our $IPv4_ADDRESS => qr{ [0-9]{1,3} \. [0-9]{1,3} \. [0-9]{1,3} \. [0-9]{1,3} }xms;
17
18
19	package main;
20
21	use strict;
22	#use warnings;
23	use version; our $VERSION = version->declare('0.9.5');
24
25	use Getopt::Long qw(GetOptions);
26	#use YAML;
27	use YAML::Syck;
28	use Net::Netmask;
29	use File::Touch;
30	use File::Copy;
31	use Socket;
32
33	my $command = shift @ARGV \|\| 'help';
34
35	my %cmd_db = (
36	'add-alias' => \&cmd_add_alias,
37	'add-dhcp' => \&cmd_add_dhcp,
38	'add-float' => \&cmd_add_float,
39	'add-static' => \&cmd_add_static,
40	'add-virtual' => \&cmd_add_virtual,
41	'change-comment' => \&cmd_change_comment,
42	'change-domainset' => \&cmd_change_domainset,
43	'change-host' => \&cmd_change_host,
44	'change-ip' => \&cmd_change_ip,
45	'change-mac' => \&cmd_change_mac,
46	'change-tag' => \&cmd_change_tag,
47	'check-dns' => \&cmd_check_dns,
48	'create-domainset' => \&cmd_create_domainset,
49	'create-pool' => \&cmd_create_pool,
50	'create-pxe' => \&cmd_create_pxe,
51	'create-tag' => \&cmd_create_tag,
52	'del-pc' => \&cmd_del_pc,
53	'del-float' => \&cmd_del_float,
54	'disable-pc' => \&cmd_disable_pc,
55	'disable-float' => \&cmd_disable_float,
56	'disable-pxe' => \&cmd_disable_pxe,
57	'enable-pc' => \&cmd_enable_pc,
58	'enable-float' => \&cmd_enable_float,
59	'enable-pxe' => \&cmd_enable_pxe,
60	'gen-dhcp-file' => \&cmd_generate_dhcp_file,
61	'gen-dns-file' => \&cmd_generate_dns_file,
62	'help' => \&cmd_help,
63	'load-database' => \&cmd_load_database,
64	'remove-pxe' => \&cmd_remove_pxe,
65	'remove-tag' => \&cmd_remove_tag,
66	'search-mac' => \&cmd_search_mac,
67	'show' => \&cmd_show_host,
68	'show-domainset' => \&cmd_show_domainset,
69	'show-pool' => \&cmd_show_pool,
70	'show-pxe' => \&cmd_show_pxe,
71	'show-tag' => \&cmd_show_tag,
72	'upgrade-db' => \&cmd_upgrade_db,
73	'version' => \&cmd_version,
74	);
75
76	#-------------------------------------------------------------------------------
77
78	my $CONFIG;
79
80	my $xdg_config_home = $ENV{'XDG_CONFIG_HOME'} \|\| "$ENV{'HOME'}/.config";
81	$CONFIG = YAML::Syck::LoadFile("$xdg_config_home/ddt/config.yml") if -e "$xdg_config_home/ddt/config.yml";
82
83	my $COMPUTER_BASENAME = $CONFIG->{'database'}{'basename'} \|\| 'ddt';
84	my $COMPUTER_EXT = $CONFIG->{'database'}{'ext'} \|\| 'db';
85
86	my $FOLDER_APP = $CONFIG->{'database'}{'folder'} \|\| '/var/lib/ddt';
87	my $FOLDER_BACKUP = $CONFIG->{'database'}{'backup'} \|\| "$FOLDER_APP/backup";
88	my $FOLDER_GEN_DHCP = $CONFIG->{'generate'}{'dhcp'} \|\| "$FOLDER_APP/dhcp";
89	my $FOLDER_GEN_DNS = $CONFIG->{'generate'}{'dns'} \|\| "$FOLDER_APP/dns";
90	my $SCRIPT_UPDATE = $CONFIG->{'script'}{'update'} \|\| '/usr/share/ddt/update-dhcp-server';
91
92	my $COMPUTER_YAML = "$FOLDER_APP/$COMPUTER_BASENAME.$COMPUTER_EXT";
93
94	#-------------------------------------------------------------------------------
95
96	mkdir $FOLDER_APP, 0755 if not -d $FOLDER_APP;
97	mkdir $FOLDER_BACKUP, 0755 if not -d $FOLDER_BACKUP;
98	mkdir $FOLDER_GEN_DHCP, 0755 if not -d $FOLDER_GEN_DHCP;
99	mkdir $FOLDER_GEN_DNS, 0755 if not -d $FOLDER_GEN_DNS;
100
101	touch $COMPUTER_YAML if not -e $COMPUTER_YAML;
102
103	my $COMPUTER_DB = YAML::Syck::LoadFile($COMPUTER_YAML);
104
105	if (defined $cmd_db{$command}) {
106	$cmd_db{$command}->(@ARGV);
107	}
108	else {
109	print {*STDERR} "ddt: command $command not found\n\n";
110	$cmd_db{'help'}->();
111	exit 1;
112	}
113
114	exit;
115
116	#--------------------------------------------------------------------------------
117	# CONTROL section
118	#--------------------------------------------------------------------------------
119
120	sub control_exist_pool {
121	my ($COMPUTER_DB, $pool) = @_;
122
123	return exists $COMPUTER_DB->{'pool'}{$pool} ? 1 : 0;
124	}
125
126	#-------------------------------------------------------------------------------
127	#Nom: control_exist_domainset
128	#Description: controle l'existence d'un domain set dans le fichier YAML
129	# return 0 (faux) ou 1 (vrai)
130
131	sub control_exist_domainset {
132	my ($COMPUTER_DB, $domainset) = @_;
133
134	return 1 if exists $COMPUTER_DB->{$domainset};
135
136	print {*STDERR} "Error: domain set $domainset not found\n";
137	return 0;
138	}
139
140	#-------------------------------------------------------------------------------
141	#Nom: control_exist_hostname
142	#Description: controle l'existence d'un nom de machine dans le fichier YAML
143	# return 0 (si trouvé) ou 1 (si non trouvé)
144
145	sub control_exist_hostname {
146	my ($COMPUTER_DB, $domain, $hostname) = @_;
147
148	if ($COMPUTER_DB->{$domain} eq '') {
149	return 1;
150	}
151
152	my @domaindb = @{$COMPUTER_DB->{$domain}};
153
154	for my $value (@domaindb) {
155	for my $id (keys %{$value}) {
156	if ($value->{$id}->{'hostname'} eq $hostname) {
157	#print "Error: Hostname already exist: $hostname\n";
158	return 0;
159	}
160	}
161	}
162	return 1;
163	}
164
165	#-------------------------------------------------------------------------------
166	#Nom: control_exist_mac
167	#Description: controle l'existence d'une adresse MAC dans le fichier YAML
168	# return 0 (si trouvé) ou 1 (si non trouvé)
169
170	sub control_exist_mac {
171	my ($COMPUTER_DB, $mac) = @_;
172
173	for my $domain_name (keys %{$COMPUTER_DB}) {
174	next if $domain_name eq 'dset';
175	next if $domain_name eq 'pool';
176	next if $domain_name eq 'pxe';
177	next if $domain_name eq 'tag';
178
179	my @domaindb = @{$COMPUTER_DB->{$domain_name}};
180	for my $value (@domaindb) {
181	for my $id (keys %{$value}) {
182	if ($id eq $mac) {
183	#print "Error: Physical MAC address already exists: $mac\n";
184	return 0;
185	}
186	}
187	}
188	}
189	return 1;
190	}
191
192	#-------------------------------------------------------------------------------
193	#Nom: control_exist_ip
194	#Description: controle l'existence d'une adresse IP dans le fichier YAML
195	# return 0 (si trouvé) ou 1 (si non trouvé)
196
197	sub control_exist_ip {
198	my ($COMPUTER_DB, $ip) = @_;
199
200	for my $domain_name (keys %{$COMPUTER_DB}) {
201	next if $domain_name eq 'dset';
202	next if $domain_name eq 'pool';
203	next if $domain_name eq 'pxe';
204	next if $domain_name eq 'tag';
205
206	for my $value (@{$COMPUTER_DB->{$domain_name}}) {
207	for my $id (keys %{$value}) {
208	#print "Erreur: cette adresse IP $ip existe déjà\n";
209	return 0 if $value->{$id}{'ip'} eq $ip;
210	}
211	}
212	}
213
214	for my $current_pool (keys %{$COMPUTER_DB->{'pool'}}) {
215	#--- Cette partie pour tester les ip des pools est bonne ne plus la changer ---#
216	my @T_pool_ip = @{ $COMPUTER_DB->{'pool'}{$current_pool}{'ip'}};
217
218	for my $pool_ip (@T_pool_ip) {
219	#print "Erreur: cette adresse IP $ip existe déjà\n";
220	return 0 if $pool_ip eq $ip;
221	}
222	}
223
224	return 1;
225	}
226
227	#-------------------------------------------------------------------------------------
228	#Nom: control_syntaxe_mac
229	#Description: controle la syntaxe d'une adresse MAC (juste la longueur pas les valeurs)
230	# return 0 (si trouvé) ou 1 (si non trouvé)
231
232	sub control_syntax_mac_address {
233	my $mac = shift;
234
235	if (scalar(split /:/, $mac) == 6 and $mac =~ $DDT::RE::MAC_ADDRESS) {
236	return 1;
237	}
238
239	print {*STDERR} "Error: Bad MAC syntax: $mac\n";
240	return 0;
241	}
242
243	#-------------------------------------------------------------------------------------
244	#Nom: control_syntax_ip
245	#Description: controle la syntaxe d'une adresse IP (juste la longueur pas les valeurs)
246	# return 0 (si trouvé) ou 1 (si non trouvé)
247
248	sub control_syntax_ip {
249	my $ip = shift;
250
251	if ($ip ne 'pool') {
252	my @ip_split = split /\./, $ip;
253
254	if ( scalar(@ip_split) != 4 ) {
255	print {*STDERR} "Error: Bad IP syntax: $ip\n";
256	return 0;
257	}
258	}
259	return 1;
260	}
261
262	#-------------------------------------------------------------------------------------
263
264	sub control_syntax_comment {
265	my $comment = shift;
266
267	if ($comment !~ m{^20\d\d-\d\d-\d\d\s}) {
268	print {*STDERR} "Syntax Error: No date like 2014-01-10 at the beginning: $comment\n";
269	return 0;
270	}
271
272	if ($comment !~ m{\(\w+\)$}) {
273	print {*STDERR} "Syntax Error: No (SERVICE) at the end: $comment\n";
274	return 0;
275	}
276
277	if ($comment =~ m{\s\s}) {
278	print {*STDERR} "Syntax Error: Double space: $comment\n";
279	return 0;
280	}
281	return 1;
282	}
283
284	#--------------------------------------------------------------------------------
285	# UTILITY section
286	#--------------------------------------------------------------------------------
287
288	sub get_cmd_name {
289	my ($pkg, $sub) = split /::/, (caller(1))[3];
290	$sub =~ s/^cmd_//;
291	$sub =~ s/_/-/g;
292	return $sub;
293	}
294
295	#-------------------------------------------------------------------------------
296
297	sub normalize_mac_address {
298	my $mac_address = shift;
299
300	# D07E-28D1-7AB8 or d07e28-d17ab8
301	if ($mac_address =~ m{^ (?: [0-9A-Fa-f]{4} -){2} [0-9A-Fa-f]{4} $}xms
302	or $mac_address =~ m{^ [0-9A-Fa-f]{6} - [0-9A-Fa-f]{6} $}xms) {
303	$mac_address =~ s/-//g;
304	return join q{:}, unpack('(A2)*', uc($mac_address));
305	}
306
307	return join q{:}, map { substr( uc("00$_"), -2) } split m/ [:-] /xms, $mac_address;
308	}
309
310	#-------------------------------------------------------------------------------
311
312	sub normalize_comment {
313	my $comment = shift;
314
315	$comment =~ s{^(20\d\d)/(\d\d)/(\d\d)\s(.*)$}{$1-$2-$3 $4};
316
317	return $comment;
318	}
319
320	#--------------------------------------------------------------------------------
321
322	sub get_mac_from_hostname {
323	my ($domain, $hostname, $mac) = @_;
324
325	return $mac if $mac ne '';
326	return '' if $hostname eq '';
327
328	LOOP_ON_COMPUTER:
329	for my $computer (@{$COMPUTER_DB->{$domain}}) {
330	my ($mac_address, $attribute) = %{$computer};
331
332	next LOOP_ON_COMPUTER if $attribute->{'hostname'} ne $hostname;
333
334	return $mac_address;
335	}
336	}
337
338	#--------------------------------------------------------------------------------
339
340	sub get_mac_from_ip {
341	my ($domain, $ip, $mac) = @_;
342
343	return $mac if $mac ne '';
344	return '' if $ip eq '';
345
346	LOOP_ON_COMPUTER:
347	for my $computer (@{$COMPUTER_DB->{$domain}}) {
348	my ($mac_address, $attribute) = %{$computer};
349
350	next LOOP_ON_COMPUTER if $attribute->{'ip'} ne $ip;
351	return $mac_address;
352	}
353	}
354
355	#--------------------------------------------------------------------------------
356	# return a tuple (hash computer, iostat)
357	# iostat 0/ok, 1/not exist
358
359	sub get_computer_from_mac {
360	my ($domain, $mac) = @_;
361
362	LOOP_ON_COMPUTER:
363	for my $computer (@{$COMPUTER_DB->{$domain}}) {
364	my ($mac_address, $attribute) = %{$computer};
365
366	next LOOP_ON_COMPUTER if $mac_address ne $mac;
367
368	return $attribute, 0;
369	}
370	return {}, 1;
371	}
372
373	#-------------------------------------------------------------------------------
374	# ADD computer section
375	#-------------------------------------------------------------------------------
376
377	#-------------------------------------------------------------------------------
378	#Nom: add_alias
379	#Description: ajoute un alias pour une machine. Pour la fonctionnalité CNAME dans le DNS.
380
381	sub add_alias {
382	my ($hostname, $domainset, $alias) = @_;
383
384	control_exist_domainset($COMPUTER_DB, $domainset) or exit;
385	control_exist_hostname($COMPUTER_DB, $domainset, $hostname) or die "Error: Hostname already exist in domain set attachement $domainset: $hostname\n";
386
387	my @domaindb = @{$COMPUTER_DB->{$domainset}};
388	my $cpt=0;
389	for my $value (@domaindb) {
390	for my $id (keys %{$value}) {
391
392	if ($value->{$id}->{'hostname'} eq $hostname) {
393	print $value->{$id}->{'alias'};
394	$alias = $alias . ' ' . $value->{$id}->{'alias'};
395	$COMPUTER_DB->{$domainset}[$cpt]{$id}{'alias'} = $alias;
396	$COMPUTER_DB->{$domainset}[$cpt]{$id}{'modify_time'} = time;
397	YAML::Syck::DumpFile("$COMPUTER_YAML", $COMPUTER_DB);
398	print "Update attribute alias [OK]\n";
399	exit;
400	}
401	}
402	$cpt=$cpt+1;
403	}
404	}
405
406	#-------------------------------------------------------------------------------
407	#Nom: add_static
408	#Description: ajoute une machine non dhcp (donc à adressage fixe dans le fichier YAML)
409
410	sub add_static {
411	my ($hostname, $domainset, $ip, $mac, $comment) = @_;
412
413	$mac = normalize_mac_address($mac);
414	$comment = normalize_comment($comment);
415	control_exist_hostname($COMPUTER_DB, $domainset, $hostname) or die "Error: Hostname already exist in domain set attachement $domainset: $hostname\n";
416	control_syntax_mac_address($mac) or exit;
417	control_exist_mac($COMPUTER_DB, $mac) or die "Error: Physical MAC address already exists: $mac\n";
418	control_syntax_ip($ip) or exit;
419	control_exist_ip($COMPUTER_DB, $ip) or die "Error: IP address already exist in domain set attachement $domainset: $ip\n";
420	control_syntax_comment($comment) or exit;
421	my $timestamp = time;
422	push @{$COMPUTER_DB->{$domainset}}, { $mac => {
423	'hostname' => $hostname,
424	'ip' => $ip,
425	'address_type' => 'static',
426	'enabled' => 'yes',
427	'create_time' => $timestamp,
428	'modify_time' => $timestamp,
429	'comment' => $comment,
430	'alias' => '',
431	}};
432	print "Add the computer: $hostname, IP: $ip, MAC: $mac, Domain Set: $domainset\n";
433
434	YAML::Syck::DumpFile("$COMPUTER_YAML", $COMPUTER_DB);
435	}
436
437
438	#-------------------------------------------------------------------------------
439	#Nom: add_dhcp
440	#Description: section à corriger pour prendre en compte l'ajout d'une machine dans un pool dhcp
441	#--- usage: ddt add_dhcp -d legi-sector03 -h meolpacif -m 00:18:F3:03:6F:66 -i 194.254.66.165
442
443	sub add_dhcp {
444	my ($hostname, $domainset, $ip, $mac, $comment) = @_;
445
446	my $timestamp = time;
447	$mac = normalize_mac_address($mac);
448	$comment = normalize_comment($comment);
449	control_exist_domainset($COMPUTER_DB, $domainset) or exit;
450	control_exist_hostname($COMPUTER_DB, $domainset, $hostname) or die "Error: Hostname already exist in domain set attachement $domainset: $hostname\n";
451	control_syntax_mac_address($mac) or exit;
452	control_exist_mac($COMPUTER_DB, $mac) or die "Error: Physical MAC address already exists: $mac\n";
453	control_syntax_ip($ip) or exit;
454	control_exist_ip($COMPUTER_DB, $ip) or die "Error: IP address already exist in domain set attachement $domainset: $ip.\n";
455	control_syntax_comment($comment) or exit;
456
457	push @{$COMPUTER_DB->{$domainset}}, { $mac => {
458	'hostname' => $hostname,
459	'ip' => $ip,
460	'address_type' => 'dhcp',
461	'enabled' => 'yes',
462	'create_time' => $timestamp,
463	'modify_time' => $timestamp,
464	'comment' => $comment,
465	'alias' => '',
466	}};
467	print "Add the computer: $hostname, IP: $ip, MAC: $mac, Domain Set: $domainset\n";
468
469	YAML::Syck::DumpFile("$COMPUTER_YAML", $COMPUTER_DB);
470	}
471
472	#-------------------------------------------------------------------------------
473	#--- usage: ddt add_float -d legi-sector03 -h meolpacif -m 00:18:F3:03:6F:66 -i 194.254.66.165
474
475	sub add_float {
476	my ($pool, $domainset, $mac, $comment) = @_;
477
478	my $timestamp = time;
479	$mac = normalize_mac_address($mac);
480	$comment = normalize_comment($comment);
481	control_exist_domainset($COMPUTER_DB, $domainset) or exit;
482	control_syntax_mac_address($mac) or exit;
483	control_exist_mac($COMPUTER_DB, $mac) or die "Error: Physical MAC address already exists: $mac\n";
484	control_exist_pool($COMPUTER_DB, $pool) or die "Error: The pool doesn't exists: $pool\n";
485	control_syntax_comment($comment) or exit;
486	push @{$COMPUTER_DB->{$domainset}}, { $mac => {
487	'hostname' => $pool,
488	'ip' => $pool,
489	'address_type' => 'pool-dhcp',
490	'enabled' => 'yes',
491	'create_time' => $timestamp,
492	'modify_time' => $timestamp,
493	'comment' => $comment,
494	}};
495	print "Add the computer in pool MAC: $mac, Domain Set: $domainset, Pool: $pool\n";
496
497	YAML::Syck::DumpFile("$COMPUTER_YAML", $COMPUTER_DB);
498	}
499
500	#-------------------------------------------------------------------------------
501	# ADD computer section
502	#-------------------------------------------------------------------------------
503
504	sub cmd_add_alias {
505	local @ARGV = @_;
506
507	my $help = get_cmd_name();
508	my ($hostname, $domainset, $alias);
509
510	GetOptions(
511	'hostname\|h=s' => \$hostname,
512	'domainset\|d=s' => \$domainset,
513	'alias\|a=s' => \$alias,
514	);
515
516	($hostname, $domainset) = split /\./, $hostname, 2 if $hostname =~ m/\./;
517	exit_on_error_option($help)
518	if $hostname eq ''
519	or $domainset eq ''
520	or $alias eq '';
521
522	add_alias($hostname, $domainset, $alias);
523	}
524
525	#-------------------------------------------------------------------------------
526
527	sub cmd_add_dhcp {
528	local @ARGV = @_;
529
530	my $help = get_cmd_name();
531	my ($hostname, $domainset, $ip, $mac, $comment);
532
533	GetOptions(
534	'hostname\|h=s' => \$hostname,
535	'domainset\|d=s' => \$domainset,
536	'ip\|i=s' => \$ip,
537	'mac\|m=s' => \$mac,
538	'comment\|c=s' => \$comment,
539	);
540
541	($hostname, $domainset) = split /\./, $hostname, 2 if $hostname =~ m/\./;
542	exit_on_error_option($help)
543	if $hostname eq ''
544	or $domainset eq ''
545	or $ip eq ''
546	or $mac eq ''
547	or $comment eq '';
548
549	add_dhcp($hostname, $domainset, $ip, $mac, $comment);
550	}
551
552	#-------------------------------------------------------------------------------
553
554	sub cmd_add_float {
555	local @ARGV = @_;
556
557	my $help = get_cmd_name();
558	my ($pool, $domainset, $mac, $comment);
559
560	GetOptions(
561	'pool\|p=s' => \$pool,
562	'domainset\|d=s' => \$domainset,
563	'mac\|m=s' => \$mac,
564	'comment\|c=s' => \$comment,
565	);
566
567	($pool, $domainset) = split /\./, $pool, 2 if $pool =~ m/\./;
568	exit_on_error_option($help)
569	if $pool eq ''
570	or $domainset eq ''
571	or $mac eq ''
572	or $comment eq '';
573
574	add_float($pool, $domainset, $mac, $comment);
575	}
576
577	#-------------------------------------------------------------------------------
578
579	sub cmd_add_static {
580	local @ARGV = @_;
581
582	my $help = get_cmd_name();
583	my ($hostname, $domainset, $ip, $mac, $comment);
584
585	GetOptions(
586	'hostname\|h=s' => \$hostname,
587	'domainset\|d=s' => \$domainset,
588	'ip\|i=s' => \$ip,
589	'mac\|m=s' => \$mac,
590	'comment\|c=s' => \$comment,
591	);
592
593	($hostname, $domainset) = split /\./, $hostname, 2 if $hostname =~ m/\./;
594	exit_on_error_option($help)
595	if $hostname eq ''
596	or $domainset eq ''
597	or $ip eq ''
598	or $mac eq ''
599	or $comment eq '';
600
601	add_static($hostname, $domainset, $ip, $mac, $comment);
602	}
603
604	#-------------------------------------------------------------------------------
605	# No real computer, just an entry A in DNS with virtual MAC
606
607	sub cmd_add_virtual {
608	local @ARGV = @_;
609
610	my $help = get_cmd_name();
611	my ($hostname, $domainset, $ip, $comment);
612
613	GetOptions(
614	'hostname\|h=s' => \$hostname,
615	'domainset\|d=s' => \$domainset,
616	'ip\|i=s' => \$ip,
617	'comment\|c=s' => \$comment,
618	);
619
620	($hostname, $domainset) = split /\./, $hostname, 2 if $hostname =~ m/\./;
621	exit_on_error_option($help)
622	if $hostname eq ''
623	or $domainset eq ''
624	or $ip eq ''
625	or $comment eq '';
626
627	$comment = normalize_comment($comment);
628	my $timestamp = time;
629
630	control_exist_domainset($COMPUTER_DB, $domainset) or exit;
631	control_exist_hostname($COMPUTER_DB, $domainset, $hostname) or die "Error: Hostname already exist in domain set attachement $domainset: $hostname\n";
632	control_syntax_ip($ip) or exit;
633	control_exist_ip($COMPUTER_DB, $ip) or die "Error: IP address already exist in domain set attachement $domainset: $ip.\n";
634	control_syntax_comment($comment) or exit;
635
636	my $mac = join ':', 'FF', 'FF', map({sprintf("%02X", $_)} split(/\./, $ip));
637	control_syntax_mac_address($mac) or exit;
638	control_exist_mac($COMPUTER_DB, $mac) or die "Error: Virtual Physical MAC address already exists: $mac\n";
639
640	push @{$COMPUTER_DB->{$domainset}}, { $mac => {
641	'hostname' => $hostname,
642	'ip' => $ip,
643	'address_type' => 'static',
644	'enabled' => 'yes',
645	'create_time' => $timestamp,
646	'modify_time' => $timestamp,
647	'comment' => $comment,
648	}};
649	print "Add the virtual computer: $hostname, IP: $ip, Domain Set: $domainset\n";
650
651	YAML::Syck::DumpFile("$COMPUTER_YAML", $COMPUTER_DB);
652	}
653
654	#-------------------------------------------------------------------------------
655	# CHANGE computer section
656	#-------------------------------------------------------------------------------
657
658	#-------------------------------------------------------------------------------
659	#Nom: change_mac
660	#Description: change la mac adresse d'une machine en saisissant soit l'ip
661	# soit le nom de la mahcine et spécifiant le domaine
662	#--- usage: ddt change_mac -d legi-sector03 -h meolpacif -m 00:18:F3:03:6F:66
663	#--- usage: ddt change_mac -d legi-sector03 -i 194.254.66.187 -m 00:18:F3:03:6F:66
664
665	sub change_mac {
666	my ($hostname, $domainset, $ip, $mac) = @_;
667
668	$mac = normalize_mac_address($mac);
669	control_exist_domainset($COMPUTER_DB, $domainset) or exit;
670	control_syntax_mac_address($mac) or exit;
671	control_exist_mac($COMPUTER_DB, $mac) or die "Error: Physical MAC address already exists: $mac\n";
672	if ($ip ne '') {
673	control_syntax_ip($ip) or exit;
674	if ( control_exist_ip($COMPUTER_DB, $ip) == 1 ) {
675	print "Error: Unkown IP address: $ip\n";
676	exit;
677	}
678	my @domaindb = @{$COMPUTER_DB->{$domainset}};
679	my $cpt = 0;
680	for my $value (@domaindb) {
681	for my $id (keys %{$value}) {
682	if ($value->{$id}->{'ip'} eq $ip) {
683	my $host = $value->{$id};
684	$host->{'modify_time'} = time;
685	$COMPUTER_DB->{$domainset}->[$cpt] = { $mac => $host };
686	YAML::Syck::DumpFile("$COMPUTER_YAML", $COMPUTER_DB);
687	print "Update [OK]\n";
688	print "Hostname: $host->{'hostname'}\n";
689	print "MAC: $mac\n";
690	print "IP: $host->{'ip'}\n";
691	exit;
692	}
693	$cpt++;
694	}
695	}
696	#print "Mise à jour de l'adresse MAC [FAILED]\n";
697	#print "l'adresse IP n'existe pas sur le domaine $domainset\n";
698	}
699	elsif ($hostname ne '') {
700	if ( control_exist_hostname($COMPUTER_DB, $domainset, $hostname) == 1 ) {
701	die "Error: Unkown host: $hostname, in domain set: $domainset\n";
702	}
703	my @domaindb = @{$COMPUTER_DB->{$domainset}};
704	my $cpt = 0;
705	for my $value (@domaindb) {
706	for my $id (keys %{$value}) {
707	if ($value->{$id}->{'hostname'} eq $hostname) {
708	my $host = $value->{$id};
709	$host->{'modify_time'} = time;
710	$COMPUTER_DB->{$domainset}->[$cpt] = { $mac => $host };
711	YAML::Syck::DumpFile("$COMPUTER_YAML", $COMPUTER_DB);
712	print "Update [OK]\n";
713	print "Hostname: $host->{'hostname'}\n";
714	print "MAC: $mac\n";
715	print "IP: $host->{'ip'}\n";
716	exit;
717	}
718	}
719	$cpt++;
720	}
721	}
722	}
723
724	#-------------------------------------------------------------------------------
725	#Nom: change_ip
726	#Description: change l'adresse IP d'une machine en saisissant le nom de la machine
727	# et le domaine
728
729	sub change_ip {
730	my ($hostname, $domainset, $ip) = @_;
731
732	control_exist_domainset($COMPUTER_DB, $domainset) or exit;
733	if ( control_exist_hostname($COMPUTER_DB, $domainset, $hostname) == 1 ) {
734	die "Error: Unkown host: $hostname, in domain set: $domainset\n";
735	}
736	control_syntax_ip($ip) or exit;
737	control_exist_ip($COMPUTER_DB, $ip) or die "Error: IP address already exist in domain set attachement $domainset: $ip\n";
738	my @domaindb = @{$COMPUTER_DB->{$domainset}};
739	my $cpt = 0;
740	for my $value (@domaindb) {
741	for my $id (keys %{$value}) {
742	if (($value->{$id}->{'hostname'} eq $hostname)
743	and (
744	($value->{$id}->{'address_type'} eq 'dhcp')
745	or ($value->{$id}->{'address_type'} eq 'static')
746	)
747	) {
748	$COMPUTER_DB->{$domainset}[$cpt]{$id}{'ip'} = $ip;
749	$COMPUTER_DB->{$domainset}[$cpt]{$id}{'modify_time'} = time;
750	YAML::Syck::DumpFile("$COMPUTER_YAML", $COMPUTER_DB);
751	print "Update [OK]\n";
752	print "Hostname: $hostname\n";
753	print "MAC: $id\n";
754	print "IP: $ip\n";
755	exit;
756	}
757	else {
758	if (($value->{$id}->{'hostname'} eq $hostname) and ($value->{$id}->{'address_type'} eq 'pool-dhcp')) {
759	print "Modification de l'adresse IP [FAILED]\n";
760	print "La machine $hostname sur le domain set $domainset fait partie du pool DHCP ".$value->{$id}->{'ip'}."\n";
761	print "Veuillez la supprimer du pool et la recréer avec l'adresse IP que vous souhaitez.\n";
762	exit;
763	}
764	}
765	}
766	$cpt++;
767	}
768	}
769
770	#-------------------------------------------------------------------------------
771	#Nom: change_host
772	#Description: change le computer hostname en saisissant l'IP et le domaine
773
774	sub change_host {
775	my ($hostname, $domainset, $ip) = @_;
776
777	control_exist_domainset($COMPUTER_DB, $domainset) or exit;
778	control_syntax_ip($ip) or exit;
779	if ( control_exist_ip($COMPUTER_DB, $ip) == 1 ) {
780	print "Error: Unkown IP address: $ip\n";
781	exit;
782	}
783	control_exist_hostname($COMPUTER_DB, $domainset, $hostname) or die "Error: Hostname already exist in domain set attachement $domainset: $hostname\n";
784
785	my @domaindb = @{$COMPUTER_DB->{$domainset}};
786	my $cpt = 0;
787	for my $value (@domaindb) {
788	for my $id (keys %{$value}) {
789	if ($value->{$id}->{'ip'} eq $ip) {
790	$COMPUTER_DB->{$domainset}[$cpt]{$id}{'hostname'} = $hostname;
791	$COMPUTER_DB->{$domainset}[$cpt]{$id}{'modify_time'} = time;
792	YAML::Syck::DumpFile("$COMPUTER_YAML", $COMPUTER_DB);
793	print "Update [OK]\n";
794	print "Hostname: $hostname\n";
795	print "MAC: $id\n";
796	print "IP: $ip\n";
797	exit;
798	}
799	}
800	$cpt++;
801	}
802	print "Error: Failed to update computer hostname\n";
803	print "L'adresse IP: $ip n'existe pas dans le domaine: $domainset.\n";
804	}
805
806	#--------------------------------------------------------------------------------
807
808	sub cmd_change_mac {
809	local @ARGV = @_;
810
811	my $help = get_cmd_name();
812	my ($hostname, $domainset, $ip, $mac);
813
814	GetOptions(
815	'hostname\|h=s' => \$hostname,
816	'domainset\|d=s' => \$domainset,
817	'ip\|i=s' => \$ip,
818	'mac\|m=s' => \$mac,
819	);
820
821	($hostname, $domainset) = split /\./, $hostname, 2 if $hostname =~ m/\./;
822	exit_on_error_option($help)
823	if $domainset eq ''
824	or $mac eq '';
825	exit_on_error_option($help)
826	if $hostname ne ''
827	and $ip ne '';
828
829	change_mac($hostname, $domainset, $ip, $mac);
830	}
831
832	#--------------------------------------------------------------------------------
833
834	sub cmd_change_ip {
835	local @ARGV = @_;
836
837	my $help = get_cmd_name();
838	my ($hostname, $domainset, $ip);
839
840	GetOptions(
841	'hostname\|h=s' => \$hostname,
842	'domainset\|d=s' => \$domainset,
843	'ip\|i=s' => \$ip,
844	);
845
846	($hostname, $domainset) = split /\./, $hostname, 2 if $hostname =~ m/\./;
847	exit_on_error_option($help)
848	if $hostname eq ''
849	or $domainset eq ''
850	or $ip eq '';
851
852	change_ip($hostname, $domainset, $ip);
853	}
854
855	#--------------------------------------------------------------------------------
856
857	sub cmd_change_host {
858	local @ARGV = @_;
859
860	my $help = get_cmd_name();
861	my ($hostname, $domainset, $ip);
862
863	GetOptions(
864	'hostname\|h=s' => \$hostname,
865	'domainset\|d=s' => \$domainset,
866	'ip\|i=s' => \$ip,
867	);
868
869	($hostname, $domainset) = split /\./, $hostname, 2 if $hostname =~ m/\./;
870	exit_on_error_option($help)
871	if $hostname eq ''
872	or $domainset eq ''
873	or $ip eq '';
874
875	change_host($hostname, $domainset, $ip);
876	}
877
878	#--------------------------------------------------------------------------------
879
880	sub cmd_change_comment {
881	local @ARGV = @_;
882
883	my $help = get_cmd_name();
884	my ($domainset, $mac, $comment);
885
886	GetOptions(
887	'domainset\|d=s' => \$domainset,
888	'mac\|m=s' => \$mac,
889	'comment\|c=s' => \$comment,
890	);
891
892	exit_on_error_option($help)
893	if $domainset eq ''
894	or $mac eq ''
895	or $comment eq '';
896
897	$mac = normalize_mac_address($mac);
898	$comment = normalize_comment($comment);
899
900	control_exist_domainset($COMPUTER_DB, $domainset) or exit;
901	control_syntax_mac_address($mac) or exit;
902	control_syntax_comment($comment) or exit;
903
904	my @domaindb = @{$COMPUTER_DB->{$domainset}};
905	my $cpt = 0;
906	for my $value (@domaindb) {
907	for my $id (keys %{$value}) {
908	if ($id eq $mac) {
909	my $host = $COMPUTER_DB->{$domainset}[$cpt]{$mac};
910	$host->{'comment'} = $comment;
911	$host->{'modify_time'} = time;
912
913	YAML::Syck::DumpFile("$COMPUTER_YAML", $COMPUTER_DB);
914	exit;
915	}
916	}
917	$cpt++;
918	}
919	print "Mise à jour du commentaire de la machine [FAILED]\n";
920	print "L'adresse MAC: $mac n'existe pas dans le domaine: $domainset.\n";
921	}
922
923	#--------------------------------------------------------------------------------
924
925	sub cmd_change_domainset {
926	local @ARGV = @_;
927
928	my $help = get_cmd_name();
929	my ($domainset, $ip, $mac);
930
931	GetOptions(
932	'domainset\|d=s' => \$domainset,
933	'ip\|i=s' => \$ip,
934	'mac\|m=s' => \$mac,
935	);
936
937	exit_on_error_option($help)
938	if $domainset eq ''
939	or $ip eq ''
940	or $mac eq '';
941
942	$mac = normalize_mac_address($mac);
943
944	control_exist_domainset($COMPUTER_DB, $domainset) or exit;
945	control_syntax_ip($ip) or exit;
946	control_syntax_mac_address($mac) or exit;
947
948	LOOP_ON_DOMAINSET:
949	for my $domain_name (keys %{$COMPUTER_DB}) {
950	next if $domain_name eq 'dset';
951	next if $domain_name eq 'pool';
952	next if $domain_name eq 'pxe';
953	next if $domain_name eq 'tag';
954
955	my @domaindb = @{$COMPUTER_DB->{$domain_name}};
956	my $cpt_mac = 0;
957	for my $value (@domaindb) {
958	for my $id (keys %{$value}) {
959	if ($id eq $mac) {
960	my $host = $COMPUTER_DB->{$domain_name}[$cpt_mac]{$mac};
961	next LOOP_ON_DOMAINSET if $host->{'ip'} ne $ip;
962
963	$host->{'modify_time'} = time;
964	splice(@{$COMPUTER_DB->{$domain_name}}, $cpt_mac => 1);
965	push @{$COMPUTER_DB->{$domainset}}, { $mac => $host };
966
967	YAML::Syck::DumpFile("$COMPUTER_YAML", $COMPUTER_DB);
968	exit;
969	}
970	}
971	$cpt_mac++;
972	}
973	}
974	print "Update of domain set $domainset [FAILED]\n";
975	print "L'adresse MAC: $mac ou l'adresse IP: $ip n'existe pas dans la base\n";
976	}
977
978	#--------------------------------------------------------------------------------
979
980	sub cmd_change_tag {
981	local @ARGV = @_;
982
983	my $help = get_cmd_name();
984	my ($hostname, $domainset, $ip, $mac, $tags);
985
986	GetOptions(
987	'hostname\|h=s' => \$hostname,
988	'domainset\|d=s' => \$domainset,
989	'ip\|i=s' => \$ip,
990	'mac\|m=s' => \$mac,
991	'tag\|t=s' => \$tags,
992	);
993
994	($hostname, $domainset) = split /\./, $hostname, 2 if $hostname =~ m/\./;
995
996	exit_on_error_option($help)
997	if $domainset eq ''
998	or $tags eq '';
999	exit_on_error_option($help)
1000	if $mac eq ''
1001	and $hostname eq ''
1002	and $ip eq '';
1003
1004	$mac = normalize_mac_address($mac);
1005
1006	if ($tags !~ m/^ (?:\w+,)* \w+ $/xms) {
1007	die "Error: Bad format for tags (comma separated list): $tags\n";
1008	}
1009
1010	for my $tag (split/,/, $tags) {
1011	next if $tag eq 'universal';
1012	die "Error: TAG doesn't exist in the database. Create it before with create_tag: $tag\n" if not exists $COMPUTER_DB->{'tag'}{$tag};
1013	}
1014
1015	control_exist_domainset($COMPUTER_DB, $domainset) or exit;
1016
1017	$mac = get_mac_from_ip($domainset, $ip, $mac) if $ip ne '';
1018	$mac = get_mac_from_hostname($domainset, $hostname, $mac) if $hostname ne '';
1019	control_syntax_mac_address($mac) or exit;
1020
1021	LOOP_ON_COMPUTER:
1022	for my $computer (@{$COMPUTER_DB->{$domainset}}) {
1023	my ($mac_address, $attribute) = %{$computer};
1024
1025	next LOOP_ON_COMPUTER if $mac_address ne $mac;
1026
1027	$attribute->{'tag'} = $tags;
1028	$attribute->{'modify_time'} = time;
1029
1030	delete $attribute->{'tag'} if $tags eq 'universal';
1031	YAML::Syck::DumpFile("$COMPUTER_YAML", $COMPUTER_DB);
1032	exit;
1033	}
1034	print "Mise à jour du commentaire de la machine [FAILED]\n";
1035	print "L'adresse MAC: $mac n'existe pas dans le domaine: $domainset.\n";
1036	}
1037
1038	#-------------------------------------------------------------------------------
1039	# ACTIVATION section
1040	#-------------------------------------------------------------------------------
1041
1042	#-------------------------------------------------------------------------------
1043	#Nom: disable_pc
1044	#Description: désactive une machine (du DHCP ou en IP statique, et du DNS) (champs enabled=non)
1045
1046	sub disable_pc {
1047	my ($hostname, $domainset, $ip) = @_;
1048
1049	if ($ip ne '') {
1050	control_syntax_ip($ip);
1051	if ( control_exist_ip($COMPUTER_DB, $ip) == 1 ) {
1052	print "Error: Unkown IP address: $ip\n";
1053	exit;
1054	}
1055
1056	for my $domain_name (keys %{$COMPUTER_DB}) {
1057	next if $domain_name eq 'dset';
1058	next if $domain_name eq 'pool';
1059	next if $domain_name eq 'pxe';
1060	next if $domain_name eq 'tag';
1061
1062	my @domaindb = @{$COMPUTER_DB->{$domain_name}};
1063	my $cpt_mac = 0;
1064	for my $value (@domaindb) {
1065	for my $id (keys %{$value}) {
1066
1067	if ($value->{$id}->{'ip'} eq $ip) {
1068	my $timestamp = time;
1069	$COMPUTER_DB->{$domain_name}[$cpt_mac]->{$id}->{'modify_time'} = $timestamp;
1070	$COMPUTER_DB->{$domain_name}[$cpt_mac]->{$id}->{'enabled'} = 'no';
1071	print "L'adresse IP: $ip a été désactivée. Valeur du champs enabled: [".$COMPUTER_DB->{$domain_name}[$cpt_mac]->{$id}->{'enabled'}."]\n";
1072	YAML::Syck::DumpFile("$COMPUTER_YAML", $COMPUTER_DB);
1073	exit;
1074	}
1075	$cpt_mac++;
1076	}
1077	}
1078	}
1079	}
1080	else {
1081	control_exist_domainset($COMPUTER_DB, $domainset);
1082	if ( control_exist_hostname($COMPUTER_DB, $domainset, $hostname) == 1 ) {
1083	die "Error: Unkown host: $hostname, in domain set: $domainset\n";
1084	}
1085
1086	my $cpt_mac = 0;
1087	for my $value (@{$COMPUTER_DB->{$domainset}}) {
1088	for my $id (keys %{$value}) {
1089	if (($value->{$id}->{'hostname'} eq $hostname) and ($value->{$id}->{'address_type'} ne 'pool-dhcp')) {
1090	my $timestamp = time;
1091	$COMPUTER_DB->{$domainset}[$cpt_mac]->{$id}->{'modify_time'} = $timestamp;
1092	$COMPUTER_DB->{$domainset}[$cpt_mac]->{$id}->{'enabled'} = 'no';
1093	print "La machine $hostname (domaine: $domainset) a été désactivé du DHCP. Valeur du champs enabled: [".$COMPUTER_DB->{$domainset}[$cpt_mac]->{$id}->{'enabled'}."]\n";
1094	YAML::Syck::DumpFile("$COMPUTER_YAML", $COMPUTER_DB);
1095	exit;
1096	}
1097
1098	if (($value->{$id}->{'hostname'} eq $hostname) and ($value->{$id}->{'address_type'} eq 'pool-dhcp')) {
1099	print "Désactivation de la machine $hostname sur le domaine $domainset [FAILED]\n";
1100	print "La machine $hostname fait partie du pool $hostname.\n";
1101	exit;
1102	}
1103	}
1104	$cpt_mac++;
1105	}
1106	}
1107	#print "Error: Hostname already exist in domain set attachement $domainset: $hostname\n";
1108	}
1109
1110	#-------------------------------------------------------------------------------
1111
1112	sub disable_float {
1113	my ($pool, $mac) = @_;
1114
1115	my $cpt_mac;
1116	if ( control_exist_mac($COMPUTER_DB, $mac) == 1 ) {
1117	print "Error: Unkown physical MAC address: $mac\n";
1118	exit;
1119	}
1120
1121	for my $domain_name (keys %{$COMPUTER_DB}) {
1122	next if $domain_name eq 'dset';
1123	next if $domain_name eq 'pool';
1124	next if $domain_name eq 'pxe';
1125	next if $domain_name eq 'tag';
1126
1127	my @domaindb = @{$COMPUTER_DB->{$domain_name}};
1128
1129	$cpt_mac=0;
1130	for my $value (@domaindb) {
1131	for my $id (keys %{$value}) {
1132	if ($id eq $mac) {
1133	if ($value->{$id}->{'ip'} eq $pool) {
1134	#splice(@{$COMPUTER_DB->($domain_name)} , $cpt_mac => 1);
1135	my $timestamp = time;
1136	$COMPUTER_DB->{$domain_name}[$cpt_mac]->{$id}->{'modify_time'} = $timestamp;
1137	$COMPUTER_DB->{$domain_name}[$cpt_mac]->{$id}->{'enabled'} = 'no';
1138	print $COMPUTER_DB->{$domain_name}[$cpt_mac]->{$id}->{'enabled'}."\n";
1139	YAML::Syck::DumpFile("$COMPUTER_YAML", $COMPUTER_DB);
1140	print "Désactivation de la machine $mac du pool $pool [OK]\n";
1141	exit;
1142	}
1143	else {
1144	print "Désactivation de la machine $mac [FAILED]\n";
1145	print "La machine $mac n'appartient pas au pool $pool.\n";
1146	exit;
1147	}
1148	}
1149	$cpt_mac++;
1150	}
1151	}
1152	}
1153	}
1154
1155	#-------------------------------------------------------------------------------
1156	#Nom: enable_pc
1157	#Description: active une machine désactivée(du DHCP ou en IP statique, et du DNS) (champs enabled=non)
1158
1159	sub enable_pc {
1160	my ($hostname, $domainset, $ip) = @_;
1161
1162	control_exist_domainset($COMPUTER_DB, $domainset) or exit;
1163	if ($ip ne '') {
1164	control_syntax_ip($ip);
1165	if ( control_exist_ip($COMPUTER_DB, $ip) == 1 ) {
1166	print "Error: Unkown IP address: $ip\n";
1167	exit;
1168	}
1169
1170	for my $domain_name (keys %{$COMPUTER_DB}) {
1171	next if $domain_name eq 'dset';
1172	next if $domain_name eq 'pool';
1173	next if $domain_name eq 'pxe';
1174	next if $domain_name eq 'tag';
1175
1176	my @domaindb = @{$COMPUTER_DB->{$domain_name}};
1177	my $cpt_mac=0;
1178	for my $value (@domaindb) {
1179	for my $id (keys %{$value}) {
1180	if ($value->{$id}->{'ip'} eq $ip) {
1181	my $timestamp = time;
1182	$COMPUTER_DB->{$domain_name}[$cpt_mac]->{$id}->{'modify_time'} = $timestamp;
1183	$COMPUTER_DB->{$domain_name}[$cpt_mac]->{$id}->{'enabled'} = 'yes';
1184	print "L'adresse IP: $ip a été réactivée. Valeur du champs enabled: [".$COMPUTER_DB->{$domain_name}[$cpt_mac]->{$id}->{'enabled'}."]\n";
1185	YAML::Syck::DumpFile("$COMPUTER_YAML", $COMPUTER_DB);
1186	exit;
1187	}
1188	$cpt_mac=$cpt_mac+1;
1189	}
1190	}
1191	}
1192	}
1193	else {
1194	if ( control_exist_hostname($COMPUTER_DB, $domainset, $hostname) == 1 ) {
1195	die "Error: Unkown host: $hostname, in domain set: $domainset\n";
1196	}
1197
1198	my $cpt_mac=0;
1199	for my $value (@{$COMPUTER_DB->{$domainset}}) {
1200	for my $id (keys %{$value}) {
1201	if (($value->{$id}->{'hostname'} eq $hostname) and ($value->{$id}->{'address_type'} ne 'pool-dhcp')) {
1202	my $timestamp = time;
1203	$COMPUTER_DB->{$domainset}[$cpt_mac]->{$id}->{'modify_time'} = $timestamp;
1204	$COMPUTER_DB->{$domainset}[$cpt_mac]->{$id}->{'enabled'} = 'yes';
1205	print "La machine $hostname (domaine: $domainset) a été réactivée du DHCP. Valeur du champs enabled: [".$COMPUTER_DB->{$domainset}[$cpt_mac]->{$id}->{'enabled'}."]\n";
1206	YAML::Syck::DumpFile("$COMPUTER_YAML", $COMPUTER_DB);
1207	exit;
1208	}
1209
1210	if (($value->{$id}->{'hostname'} eq $hostname) and ($value->{$id}->{'address_type'} eq 'pool-dhcp')) {
1211	print "Réactivation de la machine $hostname sur le domaine $domainset [FAILED]\n";
1212	print "La machine $hostname fait partie du pool $hostname.\n";
1213	exit;
1214	}
1215	}
1216	$cpt_mac++;
1217	}
1218	}
1219	#print "La machine $hostname n'existe pas sur le domaineset: $domainset\n";
1220	}
1221
1222	#-------------------------------------------------------------------------------
1223
1224	sub enable_float {
1225	my ($pool, $mac) = @_;
1226
1227	my $cpt_mac;
1228	if ( control_exist_mac($COMPUTER_DB, $mac) == 1 ) {
1229	print "Adresse MAC $mac non trouvée.\n";
1230	exit;
1231	}
1232
1233	for my $domain_name (keys %{$COMPUTER_DB}) {
1234	next if $domain_name eq 'dset';
1235	next if $domain_name eq 'pool';
1236	next if $domain_name eq 'pxe';
1237	next if $domain_name eq 'tag';
1238
1239	my @domaindb = @{$COMPUTER_DB->{$domain_name}};
1240
1241	$cpt_mac=0;
1242	for my $value (@domaindb) {
1243	for my $id (keys %{$value}) {
1244	if ($id eq $mac) {
1245	if ($value->{$id}->{'ip'} eq $pool) {
1246	#splice(@{$COMPUTER_DB->($domain_name)} , $cpt_mac => 1);
1247	my $timestamp = time;
1248	$COMPUTER_DB->{$domain_name}[$cpt_mac]->{$id}->{'modify_time'} = $timestamp;
1249	$COMPUTER_DB->{$domain_name}[$cpt_mac]->{$id}->{'enabled'} = 'yes';
1250	YAML::Syck::DumpFile("$COMPUTER_YAML", $COMPUTER_DB);
1251	print "Réactivation de la machine $mac du pool $pool [OK]\n";
1252	exit;
1253	}
1254	else {
1255	print "Réactivation de la machine $mac [FAILED]\n";
1256	print "La machine $mac n'appartient pas au pool $pool.\n";
1257	exit;
1258	}
1259	}
1260	$cpt_mac++;
1261	}
1262	}
1263	}
1264	}
1265
1266	#-------------------------------------------------------------------------------
1267
1268	sub cmd_enable_pc {
1269	local @ARGV = @_;
1270
1271	my $help = get_cmd_name();
1272	my ($hostname, $domainset, $ip);
1273
1274	GetOptions(
1275	'hostname\|h=s' => \$hostname,
1276	'domainset\|d=s' => \$domainset,
1277	'ip\|i=s' => \$ip,
1278	);
1279
1280	($hostname, $domainset) = split /\./, $hostname, 2 if $hostname =~ m/\./;
1281	exit_on_error_option($help)
1282	if $domainset eq '';
1283	exit_on_error_option($help)
1284	if $hostname eq ''
1285	and $ip eq '';
1286	exit_on_error_option($help)
1287	if $hostname ne ''
1288	and $ip ne '';
1289
1290	enable_pc($hostname, $domainset, $ip);
1291	}
1292
1293	#-------------------------------------------------------------------------------
1294
1295	sub cmd_disable_pc {
1296	local @ARGV = @_;
1297
1298	my $help = get_cmd_name();
1299	my ($hostname, $domainset, $ip);
1300
1301	GetOptions(
1302	'hostname\|h=s' => \$hostname,
1303	'domainset\|d=s' => \$domainset,
1304	'ip\|i=s' => \$ip,
1305	);
1306
1307	($hostname, $domainset) = split /\./, $hostname, 2 if $hostname =~ m/\./;
1308	exit_on_error_option($help)
1309	if $domainset eq '';
1310	exit_on_error_option($help)
1311	if $hostname eq ''
1312	and $ip eq '';
1313	exit_on_error_option($help)
1314	if $hostname ne ''
1315	and $ip ne '';
1316
1317	disable_pc($hostname, $domainset, $ip);
1318	}
1319
1320	#-------------------------------------------------------------------------------
1321
1322	sub cmd_disable_float {
1323	local @ARGV = @_;
1324
1325	my $help = get_cmd_name();
1326	my ($pool, $mac);
1327
1328	GetOptions(
1329	'pool\|p=s' => \$pool,
1330	'mac\|m=s' => \$mac,
1331	);
1332
1333	exit_on_error_option($help)
1334	if $pool eq ''
1335	or $mac eq '';
1336
1337	disable_float($pool, $mac);
1338	}
1339
1340	#-------------------------------------------------------------------------------
1341
1342	sub cmd_enable_float {
1343	local @ARGV = @_;
1344
1345	my $help = get_cmd_name();
1346	my ($pool, $mac);
1347
1348	GetOptions(
1349	'pool\|p=s' => \$pool,
1350	'mac\|m=s' => \$mac,
1351	);
1352
1353	exit_on_error_option($help)
1354	if $pool eq ''
1355	or $mac eq '';
1356
1357	enable_float($pool, $mac);
1358	}
1359
1360	#-------------------------------------------------------------------------------
1361	# DELETE section
1362	#-------------------------------------------------------------------------------
1363
1364	#-------------------------------------------------------------------------------
1365	#Nom: del_pc
1366	#Description: supprime une machine en DHCP ou en IP statique.
1367
1368	sub del_pc {
1369	my ($hostname, $domainset, $ip) = @_;
1370
1371	control_exist_domainset($COMPUTER_DB, $domainset) or exit;
1372	if ($ip ne '') {
1373	if ( control_exist_ip($COMPUTER_DB, $ip) == 1 ) {
1374	die "Error: Unkown IP address: $ip\n";
1375	}
1376	my $cpt_mac=0;
1377	for my $value (@{$COMPUTER_DB->{$domainset}}) {
1378	for my $id (keys %{$value}) {
1379	if ($value->{$id}->{'ip'} eq $ip) {
1380	my $timestamp = time;
1381	splice(@{$COMPUTER_DB->{$domainset}}, $cpt_mac => 1);
1382	print "La machine $ip a été supprimer du domaine $domainset\n";
1383	YAML::Syck::DumpFile("$COMPUTER_YAML", $COMPUTER_DB);
1384	exit;
1385	}
1386	}
1387	$cpt_mac++;
1388	}
1389	#print "La machine $ip n'existe pas sur le domaine $domainset.\n";
1390	}
1391	else {
1392	if ( control_exist_hostname($COMPUTER_DB, $domainset, $hostname) == 1 ) {
1393	die "Error: Unkown host: $hostname, in domain set: $domainset\n";
1394	}
1395	my $cpt_mac=0;
1396	for my $value (@{$COMPUTER_DB->{$domainset}}) {
1397	for my $id (keys %{$value}) {
1398	if (($value->{$id}->{'hostname'} eq $hostname) and ($value->{$id}->{'address_type'} ne 'pool-dhcp')) {
1399	my $timestamp = time;
1400	splice(@{$COMPUTER_DB->{$domainset}}, $cpt_mac => 1);
1401	print "La machine $hostname a été supprimer du domaine $domainset\n";
1402	YAML::Syck::DumpFile("$COMPUTER_YAML", $COMPUTER_DB);
1403	exit;
1404	}
1405
1406	if (($value->{$id}->{'hostname'} eq $hostname) and ($value->{$id}->{'address_type'} eq 'pool-dhcp')) {
1407	print "Suppression de la machine $hostname sur le domaine $domainset [FAILED]\n";
1408	print "La machine $hostname fait partie du pool DHCP $hostname.\n";
1409	exit;
1410	}
1411	}
1412	$cpt_mac++;
1413	}
1414	#print "La machine $hostname n'existe pas sur le domaine $domainset.\n";
1415	}
1416	}
1417
1418	#-------------------------------------------------------------------------------
1419	#Nom: del_float
1420	#Description: supprime une machine d'un pool DHCP
1421
1422	sub del_float {
1423	my ($pool, $mac) = @_;
1424
1425	my $cpt_mac;
1426	if ( control_exist_mac($COMPUTER_DB, $mac) == 1 ) {
1427	print "Adresse MAC $mac non trouvée.\n";
1428	exit;
1429	}
1430
1431	for my $domain_name (keys %{$COMPUTER_DB}) {
1432	next if $domain_name eq 'dset';
1433	next if $domain_name eq 'pool';
1434	next if $domain_name eq 'pxe';
1435	next if $domain_name eq 'tag';
1436
1437	my @domaindb = @{$COMPUTER_DB->{$domain_name}};
1438
1439	$cpt_mac=0;
1440	for my $value (@domaindb) {
1441	for my $id (keys %{$value}) {
1442
1443	if ($id eq $mac) {
1444	if ($value->{$id}->{'ip'} eq $pool) {
1445	#splice(@{$COMPUTER_DB->($domain_name)} , $cpt_mac => 1);
1446	splice(@{$COMPUTER_DB->{$domain_name}}, $cpt_mac => 1);
1447	YAML::Syck::DumpFile("$COMPUTER_YAML", $COMPUTER_DB);
1448	print "Suppression de la machine $mac du pool $pool [OK]\n";
1449	exit;
1450	}
1451	else {
1452	print "Suppression de la machine $mac [FAILED]\n";
1453	print "La machine $mac n'appartient pas au pool $pool.\n";
1454	exit;
1455	}
1456	}
1457	$cpt_mac++;
1458	}
1459	}
1460	}
1461	}
1462
1463	#-------------------------------------------------------------------------------
1464
1465	sub cmd_del_pc {
1466	local @ARGV = @_;
1467
1468	my $help = get_cmd_name();
1469	my ($hostname, $domainset, $ip);
1470
1471	GetOptions(
1472	'hostname\|h=s' => \$hostname,
1473	'domainset\|d=s' => \$domainset,
1474	'ip\|i=s' => \$ip,
1475	);
1476
1477	($hostname, $domainset) = split /\./, $hostname, 2 if $hostname =~ m/\./;
1478	exit_on_error_option($help)
1479	if $domainset eq '';
1480	exit_on_error_option($help)
1481	if $hostname eq ''
1482	and $ip eq '';
1483	exit_on_error_option($help)
1484	if $hostname ne ''
1485	and $ip ne '';
1486
1487	del_pc($hostname, $domainset, $ip);
1488	}
1489
1490	#-------------------------------------------------------------------------------
1491
1492	sub cmd_del_float {
1493	local @ARGV = @_;
1494
1495	my $help = get_cmd_name();
1496	my ($pool, $mac);
1497
1498	GetOptions(
1499	'pool\|p=s' => \$pool,
1500	'mac\|m=s' => \$mac,
1501	);
1502
1503	exit_on_error_option($help)
1504	if $pool eq ''
1505	or $mac eq '';
1506
1507	del_float($pool, $mac);
1508	}
1509
1510	#-------------------------------------------------------------------------------
1511	# DOMAIN SET section
1512	#-------------------------------------------------------------------------------
1513
1514	sub cmd_create_domainset {
1515	local @ARGV = @_;
1516
1517	my $help = get_cmd_name();
1518	my ($domainset, $dns_extension, $comment);
1519
1520	GetOptions(
1521	'domainset\|d=s' => \$domainset,
1522	'dns-extension\|e=s' => \$dns_extension,
1523	'comment\|c=s' => \$comment,
1524	);
1525
1526	exit_on_error_option($help)
1527	if $domainset eq ''
1528	or $dns_extension eq ''
1529	or $comment eq '';
1530
1531	$comment = normalize_comment($comment);
1532
1533	$COMPUTER_DB->{'dset'} \|\|= {};
1534	die "Error: Domain Set already exists: $domainset\n" if exists $COMPUTER_DB->{'dset'}{$domainset};
1535
1536	control_syntax_comment($comment) or exit;
1537
1538	my $timestamp = time;
1539	$COMPUTER_DB->{'dset'}{$domainset} = {
1540	'dns_extension' => $dns_extension,
1541	'comment' => $comment,
1542	'create_time' => $timestamp,
1543	'modify_time' => $timestamp,
1544	};
1545	$COMPUTER_DB->{$domainset} \|\|= []; # Create empty Domain Set computer list by default
1546	YAML::Syck::DumpFile("$COMPUTER_YAML", $COMPUTER_DB);
1547	}
1548
1549	#-------------------------------------------------------------------------------
1550	# POOL section
1551	#-------------------------------------------------------------------------------
1552
1553	#-------------------------------------------------------------------------------
1554	#Nom: create_pool
1555	#Description: crée un pool dans le fichier de données YAML et dans le DHCP.
1556	#
1557	#Commentaires: il y a un petit bug si jamais on rentre que des adresses ip qui existent déjà.
1558	# Le pool est créé mais sans adresses ip.
1559
1560	sub cmd_create_pool {
1561	local @ARGV = @_;
1562
1563	my $help = get_cmd_name();
1564	my ($pool, $domainset, $file_pool, $ipaddress_pool);
1565
1566	GetOptions(
1567	'pool\|p=s' => \$pool,
1568	'domainset\|d=s' => \$domainset,
1569	'file-pool\|f=s' => \$file_pool,
1570	'ipaddress-pool\|i=s' => \$ipaddress_pool,
1571	);
1572
1573	exit_on_error_option($help)
1574	if $pool eq ''
1575	or $domainset eq ''
1576	or $file_pool eq ''
1577	or $ipaddress_pool eq '';
1578
1579	if ($COMPUTER_DB->{'pool'}) {
1580	die "Error: Pool already exists: $pool\n" if exists $COMPUTER_DB->{'pool'}{$pool};
1581	}
1582
1583	#--- control if the domain's pool exist ---#
1584	control_exist_domainset($COMPUTER_DB, $domainset) or exit;
1585
1586	my @ip_list = ();
1587	#---control if address exist ---#
1588	if ($ipaddress_pool =~ /,/) {
1589	for my $ip (split /,/, $ipaddress_pool) {
1590	if ($ip =~ /-/) {
1591	my ($ip1, $ip2, $ip3, $range) = split /\./, $ip;
1592	my ($first, $last) = split /-/, $range;
1593	for (my $cpt = $first; $cpt <= $last; $cpt++) {
1594	my $ip_loc = "$ip1.$ip2.$ip3.$cpt";
1595	control_syntax_ip($ip_loc) or die "Error: Bad IP syntax: $ip_loc\n";
1596	control_exist_ip($COMPUTER_DB, $ip_loc) or die "Error: IP address already exists: $ip_loc\n";
1597	push @ip_list, $ip_loc;
1598	}
1599	}
1600	else {
1601	control_syntax_ip($ip) or next;
1602	if ( control_exist_ip($COMPUTER_DB, $ip) == 0 ) {
1603	print "L'adresse IP $ip existe déjà\n";
1604	next;
1605	}
1606	push @ip_list, $ip;
1607	}
1608	}
1609	}
1610
1611	my $timestamp = time;
1612	$COMPUTER_DB->{'pool'}{$pool} = {
1613	'ip' => [@ip_list],
1614	'enabled' => 'yes',
1615	'create_time' => $timestamp,
1616	'modify_time' => $timestamp,
1617	'file' => $file_pool,
1618	'domain' => $domainset,
1619	};
1620	YAML::Syck::DumpFile("$COMPUTER_YAML", $COMPUTER_DB);
1621	}
1622
1623	#-------------------------------------------------------------------------------
1624
1625	sub cmd_show_pool {
1626	local @ARGV = @_;
1627
1628	my ($no_header);
1629
1630	GetOptions(
1631	'no-header\|H' => \$no_header,
1632	);
1633
1634	printf "%-17s %-17s %s\n", 'Pool', 'File', 'DNS-Domain' if not $no_header;
1635	LOOP_ON_PXE:
1636	for my $pool ( keys %{$COMPUTER_DB->{'pool'}} ) {
1637
1638	printf "%-17s %-17s %s\n",
1639	$pool,
1640	$COMPUTER_DB->{'pool'}{$pool}{'file'},
1641	$COMPUTER_DB->{'pool'}{$pool}{'domain'},
1642	}
1643	}
1644
1645	#-------------------------------------------------------------------------------
1646	# PXE section
1647	#-------------------------------------------------------------------------------
1648
1649	sub cmd_create_pxe {
1650	local @ARGV = @_;
1651
1652	my $help = get_cmd_name();
1653	my ($pxe_config, $ip_next_server, $filename, $comment);
1654
1655	GetOptions(
1656	'bootp\|b=s' => \$pxe_config,
1657	'next-server\|n=s' => \$ip_next_server,
1658	'filename\|f=s' => \$filename,
1659	'comment\|c=s' => \$comment,
1660	);
1661
1662	exit_on_error_option($help)
1663	if $pxe_config eq ''
1664	or $ip_next_server eq ''
1665	or $filename eq ''
1666	or $comment eq '';
1667
1668	$comment = normalize_comment($comment);
1669
1670	$COMPUTER_DB->{'pxe'} \|\|= {};
1671	die "Error: PXE config already exists: $pxe_config\n" if exists $COMPUTER_DB->{'pxe'}{$pxe_config};
1672
1673	control_syntax_ip($ip_next_server) or die "Error: Bad IP syntax: $ip_next_server\n";
1674	control_syntax_comment($comment) or exit;
1675
1676	my $timestamp = time;
1677	$COMPUTER_DB->{'pxe'}{$pxe_config} = {
1678	'ip_next_server' => $ip_next_server,
1679	'filename' => $filename,
1680	'comment' => $comment,
1681	'create_time' => $timestamp,
1682	'modify_time' => $timestamp,
1683	};
1684	YAML::Syck::DumpFile("$COMPUTER_YAML", $COMPUTER_DB);
1685	}
1686
1687	#-------------------------------------------------------------------------------
1688
1689	sub cmd_remove_pxe {
1690	local @ARGV = @_;
1691
1692	my $help = get_cmd_name();
1693	my ($pxe_config);
1694
1695	GetOptions(
1696	'bootp\|b=s' => \$pxe_config,
1697	);
1698
1699	exit_on_error_option($help)
1700	if $pxe_config eq '';
1701
1702	$COMPUTER_DB->{'pxe'} \|\|= {};
1703	die "Error: PXE config does not exist: $pxe_config\n" if not exists $COMPUTER_DB->{'pxe'}{$pxe_config};
1704
1705	# Test if some computer use this config
1706	LOOP_ON_DOMAIN:
1707	for my $domain_name (keys %{$COMPUTER_DB}) {
1708	next if $domain_name eq 'dset';
1709	next if $domain_name eq 'pool';
1710	next if $domain_name eq 'pxe';
1711	next if $domain_name eq 'tag';
1712
1713	LOOP_ON_COMPUTER:
1714	for my $computer (@{$COMPUTER_DB->{$domain_name}}) {
1715	my ($mac_address, $attribute) = %{$computer};
1716
1717	if (exists $attribute->{'pxe_config'}) {
1718	my $hostname = $attribute->{'hostname'};
1719	die "Error: computer still use this PXE config: $hostname.$domain_name $mac_address\n" if $pxe_config eq $attribute->{'pxe_config'};
1720	}
1721	}
1722	}
1723
1724	delete $COMPUTER_DB->{'pxe'}{$pxe_config};
1725	YAML::Syck::DumpFile("$COMPUTER_YAML", $COMPUTER_DB);
1726	}
1727
1728	#--------------------------------------------------------------------------------
1729
1730	sub cmd_show_pxe {
1731	local @ARGV = @_;
1732
1733	my ($no_header);
1734
1735	GetOptions(
1736	'no-header\|H' => \$no_header,
1737	);
1738
1739	printf "%-12s %-13s %-30s %s\n", 'PXE-Config', 'Next-Server', 'Filename', 'Comment' if not $no_header;
1740	LOOP_ON_PXE:
1741	for my $pxe_config ( keys %{$COMPUTER_DB->{'pxe'}} ) {
1742	my $ip_next_server = $COMPUTER_DB->{'pxe'}{$pxe_config}{'ip_next_server'};
1743	my $filename = $COMPUTER_DB->{'pxe'}{$pxe_config}{'filename'};
1744	my $comment = $COMPUTER_DB->{'pxe'}{$pxe_config}{'comment'};
1745
1746	printf "%-12s %-13s %-30s %s\n", $pxe_config, $ip_next_server, $filename, $comment;
1747	}
1748	}
1749
1750	#-------------------------------------------------------------------------------
1751
1752	sub cmd_enable_pxe {
1753	local @ARGV = @_;
1754
1755	my $help = get_cmd_name();
1756	my ($hostname, $domainset, $ip, $pxe_config);
1757
1758	GetOptions(
1759	'hostname\|h=s' => \$hostname,
1760	'domainset\|d=s' => \$domainset,
1761	'ip\|i=s' => \$ip,
1762	'bootp\|b=s' => \$pxe_config,
1763	);
1764
1765	($hostname, $domainset) = split /\./, $hostname, 2 if $hostname =~ m/\./;
1766	exit_on_error_option($help)
1767	if $domainset eq ''
1768	or $pxe_config eq '';
1769	exit_on_error_option($help)
1770	if $hostname eq ''
1771	and $ip eq '';
1772	exit_on_error_option($help)
1773	if $hostname ne ''
1774	and $ip ne '';
1775
1776	die "Error: PXE config not exists: $pxe_config\n" if not exists $COMPUTER_DB->{'pxe'}{$pxe_config};
1777
1778	control_exist_domainset($COMPUTER_DB, $domainset) or exit;
1779	if ($ip ne '') {
1780	control_syntax_ip($ip);
1781	if ( control_exist_ip($COMPUTER_DB, $ip) == 1 ) {
1782	die "Error: Unkown IP address: $ip\n";
1783	}
1784
1785	for my $domain_name (keys %{$COMPUTER_DB}) {
1786	next if $domain_name eq 'dset';
1787	next if $domain_name eq 'pool';
1788	next if $domain_name eq 'pxe';
1789	next if $domain_name eq 'tag';
1790
1791	my $cpt_mac = 0;
1792	for my $computer (@{$COMPUTER_DB->{$domain_name}}) {
1793	for my $id (keys %{$computer}) {
1794	if ($computer->{$id}->{'ip'} eq $ip) {
1795	my $timestamp = time;
1796	$COMPUTER_DB->{$domain_name}[$cpt_mac]->{$id}->{'modify_time'} = $timestamp;
1797	$COMPUTER_DB->{$domain_name}[$cpt_mac]->{$id}->{'pxe_config'} = $pxe_config;
1798	print "IP Address: $ip, PXE enabled in config: $pxe_config\n";
1799	YAML::Syck::DumpFile("$COMPUTER_YAML", $COMPUTER_DB);
1800	exit;
1801	}
1802	$cpt_mac++;
1803	}
1804	}
1805	}
1806	}
1807	else {
1808	if ( control_exist_hostname($COMPUTER_DB, $domainset, $hostname) == 1 ) {
1809	die "Error: Unkown host: $hostname, in domain set: $domainset\n";
1810	}
1811
1812	my $cpt_mac = 0;
1813	for my $value (@{$COMPUTER_DB->{$domainset}}) {
1814	for my $id (keys %{$value}) {
1815	if (($value->{$id}->{'hostname'} eq $hostname) and ($value->{$id}->{'address_type'} ne 'pool-dhcp')) {
1816	my $timestamp = time;
1817	$COMPUTER_DB->{$domainset}[$cpt_mac]->{$id}->{'modify_time'} = $timestamp;
1818	$COMPUTER_DB->{$domainset}[$cpt_mac]->{$id}->{'pxe_config'} = $pxe_config;
1819	print "Host $hostname ($domainset), PXE enabled in config: $pxe_config\n";
1820	YAML::Syck::DumpFile("$COMPUTER_YAML", $COMPUTER_DB);
1821	exit;
1822	}
1823
1824	if (($value->{$id}->{'hostname'} eq $hostname) and ($value->{$id}->{'address_type'} eq 'pool-dhcp')) {
1825	die "Error. Host $hostname ($domainset) in a pool. No PXE possible\n";
1826	}
1827	}
1828	$cpt_mac++;
1829	}
1830	}
1831	}
1832
1833	#-------------------------------------------------------------------------------
1834
1835	sub cmd_disable_pxe {
1836	local @ARGV = @_;
1837
1838	my $help = get_cmd_name();
1839	my ($hostname, $domainset, $ip);
1840
1841	GetOptions(
1842	'hostname\|h=s' => \$hostname,
1843	'domainset\|d=s' => \$domainset,
1844	'ip\|i=s' => \$ip,
1845	);
1846
1847	($hostname, $domainset) = split /\./, $hostname, 2 if $hostname =~ m/\./;
1848	exit_on_error_option($help)
1849	if $domainset eq '';
1850	exit_on_error_option($help)
1851	if $hostname eq ''
1852	and $ip eq '';
1853	exit_on_error_option($help)
1854	if $hostname ne ''
1855	and $ip ne '';
1856
1857	control_exist_domainset($COMPUTER_DB, $domainset) or exit;
1858	if ($ip ne '') {
1859	control_syntax_ip($ip);
1860	if ( control_exist_ip($COMPUTER_DB, $ip) == 1 ) {
1861	die "Error: Unkown IP address: $ip\n";
1862	}
1863
1864	for my $domain_name (keys %{$COMPUTER_DB}) {
1865	next if $domain_name eq 'dset';
1866	next if $domain_name eq 'pool';
1867	next if $domain_name eq 'pxe';
1868	next if $domain_name eq 'tag';
1869
1870	my $cpt_mac = 0;
1871	for my $computer (@{$COMPUTER_DB->{$domain_name}}) {
1872	for my $id (keys %{$computer}) {
1873	if ($computer->{$id}->{'ip'} eq $ip) {
1874	next if not exists $COMPUTER_DB->{$domain_name}[$cpt_mac]->{$id}->{'pxe_config'};
1875
1876	my $pxe_config = $COMPUTER_DB->{$domain_name}[$cpt_mac]->{$id}->{'pxe_config'};
1877	my $timestamp = time;
1878	$COMPUTER_DB->{$domain_name}[$cpt_mac]->{$id}->{'modify_time'} = $timestamp;
1879	delete $COMPUTER_DB->{$domain_name}[$cpt_mac]->{$id}->{'pxe_config'};
1880	print "IP Address: $ip, PXE disable from config: $pxe_config\n";
1881	YAML::Syck::DumpFile("$COMPUTER_YAML", $COMPUTER_DB);
1882	exit;
1883	}
1884	$cpt_mac++;
1885	}
1886	}
1887	}
1888	}
1889	else {
1890	if ( control_exist_hostname($COMPUTER_DB, $domainset, $hostname) == 1 ) {
1891	die "Error: Unkown host: $hostname, in domain set: $domainset\n";
1892	}
1893
1894	my $cpt_mac = 0;
1895	for my $value (@{$COMPUTER_DB->{$domainset}}) {
1896	for my $id (keys %{$value}) {
1897	if (($value->{$id}->{'hostname'} eq $hostname) and ($value->{$id}->{'address_type'} ne 'pool-dhcp')) {
1898	next if not exists $value->{$id}->{'pxe_config'};
1899
1900	my $pxe_config = $COMPUTER_DB->{$domainset}[$cpt_mac]->{$id}->{'pxe_config'};
1901	my $timestamp = time;
1902	$COMPUTER_DB->{$domainset}[$cpt_mac]->{$id}->{'modify_time'} = $timestamp;
1903	delete $COMPUTER_DB->{$domainset}[$cpt_mac]->{$id}->{'pxe_config'};
1904	print "Host $hostname ($domainset), PXE disable from config: $pxe_config\n";
1905	YAML::Syck::DumpFile("$COMPUTER_YAML", $COMPUTER_DB);
1906	exit;
1907	}
1908
1909	if (($value->{$id}->{'hostname'} eq $hostname) and ($value->{$id}->{'address_type'} eq 'pool-dhcp')) {
1910	die "Error. Host $hostname ($domainset) in a pool. No PXE possible\n";
1911	}
1912	}
1913	$cpt_mac++;
1914	}
1915	}
1916	}
1917
1918	#-------------------------------------------------------------------------------
1919	# TAG section
1920	#-------------------------------------------------------------------------------
1921
1922	sub cmd_create_tag {
1923	local @ARGV = @_;
1924
1925	my $help = get_cmd_name();
1926	my ($tag, $comment);
1927
1928	GetOptions(
1929	'tag\|t=s' => \$tag,
1930	'comment\|c=s' => \$comment,
1931	);
1932
1933	exit_on_error_option($help)
1934	if $tag eq ''
1935	or $comment eq '';
1936
1937	$comment = normalize_comment($comment);
1938
1939	$COMPUTER_DB->{'tag'} \|\|= {};
1940	die "Error: TAG already exists: $tag\n" if exists $COMPUTER_DB->{'tag'}{$tag};
1941
1942	die "Error: TAG 'universal' is intrinsic. It's not possible to create it.\n" if $tag eq 'universal';
1943
1944	if ($tag !~ m/^ \w+ $/xms) {
1945	die "Error: Bad format for TAG (alphanumeric string): $tag\n";
1946	}
1947
1948	control_syntax_comment($comment) or exit;
1949
1950	my $timestamp = time;
1951	$COMPUTER_DB->{'tag'}{$tag} = {
1952	'comment' => $comment,
1953	'create_time' => $timestamp,
1954	'modify_time' => $timestamp,
1955	};
1956	YAML::Syck::DumpFile("$COMPUTER_YAML", $COMPUTER_DB);
1957	}
1958
1959	#-------------------------------------------------------------------------------
1960
1961	sub cmd_remove_tag {
1962	local @ARGV = @_;
1963
1964	my $help = get_cmd_name();
1965	my ($tag);
1966
1967	GetOptions(
1968	'tag\|t=s' => \$tag,
1969	);
1970
1971	exit_on_error_option($help)
1972	if $tag eq '';
1973
1974	$COMPUTER_DB->{'tag'} \|\|= {};
1975	die "Error: TAG does not exist: $tag\n" if not exists $COMPUTER_DB->{'tag'}{$tag};
1976
1977	# Test if some computer use this config
1978	LOOP_ON_DOMAIN:
1979	for my $domain_name (keys %{$COMPUTER_DB}) {
1980	next if $domain_name eq 'dset';
1981	next if $domain_name eq 'pool';
1982	next if $domain_name eq 'pxe';
1983	next if $domain_name eq 'tag';
1984
1985	LOOP_ON_COMPUTER:
1986	for my $computer (@{$COMPUTER_DB->{$domain_name}}) {
1987	my ($mac_address, $attribute) = %{$computer};
1988
1989	if (exists $attribute->{'tag'}) {
1990	my $hostname = $attribute->{'hostname'};
1991	die "Error: Computer still use this TAG: $hostname.$domain_name $mac_address\n" if $tag eq $attribute->{'tag'};
1992	}
1993	}
1994	}
1995
1996	delete $COMPUTER_DB->{'tag'}{$tag};
1997	YAML::Syck::DumpFile("$COMPUTER_YAML", $COMPUTER_DB);
1998	}
1999
2000	#--------------------------------------------------------------------------------
2001
2002	sub cmd_show_tag {
2003	local @ARGV = @_;
2004
2005	my ($no_header);
2006
2007	GetOptions(
2008	'no-header\|H' => \$no_header,
2009	);
2010
2011	printf "%-12s %s\n", 'TAG', 'Comment' if not $no_header;
2012	LOOP_ON_TAG:
2013	for my $tag ( keys %{$COMPUTER_DB->{'tag'}} ) {
2014	my $comment = $COMPUTER_DB->{'tag'}{$tag}{'comment'};
2015
2016	printf "%-12s %s\n", $tag, $comment;
2017	}
2018	}
2019
2020	#--------------------------------------------------------------------------------
2021	# GLOBAL section
2022	#--------------------------------------------------------------------------------
2023
2024	sub cmd_upgrade_db {
2025	my $flag_change;
2026
2027	LOOP_ON_DOMAIN:
2028	for my $domain_name (keys %{$COMPUTER_DB}) {
2029	next if $domain_name eq 'dset';
2030	next if $domain_name eq 'pool';
2031	next if $domain_name eq 'pxe';
2032	next if $domain_name eq 'tag';
2033
2034	my @domaindb = @{$COMPUTER_DB->{$domain_name}};
2035
2036	LOOP_ON_COMPUTER:
2037	for my $computer (@domaindb) {
2038	my ($mac_address, $attribute) = %{$computer};
2039	my $new_mac = normalize_mac_address($mac_address);
2040	print "perl -pi -e 's/$mac_address:/$new_mac:/' $COMPUTER_YAML\n" if "$mac_address" ne "$new_mac";
2041
2042	my $comment = $attribute->{'comment'};
2043	$comment =~ s/\s\s+/ /g and $flag_change++;
2044	$comment =~ s/^\s+\S// and $flag_change++;
2045	$comment =~ s/\S\s+$// and $flag_change++;
2046	$comment =~ s{^(\d\d\d\d)\/O(\d\/\d\d)}{$1/0$2} and $flag_change++;
2047	$comment =~ s{^(\d\d\d\d\/\d\d\/)O(\d)}{$1/0$2} and $flag_change++;
2048	$comment =~ s{^(\d\d\d\d)\/(\d\d)\/(\d\d)}{$1-$2-$3} and $flag_change++;
2049	if ($comment !~ m/^\d\d\d\d-\d\d-\d\d/) {
2050	print "# no date at beginning of comment $mac_address\n";
2051	}
2052
2053	$attribute->{'comment'} = $comment;
2054	}
2055	}
2056	print "# FLAG :$flag_change\n";
2057
2058	YAML::Syck::DumpFile("$COMPUTER_YAML", $COMPUTER_DB) if $flag_change;
2059	}
2060
2061	#--------------------------------------------------------------------------------
2062
2063	sub cmd_show_domainset {
2064
2065	LOOP_ON_DOMAIN:
2066	for my $domain_name (keys %{$COMPUTER_DB}) {
2067	next if $domain_name eq 'dset';
2068	next if $domain_name eq 'pool';
2069	next if $domain_name eq 'pxe';
2070	next if $domain_name eq 'tag';
2071
2072	print "$domain_name\n";
2073	}
2074	}
2075
2076	#--------------------------------------------------------------------------------
2077
2078	sub cmd_search_mac {
2079	local @ARGV = @_;
2080
2081	my $help = get_cmd_name();
2082	my ($mac);
2083
2084	GetOptions(
2085	'mac\|m=s' => \$mac,
2086	);
2087
2088	exit_on_error_option($help)
2089	if $mac eq '';
2090
2091	$mac = normalize_mac_address($mac);
2092
2093	control_syntax_mac_address($mac) or exit;
2094
2095	LOOP_ON_DOMAIN:
2096	for my $domain_name (keys %{$COMPUTER_DB}) {
2097	next if $domain_name eq 'dset';
2098	next if $domain_name eq 'pool';
2099	next if $domain_name eq 'pxe';
2100	next if $domain_name eq 'tag';
2101
2102	my @domaindb = @{$COMPUTER_DB->{$domain_name}};
2103
2104	LOOP_ON_COMPUTER:
2105	for my $computer (@domaindb) {
2106	my ($mac_address, $attribute) = %{$computer};
2107
2108	next LOOP_ON_COMPUTER if $mac_address ne $mac;
2109
2110	my ($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst) = localtime $attribute->{'modify_time'};
2111	$year += 1900;
2112	$mon++;
2113	my $date = sprintf '%04i-%02i-%02i', $year, $mon, $mday;
2114
2115	my $comment = $attribute->{'comment'};
2116	$comment =~ s/^\d\d\d\d-\d\d-\d\d\s//;
2117
2118	my $enable = $attribute->{'enabled'};
2119	if (exists $attribute->{'pxe_config'}) {
2120	$enable .= '/' . $attribute->{'pxe_config'};
2121	}
2122	if (exists $attribute->{'tag'}) {
2123	$enable .= ':' . $attribute->{'tag'};
2124	}
2125
2126	printf "%-30s %-20s %17s %9s %3s %10s %s\n",
2127	$attribute->{'hostname'} . '.' . $domain_name,
2128	$attribute->{'ip'},
2129	$mac_address,
2130	$attribute->{'address_type'},
2131	$enable,
2132	$date,
2133	$comment;
2134	}
2135	}
2136	}
2137
2138	#--------------------------------------------------------------------------------
2139	#Nom: show
2140	#Description: liste les machines à partir du fichier YAML par nom de domaine.
2141
2142	sub cmd_show_host {
2143	my %ipdb = ();
2144
2145	LOOP_ON_DOMAIN:
2146	for my $domain_name (keys %{$COMPUTER_DB}) {
2147	next if $domain_name eq 'dset';
2148	next if $domain_name eq 'pool';
2149	next if $domain_name eq 'pxe';
2150	next if $domain_name eq 'tag';
2151
2152	print "\n# * List of computers in the domain set: $domain_name *\n";
2153	printf "%-30s %-20s %17s %5s %7s %-10s %s\n",
2154	'Hostname',
2155	'IPv4-Address',
2156	'MAC-Address',
2157	'Type',
2158	'Status',
2159	'Date',
2160	'Comment';
2161	my @domaindb = @{$COMPUTER_DB->{$domain_name}};
2162
2163	LOOP_ON_COMPUTER:
2164	for my $computer (@domaindb) {
2165	my ($mac_address, $attribute) = %{$computer};
2166
2167	if ($attribute->{'ip'} =~ $DDT::RE::IPv4_ADDRESS) {
2168	if ( not exists $ipdb{ $attribute->{'ip'} } ) {
2169	$ipdb{ $attribute->{'ip'} } = {
2170	'mac_address' => $mac_address,
2171	%{$attribute},
2172	'domain' => $domain_name,
2173	};
2174	next LOOP_ON_COMPUTER;
2175	}
2176	else {
2177	print {*STDERR} "# Warning: $attribute->{'ip'} already exists in the database !\n";
2178	}
2179	}
2180
2181	my ($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst) = localtime $attribute->{'modify_time'};
2182	$year += 1900;
2183	$mon++;
2184	my $date = sprintf '%04i-%02i-%02i', $year, $mon, $mday;
2185
2186	my $comment = normalize_comment($attribute->{'comment'});
2187	$comment =~ s/^\d\d\d\d-\d\d-\d\d\s//;
2188
2189	my $ip = $attribute->{'ip'};
2190
2191	my $enable = $attribute->{'enabled'};
2192	if (exists $attribute->{'pxe_config'}) {
2193	$enable .= '/' . $attribute->{'pxe_config'};
2194	}
2195	if (exists $ipdb{$ip}->{'tag'}) {
2196	$enable .= ':' . $ipdb{$ip}->{'tag'};
2197	}
2198
2199	printf "%-30s %-20s %17s %9s %3s %10s %s\n",
2200	$attribute->{'hostname'} . '.' . $domain_name,
2201	$ip,
2202	$mac_address,
2203	$attribute->{'address_type'},
2204	$enable,
2205	$date,
2206	$comment;
2207	}
2208	}
2209
2210	print "\n# * List of computers ordered by IP and domain set *\n";
2211	LOOP_ON_IP_ADDRESS:
2212	foreach my $ip (Net::Netmask::sort_by_ip_address(keys %ipdb)) {
2213	my ($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst) = localtime $ipdb{$ip}->{'modify_time'};
2214	$year += 1900;
2215	$mon++;
2216	my $date = sprintf '%04i-%02i-%02i', $year, $mon, $mday;
2217
2218	my $comment =$ipdb{$ip}->{'comment'};
2219	$comment =~ s/^\d\d\d\d-\d\d-\d\d\s//;
2220
2221	my $enable = $ipdb{$ip}->{'enabled'};
2222	if (exists $ipdb{$ip}->{'pxe_config'}) {
2223	$enable .= '/' . $ipdb{$ip}->{'pxe_config'};
2224	}
2225	if (exists $ipdb{$ip}->{'tag'}) {
2226	$enable .= ':' . $ipdb{$ip}->{'tag'};
2227	}
2228
2229	printf "%-30s %-20s %17s %9s %3s %10s %s\n",
2230	$ipdb{$ip}->{'hostname'} . '.' . $ipdb{$ip}->{'domain'},
2231	$ip,
2232	normalize_mac_address($ipdb{$ip}->{'mac_address'}),
2233	$ipdb{$ip}->{'address_type'},
2234	$enable,
2235	$date,
2236	$comment;
2237	}
2238	}
2239
2240	#-------------------------------------------------------------------------------
2241	#Nom: cmd_generate_dhcp_file
2242	#Description: génère les fichiers de configuration des machines et des pools du dhcp
2243
2244	sub cmd_generate_dhcp_file {
2245	backup_database();
2246
2247	my %file_pool;
2248
2249	for my $domain_name (keys %{$COMPUTER_DB}) {
2250	next if $domain_name eq 'dset';
2251	next if $domain_name eq 'pool';
2252	next if $domain_name eq 'pxe';
2253	next if $domain_name eq 'tag';
2254
2255	open FILE_VLAN, '>', "$FOLDER_GEN_DHCP/$domain_name";
2256	my @domaindb = @{$COMPUTER_DB->{$domain_name}};
2257	for my $value (@domaindb) {
2258	ALL_MAC_ADDRESS:
2259	for my $mac_addres (keys %{$value}) {
2260	#host pcdavoust { deny-unknown-clients;
2261	#hardware ethernet 0:6:5b:b8:13:d1;
2262	#fixed-address 194.254.66.72;
2263	#}
2264
2265	my $hostname = $value->{$mac_addres}{'hostname'};
2266	my $ip = $value->{$mac_addres}{'ip'};
2267	my $comment = $value->{$mac_addres}{'comment'};
2268	my $address_type = $value->{$mac_addres}{'address_type'};
2269	my $enabled = $value->{$mac_addres}{'enabled'};
2270	my $tags = $value->{$mac_addres}{'tag'} \|\| 'universal';
2271
2272	my $buffer;
2273	if ($address_type eq 'dhcp') {
2274	if ($enabled eq 'yes') {
2275	$buffer = "host $hostname {\n"; # deny-unknown-clients;
2276	$buffer .= " hardware ethernet $mac_addres;\n";
2277	$buffer .= " fixed-address $ip;\n";
2278
2279	if (exists $value->{$mac_addres}{'pxe_config'}) {
2280	my $pxe_config = $value->{$mac_addres}{'pxe_config'};
2281	my $ip_next_server = $COMPUTER_DB->{'pxe'}{$pxe_config}{'ip_next_server'};
2282	my $filename = $COMPUTER_DB->{'pxe'}{$pxe_config}{'filename'};
2283	$buffer .= " next-server $ip_next_server;\n";
2284	$buffer .= " filename \"$filename\";\n";
2285	}
2286	$buffer .= " #comment: $comment\n";
2287	$buffer .= " }\n";
2288	$buffer .= "\n";
2289
2290	for my $tag (split/,/, $tags) {
2291	$file_pool{"tag-$tag"} \|\|= [];
2292	push @{$file_pool{"tag-$tag"}}, "subclass \"tag-$tag\" 1:$mac_addres; # $comment\n";
2293	}
2294	}
2295	else {
2296	$buffer = "#host $hostname {\n"; # deny-unknown-clients;
2297	$buffer .= "# hardware ethernet $mac_addres;\n";
2298	$buffer .= "# fixed-address $ip;\n";
2299	$buffer .= "# comment: $comment \n";
2300	$buffer .= "# }\n";
2301	$buffer .= "\n";
2302	}
2303	print FILE_VLAN $buffer;
2304	}
2305	elsif ($address_type eq 'pool-dhcp') {
2306	#--- Génère les fichiers pool dhcp ---#
2307	for my $current_pool (keys %{$COMPUTER_DB->{'pool'}}) {
2308	next if $current_pool ne $ip;
2309
2310	if ($enabled eq 'yes') {
2311	$buffer = "subclass \"$current_pool\" 1:$mac_addres; # $comment\n";
2312
2313	for my $tag (split/,/, $tags) {
2314	$file_pool{"tag-$tag"} \|\|= [];
2315	push @{$file_pool{"tag-$tag"}}, "subclass \"tag-$tag\" 1:$mac_addres; # $comment\n";
2316	}
2317	}
2318	else {
2319	$buffer = "#subclass \"$current_pool\" 1:$mac_addres; # $comment\n";
2320	}
2321
2322	my $current_pool_file_name = $COMPUTER_DB->{'pool'}{$current_pool}{'file'};
2323
2324	$file_pool{$current_pool_file_name} \|\|= [];
2325	push @{$file_pool{$current_pool_file_name}}, $buffer;
2326	}
2327	}
2328	}
2329	}
2330
2331	close FILE_VLAN;
2332
2333	for my $file_name (keys %file_pool) {
2334	open FILE_POOL, '>', "$FOLDER_GEN_DHCP/$file_name";
2335	print FILE_POOL @{$file_pool{$file_name}};
2336	close FILE_POOL;
2337	}
2338	}
2339	print "Copy DHCP files from $FOLDER_GEN_DHCP to /etc/dhcp/include/\n";
2340	exec $SCRIPT_UPDATE;
2341	}
2342
2343	#-------------------------------------------------------------------------------
2344	#Nom: cmd_generate_dns_file
2345	#Description: génère les fichiers d'enregistrements DNS
2346
2347	sub cmd_generate_dns_file {
2348	my $buffer;
2349	my $buffer_rev;
2350	my $pool_domain;
2351
2352	for my $domain_name (keys %{$COMPUTER_DB}) {
2353	next if $domain_name eq 'dset';
2354	next if $domain_name eq 'pool';
2355	next if $domain_name eq 'pxe';
2356	next if $domain_name eq 'tag';
2357
2358	if ($domain_name eq 'pool') {
2359	#next;
2360	for my $value (@{$COMPUTER_DB->{$domain_name}}) {
2361	for my $pool_name (keys %{$value}) {
2362	$pool_domain = $value->{$pool_name}->{'domain'}."\n";
2363	#print $value->{$pool_name}->{'file'};
2364	chomp $pool_domain;
2365	open FILE_FORWARD_DNS, '>>', "$FOLDER_GEN_DNS/db.$pool_domain.fwd";
2366	open FILE_REVERSE_DNS, '>>', "$FOLDER_GEN_DNS/db.$pool_domain.rev";
2367	my @T_pool_ip = @{$value->{$pool_name}->{'ip'}};
2368	for my $pool_ip (@T_pool_ip) {
2369	my @T_split = split(/\./ , $pool_ip);
2370	$buffer = sprintf "%-24s IN A %-15s ;\n", "$pool_name$T_split[3]", $pool_ip;
2371	$buffer_rev = "$T_split[3] IN PTR $pool_name$T_split[3].$pool_domain.\n";
2372	print FILE_FORWARD_DNS $buffer;
2373	print FILE_REVERSE_DNS $buffer_rev;
2374	}
2375	close FILE_FORWARD_DNS;
2376	close FILE_REVERSE_DNS;
2377	}
2378	}
2379	}
2380
2381	else {
2382	#--- Création du fichier non-reverse ---#
2383	open ( FILE_FORWARD_DNS, ">> $FOLDER_GEN_DNS/db.$domain_name.fwd");
2384	open ( FILE_REVERSE_DNS, ">> $FOLDER_GEN_DNS/db.$domain_name.rev");
2385	my @domaindb = @{$COMPUTER_DB->{$domain_name}};
2386	for my $value (@domaindb) {
2387	for my $id (keys %{$value}) {
2388	#host pcdavoust { deny-unknown-clients;
2389	#hardware ethernet 0:6:5b:b8:13:d1;
2390	#fixed-address 194.254.66.72;
2391	#}
2392	my $hostname = $value->{$id}->{'hostname'};
2393	my $ip = $value->{$id}->{'ip'};
2394	my $comment = $value->{$id}->{'comment'};
2395	my $address_type = $value->{$id}->{'address_type'};
2396	my $enabled = $value->{$id}->{'enabled'};
2397
2398	my $dns_domain = $domain_name;
2399	if (exists $COMPUTER_DB->{'dset'}{$domain_name}) {
2400	$dns_domain = $COMPUTER_DB->{'dset'}{$domain_name}{'dns_extension'};
2401	}
2402	my @T_split = split(/\./ , $ip);
2403	if (($address_type eq 'dhcp') or ($address_type eq 'static')) {
2404	if ($enabled eq 'yes') {
2405	$buffer = sprintf "%-24s IN A %-15s ; %s\n", $hostname, $ip, $comment;
2406	if (exists $value->{$id}->{'dns_extension'}
2407	and "$value->{$id}->{'dns_extension'}" != "$dns_domain") {
2408	print "A FAIRE\n";
2409	}
2410	$buffer_rev = $T_split[3]." IN PTR $hostname.$dns_domain.\n";
2411	}
2412
2413	else {
2414	$buffer = sprintf "%-24s IN A %-15s ; %s\n", $hostname, $ip, $comment;
2415	$buffer_rev = ";".$T_split[3]." IN PTR $hostname.$dns_domain.\n";
2416	}
2417	print FILE_REVERSE_DNS $buffer_rev;
2418	print FILE_FORWARD_DNS $buffer;
2419	}
2420	}
2421	#$cpt=$cpt+1;
2422	}
2423	print "- DNS: db.$domain_name.fwd db.$domain_name.rev [CREATE].\n";
2424	print "Ex : sort -k 4n -t . /usr/local/dhcp-dns-tools/dns/dns.hmg.priv\n";
2425	close FILE_REVERSE_DNS;
2426	close FILE_FORWARD_DNS;
2427	}
2428	}
2429	}
2430
2431	#--------------------------------------------------------------------------------
2432
2433	sub shell_command {
2434	my $cmd = shift;
2435
2436	require FileHandle;
2437	my $fh = new FileHandle;
2438	my @result = ();
2439	open $fh, q{-\|}, "LANG=C $cmd" or die "Can't exec $cmd\n";
2440	@result = <$fh>;
2441	close $fh;
2442	chomp @result;
2443	return @result;
2444	}
2445
2446	sub cmd_check_dns {
2447
2448	LOOP_ON_DOMAIN:
2449	for my $domain_name (keys %{$COMPUTER_DB}) {
2450	next if $domain_name eq 'dset';
2451	next if $domain_name eq 'pool';
2452	next if $domain_name eq 'pxe';
2453	next if $domain_name eq 'tag';
2454
2455	my @domaindb = @{$COMPUTER_DB->{$domain_name}};
2456
2457	LOOP_ON_COMPUTER:
2458	for my $computer (@domaindb) {
2459	my ($mac_address, $attribute) = %{$computer};
2460	#my $new_mac = normalize_mac_address($mac_address);
2461	my $ip = $attribute->{'ip'};
2462	next LOOP_ON_COMPUTER if not $ip =~ m/$DDT::RE::IPv4_ADDRESS/xms;
2463	next LOOP_ON_COMPUTER if $attribute->{'enabled'} eq 'no';
2464
2465	my $dns_hostname_fq = scalar gethostbyaddr(inet_aton($ip), AF_INET);
2466	my ($dns_hostname) = split /\./, $dns_hostname_fq;
2467
2468	if ($attribute->{'hostname'} ne $dns_hostname) {
2469	print "$mac_address ($domain_name) $ip - $dns_hostname / $attribute->{'hostname'} # $attribute->{'comment'}\n";
2470	next LOOP_ON_COMPUTER;
2471	}
2472
2473	my $packed_ip = scalar gethostbyname($dns_hostname_fq);
2474	if (defined $packed_ip) {
2475	my $ip_address = inet_ntoa($packed_ip);
2476	if ($ip ne $ip_address) {
2477	print "reverse DNS error for $dns_hostname_fq / $ip\n";
2478	next LOOP_ON_COMPUTER;
2479	}
2480	}
2481	}
2482	}
2483
2484	LOOP_ON_DNS:
2485	for my $dns ('legi.grenoble-inp.fr', 'hmg.priv') {
2486	LOOP_ON_IP:
2487	for (shell_command("host -t A -l $dns")) {
2488	# smtp2.legi.grenoble-inp.fr has address 194.254.67.37
2489	next if not m/has address/;
2490	next if not m/^(\w[\w-_\.]+\w)\s+has\saddress\s+(\d[\d\.]+\d)$/;
2491	my ($hostname_fq, $ip) = ($1, $2);
2492	control_syntax_ip($ip) or next LOOP_ON_IP;
2493	if (control_exist_ip($COMPUTER_DB, $ip) == 1) {
2494	printf "Unkown IP: %015s / %s\n", $ip, $hostname_fq;
2495	next LOOP_ON_IP;
2496	}
2497	}
2498	}
2499	}
2500
2501	#-------------------------------------------------------------------------------
2502	#Nom: load_data_dhcp
2503	#Description: permet de charger le fichier de données YAML via les fichiers de configuration
2504	# machines.
2505	# ATTENTION: LES COMMENTAIRES DU FICHIER DISPARAITRONT.
2506
2507	sub load_data_dhcp {
2508	my ($domainset, $input_file) = @_;
2509
2510	my @T_mac;
2511	my @T_host;
2512	my @T_ip;
2513	my $cpt;
2514	open (FILE, "<$input_file");
2515	my @buffer = <FILE>;
2516	close(FILE);
2517
2518	for my $ligne (@buffer) {
2519	#--
2520	$ligne =~ s/#.*$//;
2521	$ligne =~ s/\s+/ /;
2522	$ligne =~ s/^\s+//;
2523	next if $ligne eq '';
2524
2525	if ($ligne =~ /^host /) {
2526	$cpt=0;
2527	my @T_split = split(/host\s+/, $ligne);
2528	@T_host = split(/ /, $T_split[1]);
2529	chomp($T_host[0]);
2530
2531	$cpt++;
2532	}
2533
2534	if ($ligne =~ /^*ethernet /) {
2535	$ligne =~ s/;//g;
2536	@T_mac = split(/ethernet\s+/, $ligne);
2537	chomp($T_mac[1]);
2538	$cpt++;
2539	}
2540
2541	if ($ligne =~ /^*address /) {
2542	$ligne =~ s/;//g;
2543	@T_ip = split(/address\s+/, $ligne);
2544	chomp($T_ip[1]);
2545
2546	$cpt++;
2547	}
2548
2549	if ($cpt == 3) {
2550	# print "MAC $T_mac[1] HOST $T_host[0] IP $T_ip[1].\n";
2551	my $mac = $T_mac[1];
2552	my $hostname = $T_host[0];
2553	my $ip = $T_ip[1];
2554	$cpt = 0;
2555
2556	if ( control_exist_hostname($COMPUTER_DB, $domainset, $hostname) == 0 ) {
2557	print "Error: Hostname already exist in domain set attachement $domainset: $hostname\n";
2558	next;
2559	}
2560	control_syntax_mac_address($mac) or next;
2561	if ( control_exist_mac($COMPUTER_DB, $mac) == 0) {
2562	print "Error: Physical MAC address already exists: $mac\n";
2563	next;
2564	}
2565
2566	control_syntax_ip($ip) or next;
2567	if ( control_exist_ip($COMPUTER_DB, $ip) == 0 ) {
2568	print "Error: IP address already exists: $ip\n";
2569	next;
2570	}
2571	my $timestamp = time;
2572	push @{$COMPUTER_DB->{$domainset}}, { $mac => {
2573	'hostname' => $hostname,
2574	'ip' => $ip,
2575	'address_type' => 'dhcp',
2576	'enabled' => 'yes',
2577	'create_time' => $timestamp,
2578	'modify_time' => $timestamp,
2579	'alias' => '',
2580	}};
2581	}
2582	}
2583	}
2584
2585	#-------------------------------------------------------------------------------
2586	#Nom: load_data_pool
2587	#Description: permet de charger le fichier YAML via les fichiers de conf 'pool' du dhcp.
2588
2589	sub load_data_pool {
2590	my ($domainset, $input_file) = @_;
2591
2592	my @T_mac;
2593
2594	open (FILE, "<$input_file");
2595	my @buffer = <FILE>;
2596	close(FILE);
2597
2598	for my $ligne (@buffer) {
2599	#--
2600	$ligne =~ s/#.*$//;
2601	$ligne =~ s/\s+/ /;
2602	$ligne =~ s/^\s+//;
2603	$ligne =~ s/;//g;
2604	$ligne =~ s/"//g;
2605	next if $ligne eq '';
2606
2607	if (($ligne =~ /^subclass/)) {
2608	my @T_split = split(/ / ,$ligne);
2609	my $pool = $T_split[1];
2610
2611	@T_mac = split(/:/ , $T_split[2]);
2612	my $mac = $T_mac[1].":".$T_mac[2].":".$T_mac[3].":".$T_mac[4].":".$T_mac[5].":".$T_mac[6];
2613	control_syntax_mac_address($mac) or next;
2614	if (control_exist_mac($COMPUTER_DB, $mac) == 0) {
2615	print "Error: Physical MAC address already exists: $mac\n";
2616	next;
2617	}
2618
2619	#--- cette partie teste si le pool existe.
2620	if (not exists $COMPUTER_DB->{'pool'}{$pool}) {
2621	print "Error: Create pool with create_pool command before load database: $pool\n";
2622	exit;
2623	}
2624
2625	if ($COMPUTER_DB->{'pool'}{'domain'} eq $domainset) {
2626	my $timestamp = time;
2627	push @{$COMPUTER_DB->{$domainset}}, { $mac => {
2628	'hostname' => $pool,
2629	'ip' => $pool,
2630	'address_type' => 'pool-dhcp',
2631	'enabled' => 'yes',
2632	'create_time' => $timestamp,
2633	'modify_time' => $timestamp,
2634	}};
2635	}
2636	else {
2637	print "Ajout de la machine $mac [FAILED]\n";
2638	print "Error: The pool doesn't exists: $pool, for the domain: $domainset\n";
2639	}
2640	}
2641	}
2642	}
2643
2644	#-------------------------------------------------------------------------------
2645
2646	sub load_data_file {
2647	my ($domainset, $input_file, $type_file) = @_;
2648
2649	#$COMPUTER_DB
2650	if ($type_file eq 'dhcp') {
2651	load_data_dhcp($domainset, $input_file);
2652	}
2653
2654	elsif ($type_file eq 'pool-dhcp') {
2655	load_data_pool($domainset, $input_file);
2656	}
2657
2658	YAML::Syck::DumpFile("$COMPUTER_YAML", $COMPUTER_DB);
2659	}
2660
2661	#-------------------------------------------------------------------------------
2662
2663	sub cmd_load_database {
2664	local @ARGV = @_;
2665
2666	my $help = get_cmd_name();
2667	my ($domainset, $input_file, $type_file);
2668
2669	GetOptions(
2670	'domainset\|d=s' => \$domainset,
2671	'filename\|f=s' => \$input_file,
2672	'kind\|k=s' => \$type_file,
2673	);
2674
2675	exit_on_error_option($help)
2676	if $domainset eq ''
2677	or $input_file eq ''
2678	or $type_file eq '';
2679
2680	load_data_file($domainset, $input_file, $type_file);
2681	}
2682
2683	#-------------------------------------------------------------------------------
2684	#Nom: backup_database
2685	#Description: sauvegarde et réinitialise les fichiers d'enregistrements DHCP.
2686
2687	sub backup_database {
2688	my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime time;
2689	$year += 1900;
2690	$mon++;
2691	my $date = sprintf '%04i-%02i-%02i-%02i-%02i-%02i', $year, $mon, $mday, $hour, $min, $sec;
2692
2693	copy($COMPUTER_YAML, "$FOLDER_BACKUP/$COMPUTER_BASENAME-$date.conf") or die "Error: Database copy backup failed: $!\n";
2694	}
2695
2696	#-------------------------------------------------------------------------------
2697	# HELP section
2698	#-------------------------------------------------------------------------------
2699
2700	#-------------------------------------------------------------------------------
2701	#Nom: exit_on_error_option
2702	#Description: messages d'aide des options pour les différentes commandes
2703
2704	sub exit_on_error_option {
2705	my ($command) = @_;
2706
2707	if ($command eq 'add-dhcp') {
2708	print "List of options for command: $command\n";
2709	print " -d : domain set attachment (mandatory). Example: -d legi-sector03\n";
2710	print " -h : computer hostname (mandatory if option -i != 'pool'). Example: -h info8pc154\n";
2711	print " -m : physical MAC address (mandatory). Example: -m 0F:58:AB:2A\n";
2712	print " -i : internet IP address (mandatory). Possible value: classical IP address or the keyword 'pool'\n";
2713	print " -p : name of the DHCP pool to which the machine belongs (mandatory if option -i == 'pool')\n";
2714	print " -c : comment (mandatory). Example: 2014-04-07 DELL Laptop 6400 - Olivier Toto (INFO)\n";
2715	print "Example:\n";
2716	print " ddt add_dhcp -h most1mc130 -d legi-661 -i 194.254.66.130 -m 00:17:F2:D3:2B:FF -c '2008-07-03 Mac Book Guillaume Balleyrac (MOST)\n";
2717	print " ddt add_dhcp -p pool-stagiaire -i pool -d hmg.priv -m 02:00:54:55:4E:01 -c '2008-09-02 Portable Perso - Laanaia Nabil - Achim Wirth (MEIGE)\n";
2718	}
2719
2720	elsif ($command eq 'add-float') {
2721	print "List of options for command: $command\n";
2722	print " -d : domain set attachment (mandatory)\n";
2723	print " -p : name of the DHCP pool to which the machine belongs (mandatory)\n";
2724	print " -m : physical MAC address (mandatory)\n";
2725	print " -c : comment (mandatory). Example: 2014-04-07 DELL Laptop 6400 - Olivier Toto (INFO)\n";
2726	print "Example:\n";
2727	print " ddt add_float -p pool-stagiaire -d hmg.priv -i 192.168.10.1 -m 00:AB:1B:CC:AA:2F -c '2013-09-25 Dell OptiPlex 745 - Eric Goncalves (NRJ)\n";
2728	}
2729
2730	elsif ($command eq 'add-static') {
2731	print "List of options for command: $command\n";
2732	print " -d : domain set attachment (mandatory)\n";
2733	print " -i : internet IP address (mandatory)\n";
2734	print " -h : computer hostname (mandatory)\n";
2735	print " -m : physical MAC address (mandatory)\n";
2736	print " -c : comment (mandatory). Example: 2014-04-07 DELL Laptop 6400 - Olivier Toto (INFO)\n";
2737	print "Example:\n";
2738	print " ddt add_static -h legipc1 -d hmg.priv -i 192.168.10.1 -m 00:AB:1B:CC:AA:2F -c '2013-09-25 Dell OptiPlex 745 - Eric Goncalves (NRJ)\n";
2739	}
2740
2741	elsif ($command eq 'add-virtual') {
2742	print "List of options for command: $command\n";
2743	print " -d : domain set attachment (mandatory)\n";
2744	print " -i : internet IP address (mandatory)\n";
2745	print " -h : computer hostname (mandatory)\n";
2746	print " -c : comment (mandatory). Example: 2014-04-07 DELL Laptop 6400 - Olivier Toto (INFO)\n";
2747	print "Example:\n";
2748	print " ddt add_virtual -h legipc1 -d legi-211 -i 192.168.10.1 -c '2013-09-25 Dell OptiPlex 745 - Eric Goncalves (NRJ)\n";
2749	}
2750
2751	elsif ($command eq 'add-alias') {
2752	print "List of options for command: $command\n";
2753	print " -d : domain set attachment (mandatory)\n";
2754	print " -h : computer hostname (mandatory)\n";
2755	print " -a : computer alias name (mandatory)\n";
2756	}
2757
2758	elsif ($command eq 'create-domainset') {
2759	print "List of options for command: $command\n";
2760	print " -d : new domain set (mandatory)\n";
2761	print " -e : DNS domain name extension( mandatory). Example legi.grenoble-inp.fr\n";
2762	print " -c : comment (mandatory). Example: 2016-08-22 VLAN legi-261 (INFO)\n";
2763	print "Examples:\n";
2764	print " ddt create_domainset -d legi-264 -e legi.grenoble-inp.fr -c '2016-08-22 VLAN legi-261 (INFO)'\n";
2765	}
2766
2767	elsif ($command eq 'create-pool') {
2768	print "List of options for command: $command\n";
2769	print " -p : name of the DHCP pool. Example: pool-legi-priv\n";
2770	print " -d : domain set attachment for the pool. (domain set attachment must exist in file $COMPUTER_BASENAME.conf). Example: legi.grenoble-inp.fr\n";
2771	print " -f : configuration filename on the DHCP server for the pool\n";
2772	print " -i : adresse(s) IP ou plage d'IP. Séparateur d'adresses IP: ','. Séparateur de plage '-'\n";
2773	print "Examples:\n";
2774	print " ddt -p pool-hmg -d hmg.priv -f pool.hmg.priv -i 192.168.10.1,192.168.10.2,192.168.10.3\n";
2775	print " ddt -p turbocavit -d legi-sector03 -f pool-legi-public -i 192.168.10.1-192.168.10.4\n";
2776	}
2777
2778	elsif ($command eq 'create-pxe') {
2779	print "List of options for command: $command\n";
2780	print " -b : name of the PXE/BOOTP configuration. Example: most\n";
2781	print " -n : internet IP address for the DHCP next-server.\n";
2782	print " -f : filename on TFTP server to load at boot\n";
2783	print " -c : comment (mandatory). Example: 2014-04-07 PXE Boot for CentOS (MOST)\n";
2784	}
2785
2786	elsif ($command eq 'remove-pxe') {
2787	print "List of options for command: $command\n";
2788	print " -b : name of the PXE/BOOTP configuration. Example: most\n";
2789	}
2790
2791	elsif ($command eq 'enable-pxe') {
2792	print "List of options for command: $command\n";
2793	print " -h : computer hostname (mandatory unless option -i)\n";
2794	print " -i : internet IP address (mandatory unless option -h)\n";
2795	print " -d : domain set attachment (mandatory if option -h)\n";
2796	print " -b : name of the PXE/BOOTP configuration. Example: most\n";
2797	}
2798
2799	elsif ($command eq 'disable-pxe') {
2800	print "List of options for command: $command\n";
2801	print " -h : computer hostname (mandatory unless option -i)\n";
2802	print " -i : internet IP address (mandatory unless option -h)\n";
2803	print " -d : domain set attachment (mandatory if option -h)\n";
2804	}
2805
2806	elsif ($command eq 'create-tag') {
2807	print "List of options for command: $command\n";
2808	print " -t : name of the TAG (mandatory). Example: restricted\n";
2809	print " -c : comment (mandatory). Example: 2014-04-07 tag restricted (INFO)\n";
2810	print "tag 'universal' is intrinsic\n";
2811	}
2812
2813	elsif ($command eq 'remove-tag') {
2814	print "List of options for command: $command\n";
2815	print " -b : name of the TAG. Example: restricted\n";
2816	}
2817
2818	elsif ($command eq 'change-mac') {
2819	print "List of options for command: $command\n";
2820	print " -d : domain set attachment (mandatory). Example: -d legi-sector03\n";
2821	print " -h : computer hostname (mandatory unless option -i)\n";
2822	print " -i : internet IP address (mandatory unless option -h). Possible value: classical IP address or the keyword 'pool'\n";
2823	print " -m : physical MAC address (mandatory). Example: -m 0F:58:AB:2A:22:11\n";
2824	}
2825
2826	elsif ($command eq 'change-ip') {
2827	print "List of options for command: $command\n";
2828	print " -d : domain set attachment (mandatory). Example: -d legi-sector03\n";
2829	print " -h : computer hostname (mandatory)\n";
2830	print " -i : new internet IP address (mandatory). Possible value: classical IP address\n";
2831	}
2832
2833	elsif ($command eq 'change-host') {
2834	print "List of options for command: $command\n";
2835	print " -d : domain set attachment (mandatory). Example: -d legi-sector03\n";
2836	print " -i : internet IP address (mandatory). Possible value: classical IP address\n";
2837	print " -h : new computer hostname (mandatory)\n";
2838	print "It's not possible to change hostname for computer that belongs to a pool\n";
2839	}
2840
2841	elsif ($command eq 'change-comment') {
2842	print "List of options for command: $command\n";
2843	print " -d : domain set attachment (mandatory). Example: -d legi-sector03\n";
2844	print " -m : physical MAC address (mandatory). Example: -m 0F:58:AB:2A:22:11\n";
2845	print " -c : new comment (mandatory)\n";
2846	}
2847
2848	elsif ($command eq 'change-domainset') {
2849	print "List of options for command: $command\n";
2850	print " -d : new domain set attachment (mandatory). Example: -d legi-661\n";
2851	print " -m : physical MAC address (mandatory). Example: -m 0F:58:AB:2A:22:11\n";
2852	print " -i : internet IP address (mandatory)\n";
2853	}
2854
2855	elsif ($command eq 'change-tag') {
2856	print "List of options for command: $command\n";
2857	print " -h : computer hostname (mandatory unless option -i or -m)\n";
2858	print " -d : domain set attachment (mandatory). Example: -d legi-sector03\n";
2859	print " -i : internet IP address (mandatory unless option -h or -m)\n";
2860	print " -m : physical MAC address (mandatory unless option -h or -i, priority). Example: -m 0F:58:AB:2A:22:11\n";
2861	print " -t : list of tags separated by comma (mandatory). Example: -t internal,windows\n";
2862	}
2863
2864	elsif ($command eq 'load-database') {
2865	print "List of options for command: $command\n";
2866	print " -d : domain set attachment\n";
2867	print " -f : input file in DHCP format\n";
2868	print " -k : possible cases (kind): dhcp, pool-dhcp, fix-address\n";
2869	}
2870
2871	elsif ($command eq 'enable-pc') {
2872	print "List of options for command: $command\n";
2873	print " -h : computer hostname (mandatory unless option -i)\n";
2874	print " -i : internet IP address (mandatory unless option -h)\n";
2875	print " -d : domain set attachment (mandatory if option -h)\n";
2876	print "Examples:\n";
2877	print " ddt enable_pc -i 192.168.10.1\n";
2878	print " ddt enable_pc -d hmg.priv -h kevinpc\n";
2879	}
2880
2881	elsif ($command eq 'enable-float') {
2882	print "List of options for command: $command\n";
2883	print " -m : physical MAC address (mandatory)\n";
2884	print " -p : name of the DHCP pool (mandatory)\n";
2885	}
2886
2887	elsif ($command eq 'disable-float') {
2888	print "List of options for command: $command\n";
2889	print " -m : physical MAC address (mandatory)\n";
2890	print " -p : name of the DHCP pool (mandatory)\n";
2891	}
2892
2893	elsif ($command eq 'disable-pc') {
2894	print "List of options for command: $command\n";
2895	print " -h : computer hostname (mandatory unless option -i)\n";
2896	print " -i : internet IP address (mandatory unless option -h)\n";
2897	print " -d : domain set attachment (mandatory if option -h)\n";
2898	print "Examples:\n";
2899	print " ddt disable_pc -i 192.168.10.1\n";
2900	print " ddt disable_pc -d hmg.priv -h kevinpc\n";
2901	}
2902
2903	elsif ($command eq 'del-pc') {
2904	print "List of options for command: $command\n";
2905	print " -d : domain set attachment (mandatory)\n";
2906	print " -h : computer hostname (mandatory unless option -i)\n";
2907	print " -i : internet IP address (mandatory unless option -h)\n";
2908	}
2909
2910	elsif ($command eq 'del-float') {
2911	print "List of options for command: $command\n";
2912	print " -m : physical MAC address (mandatory)l\n";
2913	print " -p : name of the DHCP pool\n";
2914	}
2915
2916	elsif ($command eq 'search-mac') {
2917	print "List of options for command: $command\n";
2918	print " -m : physical MAC address (mandatory). Example: -m 0F:58:AB:2A:22:11\n";
2919	}
2920
2921	else {
2922	print "No help for command: $command\n";
2923	}
2924	exit;
2925	}
2926
2927	#-------------------------------------------------------------------------------
2928
2929	sub cmd_version {
2930
2931	print <<'END';
2932	ddt - management of computer names and IP addresses
2933	Copyright (C) 2006-2018 Gabriel Moreau <Gabriel.Moreau(A)univ-grenoble-alpes.fr>
2934	License GNU GPL version 2 or later and Perl equivalent
2935	END
2936
2937	print "Version $VERSION\n\n";
2938	print ' $Id: ddt 235 2018-06-22 16:40:45Z g7moreau $'."\n";
2939	return;
2940	}
2941
2942	#-------------------------------------------------------------------------------
2943	#Nom: usage
2944	#Description: message d'aide sur les commandes du script
2945
2946	sub cmd_help {
2947	print <<END;
2948	ddt - management of computer names and IP addresses
2949
2950	ddt add-alias [--hostname\|-h hostname] [--domainset\|-d domainset] [--alias\|-a alias]
2951	ddt add-dhcp [--hostname\|-h hostname] [--domainset\|-d domainset] [--ip\|-i ip] [--mac\|-m mac] [--comment\|-c comment]
2952	ddt add-float [--pool\|-p pool] [--domainset\|-d domainset] [--mac\|-m mac] [--comment\|-c comment]
2953	ddt add-static [--hostname\|-h hostname] [--domainset\|-d domainset] [--ip\|-i ip] [--mac\|-m mac] [--comment\|-c comment]
2954	ddt add-virtual [--hostname\|-h hostname] [--domainset\|-d domainset] [--ip\|-i ip] [--comment\|-c comment]
2955	ddt change-comment [--domainset\|-d domainset] [--mac\|-m mac] [--comment\|-c comment]
2956	ddt change-domainset [--domainset\|-d domainset] [--ip\|-i ip] [--mac\|-m mac]
2957	ddt change-host [--hostname\|-h hostname] [--domainset\|-d domainset] [--ip\|-i ip]
2958	ddt change-ip [--hostname\|-h hostname] [--domainset\|-d domainset] [--ip\|-i ip]
2959	ddt change-mac [--hostname\|-h hostname] [--domainset\|-d domainset] [--ip\|-i ip] [--mac\|-m mac]
2960	ddt change-tag [--hostname\|-h hostname] [--domainset\|-d domainset] [--ip\|-i ip] [--mac\|-m mac] [--tag\|-t tag]
2961	ddt check-dns
2962	ddt create-domainset [--domainset\|-d domainset] [--dns-extension\|-e dns_extension] [--comment\|-c comment]
2963	ddt create-pool [--pool\|-p pool] [--domainset\|-d domainset] [--file-pool\|-f file_pool] [--ipaddress-pool\|-i ipaddress_pool]
2964	ddt create-pxe [--bootp\|-b pxe_config] [--next-server\|-n next_server] [--filename\|-f filename] [--comment\|-c comment]
2965	ddt create-tag [--tag\|-t tag] [--comment\|-c comment]
2966	ddt del-float [--pool\|-p pool] [--mac\|-m mac]
2967	ddt del-pc [--hostname\|-h hostname] [--domainset\|-d domainset] [--ip\|-i ip]
2968	ddt disable-pc [--hostname\|-h hostname] [--domainset\|-d domainset] [--ip\|-i ip]
2969	ddt disable-float [--pool\|-p pool] [--mac\|-m mac]
2970	ddt disable-pxe [--hostname\|-h hostname] [--domainset\|-d domainset] [--ip\|-i ip]
2971	ddt enable-float [--pool\|-p pool] [--mac\|-m mac]
2972	ddt enable-pc [--hostname\|-h hostname] [--domainset\|-d domainset] [--ip\|-i ip]
2973	ddt enable-pxe [--hostname\|-h hostname] [--domainset\|-d domainset] [--ip\|-i ip] [--bootp\|-b pxe_config]
2974	ddt gen-dhcp-file
2975	ddt gen-dns-file
2976	ddt help
2977	ddt load-database [--domainset\|-d domainset] [--filename\|-f filename] [--kind\|-k kind]
2978	ddt remove-pxe [--bootp\|-b pxe_config]
2979	ddt remove-tag [--tag\|-t tag]
2980	ddt search-mac [--mac\|-m mac]
2981	ddt show-domainset
2982	ddt show
2983	ddt show-pool [--no-header\|-H]
2984	ddt show-pxe [--no-header\|-H]
2985	ddt show-tag [--no-header\|-H]
2986	ddt version
2987
2988	COMMANDS
2989
2990	* add-alias : add an alias for a computer (like CNAME for the DNS)
2991	* add-dhcp : add a computer with a fix DHCP IP or in a DHCP pool
2992	* add-float : add a computer with an IP in a DHCP pool
2993	* add-static : add a computer with a static IP
2994	* add-virtual : add a virtual computer with a static IP but a virtual MAC (useful to declare float computer in DNS)
2995	* change-comment : change the computer comment
2996	* change-domainset : change the domain set attachment for a computer
2997	* change-host : change the computer hostname
2998	* change-ip : change the computer IP address
2999	* change-mac : change the computer physical MAC address
3000	* change-tag : change the list of TAGs associated to a computer
3001	* check-dns : check the DNS table for base IPs
3002	* create-domainset : create a new domain set
3003	* create-pool : create a new pool for DHCP records
3004	* create-pxe : create a new PXE/BOOTP configuration
3005	* create-tag : create a new TAG
3006	* del-float : remove a computer from a DHCP pool
3007	* del-pc : remove a computer (DHCP or static IP) from the YAML database
3008	* disable-pc : disable a computer (DHCP and/or DNS) (but keep it in the database)
3009	* disable-float : disable a computer from a DHCP pool (but keep it in the database)
3010	* disable-pxe : remove PXE/BOOTP configuration on a computer
3011	* enable-float : enable a previous disable computer (DHCP and/or DNS)
3012	* enable-pc : enable a previous disable computer (DHCP and/or DNS)
3013	* enable-pxe : enable PXE/BOOTP configuration on a computer
3014	* gen-dhcp-file : generate DHCP files for the isc DHCP server
3015	* gen-dns-file : generate DNS files for the bind domain server
3016	* help : this help
3017	* load-database : load the YAML database (be careful)
3018	* remove-pxe : remove a PXE/BOOTP configuration
3019	* remove-tag : remove a TAG
3020	* search-mac : search physical MAC address computer
3021	* show-domainset : list all domain set group of computer
3022	* show : list all computers
3023	* show-pool : list all pool
3024	* show-pxe : list PXE/BOOTP configuration
3025	* show-tag : list all TAGs
3026	* version : return program version
3027	END
3028	return;
3029	}
3030
3031	################################################################
3032	# documentation
3033	################################################################
3034
3035	__END__
3036
3037	=head1 NAME
3038
3039	ddt - management of computer names and IP addresses
3040
3041
3042	=head1 USAGE
3043
3044	ddt add-alias [--hostname\|-h hostname] [--domainset\|-d domainset] [--alias\|-a alias]
3045	ddt add-dhcp [--hostname\|-h hostname] [--domainset\|-d domainset] [--ip\|-i ip] [--mac\|-m mac] [--comment\|-c comment]
3046	ddt add-float [--pool\|-p pool] [--domainset\|-d domainset] [--mac\|-m mac] [--comment\|-c comment]
3047	ddt add-static [--hostname\|-h hostname] [--domainset\|-d domainset] [--ip\|-i ip] [--mac\|-m mac] [--comment\|-c comment]
3048	ddt add-virtual [--hostname\|-h hostname] [--domainset\|-d domainset] [--ip\|-i ip] [--comment\|-c comment]
3049	ddt change-comment [--domainset\|-d domainset] [--mac\|-m mac] [--comment\|-c comment]
3050	ddt change-domainset [--domainset\|-d domainset] [--ip\|-i ip] [--mac\|-m mac]
3051	ddt change-host [--hostname\|-h hostname] [--domainset\|-d domainset] [--ip\|-i ip]
3052	ddt change-ip [--hostname\|-h hostname] [--domainset\|-d domainset] [--ip\|-i ip]
3053	ddt change-mac [--hostname\|-h hostname] [--domainset\|-d domainset] [--ip\|-i ip] [--mac\|-m mac]
3054	ddt change-tag [--hostname\|-h hostname] [--domainset\|-d domainset] [--ip\|-i ip] [--mac\|-m mac] [--tag\|-t tag]
3055	ddt check-dns
3056	ddt create-domainset [--domainset\|-d domainset] [--dns-extension\|-e dns_extension] [--comment\|-c comment]
3057	ddt create-pool [--pool\|-p pool] [--domainset\|-d domainset] [--file-pool\|-f file_pool] [--ipaddress-pool\|-i ipaddress_pool]
3058	ddt create-pxe [--bootp\|-b pxe_config] [--next-server\|-n next_server] [--filename\|-f filename] [--comment\|-c comment]
3059	ddt create-tag [--tag\|-t tag] [--comment\|-c comment]
3060	ddt del-float [--pool\|-p pool] [--mac\|-m mac]
3061	ddt del-pc [--hostname\|-h hostname] [--domainset\|-d domainset] [--ip\|-i ip]
3062	ddt disable-pc [--hostname\|-h hostname] [--domainset\|-d domainset] [--ip\|-i ip]
3063	ddt disable-float [--pool\|-p pool] [--mac\|-m mac]
3064	ddt disable-pxe [--hostname\|-h hostname] [--domainset\|-d domainset] [--ip\|-i ip]
3065	ddt enable-float [--pool\|-p pool] [--mac\|-m mac]
3066	ddt enable-pc [--hostname\|-h hostname] [--domainset\|-d domainset] [--ip\|-i ip]
3067	ddt enable-pxe [--hostname\|-h hostname] [--domainset\|-d domainset] [--ip\|-i ip] [--bootp\|-b pxe_config]
3068	ddt gen-dhcp-file
3069	ddt gen-dns-file
3070	ddt help
3071	ddt load-database [--domainset\|-d domainset] [--filename\|-f filename] [--kind\|-k kind]
3072	ddt remove-pxe [--bootp\|-b pxe_config]
3073	ddt remove-tag [--tag\|-t tag]
3074	ddt search-mac [--mac\|-m mac]
3075	ddt show-domainset
3076	ddt show
3077	ddt show-pool [--no-header\|-H]
3078	ddt show-pxe [--no-header\|-H]
3079	ddt show-tag [--no-header\|-H]
3080	ddt version
3081
3082
3083	=head1 DESCRIPTION
3084
3085	DDT is an acronym for DHCP-DNS-Tools.
3086	The previous command name was not C<ddt> but just C<dhcp-dns-tools>...
3087	In practise, DDT is an IP Address Management (IPAM) service.
3088	It has been used in the LEGI laboratory for over 10 years.
3089
3090	The tool is quite effective and tries to keep things simple
3091	but easily configurable for your site like a swiss army knife.
3092	Everything is saved in a YAML database
3093	and entries could be added, deleted, or modified by the command line.
3094
3095
3096	=head1 COMMANDS
3097
3098	=head2 add-alias
3099
3100	ddt add-alias [--hostname\|-h hostname] [--domainset\|-d domainset] [--alias\|-a alias]
3101
3102	=head2 add-dhcp
3103
3104	ddt add-dhcp [--hostname\|-h hostname] [--domainset\|-d domainset] [--ip\|-i ip] [--mac\|-m mac] [--comment\|-c comment]
3105
3106	=head2 add-float
3107
3108	ddt add-float [--pool\|-p pool] [--domainset\|-d domainset] [--mac\|-m mac] [--comment\|-c comment]
3109
3110	=head2 add-static
3111
3112	ddt add-static [--hostname\|-h hostname] [--domainset\|-d domainset] [--ip\|-i ip] [--mac\|-m mac] [--comment\|-c comment]
3113
3114	=head2 add-virtual
3115
3116	ddt add-virtual [--hostname\|-h hostname] [--domainset\|-d domainset] [--ip\|-i ip] [--comment\|-c comment]
3117
3118	=head2 change-comment
3119
3120	ddt change-comment [--domainset\|-d domainset] [--mac\|-m mac] [--comment\|-c comment]
3121
3122	=head2 change-domainset
3123
3124	ddt change-domainset [--domainset\|-d domainset] [--ip\|-i ip] [--mac\|-m mac]
3125
3126	=head2 change-host
3127
3128	ddt change-host [--hostname\|-h hostname] [--domainset\|-d domainset] [--ip\|-i ip]
3129
3130	=head2 change-ip
3131
3132	ddt change-ip [--hostname\|-h hostname] [--domainset\|-d domainset] [--ip\|-i ip]
3133
3134	=head2 change-mac
3135
3136	ddt change-mac [--hostname\|-h hostname] [--domainset\|-d domainset] [--ip\|-i ip] [--mac\|-m mac]
3137
3138	=head2 change-tag
3139
3140	ddt change-tag [--hostname\|-h hostname] [--domainset\|-d domainset] [--ip\|-i ip] [--mac\|-m mac] [--tag\|-t tag]
3141
3142	=head2 check-dns
3143
3144	ddt check-dns
3145
3146	=head2 create-domainset
3147
3148	ddt create-domainset [--domainset\|-d domainset] [--dns-extension\|-e dns_extension] [--comment\|-c comment]
3149
3150	=head2 create-pool
3151
3152	ddt create-pool [--pool\|-p pool] [--domainset\|-d domainset] [--file-pool\|-f file_pool] [--ipaddress-pool\|-i ipaddress_pool]
3153
3154	=head2 create-pxe
3155
3156	ddt create-pxe [--bootp\|-b pxe_config] [--next-server\|-n next_server] [--filename\|-f filename] [--comment\|-c comment]
3157
3158	=head2 create-tag
3159
3160	ddt create-tag [--tag\|-t tag] [--comment\|-c comment]
3161
3162	=head2 del-float
3163
3164	ddt del-float [--pool\|-p pool] [--mac\|-m mac]
3165
3166	=head2 del-pc
3167
3168	ddt del-pc [--hostname\|-h hostname] [--domainset\|-d domainset] [--ip\|-i ip]
3169
3170	=head2 disable-pc
3171
3172	ddt disable-pc [--hostname\|-h hostname] [--domainset\|-d domainset] [--ip\|-i ip]
3173
3174	=head2 disable-float
3175
3176	ddt disable-float [--pool\|-p pool] [--mac\|-m mac]
3177
3178	=head2 disable-pxe
3179
3180	ddt disable-pxe [--hostname\|-h hostname] [--domainset\|-d domainset] [--ip\|-i ip]
3181
3182	=head2 enable-float
3183
3184	ddt enable-float [--pool\|-p pool] [--mac\|-m mac]
3185
3186	=head2 enable-pc
3187
3188	ddt enable-pc [--hostname\|-h hostname] [--domainset\|-d domainset] [--ip\|-i ip]
3189
3190	=head2 enable-pxe
3191
3192	ddt enable-pxe [--hostname\|-h hostname] [--domainset\|-d domainset] [--ip\|-i ip] [--bootp\|-b pxe_config]
3193
3194	=head2 gen-dhcp-file
3195
3196	ddt gen-dhcp-file
3197
3198	=head2 gen-dns-file
3199
3200	ddt gen-dns-file
3201
3202	=head2 help
3203
3204	ddt help
3205
3206	=head2 load-database
3207
3208	ddt load-database [--domainset\|-d domainset] [--filename\|-f filename] [--kind\|-k kind]
3209
3210	=head2 remove-pxe
3211
3212	ddt remove-pxe [--bootp\|-b pxe_config]
3213
3214	=head2 remove-tag
3215
3216	ddt remove-tag [--tag\|-t tag]
3217
3218	=head2 search-mac
3219
3220	ddt search-mac [--mac\|-m mac]
3221
3222	=head2 show-domainset
3223
3224	ddt show-domainset
3225
3226	=head2 show
3227
3228	ddt show
3229
3230	=head2 show-pool
3231
3232	ddt show-pool [--no-header\|-H]
3233
3234	=head2 show-pxe
3235
3236	ddt show-pxe [--no-header\|-H]
3237
3238	=head2 show-tag
3239
3240	ddt show-tag [--no-header\|-H]
3241
3242	=head2 version
3243
3244	ddt version
3245
3246
3247	=head1 AUTHORS
3248
3249	Written by Gabriel Moreau, Kevin Reverchon, Olivier De-Marchi - Grenoble - France
3250
3251
3252	=head1 LICENSE AND COPYRIGHT
3253
3254	Licence GNU GPL version 2 or later and Perl equivalent
3255
3256	Copyright (C) 2006-2018 Gabriel Moreau <Gabriel.Moreau(A)univ-grenoble-alpes.fr>.

Note: See TracBrowser for help on using the repository browser.

Download in other formats: