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