moparisthebest
/
wget
mirror of https://github.com/moparisthebest/wget
1
0
Fork 0
Code Issues Releases Wiki Activity

[svn] HTTPServer.pm: Serve index.html if no filename is given.

This commit is contained in:
mtortonesi 2006-04-27 02:33:36 -07:00
parent 2a58c7d207
commit 2e4bc07697
2 changed files with 20 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
tests/ChangeLog
View File

@ -1,3 +1,7 @@
2006-04-27 Mauro Tortonesi <mauro@ferrara.linux.it>
* HTTPServer.pm: Serve index.html if no filename is given.
2006-01-24 Mauro Tortonesi <mauro@ferrara.linux.it>
* HTTPServer.pm: Enhanced logging support.

26
tests/HTTPServer.pm
View File

@ -20,19 +20,25 @@ sub run {
while (my $con = $self->accept) {
while (my $req = $con->get_request) {
print STDERR "Method: ", $req->method, "\n" if $log;
print STDERR "Path: ", $req->url->path, "\n" if $log;
foreach my $key (keys %{HTTPServer::urls}) {
print STDERR $key, '\n';
my $url_path = $req->url->path;
if ($url_path =~ m{/$}) {
$url_path .= 'index.html';
}
if (exists($urls->{$req->url->path})) {
print STDERR "Serving requested URL: ", $req->url->path, "\n" if $log;
if ($log) {
print STDERR "Method: ", $req->method, "\n";
print STDERR "Path: ", $url_path, "\n";
print STDERR "Available URLs: ", "\n";
foreach my $key (keys %$urls) {
print STDERR $key, "\n";
}
}
if (exists($urls->{$url_path})) {
print STDERR "Serving requested URL: ", $url_path, "\n" if $log;
next unless ($req->method eq "HEAD" || $req->method eq "GET");
# create response
my $tmp = $urls->{$req->url->path};
my $resp = HTTP::Response->new ($tmp->{code},
$tmp->{msg});
my $tmp = $urls->{$url_path};
my $resp = HTTP::Response->new ($tmp->{code}, $tmp->{msg});
print STDERR "HTTP::Response: \n", $resp->as_string if $log;
#if (is_dynamic_url) { # dynamic resource
@ -63,7 +69,7 @@ sub run {
$con->send_response($resp);
print STDERR "HTTP::Response sent: \n", $resp->as_string if $log;
} else {
print STDERR "Requested wrong URL: ", $req->url->path, "\n" if $log;
print STDERR "Requested wrong URL: ", $url_path, "\n" if $log;
$con->send_error($HTTP::Status::RC_FORBIDDEN);
}
}