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

#!/usr/bin/perl

use strict;
use warnings;
use PVE::DHCPServer;
use Data::Dumper;

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

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