Subversion Repositories DevTools

#!/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");

}