<?php
  //existing bucket name
  define('BUCKET_NAME','username_delcache');
  
  //access and secret keys for your s3 account
  define('S3_ACCESS_KEY','accesskey');
  define('S3_SECRET_KEY','secretkey');
  
  // pear installed goodness
  require_once 'Crypt/HMAC.php';
  require_once 'HTTP/Request.php';
  
  //other s3 settings
  define('S3_URL',"http://s3.amazonaws.com/");
  define('ACL_SETTING','public-read');
  
  //the date and time in rfc 822
  $rfc\_822\_datetime\; =\; date("r");$//you del.icio.us RSS feed
  define('MY_FEED_URL','http://del.icio.us/rss/YOURNAME');
  
  //bring in magpie goodness
  require_once('lib/rss_fetch.inc');
  
  //set cache directory
  define('MAGPIE_CACHE_DIR', 'cache');
  
  rss = fetch_rss(MY_FEED_URL);
  
  //create and/or update the cache for each item
  foreach ($rss->items\; as$item) {
      $file\_key\; =\; md5($item['link']);
  
      //get the contents of the file you want to cache
      item['link']);
      $req->sendRequest();$response_code = $req->getResponseCode();$file_content_type = $req->getResponseHeader(\text{'}content-type\text{'});$file_contents = $req->getResponseBody();$//if there is a response body, create the cache
      if(file_contents != '')
      {    
          //assemble your s3 signature
          $s3\_signature\; =\; "PUT\backslash n\backslash n".$content_type."\n".$rfc\_822\_datetime\; ."\backslash nx-amz-acl:".ACL\_SETTING."\backslash n/".BUCKET\_NAME."/".$file_key;
          signature = hex2b64($hasher->hash($s3_signature));
  
          //make the request to create the file in the bucket
          file_key);
          $s3req->setMethod(\text{'}PUT\text{'});$s3req->addHeader("content-type", $content\_type);$s3req->addHeader("Date", $rfc\_822\_datetime);$s3req->addHeader("x-amz-acl", ACL_SETTING);
          $s3req->addHeader("Authorization",\; "AWS\; "\; .\; S3\_ACCESS\_KEY\; .\; ":"\; .$signature);
          $s3req->setBody($file_contents);
          $s3req->sendRequest();\; if\; ($s3req->getResponseCode() == 200) {
              echo "Cache updated for ".$item[\text{'}link\text{'}]."\; (".$file_key.")\n";
          } else {
              echo "Problem updating cache for ".$item[\text{'}link\text{'}]."\; (".$file_key.") - Status was ".$s3req->getResponseCode()."\backslash n";\; \}\; \}\; else\; \{$//handle any snoopy errors by outputting them to the screen
          echo "Problem fetching ".item['link']." (".$file\_key."):\; "\; .$req->getResponseCode()."\n";
      }
      
  }
  
  function hex2b64($str)\; \{$raw = '';
      for ($i=0;$i < strlen($str);$i+=2) {
          $raw\; .=\; chr(hexdec(substr($str, $i,\; 2)));\; \}\; return\; base64\_encode($raw);
  }
  
  ?>