From 2382b4521e3ffebcf06db6f610c4c3c78dcbea8d Mon Sep 17 00:00:00 2001
From: Tim Starling <tstarling@users.mediawiki.org>
Date: Wed, 10 Mar 2004 14:37:06 +0000
Subject: [PATCH] proxy check

---
 includes/SpecialBlockme.php | 29 +++++++++++++++++++++++++++++
 1 file changed, 29 insertions(+)
 create mode 100644 includes/SpecialBlockme.php

diff --git a/includes/SpecialBlockme.php b/includes/SpecialBlockme.php
new file mode 100644
index 0000000000..23ac2a5f57
--- /dev/null
+++ b/includes/SpecialBlockme.php
@@ -0,0 +1,29 @@
+<?php
+function wfSpecialBlockme()
+{
+	global $wgIP, $wgBlockOpenProxies, $wgOut;
+
+	if ( !$wgBlockOpenProxies ) {
+		$wgOut->addWikiText( wfMsg( "disabled" ) );
+		return;
+	}
+
+	$blockerName = wfMsg( "proxyblocker" );
+	$reason = wfMsg( "proxyblockreason" );
+	$success = wfMsg( "proxyblocksuccess" );
+
+	$id = User::idForName( $blockerName );
+	if ( !$id ) {
+		$u = User::newFromName( $blockerName );
+		$u->addToDatabase();
+		$u->setPassword( bin2hex( mt_rand(0, 0x7fffffff ) ) );
+		$u->saveSettings();
+		$id = $u->getID();
+	}
+
+	$block = new Block( $wgIP, 0, $id, $reason, wfTimestampNow() );
+	$block->insert();
+
+	$wgOut->addWikiText( $success );
+}
+?>
-- 
2.20.1