wamo/gnu-social
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity
4237407cd9
gnu-social/actions/replies.php

204 lines
5.6 KiB
PHP
Raw Normal View History

First pass at replies support http://laconi.ca/PITS/00080 Doesn't handle a reply to a user that has never updated. darcs-hash:20080623030837-982e4-532ccd8899fd8be00575f8840da0defb44cd56f8.gz
2008-06-23 12:08:37 +09:00
<?php
Adapt replies to new framework
2009-01-18 08:17:57 +09:00
/**
* Laconica, the distributed open-source microblogging tool
First pass at replies support http://laconi.ca/PITS/00080 Doesn't handle a reply to a user that has never updated. darcs-hash:20080623030837-982e4-532ccd8899fd8be00575f8840da0defb44cd56f8.gz
2008-06-23 12:08:37 +09:00
*
Adapt replies to new framework
2009-01-18 08:17:57 +09:00
* List of replies
*
* PHP version 5
*
* LICENCE: This program is free software: you can redistribute it and/or modify
First pass at replies support http://laconi.ca/PITS/00080 Doesn't handle a reply to a user that has never updated. darcs-hash:20080623030837-982e4-532ccd8899fd8be00575f8840da0defb44cd56f8.gz
2008-06-23 12:08:37 +09:00
* 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/>.
Adapt replies to new framework
2009-01-18 08:17:57 +09:00
*
* @category Personal
* @package Laconica
* @author Evan Prodromou <evan@controlyourself.ca>
* @copyright 2008-2009 Control Yourself, Inc.
* @license http://www.fsf.org/licensing/licenses/agpl-3.0.html GNU Affero General Public License version 3.0
* @link http://laconi.ca/
First pass at replies support http://laconi.ca/PITS/00080 Doesn't handle a reply to a user that has never updated. darcs-hash:20080623030837-982e4-532ccd8899fd8be00575f8840da0defb44cd56f8.gz
2008-06-23 12:08:37 +09:00
*/
Adapt replies to new framework
2009-01-18 08:17:57 +09:00
if (!defined('LACONICA')) {
exit(1);
}
First pass at replies support http://laconi.ca/PITS/00080 Doesn't handle a reply to a user that has never updated. darcs-hash:20080623030837-982e4-532ccd8899fd8be00575f8840da0defb44cd56f8.gz
2008-06-23 12:08:37 +09:00
Adapt replies to new framework
2009-01-18 08:17:57 +09:00
require_once INSTALLDIR.'/lib/personalgroupnav.php';
require_once INSTALLDIR.'/lib/noticelist.php';
require_once INSTALLDIR.'/lib/feedlist.php';
First pass at replies support http://laconi.ca/PITS/00080 Doesn't handle a reply to a user that has never updated. darcs-hash:20080623030837-982e4-532ccd8899fd8be00575f8840da0defb44cd56f8.gz
2008-06-23 12:08:37 +09:00
Adapt replies to new framework
2009-01-18 08:17:57 +09:00
/**
* List of replies
*
* @category Personal
* @package Laconica
* @author Evan Prodromou <evan@controlyourself.ca>
* @license http://www.fsf.org/licensing/licenses/agpl-3.0.html GNU Affero General Public License version 3.0
* @link http://laconi.ca/
*/
First pass at replies support http://laconi.ca/PITS/00080 Doesn't handle a reply to a user that has never updated. darcs-hash:20080623030837-982e4-532ccd8899fd8be00575f8840da0defb44cd56f8.gz
2008-06-23 12:08:37 +09:00
Adapt replies to new framework
2009-01-18 08:17:57 +09:00
class RepliesAction extends Action
{
var $user = null;
var $page = null;
/**
* Prepare the object
*
* Check the input values and initialize the object.
* Shows an error page on bad input.
*
* @param array $args $_REQUEST data
*
* @return boolean success flag
*/
function prepare($args)
change function headers to K&R style Another huge change, for PEAR code standards compliance. Function headers have to be in K&R style (opening brace on its own line), instead of having the opening brace on the same line as the function and parameters. So, a little perl magic found all the function definitions and move the opening brace to the next line (properly indented... usually). darcs-hash:20081223193323-84dde-a28e36ecc66672c783c2842d12fc11043c13ab28.gz
2008-12-24 04:33:23 +09:00
{
Adapt replies to new framework
2009-01-18 08:17:57 +09:00
parent::prepare($args);
First pass at replies support http://laconi.ca/PITS/00080 Doesn't handle a reply to a user that has never updated. darcs-hash:20080623030837-982e4-532ccd8899fd8be00575f8840da0defb44cd56f8.gz
2008-06-23 12:08:37 +09:00
replace all tabs with four spaces The PEAR coding standards decree: no tabs, but indent by four spaces. I've done a global search-and-replace on all tabs, replacing them by four spaces. This is a huge change, but it will go a long way to getting us towards phpcs-compliance. And that means better code readability, and that means more participation. darcs-hash:20081223191907-84dde-21e8efe210e6d5d54e935a22d0cee5c7bbfc007d.gz
2008-12-24 04:19:07 +09:00
$nickname = common_canonical_nickname($this->arg('nickname'));
First pass at replies support http://laconi.ca/PITS/00080 Doesn't handle a reply to a user that has never updated. darcs-hash:20080623030837-982e4-532ccd8899fd8be00575f8840da0defb44cd56f8.gz
2008-06-23 12:08:37 +09:00
Adapt replies to new framework
2009-01-18 08:17:57 +09:00
$this->user = User::staticGet('nickname', $nickname);
if (!$this->user) {
$this->clientError(_('No such user.'));
return false;
replace all tabs with four spaces The PEAR coding standards decree: no tabs, but indent by four spaces. I've done a global search-and-replace on all tabs, replacing them by four spaces. This is a huge change, but it will go a long way to getting us towards phpcs-compliance. And that means better code readability, and that means more participation. darcs-hash:20081223191907-84dde-21e8efe210e6d5d54e935a22d0cee5c7bbfc007d.gz
2008-12-24 04:19:07 +09:00
}
First pass at replies support http://laconi.ca/PITS/00080 Doesn't handle a reply to a user that has never updated. darcs-hash:20080623030837-982e4-532ccd8899fd8be00575f8840da0defb44cd56f8.gz
2008-06-23 12:08:37 +09:00
Adapt replies to new framework
2009-01-18 08:17:57 +09:00
$profile = $this->user->getProfile();
First pass at replies support http://laconi.ca/PITS/00080 Doesn't handle a reply to a user that has never updated. darcs-hash:20080623030837-982e4-532ccd8899fd8be00575f8840da0defb44cd56f8.gz
2008-06-23 12:08:37 +09:00
replace all tabs with four spaces The PEAR coding standards decree: no tabs, but indent by four spaces. I've done a global search-and-replace on all tabs, replacing them by four spaces. This is a huge change, but it will go a long way to getting us towards phpcs-compliance. And that means better code readability, and that means more participation. darcs-hash:20081223191907-84dde-21e8efe210e6d5d54e935a22d0cee5c7bbfc007d.gz
2008-12-24 04:19:07 +09:00
if (!$profile) {
Convert use of common_server_error and common_user_error to methods on Action
2009-01-16 08:03:38 +09:00
$this->serverError(_('User has no profile.'));
Adapt replies to new framework
2009-01-18 08:17:57 +09:00
return false;
replace all tabs with four spaces The PEAR coding standards decree: no tabs, but indent by four spaces. I've done a global search-and-replace on all tabs, replacing them by four spaces. This is a huge change, but it will go a long way to getting us towards phpcs-compliance. And that means better code readability, and that means more participation. darcs-hash:20081223191907-84dde-21e8efe210e6d5d54e935a22d0cee5c7bbfc007d.gz
2008-12-24 04:19:07 +09:00
}
First pass at replies support http://laconi.ca/PITS/00080 Doesn't handle a reply to a user that has never updated. darcs-hash:20080623030837-982e4-532ccd8899fd8be00575f8840da0defb44cd56f8.gz
2008-06-23 12:08:37 +09:00
Adapt replies to new framework
2009-01-18 08:17:57 +09:00
$this->page = ($this->arg('page')) ? ($this->arg('page')+0) : 1;
First pass at replies support http://laconi.ca/PITS/00080 Doesn't handle a reply to a user that has never updated. darcs-hash:20080623030837-982e4-532ccd8899fd8be00575f8840da0defb44cd56f8.gz
2008-06-23 12:08:37 +09:00
Trac #894 and #1013 - fixed bad redirects after delete notice
2009-02-06 09:16:10 +09:00
common_set_returnto($this->selfUrl());
Unify feeds definition in actions I got a little sick of trying to keep the export data and <head> links synched in actions, so I made a common method, getFeeds(), which gets the feeds for both. It returns an array of Feed objects, which know about what their mime type is, title, location, all that jazz. I changed the FeedList class so it handles the new Feed objects instead of the old array of data. I changed all the actions that show feeds (I think...) so that they now use getFeeds() for all their feed needs.
2009-02-12 01:37:50 +09:00
Adapt replies to new framework
2009-01-18 08:17:57 +09:00
return true;
}
Convert _t() to _() for gettext. darcs-hash:20080708094531-533db-83399a46e6ec4c0fcc6249b0235961f969d1ae73.gz
2008-07-08 18:45:31 +09:00
Adapt replies to new framework
2009-01-18 08:17:57 +09:00
/**
* Handle a request
*
* Just show the page. All args already handled.
*
* @param array $args $_REQUEST data
*
* @return void
*/
Convert _t() to _() for gettext. darcs-hash:20080708094531-533db-83399a46e6ec4c0fcc6249b0235961f969d1ae73.gz
2008-07-08 18:45:31 +09:00
Adapt replies to new framework
2009-01-18 08:17:57 +09:00
function handle($args)
{
parent::handle($args);
$this->showPage();
replace all tabs with four spaces The PEAR coding standards decree: no tabs, but indent by four spaces. I've done a global search-and-replace on all tabs, replacing them by four spaces. This is a huge change, but it will go a long way to getting us towards phpcs-compliance. And that means better code readability, and that means more participation. darcs-hash:20081223191907-84dde-21e8efe210e6d5d54e935a22d0cee5c7bbfc007d.gz
2008-12-24 04:19:07 +09:00
}
Convert _t() to _() for gettext. darcs-hash:20080708094531-533db-83399a46e6ec4c0fcc6249b0235961f969d1ae73.gz
2008-07-08 18:45:31 +09:00
Adapt replies to new framework
2009-01-18 08:17:57 +09:00
/**
* Title of the page
*
* Includes name of user and page number.
*
* @return string title of page
*/
function title()
change function headers to K&R style Another huge change, for PEAR code standards compliance. Function headers have to be in K&R style (opening brace on its own line), instead of having the opening brace on the same line as the function and parameters. So, a little perl magic found all the function definitions and move the opening brace to the next line (properly indented... usually). darcs-hash:20081223193323-84dde-a28e36ecc66672c783c2842d12fc11043c13ab28.gz
2008-12-24 04:33:23 +09:00
{
Adapt replies to new framework
2009-01-18 08:17:57 +09:00
if ($this->page == 1) {
return sprintf(_("Replies to %s"), $this->user->nickname);
} else {
return sprintf(_("Replies to %s, page %d"),
fix title on replies
2009-01-25 02:28:47 +09:00
$this->user->nickname,
Adapt replies to new framework
2009-01-18 08:17:57 +09:00
$this->page);
}
replace all tabs with four spaces The PEAR coding standards decree: no tabs, but indent by four spaces. I've done a global search-and-replace on all tabs, replacing them by four spaces. This is a huge change, but it will go a long way to getting us towards phpcs-compliance. And that means better code readability, and that means more participation. darcs-hash:20081223191907-84dde-21e8efe210e6d5d54e935a22d0cee5c7bbfc007d.gz
2008-12-24 04:19:07 +09:00
}
no such user in replies. darcs-hash:20080717124215-84dde-83c2c5ec54a50bb5aa7a5adc23321dadc48083ad.gz
2008-07-17 21:42:15 +09:00
Adapt replies to new framework
2009-01-18 08:17:57 +09:00
/**
* Feeds for the <head> section
*
* @return void
*/
Unify feeds definition in actions I got a little sick of trying to keep the export data and <head> links synched in actions, so I made a common method, getFeeds(), which gets the feeds for both. It returns an array of Feed objects, which know about what their mime type is, title, location, all that jazz. I changed the FeedList class so it handles the new Feed objects instead of the old array of data. I changed all the actions that show feeds (I think...) so that they now use getFeeds() for all their feed needs.
2009-02-12 01:37:50 +09:00
function getFeeds()
change function headers to K&R style Another huge change, for PEAR code standards compliance. Function headers have to be in K&R style (opening brace on its own line), instead of having the opening brace on the same line as the function and parameters. So, a little perl magic found all the function definitions and move the opening brace to the next line (properly indented... usually). darcs-hash:20081223193323-84dde-a28e36ecc66672c783c2842d12fc11043c13ab28.gz
2008-12-24 04:33:23 +09:00
{
Adapt replies to new framework
2009-01-18 08:17:57 +09:00
$rssurl = common_local_url('repliesrss',
array('nickname' => $this->user->nickname));
$rsstitle = sprintf(_('Feed for replies to %s'), $this->user->nickname);
Unify feeds definition in actions I got a little sick of trying to keep the export data and <head> links synched in actions, so I made a common method, getFeeds(), which gets the feeds for both. It returns an array of Feed objects, which know about what their mime type is, title, location, all that jazz. I changed the FeedList class so it handles the new Feed objects instead of the old array of data. I changed all the actions that show feeds (I think...) so that they now use getFeeds() for all their feed needs.
2009-02-12 01:37:50 +09:00
return array(new Feed(Feed::RSS1, $rssurl, $rsstitle));
replace all tabs with four spaces The PEAR coding standards decree: no tabs, but indent by four spaces. I've done a global search-and-replace on all tabs, replacing them by four spaces. This is a huge change, but it will go a long way to getting us towards phpcs-compliance. And that means better code readability, and that means more participation. darcs-hash:20081223191907-84dde-21e8efe210e6d5d54e935a22d0cee5c7bbfc007d.gz
2008-12-24 04:19:07 +09:00
}
First pass at replies support http://laconi.ca/PITS/00080 Doesn't handle a reply to a user that has never updated. darcs-hash:20080623030837-982e4-532ccd8899fd8be00575f8840da0defb44cd56f8.gz
2008-06-23 12:08:37 +09:00
Adapt replies to new framework
2009-01-18 08:17:57 +09:00
/**
* show the personal group nav
*
* @return void
*/
function showLocalNav()
change function headers to K&R style Another huge change, for PEAR code standards compliance. Function headers have to be in K&R style (opening brace on its own line), instead of having the opening brace on the same line as the function and parameters. So, a little perl magic found all the function definitions and move the opening brace to the next line (properly indented... usually). darcs-hash:20081223193323-84dde-a28e36ecc66672c783c2842d12fc11043c13ab28.gz
2008-12-24 04:33:23 +09:00
{
Adapt replies to new framework
2009-01-18 08:17:57 +09:00
$nav = new PersonalGroupNav($this);
$nav->show();
}
Convert _t() to _() for gettext. darcs-hash:20080708094531-533db-83399a46e6ec4c0fcc6249b0235961f969d1ae73.gz
2008-07-08 18:45:31 +09:00
Adapt replies to new framework
2009-01-18 08:17:57 +09:00
/**
* Show the content
*
* A list of notices that are replies to the user, plus pagination.
*
* @return void
*/
UNDO: use DB_DataObject join darcs-hash:20080707070545-84dde-8034bf485a182ac86295c9a7831cfabac3cb2b55.gz
2008-07-07 16:05:45 +09:00
Adapt replies to new framework
2009-01-18 08:17:57 +09:00
function showContent()
{
$notice = $this->user->getReplies(($this->page-1) * NOTICES_PER_PAGE,
NOTICES_PER_PAGE + 1);
UNDO: use DB_DataObject join darcs-hash:20080707070545-84dde-8034bf485a182ac86295c9a7831cfabac3cb2b55.gz
2008-07-07 16:05:45 +09:00
Adapt replies to new framework
2009-01-18 08:17:57 +09:00
$nl = new NoticeList($notice, $this);
make a new NoticeList widget and call it from StreamAction I made a new notice-list widget (like the profile list) and call it from StreamAction. This cleans up some of the mess in the various notice-stream-showing classes. I also changed show-stream so it uses a subclass of NoticeList that doesn't show author info (which is unnecessary). darcs-hash:20081211231252-5ed1f-ee6e551ed5a029406748120f12e2ff57c4a86493.gz
2008-12-12 08:12:52 +09:00
Adapt replies to new framework
2009-01-18 08:17:57 +09:00
$cnt = $nl->show();
added filler/guide text to user replies timeline.
2009-04-08 08:25:12 +09:00
if (0 === $cnt) {
$this->showEmptyListMessage();
}
Convert _t() to _() for gettext. darcs-hash:20080708094531-533db-83399a46e6ec4c0fcc6249b0235961f969d1ae73.gz
2008-07-08 18:45:31 +09:00
Adapt replies to new framework
2009-01-18 08:17:57 +09:00
$this->pagination($this->page > 1, $cnt > NOTICES_PER_PAGE,
$this->page, 'replies',
array('nickname' => $this->user->nickname));
replace all tabs with four spaces The PEAR coding standards decree: no tabs, but indent by four spaces. I've done a global search-and-replace on all tabs, replacing them by four spaces. This is a huge change, but it will go a long way to getting us towards phpcs-compliance. And that means better code readability, and that means more participation. darcs-hash:20081223191907-84dde-21e8efe210e6d5d54e935a22d0cee5c7bbfc007d.gz
2008-12-24 04:19:07 +09:00
}
mark a bunch of actions read-only
2009-01-23 18:15:15 +09:00
added filler/guide text to user replies timeline.
2009-04-08 08:25:12 +09:00
function showEmptyListMessage()
{
$message = sprintf(_('This is the timeline showing replies to %s but %s hasn\'t received a notice to his attention yet.'), $this->user->nickname, $this->user->nickname) . ' ';
if (common_logged_in()) {
$current_user = common_current_user();
if ($this->user->id === $current_user->id) {
$message .= _('You can engage other users in a conversation, subscribe to more people or [join groups](%%action.groups%%).');
} else {
$message .= sprintf(_('You can try to [nudge %s](../%s) or [post something to his or her attention](%%%%action.newnotice%%%%?status_textarea=%s).'), $this->user->nickname, $this->user->nickname, '@' . $this->user->nickname);
}
}
else {
$message .= sprintf(_('Why not [register an account](%%%%action.register%%%%) and then nudge %s or post a notice to his or her attention.'), $this->user->nickname);
}
$this->elementStart('div', 'guide');
$this->raw(common_markup_to_html($message));
$this->elementEnd('div');
}
mark a bunch of actions read-only
2009-01-23 18:15:15 +09:00
function isReadOnly()
{
return true;
}
First pass at replies support http://laconi.ca/PITS/00080 Doesn't handle a reply to a user that has never updated. darcs-hash:20080623030837-982e4-532ccd8899fd8be00575f8840da0defb44cd56f8.gz
2008-06-23 12:08:37 +09:00
}
Reference in New Issue Copy Permalink