Context Navigation

source: trunk/ddt/ddt @ 236

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