#!/usr/bin/perl

use IO::Socket;
use MDK::Common;

my $root = "/var/lib/tftpboot/X86PC/linux/pxelinux.cfg/profiles";
my $file = scalar <> =~ m!^GET (.*?) HTTP/[0-9.]+! && "$root/$1";

sub output_http {
    my ($code, @msg) = @_;
    print join("\015\012" => "HTTP/1.0 $code", "", "");
    print  @msg;
}

if (defined $file && -r $file) {
    output_http("200 OK", cat_($file));
} else {
    output_http("404 Not Found");
}