]>
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 |