Some more tweaking of prelim memcached support; shortened keys, added newtalk for...
[lhc/web/wiklou.git] / includes / SpecialRecentchangeslinked.php
1 <?
2 global $IP;
3 include_once( "$IP/SpecialRecentchanges.php" );
4
5 function wfSpecialRecentchangeslinked( $par = NULL )
6 {
7 global $wgUser, $wgOut, $wgLang, $wgTitle;
8 global $days, $target, $hideminor; # From query string
9 $fname = "wfSpecialRecentchangeslinked";
10
11 $wgOut->setPagetitle( wfMsg( "recentchanges" ) );
12 $sk = $wgUser->getSkin();
13
14 if( $par ) {
15 $target = $par;
16 }
17 if ( "" == $target ) {
18 $wgOut->errorpage( "notargettitle", "notargettext" );
19 return;
20 }
21 $nt = Title::newFromURL( $target );
22 $sub = str_replace( "$1", $nt->getPrefixedText(), wfMsg( "rclsub" ) );
23 $wgOut->setSubtitle( $sub );
24
25 if ( ! $days ) {
26 $days = $wgUser->getOption( "rcdays" );
27 if ( ! $days ) { $days = 7; }
28 }
29 $days = (int)$days;
30 list( $limit, $offset ) = wfCheckLimits( 100, "rclimit" );
31 $cutoff = wfUnix2Timestamp( time() - ( $days * 86400 ) );
32
33 if ( ! isset( $hideminor ) ) {
34 $hideminor = $wgUser->getOption( "hideminor" );
35 }
36 if ( $hideminor ) {
37 $mlink = $sk->makeKnownLink( $wgLang->specialPage( "Recentchangeslinked" ),
38 WfMsg( "show" ), "target=" . wfEscapeHTML( $nt->getPrefixedURL() ) .
39 "&days={$days}&limit={$limit}&hideminor=0" );
40 } else {
41 $mlink = $sk->makeKnownLink( $wgLang->specialPage( "Recentchangeslinked" ),
42 WfMsg( "hide" ), "target=" . wfEscapeHTML( $nt->getPrefixedURL() ) .
43 "&days={$days}&limit={$limit}&hideminor=1" );
44 }
45 if ( $hideminor ) {
46 $cmq = "AND cur_minor_edit=0";
47 } else { $cmq = ""; }
48
49 $sql = "SELECT cur_id,cur_namespace,cur_title,cur_user,cur_comment," .
50 "cur_user_text,cur_timestamp,cur_minor_edit,cur_is_new FROM links, cur " .
51 "WHERE cur_timestamp > '{$cutoff}' {$cmq} AND l_to=cur_id AND l_from='" .
52 wfStrencode( $nt->getPrefixedDBkey() ) . "' GROUP BY cur_id " .
53 "ORDER BY inverse_timestamp LIMIT {$limit}";
54 $res = wfQuery( $sql, $fname );
55
56 $note = wfMsg( "rcnote", $limit, $days );
57 $wgOut->addHTML( "<hr>\n{$note}\n<br>" );
58
59 $tu = "target=" . $nt->getPrefixedURL();
60 $note = rcDayLimitlinks( $days, $limit, "Recentchangeslinked", $tu );
61 $wgOut->addHTML( "{$note}\n" );
62
63 $s = $sk->beginRecentChangesList();
64 $count = wfNumRows( $res );
65
66 while ( $limit ) {
67 if ( 0 == $count ) { break; }
68 $obj = wfFetchObject( $res );
69 --$count;
70
71 $ts = $obj->cur_timestamp;
72 $u = $obj->cur_user;
73 $ut = $obj->cur_user_text;
74 $ns = $obj->cur_namespace;
75 $ttl = $obj->cur_title;
76 $com = $obj->cur_comment;
77 $me = ( $obj->cur_minor_edit > 0 );
78 $new = ( $obj->cur_is_new > 0 );
79
80 $s .= $sk->recentChangesLine( $ts, $u, $ut, $ns, $ttl, $com, $me, $new );
81 --$limit;
82 }
83 $s .= $sk->endRecentChangesList();
84
85 wfFreeResult( $res );
86 $wgOut->addHTML( $s );
87 }
88
89 ?>