add minimal web server to send auto_inst files

1 files changed, 19 insertions, 0 deletions

diff --git a/deploy_get_autoinst.pl b/deploy_get_autoinst.pl
new file mode 100755
index 0000000..dba06e5
--- /dev/null
+++ b/deploy_get_autoinst.pl
@@ -0,0 +1,19 @@
+#!/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");
+}