DZone Snippets: Danostuporstar's Code Snippets

php ffl_HttpGet()

danostuporstar (Dano Stuporstar) — Sat, 30 Jul 2005 10:34:07 GMT

If your server has allow_url_fopen disabled, use this as a workaround for file() ... hell use it anyway and get the http headers as a bonus.



/**

 FUNCTION: ffl_HttpGet()

 * Perform a HTTP Get Request.

 *

 * ffl_HttpGet uses fsockopen() to request a given URL via HTTP

 * 1.0 GET and returns a three element array.  On success, array

 * key 'body' contains the body of the request's reply and key

 * 'header' contains the reply's headers.  On error, the keys

 * returned are 'errornumber' and 'errorstring' from

 * fsockopen()'s third and fourth arguments.  In either case,

 * key 'url' contains an array such as returned from parse_url()

 * after the input url has been massaged a bit.

 *

 * {@source }

 *

 * @param string $url URL to fetch.

 * @param boolean $followRedirects Optionally follow 

 * 'location:' in header, default true.

 * @return array 'header', 'body', 'url' OR 'errorstring',

 * 'errornumber', 'url'.

 */

function ffl_HttpGet( $url, $followRedirects=true ) {

    $url_parsed = parse_url($url);

    if ( empty($url_parsed['scheme']) ) {

        $url_parsed = parse_url('http://'.$url);

    }

    $rtn['url'] = $url_parsed;



    $port = $url_parsed["port"];

    if ( !$port ) {

        $port = 80;

    }

    $rtn['url']['port'] = $port;

    

    $path = $url_parsed["path"];

    if ( empty($path) ) {

            $path="/";

    }

    if ( !empty($url_parsed["query"]) ) {

        $path .= "?".$url_parsed["query"];

    }

    $rtn['url']['path'] = $path;



    $host = $url_parsed["host"];

    $foundBody = false;



    $out = "GET $path HTTP/1.0\r\n";

    $out .= "Host: $host\r\n";

    $out .= "Connection: Close\r\n\r\n";



    if ( !$fp = @fsockopen($host, $port, $errno, $errstr, 30) ) {

        $rtn['errornumber'] = $errno;

        $rtn['errorstring'] = $errstr;

        return $rtn;

    }

    fwrite($fp, $out);

    while (!feof($fp)) {

        $s = fgets($fp, 128);

        if ( $s == "\r\n" ) {

            $foundBody = true;

            continue;

        }

        if ( $foundBody ) {

            $body .= $s;

        } else {

            if ( ($followRedirects) && (stristr($s, "location:") != false) ) {

                $redirect = preg_replace("/location:/i", "", $s);

                return ffl_HttpGet( trim($redirect) );

            }

            $header .= $s;

        }

    }

    fclose($fp);



    $rtn['header'] = trim($header);

    $rtn['body'] = trim($body);

    return $rtn;

}

php glob_rsort_modtime()

danostuporstar (Dano Stuporstar) — Fri, 17 Jun 2005 14:01:29 GMT



/**

 FUNCTION: glob_rsort_modtime()

 * Glob reverse sorted by file modification time.

 *

 * Returns an array of files matching the given glob pattern, sorted 

 * by their modification times in descending order.  The array keys

 * hold the filepath and the values hold the mtime.  On error, array

 * will be indexed and contain 'false' and an error message.

 *

 * {@source}

 *

 * @param string $patt Pattern to search, including glob braces.

 * @return array filename => mtime OR false, 'errormsg'.

 */

function glob_rsort_modtime( $patt ) {

    if ( ( $files = @glob($patt, GLOB_BRACE) ) === false ) {

        return array( false, 'Glob error.');

    }

    if ( !count($files) ) {

        return array( false, 'No files found.');

    }

    $rtn = array();

    foreach ( $files as $filename ) {

        $rtn[$filename] = filemtime($filename);

    }

    arsort($rtn);

    reset($rtn);

    return $rtn;

}



$files = glob_rsort_modtime( './*' ) ;

echo''.print_r($files, true).'';

?>

Hello World Tcl

danostuporstar (Dano Stuporstar) — Thu, 16 Jun 2005 01:34:51 GMT

Mostly just playing with this site which seems pretty cool.



#!/bin/sh



# Next line restarts using tclsh \

exec tclsh "$0" "$@"



puts "Hello World."

exit