1 files changed, 61 insertions, 0 deletions
diff --git a/tools/node_modules/expresso/deps/jscoverage/tests/server.pl b/tools/node_modules/expresso/deps/jscoverage/tests/server.pl
new file mode 100644
index 0000000..86064b1
--- /dev/null
+++ b/tools/node_modules/expresso/deps/jscoverage/tests/server.pl
@@ -0,0 +1,61 @@
+use strict;
+use warnings;
+
+use HTTP::Daemon;
+use HTTP::Status;
+
+$|++;
+
+my $d = HTTP::Daemon->new(LocalPort => 8000, ReuseAddr => 1) || die;
+print "Please contact me at: <URL:", $d->url, ">\n";
+my $done = 0;
+while (not $done and my $c = $d->accept) {
+  my $r = $c->get_request;
+  if (not defined($r)) {
+    print "Error: ", $c->reason, "\n";
+    $c->close;
+    undef($c);
+    next;
+  }
+  print STDERR $r->method, ' ', $r->url, "\n";
+  $c->force_last_request;
+  if ($r->method eq 'GET') {
+    my $file = substr($r->url->path, 1);
+    if (open FILE, $file) {
+      undef $/;
+      binmode FILE;
+      my $content = <FILE>;
+      close FILE;
+      my @headers = ('Connection' => 'close');
+      if ($file =~ /\.js$/) {
+        push @headers, 'Content-Type' => 'text/javascript';
+      }
+      elsif ($file =~ /\.[^\/]+$/) {
+        push @headers, 'Content-Type' => 'application/octet-stream';
+      }
+      else {
+        # do nothing - no Content-Type
+      }
+      my $response = HTTP::Response->new(200, 'OK', \@headers, $content);
+      $c->send_response($response);
+    }
+    else {
+      my $response = HTTP::Response->new(404, 'Not found', ['Connection' => 'close'], 'Not found');
+      $c->send_response($response);
+    }
+  }
+  elsif ($r->method eq 'POST') {
+    if ($r->url->path eq '/perl-shutdown') {
+      $done = 1;
+    }
+    my $content = $r->content;
+    my $response = HTTP::Response->new(200, 'OK', ['Connection' => 'close'], $content);
+    $c->send_response($response);
+  }
+  else {
+    $c->send_error(RC_FORBIDDEN);
+  }
+  $c->close;
+  undef($c);
+}
+