1 files changed, 29 insertions, 0 deletions
diff --git a/debian/perl-framework/t/htdocs/modules/h2/necho.pl b/debian/perl-framework/t/htdocs/modules/h2/necho.pl
new file mode 100755
index 0000000..bc9b6c0
--- /dev/null
+++ b/debian/perl-framework/t/htdocs/modules/h2/necho.pl
@@ -0,0 +1,29 @@
+#!/usr/bin/env perl
+
+use Env;
+
+my $query = $ENV{QUERY_STRING};
+
+if ($query) {
+    $query =~ /count=([0-9]+)/;
+    my $count = $1;
+    $query =~ /text=([^&]+)/;
+    my $text = $1;
+    
+    print "Status: 200\n";
+    print "Content-Type: text/plain\n";
+    print "\n";
+    foreach my $i (1..$count) {
+        print $text;
+    }
+}
+else {
+    print "Status: 400 Parameter Missing\n";
+    print "Content-Type: text/plain\n";
+    print "\n";
+    print <<EOF;
+<html><body>
+<p>No query was specified.</p>
+</body></html>
+EOF
+}