#!/usr/bin/perl
#
#   This simple CGI script is deployed to the package server within the
#   http subsystem ( lighttpd or apache )
#   
#   The function is used by Release Manager to probe for the existence of a
#   package-version
#   
#   A script is used to allow RM to test for package existence while providing
#   restricted access to the actual packages.
#   
#   This script must work within both lighttpd and apache. Issues: 
#       * lighttpd cannot return error codes
#   
use CGI;
print CGI::header();
my $cgi = CGI->new();
my $dpkg = "/export/devl/dpkg_archive";
my $url = join ('/', $dpkg,  scalar $cgi->param("path") );
if ( ! -d $url ) {
    printf("::NOTFOUND::$url");
}
else {
    printf("::FOUND::$url");
}