perl-modperl mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From <Alexander.Far...@nokia.com>
Subject Printing the called address without PATH_INFO and QUERY_STRING
Date Fri, 30 Apr 2004 16:17:33 GMT
Hi,

this is probably somewhere in the docs, but I can't find it...
Would some kind sould please advise me, how to print the 
hostname and the called script in the error message below?

    # Extract port, user, default database from PATH_INFO
    $port  = $1 if $r->path_info() =~ /\/port=(\d+)/i;
    $owner = $1 if $r->path_info() =~ /\/owner=(\w+)/i;
    $dbase = $1 if $r->path_info() =~ /\/dbase=(bo_\w+)/i;
    $task  = $1 if $r->path_info() =~ /\/task=task(\d+)/i;
    unless ($port and $owner and $dbase and $task) {
        printf "<H2>Error: This script should be called as http://%s/taskit/port=1234/owner=afarber/dbase=bo_test/task=task123</H2>",
$r->server->server_hostname();
        $r->log_error('PATH_INFO unset or wrong: ' . $r->path_info());
        goto END;
    }

Thanks
Alex

-- 
Report problems: http://perl.apache.org/bugs/
Mail list info: http://perl.apache.org/maillist/modperl.html
List etiquette: http://perl.apache.org/maillist/email-etiquette.html


Mime
View raw message