[pve-dhcp-server.git] / dhcpd.pl

#!/usr/bin/perl

use strict;
use warnings;
use PVE::DHCPServer qw(:constants);
use Data::Dumper;

my $server = PVE::DHCPServer->new(
    NODAEMON => 1,
    DEBUG => 1,
    LOG_LEVEL => DEBUG);

#print Dumper($server);
$server->run;
Commit	Line	Data
45adf788 MR	1	#!/usr/bin/perl
	2
	3	use strict;
	4	use warnings;
	5	use PVE::DHCPServer qw(:constants);
	6	use Data::Dumper;
	7
	8	my $server = PVE::DHCPServer->new(
	9	NODAEMON => 1,
	10	DEBUG => 1,
	11	LOG_LEVEL => DEBUG);
	12
	13	#print Dumper($server);
	14	$server->run;
	15