So I see you've meet my monitor bot already, no need for introduction then. sumon thanks for sharing your code, it looks good!
If someone with more experience in PHP than I, could look through through this and correct and improve the script, that would be nice. I've tried to add comments to make it easier to debug. Alternatively, if anyone could recommend a helpful PHP forum where I could post the same script.
//This script checks a dedicated email account for "Topic Reply Notifications" from the AutoHotkey forum.
//When an email is received, the script retrieves the URL of the topic that has been updated.
//"&postorder=des" is appended to the URL to sort the posts descendingly, this way the latest post is first and easier to extract.
//Curl is used to get the HTML source which is then parsed by regex and string functions to retrieve and return the latest post.
//An HTML file is then created containing the latest post. This HTML file can then be used on a website to show the latest post related to a given AHK script.
//I've had some big problems to get this script to work. The Body of the email is still slightly garbled, despite using the function
//quoted_printable_decode to clean it up. I had to adapt the regex pattern accordingly and appending "&postorder=des" is problematic. PHP seems to substite
//instead of append and I think it's because of the ampersand which has special meaning in PHP. Can it be escaped? I tried using CHRs instead.
<?php
$mb = imap_open("{imap.SERVER.com:143}", "EMAIL@ADDRESS.COM", "fakepassword") or die("can't connect: " . imap_last_error()); //Open imap connection.
$messageCount = imap_num_msg($mb); //Loop through all emails
for( $MID = 1; $MID <= $messageCount; $MID++ )
{
//$matches = array();
$EmailHeaders = imap_headerinfo( $mb, $MID ); //Should add filter to process only "Topic Reply Notification" from AHK forum
$Body = quoted_printable_decode(imap_body($mb, $MID)); //Get email body and make it legible
$pattern = '/http:\/\/www.autohotkey.com\/forum\/viewtopic.php\?p.*#(.*)/'; //Regex pattern. Should be '/(http:\/\/www.autohotkey.com\/forum\/viewtopic.php\?p=.*)#/' but in the URL in $Body contains ".php?pE" instead of ".php?p="
preg_match($pattern, $Body, $matches);
$UpdatedTopicURL = 'http://www.autohotkey.com/forum/viewtopic.php' . chr(63) . 'p' . chr(61) . $matches[1] . chr(38) . 'postorder' . chr(61) . 'des'; //should be 'http:\/\/www.autohotkey.com\/forum\/viewtopic.php\?p=' . $matches[1] . '&postorder=des' but I think the ampersand symbol in the last concatenation screws everything up
$success = GetLatestPost($UpdatedTopicURL,$LatestPost); //Get latest post
if ($success==1)
{
echo $LatestPost;
$BytesWritten = file_put_contents("LatestPost.html",$LatestPost); //Create html file with latest post
//if ($BytesWritten > 0) imap_delete($mb, $MID); //The final version of the script could delete incoming emails after having processed them.
}
else
{
echo "GetLatestPost failed: " . $success . "<BR>";
}
}
imap_close($mb); //Close connection to imap
//Given a URL to an AHK forum topic, this function parses the HTML source to extract and return the latest post. This function can be improved but seems to work OKAY.
function GetLatestPost($ThreadLink, &$LatestPost,$MaxLength = 10000)
{
$curl = curl_init();
$options = array(
CURLOPT_URL => $ThreadLink,
CURLOPT_RETURNTRANSFER => true,
CURLOPT_USERAGENT => "Mozilla/5.0 (Windows; U; Windows NT 6.1; en-GB; rv:1.9.0.10) Gecko/2009042316 Firefox/3.0.10 (.NET CLR 4.0.20506)" // In case it blocks strange UserAgents
);
curl_setopt_array($curl, $options);
$Page = curl_exec($curl);
//echo $Page;
//Fetch author of post
$PosOne=stripos($Page,'<span class="name">');
$PosTwo=stripos($Page,'<b>',$PosOne);
$PosTwo = $PosTwo + 3;
$PosThree=stripos($Page,'</b>',$PosOne);
$PosLength = $PosThree - $PosTwo;
$AuthorOfPost = substr($Page,$PosTwo,$PosLength);
//Fetch date and time of post
$PosOne=stripos($Page,'<span class="postdetails">Posted:',$PosThree);
$PosOne = $PosOne + 34;
$PosTwo=stripos($Page,'<span class="gen">',$PosOne);
$PosLength = $PosTwo - $PosOne;
$DateTimeOfPost = substr($Page,$PosOne,$PosLength);
$UnixDateTimeOfPost = strtotime($DateTimeOfPost);
$DateOfPost = date("Y-m-d",$UnixDateTimeOfPost);
//Fetch body of post
$PosOne=stripos($Page,'<span class="postbody">');
$PosOne = $PosOne + 23;
$PosTwo=stripos($Page,'</span><span class="gensmall">',$PosOne);
$PosLength = $PosTwo - $PosOne;
$BodyOfPost = substr($Page,$PosOne,$PosLength);
$BodyOfPost = str_ireplace("images/smiles","http://www.autohotkey.com/forum/images/smiles",$BodyOfPost);
$LengthOfPost = strlen($BodyOfPost);
if (strlen($BodyOfPost) > $MaxLength) $BodyOfPost = substr($BodyOfPost,0,$MaxLength) . "...";
$BodyOfPost = $BodyOfPost . '[<a href="' . $ThreadLink . '&postorder=des">Open Forum</a>]';
//echo "Author: " . $AuthorOfPost . "<BR>" . "Posted: " . $DateOfPost . "<BR>" . "BodyOfPost: " . $BodyOfPost;
//echo "<B>" . $AuthorOfPost . " (" . $DateOfPost . "): </B>". $BodyOfPost;
if ($PosLength>0)
{
$retval = 1;
$LatestPost = "<B>" . $AuthorOfPost . " (" . $DateOfPost . "): </B>". $BodyOfPost;
}
else
{
$retval = 0;
}
return $retval;
}
?>
Login
Register
FAQ
Search
