3 function wfSpecialIpblocklist()
5 global $wgUser, $wgOut, $action, $ip;
7 $fields = array( "wpUnblockAddress" );
8 wfCleanFormFields( $fields );
9 $ipu = new IPUnblockForm();
11 if ( "success" == $action ) {
12 $msg = str_replace( "$1", $ip, wfMsg( "ipusuccess" ) );
13 $ipu->showList( $msg );
14 } else if ( "submit" == $action ) {
15 if ( ! $wgUser->isSysop() ) {
16 $wgOut->sysopRequired();
20 } else if ( "unblock" == $action ) {
29 function showForm( $err )
31 global $wgOut, $wgUser, $wgLang;
32 global $ip, $wpUnblockAddress;
34 $wgOut->setPagetitle( wfMsg( "unblockip" ) );
35 $wgOut->addWikiText( wfMsg( "unblockiptext" ) );
37 if ( ! $wpUnblockAddress ) { $wpUnblockAddress = $ip; }
38 $ipa = wfMsg( "ipaddress" );
39 $ipus = wfMsg( "ipusubmit" );
40 $action = wfLocalUrlE( $wgLang->specialPage( "Ipblocklist" ),
44 $wgOut->setSubtitle( wfMsg( "formerror" ) );
45 $wgOut->addHTML( "<p><font color='red' size='+1'>{$err}</font>\n" );
48 <form id=\"unblockip\" method=\"post\" action=\"{$action}\">
50 <td align=right>{$ipa}:</td>
52 <input tabindex=1 type=text size=20 name=\"wpUnblockAddress\" value=\"{$wpUnblockAddress}\">
54 <td> </td><td align=left>
55 <input tabindex=2 type=submit name=\"wpBlock\" value=\"{$ipus}\">
63 global $wgOut, $wgUser, $wgLang;
64 global $wpUnblockAddress;
67 $wpUnblockAddress = trim( $wpUnblockAddress );
69 if ( $wpUnblockAddress{0} == "#" ) {
70 $block->mId
= substr( $wpUnblockAddress, 1 );
72 $block->mAddress
= $wpUnblockAddress;
77 $success = wfLocalUrl( $wgLang->specialPage( "Ipblocklist" ),
78 "action=success&ip=" . urlencode($wpUnblockAddress) );
79 $wgOut->redirect( $success );
82 function showList( $msg )
86 $wgOut->setPagetitle( wfMsg( "ipblocklist" ) );
88 $wgOut->setSubtitle( $msg );
90 $wgOut->addHTML( "<ul>" );
91 Block
::enumBlocks( "wfAddRow", 0 );
92 $wgOut->addHTML( "</ul>\n" );
96 # Callback function to output a block
97 function wfAddRow( $block, $tag ) {
98 global $wgOut, $wgUser, $wgLang, $ip;
100 $sk = $wgUser->getSkin();
102 # Hide addresses blocked by User::spreadBlocks, for privacy
103 $addr = $block->mAuto ?
"#{$block->mId}" : $block->mAddress
;
105 $name = User
::whoIs( $block->mBy
);
106 $ulink = $sk->makeKnownLink( $wgLang->getNsText( Namespace::getUser() ). ":{$name}", $name );
107 $d = $wgLang->timeanddate( $block->mTimestamp
, true );
109 $line = str_replace( "$1", $d, wfMsg( "blocklistline" ) );
110 $line = str_replace( "$2", $ulink, $line );
111 $line = str_replace( "$3", $addr, $line );
113 $wgOut->addHTML( "<li>{$line}" );
115 if ( !$block->mAuto
) {
116 $clink = "<a href=\"" . wfLocalUrlE( $wgLang->specialPage(
117 "Contributions" ), "target={$block->mAddress}" ) . "\">" .
118 wfMsg( "contribslink" ) . "</a>";
119 $wgOut->addHTML( " ({$clink})" );
122 if ( $wgUser->isSysop() ) {
123 $ublink = "<a href=\"" . wfLocalUrlE( $wgLang->specialPage(
124 "Ipblocklist" ), "action=unblock&ip=" . urlencode( $addr ) ) . "\">" .
125 wfMsg( "unblocklink" ) . "</a>";
126 $wgOut->addHTML( " ({$ublink})" );
128 if ( "" != $block->mReason
) {
129 $wgOut->addHTML( " <em>(" . wfEscapeHTML( $block->mReason
) .
132 $wgOut->addHTML( "</li>\n" );