邪罗刹的菠萝阁

> O(∩_∩)O，小邪突然想写一个可以获取某个指定网站的最新的一条 RSS 内容与链接的程序。
> 这个程序自带缓存功能，RSS 地址的缓存时间是 15 天，RSS 内容的缓存时间是 2 小时。

> Xml 函数实在弄得小邪有些头大，一时半会儿没有空去花时间看看文档，所以就正则咯。
> 其实这个程序是当初答应 菠萝 要写的，现在刚刚好小邪的 PHP 有些入门了，就去搞定它咯。

一. 程序使用介绍：

> 使用下面的代码调用即可，因为小邪输出的是 JavaScript 代码，调用很是方便呢，嘻嘻。
> Url 参数直接填域名就好，别加 http 什么的了，也别加斜杠了，小邪把程序精简一点儿。
> 所以直接加了个只允许 “A-Z a-z 0-9 - _ .” 这些字符出现在 Url 里面，应该不会很麻烦。

<script src="do.php?url=wange.im" />

> 然后程序会输出这个样子的一段代码，带链接与标题文字，并且从新窗口打开，呵呵。

document.write("<a target='_blank'
href='http://wange.im/winters-past-present-and-future.html'>
寒假的过去、现在和未来</a>");

二. 源代码：

> 把源代码保存成 Do.php 然后放到任意目录即可，嘎嘎，O(∩_∩)O 祝你玩得愉快喔。

<?php
$rssurl_save_time = '1296000';
$rsscont_save_time = '7200';
//Evlos.org application
if (!is_dir('cache')) { mkdir('cache'); }
function app_js_out($url,$cont) {
	return 'document.write("'."<a target='_blank' href='".$url."'>".$cont.'</a>");';
}
function app_html_get($url) {
	$curl = curl_init($url);
	$useragent="Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.8.1.1)
Gecko/20061204 Firefox/2.0.0.1";
	curl_setopt($curl,CURLOPT_RETURNTRANSFER,1);
	curl_setopt ($curl,CURLOPT_USERAGENT,$useragent);
	$ret = curl_setopt($curl,CURLOPT_FOLLOWLOCATION,1);
	$data = curl_exec($curl);
	curl_close($curl);
	return $data;
}
function app_get_rssurl($url) {
	$data = app_html_get($url);
	preg_match('/application\/rss\+xml\" title=\"[^\"]+\" href=\"(.*)\"/',$data,$s);
	if (preg_match('/^http.+/',$s[1])) {
		return $s[1];
	}
	else {
		return 'http://'.$url.$s[1];
	}
}
function app_websiteinfo($url) {
	$u = str_replace('.','_',$url);
	$file = './cache/rssurl_-_'.$u.'.txt';
	if (file_exists($file)||(time()-filemtime($file))<$rssurl_save_time) {
		$cont = file_get_contents($file);
		return $cont;
	}
	else {
		$rssurl = app_get_rssurl($url);
		$handle = fopen($file,'w+');
		fwrite($handle,$rssurl);
		fclose($handle);
		return $rssurl;
	}
}
function app_get_rssread($url) {
	$data = app_html_get($url);
	preg_match_all('/<title>([^<]+)<\/title>/',$data,$s);
	$rss['title'] = $s[1][1];
	preg_match_all('/<link>([^<]+)<\/link>/',$data,$c);
	$rss['link'] = $c[1][1];
	return $rss;
}
function app_rss_getnew($url,$host) {
	$u = str_replace('.','_',$host);
	$file = './cache/rssnew_-_'.$u.'.txt';
	if (file_exists($file)||(time()-filemtime($file))<$rsscont_save_time) {
		$cont = file_get_contents($file);
		$rsso = explode("||",$cont);
		$rssc['title'] = $rsso[0];
		$rssc['link'] = $rsso[1];
		return $rssc;
	}
	else {
		$rssc = app_get_rssread($url);
		$handle = fopen($file,'w+');
		fwrite($handle,$rssc['title'].'||'.$rssc['link']);
		fclose($handle);
		return $rssc;
	}
}
if (isset($_GET['url'])) {
	$url = $_GET['url'];
	if (!preg_match('/^[a-zA-z0-9_\.-]+$/',$url)) {
		echo app_js_out('','Error');
	}
	else {
		$feedurl = app_websiteinfo($url);
		$rssc = app_rss_getnew($feedurl,$url);
		echo app_js_out($rssc['link'],$rssc['title']);
	}
}
else {
	echo app_js_out('','Error');
}
//Evlos.org application
?>

三. 附言：

> 有朋友用过 HTC Hero 吗？有啥感想没有，小邪觉得 5310xm 太杯具鸟，所以打算换一换。