Subversion Repositories DevTools

Rev

Rev 6146 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 6146 Rev 6267
Line 11... Line 11...
11 
#
11 
#
12 
#   This script must work within both lighttpd and apache. Issues:
12 
#   This script must work within both lighttpd and apache. Issues:
13 
#       * lighttpd cannot return error codes
 13 
#       * lighttpd cannot return error codes
14 
#
14 
#
15 
use CGI;
 15 
use CGI;
- 
 
 16 
print CGI::header();
16 
my $cgi = CGI->new();
 17 
my $cgi = CGI->new();
17 
my $dpkg = "/export/devl/dpkg_archive";
 18 
my $dpkg = "/export/devl/dpkg_archive";
18 
my $url = join ('/', $dpkg,  scalar $cgi->param("path") );
 19 
my $url = join ('/', $dpkg,  scalar $cgi->param("path") );
19 
if ( ! -d $url ) {
 20 
if ( ! -d $url ) {
20 
    printf("::NOTFOUND::$url");
 21 
    printf("::NOTFOUND::$url");