To make life easier, here is a Net::Server based approach: 

#!/usr/bin/env perl
use strict;
use warnings;

use base qw(Net::Server::Fork);
use Net::DHCP::Packet;
use Net::DHCP::Constants;

my $server_ip = "10.10.10.1";
my $client_ip = "10.10.10.10";
my $subnet_mask = "255.255.255.0";

__PACKAGE__->run(
    proto => 'udp',
    port  => 67,
    host  => "255.255.255.255",
);

sub process_request {
    my ($self, $client) = @_;

    my $buf = $self->{'server'}->{'udp_data'};
    my $packet = Net::DHCP::Packet->new($buf);

    my $messagetype = $packet->getOptionValue(DHO_DHCP_MESSAGE_TYPE())
+;

    if ($messagetype eq DHCPDISCOVER()) {
        send_offer($client, $packet);
    } elsif ($messagetype eq DHCPREQUEST()) {
        send_ack($client, $packet);
    }
}

sub send_offer {
    my ($client, $request) = @_;

    my $offer = Net::DHCP::Packet->new(
        Op     => BOOTREPLY(),
        Xid    => $request->xid(),
        Flags  => $request->flags(),
        Ciaddr => $request->ciaddr(),
        Yiaddr => $client_ip,
        Siaddr => $server_ip,
        Giaddr => $request->giaddr(),
        Chaddr => $request->chaddr(),
        DHO_DHCP_MESSAGE_TYPE() => DHCPOFFER(),
    );

    $offer->addOptionValue(DHO_SUBNET_MASK(), $subnet_mask);
    $offer->addOptionValue(DHO_NAME_SERVERS, $server_ip);

    $client->send($offer->serialize()) or die $!;
    print STDERR "sent offer\n";
}

sub send_ack {
    my ($client, $request) = @_;
    print STDERR "send ack\n";
}

[download]


my @a=qw(random brilliant braindead); print $a[rand(@a)];

In reply to Re: simple DHCP server in Perl by Rhandom
in thread simple DHCP server in Perl by morgon

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.