From a58285fd06c8113c45377c655dd43cef6337e815 Mon Sep 17 00:00:00 2001
From: Pierre Schmitz <pierre@archlinux.de>
Date: Thu, 11 Jan 2007 19:06:07 +0000
Subject: Aktualisierung auf MediaWiki 1.9.0

---
 maintenance/purgeList.php | 34 ++++++++++++++++++++++++++++++++++
 1 file changed, 34 insertions(+)
 create mode 100644 maintenance/purgeList.php

(limited to 'maintenance/purgeList.php')

diff --git a/maintenance/purgeList.php b/maintenance/purgeList.php
new file mode 100644
index 00000000..9bf7c1bf
--- /dev/null
+++ b/maintenance/purgeList.php
@@ -0,0 +1,34 @@
+<?php
+
+/**
+ * Send purge requests for listed pages to squid
+ */
+
+require_once( "commandLine.inc" );
+
+$stdin = fopen( "php://stdin", "rt" );
+$urls = array();
+
+while( !feof( $stdin ) ) {
+	$page = trim( fgets( $stdin ) );
+	if ( substr( $page, 0, 7 ) == 'http://' ) {
+		$urls[] = $page;
+	} elseif( $page !== '' ) {
+		$title = Title::newFromText( $page );
+		if( $title ) {
+			$url = $title->getFullUrl();
+			echo "$url\n";
+			$urls[] = $url;
+		} else {
+			echo "(Invalid title '$page')\n";
+		}
+	}
+}
+
+echo "Purging " . count( $urls ) . " urls...\n";
+$u = new SquidUpdate( $urls );
+$u->doUpdate();
+
+echo "Done!\n";
+
+?>
-- 
cgit v1.2.2