1 files changed, 26 insertions, 0 deletions
diff --git a/debian/perl-framework/t/htdocs/modules/rewrite/numbers.pl.PL b/debian/perl-framework/t/htdocs/modules/rewrite/numbers.pl.PL
new file mode 100755
index 0000000..d3d3067
--- /dev/null
+++ b/debian/perl-framework/t/htdocs/modules/rewrite/numbers.pl.PL
@@ -0,0 +1,26 @@
+
+# numbers.pl
+# program rewrite map for mod_rewrite testing
+#
+$|=1;
+my %map = (	1	=>	'one',
+		2	=>	'two',
+		3	=>	'three',
+		4	=>	'four',
+		5	=>	'five',
+		6	=>	'six'	);
+
+while (<STDIN>) {
+	chomp;
+
+	print STDERR "GOT: ->$_<-\n";
+	my $m = $map{$_};
+	print STDERR "MAPPED: ->$_<-\n";
+
+	if ($m) {
+		print STDOUT "$m\n";
+	} else {
+		print STDOUT "NULL";
+	}
+}
+close (LOG);