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;
68 if ( $wpUnblockAddress{0} == "#" ) {
69 $block->mId
= substr( $wpUnblockAddress, 1 );
71 $block->mAddress
= $wpUnblockAddress;
76 $success = wfLocalUrl( $wgLang->specialPage( "Ipblocklist" ),
77 "action=success&ip=" . urlencode($wpUnblockAddress) );
78 $wgOut->redirect( $success );
81 function showList( $msg )
85 $wgOut->setPagetitle( wfMsg( "ipblocklist" ) );
87 $wgOut->setSubtitle( $msg );
89 $wgOut->addHTML( "<ul>" );
90 Block
::enumBlocks( "wfAddRow", 0 );
91 $wgOut->addHTML( "</ul>\n" );
95 # Callback function to output a block
96 function wfAddRow( $block, $tag ) {
97 global $wgOut, $wgUser, $wgLang, $ip;
99 $sk = $wgUser->getSkin();
101 # Hide addresses blocked by User::spreadBlocks, for privacy
102 $addr = $block->mAuto ?
"#{$block->mId}" : $block->mAddress
;
104 $name = User
::whoIs( $block->mBy
);
105 $ulink = $sk->makeKnownLink( $wgLang->getNsText( Namespace::getUser() ). ":{$name}", $name );
106 $d = $wgLang->timeanddate( $block->mTimestamp
, true );
108 $line = str_replace( "$1", $d, wfMsg( "blocklistline" ) );
109 $line = str_replace( "$2", $ulink, $line );
110 $line = str_replace( "$3", $addr, $line );
112 $wgOut->addHTML( "<li>{$line}" );
114 if ( !$block->mAuto
) {
115 $clink = "<a href=\"" . wfLocalUrlE( $wgLang->specialPage(
116 "Contributions" ), "target={$block->mAddress}" ) . "\">" .
117 wfMsg( "contribslink" ) . "</a>";
118 $wgOut->addHTML( " ({$clink})" );
121 if ( $wgUser->isSysop() ) {
122 $ublink = "<a href=\"" . wfLocalUrlE( $wgLang->specialPage(
123 "Ipblocklist" ), "action=unblock&ip=" . urlencode( $addr ) ) . "\">" .
124 wfMsg( "unblocklink" ) . "</a>";
125 $wgOut->addHTML( " ({$ublink})" );
127 if ( "" != $block->mReason
) {
128 $wgOut->addHTML( " <em>(" . wfEscapeHTML( $block->mReason
) .
131 $wgOut->addHTML( "</li>\n" );