dhcpd.pl

   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