diff options
Diffstat (limited to 'debian/perl-framework/t/htdocs/modules/rewrite')
22 files changed, 81 insertions, 0 deletions
diff --git a/debian/perl-framework/t/htdocs/modules/rewrite/barfoo.html b/debian/perl-framework/t/htdocs/modules/rewrite/barfoo.html new file mode 100644 index 0000000..2ae2839 --- /dev/null +++ b/debian/perl-framework/t/htdocs/modules/rewrite/barfoo.html @@ -0,0 +1 @@ +pass diff --git a/debian/perl-framework/t/htdocs/modules/rewrite/big.html b/debian/perl-framework/t/htdocs/modules/rewrite/big.html new file mode 100644 index 0000000..c7413fc --- /dev/null +++ b/debian/perl-framework/t/htdocs/modules/rewrite/big.html @@ -0,0 +1 @@ +BIG diff --git a/debian/perl-framework/t/htdocs/modules/rewrite/db.pl.PL b/debian/perl-framework/t/htdocs/modules/rewrite/db.pl.PL new file mode 100644 index 0000000..a897a8a --- /dev/null +++ b/debian/perl-framework/t/htdocs/modules/rewrite/db.pl.PL @@ -0,0 +1,10 @@ + +($txtmap, $dbmmap) = @ARGV; +open(TXT, "<$txtmap"); +dbmopen(%DB, $dbmmap, 0644); +while (<TXT>) { + next if (m|^s*#.*| or m|^s*$|); + $DB{$1} = $2 if (m|^\s*(\S+)\s+(\S+)$|); +} +dbmclose(%DB); +close(TXT) diff --git a/debian/perl-framework/t/htdocs/modules/rewrite/five.html b/debian/perl-framework/t/htdocs/modules/rewrite/five.html new file mode 100644 index 0000000..7ed6ff8 --- /dev/null +++ b/debian/perl-framework/t/htdocs/modules/rewrite/five.html @@ -0,0 +1 @@ +5 diff --git a/debian/perl-framework/t/htdocs/modules/rewrite/foo bar.html b/debian/perl-framework/t/htdocs/modules/rewrite/foo bar.html new file mode 100644 index 0000000..d675fa4 --- /dev/null +++ b/debian/perl-framework/t/htdocs/modules/rewrite/foo bar.html @@ -0,0 +1 @@ +foo bar diff --git a/debian/perl-framework/t/htdocs/modules/rewrite/four.html b/debian/perl-framework/t/htdocs/modules/rewrite/four.html new file mode 100644 index 0000000..b8626c4 --- /dev/null +++ b/debian/perl-framework/t/htdocs/modules/rewrite/four.html @@ -0,0 +1 @@ +4 diff --git a/debian/perl-framework/t/htdocs/modules/rewrite/lucky13.html b/debian/perl-framework/t/htdocs/modules/rewrite/lucky13.html new file mode 100644 index 0000000..7743f93 --- /dev/null +++ b/debian/perl-framework/t/htdocs/modules/rewrite/lucky13.html @@ -0,0 +1 @@ +JACKPOT diff --git a/debian/perl-framework/t/htdocs/modules/rewrite/numbers.dbm.db b/debian/perl-framework/t/htdocs/modules/rewrite/numbers.dbm.db Binary files differnew file mode 100644 index 0000000..ed20201 --- /dev/null +++ b/debian/perl-framework/t/htdocs/modules/rewrite/numbers.dbm.db 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); diff --git a/debian/perl-framework/t/htdocs/modules/rewrite/numbers.rnd b/debian/perl-framework/t/htdocs/modules/rewrite/numbers.rnd new file mode 100644 index 0000000..4027500 --- /dev/null +++ b/debian/perl-framework/t/htdocs/modules/rewrite/numbers.rnd @@ -0,0 +1,10 @@ +# +# numbers.rnd +# random number rewrite map for mod_rewrite testing +# +1 one|two|three|four|five|six +2 two|three|four|five|six +3 three|four|five|six +4 four|five|six +5 five|six +6 six diff --git a/debian/perl-framework/t/htdocs/modules/rewrite/numbers.txt b/debian/perl-framework/t/htdocs/modules/rewrite/numbers.txt new file mode 100644 index 0000000..6f36d28 --- /dev/null +++ b/debian/perl-framework/t/htdocs/modules/rewrite/numbers.txt @@ -0,0 +1,10 @@ +# +# numbers.txt +# text rewrite map for mod_rewrite testing +# +1 one +2 two +3 three +4 four +5 five +6 six diff --git a/debian/perl-framework/t/htdocs/modules/rewrite/numbers2.pl.PL b/debian/perl-framework/t/htdocs/modules/rewrite/numbers2.pl.PL new file mode 100755 index 0000000..d450b68 --- /dev/null +++ b/debian/perl-framework/t/htdocs/modules/rewrite/numbers2.pl.PL @@ -0,0 +1,9 @@ + +# numbers.pl +# program rewrite map for mod_rewrite testing +# +funk cold medina. +$|=1; +while (<STDIN>) { + print $_; +} diff --git a/debian/perl-framework/t/htdocs/modules/rewrite/one.html b/debian/perl-framework/t/htdocs/modules/rewrite/one.html new file mode 100644 index 0000000..d00491f --- /dev/null +++ b/debian/perl-framework/t/htdocs/modules/rewrite/one.html @@ -0,0 +1 @@ +1 diff --git a/debian/perl-framework/t/htdocs/modules/rewrite/six.html b/debian/perl-framework/t/htdocs/modules/rewrite/six.html new file mode 100644 index 0000000..1e8b314 --- /dev/null +++ b/debian/perl-framework/t/htdocs/modules/rewrite/six.html @@ -0,0 +1 @@ +6 diff --git a/debian/perl-framework/t/htdocs/modules/rewrite/test.blah b/debian/perl-framework/t/htdocs/modules/rewrite/test.blah new file mode 100644 index 0000000..d02f395 --- /dev/null +++ b/debian/perl-framework/t/htdocs/modules/rewrite/test.blah @@ -0,0 +1 @@ +<HTML>this is html</HTML> diff --git a/debian/perl-framework/t/htdocs/modules/rewrite/three.html b/debian/perl-framework/t/htdocs/modules/rewrite/three.html new file mode 100644 index 0000000..00750ed --- /dev/null +++ b/debian/perl-framework/t/htdocs/modules/rewrite/three.html @@ -0,0 +1 @@ +3 diff --git a/debian/perl-framework/t/htdocs/modules/rewrite/two.html b/debian/perl-framework/t/htdocs/modules/rewrite/two.html new file mode 100644 index 0000000..0cfbf08 --- /dev/null +++ b/debian/perl-framework/t/htdocs/modules/rewrite/two.html @@ -0,0 +1 @@ +2 diff --git a/debian/perl-framework/t/htdocs/modules/rewrite/vary1.html b/debian/perl-framework/t/htdocs/modules/rewrite/vary1.html new file mode 100644 index 0000000..3b08050 --- /dev/null +++ b/debian/perl-framework/t/htdocs/modules/rewrite/vary1.html @@ -0,0 +1 @@ +VARY1 diff --git a/debian/perl-framework/t/htdocs/modules/rewrite/vary2.html b/debian/perl-framework/t/htdocs/modules/rewrite/vary2.html new file mode 100644 index 0000000..bab3cc4 --- /dev/null +++ b/debian/perl-framework/t/htdocs/modules/rewrite/vary2.html @@ -0,0 +1 @@ +VARY2 diff --git a/debian/perl-framework/t/htdocs/modules/rewrite/vary3.html b/debian/perl-framework/t/htdocs/modules/rewrite/vary3.html new file mode 100644 index 0000000..cb7f4f1 --- /dev/null +++ b/debian/perl-framework/t/htdocs/modules/rewrite/vary3.html @@ -0,0 +1 @@ +VARY3
\ No newline at end of file diff --git a/debian/perl-framework/t/htdocs/modules/rewrite/vary4.html b/debian/perl-framework/t/htdocs/modules/rewrite/vary4.html new file mode 100644 index 0000000..04037af --- /dev/null +++ b/debian/perl-framework/t/htdocs/modules/rewrite/vary4.html @@ -0,0 +1 @@ +VARY4
\ No newline at end of file diff --git a/debian/perl-framework/t/htdocs/modules/rewrite/zero.html b/debian/perl-framework/t/htdocs/modules/rewrite/zero.html new file mode 100644 index 0000000..ba55089 --- /dev/null +++ b/debian/perl-framework/t/htdocs/modules/rewrite/zero.html @@ -0,0 +1 @@ +ZERO |