/* if(!is_object(cmsms())) exit; */

/******************************************************************************
* about
******************************************************************************/

/*

This UDT can be used to automatically post a Twitter message when a news article is added.
The functionality is based on the Twitter and News module.

- First you need to install and setup the News and Twitter module.
- After you need to create a UDT with this code, for example you can call it: 'news_twitter_update_status'
- At last you need to connect this UDT to the 'NewsArticleAdded' event.
   This can be done via Extensions -> Event Manager.

! Currently this UDT only works when pretty urls are enabled.
It seems that the bit.ly url shortner ($twitter->shortenUrls($link)) has some problems with unfriendly urls.
Querystring parameters &var=1 are converted to &=1 which will break the link.

==
UPDATE: 16 Dec 2011
==

- This UDT is now compatible with cmsms 1.10
- Works with and without pretty urls
- Added the ability to shortenurl's bit.ly problem seems solved
- Added support for the news_url field, if you use these it's best to turnshortenurl's off

==
UPDATE: 4 Jan 2011
==

- Added the $hashtags configuration option


config:

- specify: $detailpage (page_id) of the news detail view if left blank ('') $detailpage will not be used in the url
- specify: $shortenurl (true|false) will use the bit.ly url shortner or not.
- specify: $hashtags (array) to modify the $params['title'] into a title with #hashtags, if $hashtags = array(); no replacement will take place
             : for example: $hashtags = array('cup', 'foo', 'bar');
             : "We have won the cup I repeat worldcup, well that is not my cupoftea" -> "We have won the #cup I repeat #worldcup that is not my #cupoftea"
*/

/******************************************************************************
* globals / objects
******************************************************************************/

$modops = cmsms()->GetModuleOperations();
$twitter = $modops->get_module_instance('Twitter');
$news = $modops->get_module_instance('News');

/******************************************************************************
* config
******************************************************************************/

/* debug (bool) */
$debug = false;
/*s stond op true

/* custom (string) */
$detailpage = '72';

/* shortenurl (bool) */
$shortenurl = true;

/* $hashtags (array) */
$hashtags = array('cup', 'foo', 'bar');

/******************************************************************************
* variables
******************************************************************************/

/* news article related  (string) */
$news_id = $params['news_id'];
$title = $params['title'];

/* added to link (array) */
$link['articleid']  = $params['news_id'];

/*********************************************************************************
* subroutines
*********************************************************************************/

/**
*  fetch the $news_url by $news_id
*
* @param string $news_id
* @return string $news_url
*
*/

function fetch_news_url($news_id) {
   
   $db = cmsms()->GetDb();

   $query = "SELECT news_url
                  FROM ". cms_db_prefix(). "module_news
                  WHERE news_id = ?";

   $news_url = $db->GetOne($query, array($news_id));

   return $news_url;

}


/******************************************************************************
* program
******************************************************************************/

$aliased_title = munge_string_to_url($title);
$aliased_title = strtolower($aliased_title);
$news_url = fetch_news_url($news_id);

if ($news_url != '') {
   $prettyurl = $news_url;
} else {
   if ($detailpage) {
      $prettyurl = 'news/' . $news_id.'/'.$detailpage.'/'.$aliased_title;
   } else {
      $prettyurl = 'news/' . $news_id.'/'.$aliased_title;   
   }
}

$link = $news->CreateLink($news_id, 'detail', $detailpage, '', $link,'', true, false, '', true, $prettyurl);   

// title to hashed_title

      $hashed_title = $title;
     
      if (count($hashtags)) {
     
         $hashtags_pattern = implode('|', $hashtags);
         $words = explode(' ', $title);
         $seen = array();
         
         foreach ($words as $key => $word) {
         
            if (preg_match("/$hashtags_pattern/i", $word) ) {
         
               $stripped_word = preg_replace('/[^A-Za-z-]/','', $word);
         
               if (strlen($word) == strlen($stripped_word)) {
                  if (! in_array($word, $seen) ) {
                     $seen[] = $word;
                     $hashed_title = preg_replace('~\b' . preg_quote($word, '~') . '\b~', '#$0', $hashed_title);
                  }
               }
         
            }
         
         }
     
      }

// strlen check of hashed_title
// math(140 - 22) = 118 ([max_twitter_length] -  [: space $shortlink])

if (strlen($hashed_title) <= 118) {
   $title = $hashed_title;
}

// shortenurl

if ($shortenurl) {
   $shortlink = $twitter->shortenUrls($link);
   $message = $title. ': '. $shortlink;
} else {
   $message = $title. ': '. $link;   
}

// print debug information or  Tweet

if ($debug) {
   print "<pre>twitter: $message status: $params[status] link: $link title: $title prettyurl: $prettyurl \n</pre>";
   exit;
} else {
   if ($params['status'] == 'published') {
      $twitter->updateStatus($message, false);
   }
}