Perl MiniWebserver
- by snikolov
hey guys i have config this miniwebserver, however i require the server to download a file in the local directory i am getting a problem can you please fix my issue thanks
!/usr/bin/perl
use strict;
use Socket;
use IO::Socket;
my $buffer;
my $file;
my $length;
my $output;
Simple web server in Perl
Serves out .html files, echos form data
sub parse_form {
my $data = $_[0];
my %data;
foreach (split /&/, $data) {
my ($key, $val) = split /=/;
$val =~ s/+/ /g;
$val =~ s/%(..)/chr(hex($1))/eg;
$data{$key} = $val;}
return %data; }
Setup and create socket
my $port = shift;
defined($port) or die "Usage: $0 portno\n";
my $DOCUMENT_ROOT = $ENV{'HOME'} . "public";
my $server = new IO::Socket::INET(Proto = 'tcp',
LocalPort = $port,
Listen = SOMAXCONN,
Reuse = 1);
$server or die "Unable to create server socket: $!" ;
Await requests and handle them as they arrive
while (my $client = $server-accept()) {
$client-autoflush(1);
my %request = ();
my %data;
{
-------- Read Request ---------------
local $/ = Socket::CRLF;
while (<$client>) {
chomp; # Main http request
if (/\s*(\w+)\s*([^\s]+)\s*HTTP\/(\d.\d)/) {
$request{METHOD} = uc $1;
$request{URL} = $2;
$request{HTTP_VERSION} = $3;
} # Standard headers
elsif (/:/) {
(my $type, my $val) = split /:/, $_, 2;
$type =~ s/^\s+//;
foreach ($type, $val) {
s/^\s+//;
s/\s+$//;
}
$request{lc $type} = $val;
} # POST data
elsif (/^$/) {
read($client, $request{CONTENT}, $request{'content-length'})
if defined $request{'content-length'};
last;
}
}
}
-------- SORT OUT METHOD ---------------
if ($request{METHOD} eq 'GET') {
if ($request{URL} =~ /(.*)\?(.*)/) {
$request{URL} = $1;
$request{CONTENT} = $2;
%data = parse_form($request{CONTENT});
} else {
%data = ();
}
$data{"_method"} = "GET";
} elsif ($request{METHOD} eq 'POST') {
%data = parse_form($request{CONTENT});
$data{"_method"} = "POST";
} else {
$data{"_method"} = "ERROR";
}
------- Serve file ----------------------
my $localfile = $DOCUMENT_ROOT.$request{URL};
Send Response
if (open(FILE, "<$localfile")) {
print $client "HTTP/1.0 200 OK", Socket::CRLF;
print $client "Content-type: text/html", Socket::CRLF;
print $client Socket::CRLF;
my $buffer;
while (read(FILE, $buffer, 4096)) {
print $client $buffer;
}
$data{"_status"} = "200";
}
else {
$file = 'a.pl';
open(INFILE, $file);
while (<INFILE>)
{
$output .= $_; ##output of the file
}
$length = length($output);
print $client "'HTTP/1.0 200 OK", Socket::CRLF;
print $client "Content-type: application/octet-stream", Socket::CRLF;
print $client "Content-Length:".$length, Socket::CRLF;
print $client "Accept-Ranges: bytes", Socket::CRLF;
print $client 'Content-Disposition: attachment; filename="test.zip"', Socket::CRLF;
print $client $output, Socket::CRLF;
print $client 'Content-Transfer-Encoding: binary"', Socket::CRLF;
print $client "Connection: Keep-Alive", Socket::CRLF;
#
#$data{"_status"} = "404";
#
}
close(FILE);
Log Request
print ($DOCUMENT_ROOT.$request{URL},"\n");
foreach (keys(%data)) {
print (" $_ = $data{$_}\n"); }
----------- Close Connection and loop ------------------
close $client;
}
END
