mirror of
https://github.com/ivuorinen/xkcd-Mailer.git
synced 2026-02-02 22:47:24 +00:00
59 lines
2.0 KiB
PHP
59 lines
2.0 KiB
PHP
<?php
|
|
/**
|
|
* xkcd-Mailer
|
|
*
|
|
* Sends HTML-email containing hotlinked latest xkcd
|
|
* strip with alt/title-text underneath the image.
|
|
*
|
|
* @author Ismo Vuorinen
|
|
* @version 1.0.20130619
|
|
* @license http://www.opensource.org/licenses/mit-license.php The MIT License
|
|
* @package default
|
|
**/
|
|
|
|
// Use config.example.php as base for your configurations.
|
|
$here = dirname( __FILE__ );
|
|
if( !is_readable($here . '/config.php') ) {
|
|
die("Please configure me. I don't know where I should sent the comic. (Config file {$here}/config.php missing.)");
|
|
} else {
|
|
include_once($here . '/config.php');
|
|
}
|
|
|
|
$feed = "http://xkcd.com/atom.xml";
|
|
|
|
// Check if http:// wrapper is allowed
|
|
if( ini_get('allow_url_fopen') ) {
|
|
$data = simplexml_load_file($feed);
|
|
} else {
|
|
// If http:// wrapper is disabled (by allow_url_fopen=0, for example), then fall back on cURL
|
|
$ch = curl_init();
|
|
curl_setopt($ch, CURLOPT_URL, $feed);
|
|
curl_setopt($ch, CURLOPT_FAILONERROR, 1);
|
|
curl_setopt($ch, CURLOPT_FOLLOWLOCATION, 1);
|
|
curl_setopt($ch, CURLOPT_RETURNTRANSFER, 1);
|
|
curl_setopt($ch, CURLOPT_TIMEOUT, 15);
|
|
$result = curl_exec($ch);
|
|
curl_close($ch);
|
|
|
|
$data = simplexml_load_string($result);
|
|
}
|
|
|
|
$item = $data->entry[0];
|
|
$date = date("Y-m-d", strtotime($item->updated));
|
|
preg_match("#title=\"(.+)\"#iU", $item->summary, $t);
|
|
|
|
// To send HTML mail, the Content-type header must be set
|
|
$headers = 'MIME-Version: 1.0' . "\r\n";
|
|
$headers .= 'Content-type: text/html; charset=UTF-8' . "\r\n";
|
|
$headers .= 'From: '. $from . "\r\n";
|
|
|
|
$subject = "xkcd {$date}: {$item->title}";
|
|
$punchline = $t[1];
|
|
|
|
$msg = "<h1><a href=\"{$item->id}\">{$item->title}</a></h1>\n"
|
|
. "<small>Posted {$date}</small><br />\n"
|
|
. $item->summary."<br />\n"
|
|
. "<p style='color:#000;background:#000;'>{$punchline}</p>\n";
|
|
|
|
mail($mail, $subject, $msg, $headers);
|