Twitter integration - Oh look, a Twitter settings tab.

darcs-hash:20080822034157-462f3-398e2ba92d9c38520ea6518c3ff614b41f3cc7ec.gz

4 files changed, 139 insertions, 1 deletions

diff --git a/actions/twittersettings.php b/actions/twittersettings.php
new file mode 100644
index 000000000..95649f706
--- /dev/null
+++ b/actions/twittersettings.php
@@ -0,0 +1,132 @@
+<?php
+/*
+ * Laconica - a distributed open-source microblogging tool
+ * Copyright (C) 2008, Controlez-Vous, Inc.
+ *
+ * This program is free software: you can redistribute it and/or modify
+ * it under the terms of the GNU Affero General Public License as published by
+ * the Free Software Foundation, either version 3 of the License, or
+ * (at your option) any later version.
+ *
+ * This program is distributed in the hope that it will be useful,
+ * but WITHOUT ANY WARRANTY; without even the implied warranty of
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+ * GNU Affero General Public License for more details.
+ *
+ * You should have received a copy of the GNU Affero General Public License
+ * along with this program.  If not, see <http://www.gnu.org/licenses/>.
+ */
+
+if (!defined('LACONICA')) { exit(1); }
+
+require_once(INSTALLDIR.'/lib/settingsaction.php');
+
+class TwittersettingsAction extends SettingsAction {
+
+	function get_instructions() {
+		return _('Enter your Twitter credentials to automatically send your notices to Twitter, ' .
+			'and subscribe to Twitter friends already here.');
+	}
+
+	function show_form($msg=NULL, $success=false) {
+		$user = common_current_user();
+		$profile = $user->getProfile();
+		
+		$this->form_header(_('Twitter settings'), $msg, $success);
+
+		common_element_start('form', array('method' => 'post',
+										   'id' => 'twittersettings',
+										   'action' =>
+										   common_local_url('twittersettings')));
+	
+		common_input('twitter_username', _('Twitter Username'),
+					 ($this->arg('twitter_username')) ? $this->arg('twitter_username') : $profile->nickname,
+					 _('No spaces, please.')); // hey, it's what Twitter says
+					
+		common_password('twitter_password', _('Twitter Password'));			
+	
+		// these checkboxes don't do anything yet
+		
+		common_checkbox('repost', _('Automatically send my notices to Twitter.'), true);
+		common_checkbox('subscribe_friends', _('Subscribe to my Twitter friends here.'), true);
+		
+		common_submit('submit', _('Save'));
+		common_element_end('form');
+		common_show_footer();
+	}
+
+	function handle_post() {
+
+		$twitter_username = $this->trimmed('twitter_username');
+		$twitter_password = $this->trimmed('twitter_password');
+		
+		if (!Validate::string($twitter_username, array('min_length' => 1,
+											   'max_length' => 64,
+											   'format' => VALIDATE_NUM . VALIDATE_ALPHA_LOWER))) {
+			$this->show_form(_('Username must have only lowercase letters and numbers and no spaces.'));
+			return;
+		}
+		
+		if (!$this->verify_credentials($twitter_username, $twitter_password)) {
+			$this->show_form(_('Could not verify your Twitter credentials!'));
+			return;
+		}
+		
+
+		$user = common_current_user();
+
+		$this->show_form(_('Twitter settings saved.'), true);
+		
+
+	}
+
+	function verify_credentials($user, $password) {
+		
+		$uri = 'http://twitter.com/account/verify_credentials.json';
+		$data = $this->get_twitter_data($uri, $user, $password);
+		
+		if (!$data) {
+			return false;
+		}
+		
+		$creds = json_decode($data); 
+		
+		if (!$creds) {
+			return false;
+		}
+		
+		if ($creds->authorized == 1) { 
+			return true;
+		}
+		
+		return false;		
+	}
+	
+	// PHP's cURL the best thing to use here? -- Zach
+	function get_twitter_data($uri, $user, $password) {
+		$options = array(
+				CURLOPT_USERPWD => "$user:$password",
+				CURLOPT_RETURNTRANSFER	=> true,
+				CURLOPT_FAILONERROR		=> true,
+				CURLOPT_HEADER			=> false,
+				CURLOPT_FOLLOWLOCATION	=> true,
+				// CURLOPT_USERAGENT		=> "identi.ca",
+				CURLOPT_CONNECTTIMEOUT	=> 120,
+				CURLOPT_TIMEOUT			=> 120
+		);
+		
+		$ch = curl_init($uri);
+	    curl_setopt_array($ch, $options);
+	    $data = curl_exec($ch);
+	    $errmsg = curl_error($ch);
+
+		if ($errmsg) {
+			common_debug("cURL error: $errmsg - trying to load: $uri with user $user.", __FILE__);
+		}
+
+		curl_close($ch);
+		return $data;
+	}
+	
+
+}
\ No newline at end of file
diff --git a/htaccess.sample b/htaccess.sample
index 364c35b07..d45b119d1 100644
--- a/htaccess.sample
+++ b/htaccess.sample
@@ -45,6 +45,7 @@ RewriteRule ^settings/openid$ index.php?action=openidsettings [L,QSA]
 RewriteRule ^settings/im$ index.php?action=imsettings [L,QSA]
 RewriteRule ^settings/email$ index.php?action=emailsettings [L,QSA]
 RewriteRule ^settings/sms$ index.php?action=smssettings [L,QSA]
+RewriteRule ^settings/twitter$ index.php?action=twittersettings [L,QSA]
 
 RewriteRule ^search/people$ index.php?action=peoplesearch [L,QSA]
 RewriteRule ^search/notice$ index.php?action=noticesearch [L,QSA]
diff --git a/lib/settingsaction.php b/lib/settingsaction.php
index 33fec0f1d..9aa5247d9 100644
--- a/lib/settingsaction.php
+++ b/lib/settingsaction.php
@@ -100,7 +100,10 @@ class SettingsAction extends Action {
 					  _('Updates by SMS')),
 				'imsettings' =>
 				array(_('IM'),
-					  _('Updates by instant messenger (IM)')));
+					  _('Updates by instant messenger (IM)')),
+				'twittersettings' =>
+				array(_('Twitter'),
+					  _('Twitter integration options')));
 		
         $action = $this->trimmed('action');
         common_element_start('ul', array('id' => 'nav_views'));
diff --git a/lib/util.php b/lib/util.php
index f0aabfa29..0ac679afc 100644
--- a/lib/util.php
+++ b/lib/util.php
@@ -848,6 +848,8 @@ function common_fancy_url($action, $args=NULL) {
 		return common_path('settings/openid');
 	 case 'smssettings':
 		return common_path('settings/sms');
+	 case 'twittersettings':
+		return common_path('settings/twitter');
 	 case 'newnotice':
 		if ($args && $args['replyto']) {
 			return common_path('notice/new?replyto='.$args['replyto']);