In QueryPage: fixing a misleading comment. value needn't be numeric.
[lhc/web/wiklou.git] / includes / SpecialBlockme.php
1 <?php
2 function wfSpecialBlockme()
3 {
4 global $wgIP, $wgBlockOpenProxies, $wgOut, $wgProxyKey;
5
6 if ( !$wgBlockOpenProxies || $_REQUEST['ip'] != md5( $wgIP . $wgProxyKey ) ) {
7 $wgOut->addWikiText( wfMsg( "disabled" ) );
8 return;
9 }
10
11 $blockerName = wfMsg( "proxyblocker" );
12 $reason = wfMsg( "proxyblockreason" );
13 $success = wfMsg( "proxyblocksuccess" );
14
15 $u = User::newFromName( $blockerName );
16 $id = $u->idForName();
17 if ( !$id ) {
18 $u = User::newFromName( $blockerName );
19 $u->addToDatabase();
20 $u->setPassword( bin2hex( mt_rand(0, 0x7fffffff ) ) );
21 $u->saveSettings();
22 $id = $u->getID();
23 }
24
25 $block = new Block( $wgIP, 0, $id, $reason, wfTimestampNow() );
26 $block->insert();
27
28 $wgOut->addWikiText( $success );
29 }
30 ?>