#!/usr/bin/perl

$ENV{SCRIPT_URL} =~ m%^/(.*)$%
   or exit 1;

my $path = $1;

$ENV{SCRIPT_NAME} = "";
$ENV{PATH_INFO}   = "/$path";

#warn "su<$ENV{SCRIPT_URL}>";
#warn "sn<$ENV{SCRIPT_NAME}>";
#warn "pi<$ENV{PATH_INFO}>";

#print "\n"; system "/usr/bin/env"; exit;
exec "/opt/viewvc/bin/cgi/viewvc.cgi";