From 80e18300d4b1a0ff8a61b0061cc470f35e19fa73 Mon Sep 17 00:00:00 2001
From: Olivier Blin <oblin@mandriva.org>
Date: Wed, 14 Sep 2005 16:11:41 +0000
Subject: add minimal web server to send auto_inst files

---
 deploy_get_autoinst.pl | 19 +++++++++++++++++++
 1 file changed, 19 insertions(+)
 create mode 100755 deploy_get_autoinst.pl

(limited to 'deploy_get_autoinst.pl')

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");
+}
-- 
cgit v1.2.1