New feature (special page): Ancient pages: list oldest articles first
[lhc/web/wiklou.git] / includes / SpecialAncientpages.php
1 <?
2
3 function wfSpecialAncientpages()
4 {
5 global $wgUser, $wgOut, $wgLang, $wgTitle;
6 global $limit, $offset; # From query string
7 $fname = "wfSpecialAncientpages";
8
9 if ( ! $limit ) {
10 $limit = $wgUser->getOption( "rclimit" );
11 if ( ! $limit ) { $limit = 50; }
12 }
13 if ( ! $offset ) { $offset = 0; }
14
15 $sql = "SELECT cur_title,cur_user,cur_user_text,cur_comment," .
16 "cur_timestamp FROM cur " .
17 "WHERE cur_namespace=0 AND cur_is_redirect=0 " .
18 " ORDER BY cur_timestamp LIMIT {$offset}, {$limit}";
19 $res = wfQuery( $sql, $fname );
20
21 $top = wfShowingResults( $offset, $limit );
22 $wgOut->addHTML( "<p>{$top}\n" );
23
24 $sl = wfViewPrevNext( $offset, $limit,
25 $wgLang->specialPage( "Ancientpages" ) );
26 $wgOut->addHTML( "<br>{$sl}\n" );
27
28 $sk = $wgUser->getSkin();
29 $s = "<ol start=" . ( $offset + 1 ) . ">";
30 while ( $obj = wfFetchObject( $res ) ) {
31 $u = $obj->cur_user;
32 $ut = $obj->cur_user_text;
33 $c = wfEscapeHTML( $obj->cur_comment );
34 if ( 0 == $u ) { $ul = $ut; }
35 else { $ul = $sk->makeLink( $wgLang->getNsText(2).":{$ut}", $ut ); }
36
37 $d = $wgLang->timeanddate( $obj->cur_timestamp, true );
38 $link = $sk->makeKnownLink( $obj->cur_title, "" );
39 $s .= "<li>{$d} {$link} . . {$ul}";
40
41 if ( "" != $c && "*" != $c ) { $s .= " <em>({$c})</em>"; }
42 $s .= "</li>\n";
43 }
44 wfFreeResult( $res );
45 $s .= "</ol>";
46 $wgOut->addHTML( $s );
47 $wgOut->addHTML( "<p>{$sl}\n" );
48 }
49
50 ?>