2 # Simple DHCP client - sending a broadcasted DHCP Discover request
6 use IO
::Socket
::IP
-register
;
9 use Net
::DHCP
::Constants
;
11 use POSIX
qw(setsid strftime);
13 my ($request, $send, $receive, $discover, $response, $buf, $serverip, $myip, $mymac, $hostname);
15 $mymac = qx/ \/sbin\
/ifconfig | grep -P '^eth0.+HWaddr\\s*' | awk '{print \$5}' /;
17 chomp($hostname = `hostname -s`);
18 # Overrule when testing
19 #$mymac = '001cc0c33317';
20 logger
("mac: $mymac");
25 print STDOUT strftime
"[%d/%b/%Y:%H:%M:%S] ", localtime;
26 print STDOUT
"$str\n";
29 logger
("DHCPd tester - dummy client");
31 logger
("Opening socket");
32 $send = IO
::Socket
::IP
->new( Proto
=> 'udp',
34 PeerPort
=> 'bootps(67)',
35 PeerAddr
=> inet_ntoa
(INADDR_LOOPBACK
),#(INADDR_BROADCAST),
36 #PeerAddr => inet_ntoa(INADDR_BROADCAST),
38 || die "Socket (send) creation error: $@\n"; # yes, it uses $@ here
40 # create DHCP Packet DISCOVER
41 $discover = Net
::DHCP
::Packet
->new(
43 Giaddr
=> $send->sockhost(),
44 Xid
=> int(rand(0xFFFFFFFF)), # random xid
45 DHO_DHCP_MESSAGE_TYPE
() => DHCPDISCOVER
(),
47 DHO_VENDOR_CLASS_IDENTIFIER
() => 'foo',
48 DHO_HOST_NAME
() => $hostname,
51 logger
("Sending DISCOVER to " . $send->peerhost . ":" . $send->peerport);
52 logger
($discover->toString());
53 $send->send($discover->serialize(), 0)
54 or die "Error sending:$!\n";
56 $receive = IO
::Socket
::IP
->new( Proto
=> 'udp',
58 LocalPort
=> 'bootpc(68)',
59 #LocalAddr => inet_ntoa(INADDR_LOOPBACK),#(INADDR_ANY),
60 LocalAddr
=> inet_ntoa
(INADDR_ANY
),
62 || die "Socket (receive) creation error: $@\n"; # yes, it uses $@ here
64 logger
("Listen: " . $receive->sockhost . ":" . $receive->sockport);
65 logger
("Waiting for response from server");
66 $receive->recv($buf, 1024, 0);
67 logger
("Got response from " . $receive->peerhost . ":" . $receive->peerport);
69 $response = new Net
::DHCP
::Packet
($buf);
70 if ($response->getOptionValue(DHO_DHCP_MESSAGE_TYPE
()) == DHCPNAK
()) {
71 logger
("Request for ip was denied");
74 $serverip = $response->getOptionValue(DHO_DHCP_SERVER_IDENTIFIER
());
75 $myip = $response->yiaddr();
77 logger
($response->toString());
79 # create DHCP Packet REQUEST
80 $request = Net
::DHCP
::Packet
->new(
81 Xid
=> int(rand(0xFFFFFFFF)), # random xid
83 Giaddr
=> $send->sockhost(),
84 DHO_DHCP_MESSAGE_TYPE
() => DHCPREQUEST
(),
85 DHO_VENDOR_CLASS_IDENTIFIER
() => 'foo',
86 DHO_HOST_NAME
() => $hostname,
87 DHO_DHCP_REQUESTED_ADDRESS
() => $myip,
90 logger
("Sending REQUEST to " . $send->peerhost . ":" . $send->peerport);
91 logger
($request->toString());
93 $send->send($request->serialize())
94 or die "Error sending:$!\n";
97 $receive = IO
::Socket
::IP
->new( Proto
=> 'udp',
99 LocalPort
=> 'bootpc(68)',
100 #LocalAddr => inet_ntoa(INADDR_LOOPBACK),#inet_ntoa(INADDR_ANY),
101 LocalAddr
=> inet_ntoa
(INADDR_ANY
),
103 || die "Socket creation error: $@\n"; # yes, it uses $@ here
105 logger
("Waiting for response from server");
106 $receive->recv($buf, 1024, 0);
107 logger
("Got response from " . $receive->peerhost . ":" . $receive->peerport);
109 $response = new Net
::DHCP
::Packet
($buf);
110 logger
($response->toString());
112 if ($response->getOptionValue(DHO_DHCP_MESSAGE_TYPE
()) == DHCPACK
()) {
113 $send = IO
::Socket
::IP
->new( Proto
=> 'udp',
115 PeerPort
=> 'bootps(67)',
116 PeerAddr
=> $serverip,
118 || die "Socket (send) creation error: $@\n"; # yes, it uses $@ here
120 # create DHCP Packet REQUEST
121 $request = Net
::DHCP
::Packet
->new(
123 Xid
=> int(rand(0xFFFFFFFF)), # random xid
126 Giaddr
=> $send->sockhost(),
127 DHO_VENDOR_CLASS_IDENTIFIER
() => 'foo',
128 DHO_HOST_NAME
() => $hostname,
129 DHO_DHCP_MESSAGE_TYPE
() => DHCPRELEASE
()
132 logger
("Sending REQUEST to " . $send->peerhost . ":" . $send->peerport);
133 logger
($request->toString());
135 $send->send($request->serialize())
136 or die "Error sending:$!\n";
139 logger
("Request for ip $myip was denied")