#!/usr/bin/perl

$script = $ENV{SCRIPT_NAME};
$path = $ENV{PATH_INFO} || '';
$docroot = $ENV{DOCUMENT_ROOT};
$username = lc($ENV{REMOTE_USER});

$docroot =~ s|/*$|/|;
$path =~ s|/$||;

@metafiles = ('m3u', 'ram', 'rmm'); $metafile_re = '('.join('|',@metafiles).')';
@mediafiles = ('mp3', 'ogg', 'rm', 'wav'); $mediafile_re = '('.join('|',@mediafiles).')';

if($path =~ s|(.*)\.$mediafile_re\.$metafile_re$|$1.$2|) {
  $metafile = $3;
} elsif($path =~ s|(.*)/\.$metafile_re$|$1|) {
  $metafile = $2;
}

sub dump_env {
  print "Content-type: text/plain\n\n";
  use Data::Dumper;
  print "\$script: $script\n";
  print "\$path: $path\n";
  print "\$docroot: $docroot\n";
  print "\$username: $username\n";
  print "\$metafile: $metafile\n" if defined $metafile;
  if(defined $config) {
    print "\$config: ", Dumper($config),"\n";
  }
  foreach $key (sort keys %ENV) {
    print "\$ENV{$key} => '$ENV{$key}'\n";
  }
}

1;