All pastes #108885 Raw Edit

m0o

public text v1 · immutable
#108885 ·published 2006-07-31 18:58 UTC
rendered paste body
    echo "Verifying Perl Installation... for the upload script @ ";
    if(isset($_SERVER['PATH_INFO'])){$uploadPath = $_SERVER['PATH_INFO'];}
    if(isset($_SERVER['REQUEST_URI'])){$uploadPath = $_SERVER['REQUEST_URI'];}
    $uploadPath = str_replace("install/index.php","upload.pl?test",$uploadPath);

    $uploadPath = "http://$_SERVER[SERVER_NAME]$uploadPath";
    echo $uploadPath . " ...";

    $response = file_get_contents($uploadPath);

    if($response == 'ok'){
        echo "done...<br/>";
    }else{