diff options
Diffstat (limited to 'debian/perl-framework/t/htdocs/modules/rewrite/numbers.pl.PL')
-rwxr-xr-x | debian/perl-framework/t/htdocs/modules/rewrite/numbers.pl.PL | 26 |
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); |