#!/usr/bin/perl
# Used for mapping urls with mod_rewrite
$| = 1;
$root = "/usr/local/apache/htdocs";
@suffixes = ("jhtml");
MATCH:
while (<>) {
  chop;
  $file = $root . $_;
  foreach $suffix (@suffixes) {
    if (-f "$file.$suffix") {
      print "$suffix\n";
      next MATCH;
    }
  }
  print "NULL\n";
}
