<?php
/**
 * This is part of the email forward script to handle tweetlater keyword digest and twitter notification emails.
 *
 * @copyright (c) 2009 Marko Manninen <mmstud@gmail.com>
 */

// Follow keyword digest users. Return success / error list.
function kw_alert_follow($message, $user, $pass) {
	$sText = '';
	$accounts = array();
	preg_match_all('|\@([0-9a-zA-Z_]*)|', trim($message), $match);
	foreach ($match[1] as $m) {
		$x = split(' ', $m);
		if ($x[0] && !in_array($x[0], $accounts)) {
			$accounts[] = trim($x[0]);
		}
	}
	if ($accounts && $message) {
		foreach ($accounts as $account) {
			$twitter_account = new TwitterAccount($user, $pass);
			$success = $twitter_account->follow($account);
			if ($success) {
				$sText .= "success -> $user, $account\r\n";
			} else {
				$sText .= "error -> $user, $account\r\n";
			}
		}
	} else {
		$sText .= "No message or accounts to follow\r\n";
	}
	return $sText;
}

?>