Geeklog Forums

*/
/* Geeklog Block to retrieve the Daily Dilbert Comic
* Created by Blaine Lang
*  Jan 13 2005
*  www.portalparts.com
*/
function phpblock_dailydilbert() {
    global $_CONF;

    /* Create a unique name for the Daily Dilbert comic file */
    $dilbert_todayfile = 'images/comics/dilbert'. date('Ymd') . '.gif';
    $file = "{$_CONF['path_html']}$dilbert_todayfile";

    /* Check if today's Dilbert comic already exists - if not retrieve it and create the image */
    if (!file_exists($file)) {

        /* Setup the Web Service Client */
        include ($_CONF['path_system'] .'nusoap.php');
        $wsdl = "http://www.esynaps.com/WebServices/DailyDilbert.asmx?WSDL";
        $client = new soapclient( $wsdl,"true");

        /* Call the Web Service and decode the base64 contents back to a GIF file */
        $image = base64_decode($client->call('DailyDilbertImage', ''));

        /* Now write the raw image and create the image file */
        $fp = fopen("{$_CONF['path_html']}$dilbert_todayfile",'w');
        fwrite($fp,$image);
        fclose($fp);
    }

    $imageurl = "{$_CONF['site_url']}/$dilbert_todayfile";

    return ("<a href=\"$imageurl\"><img src=\"$imageurl\" width=\"180\" border=\"0\"></a>");
}

function phpblock_randshop() {
global $_CONF;

// SET VARIABLES //
srand ((float) microtime() * 10000000);
$start = '<!-- ### Items ### -->';
$end = '<!-- ### end of ITEMS ### -->';
$stores = 'virginia_slims';
$url = 'http://www.cafepress.com/' . $stores;
$itemfile = '/system/cpitemfile.inc';
$mode = $_SERVER['QUERY_STRING'];

if ($mode == "update") {
    echo "Beginning CP item file update...<br>n";

    // connect to CP
    $reqheader = "GET /$stores HTTP/1.0rnHost: www.cafepress.comrnUser-Agent: MS Internet Explorerrnrn";
    $socket = @fsockopen("www.cafepress.com", 80, &$errno, &$errstr);
    if ($socket)
    {
        fputs($socket, $reqheader);
        while (!feof($socket))
        {
            $cpfile .= fgets($socket, 4096);
        }
    }
    fclose($socket);


    $items = eregi("$start(.*)$end", $cpfile, $cparray);

    $newcparray = split ("n", $cparray[1]);

    foreach ($newcparray as $line) {
    if (strlen($line) > 100)
        {
        $newestcparray[] = $line;
        }
    }

    $handle = fopen($itemfile, "w");
    foreach ($newestcparray as $line) {
    $line = ereg_replace("<td align="center" valign="top"><p>","",$line);
    $line = ereg_replace("</td>","",$line);
    $line = ereg_replace("150","100",$line);
    $line = ereg_replace("<b>(.*)</b>","",$line);
//  $line = ereg_replace("\$(.*)r", "r", $line);  // Uncomment to hide prices
    if (eregi("<td colspan=3>",$line)) {unset ($line);}
    if (eregi("<tr>",$line)) {unset ($line);}
    $line = ereg_replace("<a href="","<a href="http://www.whatmenwant.net/store.php?target=http://www.cafepress.com",$line);
    $line = ereg_replace("src="/cp/img","src="http://www.cafepress.com/cp/img",$line);
    if (!empty($line)) {
        $lastcparray[] = $line;
        fwrite($handle, $line);
        }
    }
    fclose($handle);
    echo "CP item file update completed.n";
}
else {
    $itemhandle = fopen($itemfile, "r");
    $itemarray = fread($itemhandle,filesize("$itemfile"));
    fclose($itemhandle);
    $lastcparray = split ("r", $itemarray);

    $item = $lastcparray[rand(0,count($lastcparray)-2)];
    $item = ereg_replace("[x27]",'',$item);
    $item = trim($item);
   //for javascript use:
    //echo "document.write('<div align="center">" . $item . "</div>');";

    //for php use:
    $theitem = '<div align="center">' . $item . '';
    $theitem .= '<a href="' . $_CONF['site_url'] . '/store.php"><strong>More Products</strong></a></div>';
    return $theitem;
    }
}
?>