Added test scripts for server and client

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

diff --git a/dhcpd.pl b/dhcpd.pl
new file mode 100644 (file)
index 0000000..2afdbcd
--- /dev/null
+++ b/dhcpd.pl
@@ -0,0 +1,15 @@
+#!/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;
+