diff options
Diffstat (limited to 'actions/twittersettings.php')
| -rw-r--r-- | actions/twittersettings.php | 132 |
1 files changed, 132 insertions, 0 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 |