Wikipedia Diskussion:Verwaiste Diskussionsseiten/Archiv001

in die datenbankabfrage sollte einfließen, ob ein Redirect vorhanden ist! Also ob der Artikel verschoben wurde. --'~' 09:45, 3. Okt 2003 (CEST)

Und was soll/en ich/wir mit den Redirects machen?? Löschen oder nicht?? --DaB. 12:58, 23. Nov 2003 (CET)

Löschen, weil auch ein Diskussionsseiten-Redirect ohne Artikel sinnlos ist.--El 14:28, 23. Nov 2003 (CET)

Ich meinte die Diskusionsseiten, die (genauso wie ihr Hauptartikel) ein Redirect auf einen neue Diskusionsseite haben. Ein Beispiel ist Zeitmesser, der auf Uhr 'derectet'. --DaB. 14:55, 23. Nov 2003 (CET)~

Die werden mit der SQL-Abfrage gar nicht gefunden. Zeitmesser wurde von der SQL-Abfrage gefunden, weil zur Zeit des SQL-Dumps der Artikel (also der Redirect) noch nicht existierte. Wenn es einen zugehörigen Artikel als Redirect gibt, würde ich die Diskussionsseite (Redirect oder nicht) nicht löschen.--El 12:55, 27. Nov 2003 (CET)

Bild Diskussion:Makedonien_flagge.gif ist kein echter "falscher Treffer", denn die Bildbeschreibungsseite existiert tatsächlich nicht, wovon man sich überzeugen kann, wenn man die Seite bearbeitet. Dann kommt nämlich der Hinweis "Neue Seite". Wenn das jemand ausprobiert hat, dann bitte eine passende Bildbeschreibungsseite anlegen oder das Bild löschen, weil es ja offenbar eh kein Artikel benutzt.--El 14:28, 23. Nov 2003 (CET)

---

Hier das Perl-Skript für den Fall, dass jemand die Liste aktualisieren möchte:--El 12:19, 3. Okt 2003 (CEST)

#!/usr/bin/perl

use bytes;

open IN, "cat verwaisteDiskussionen.sql | mysql -u wikiadmin -padminpass wikidb|";

$zeile = <IN>; # cur_title
while($zeile = <IN>) {
	chop $zeile;
	($titel,$namespace,$redir,@text) = split /\s+/, "$zeile\n";
	$ns = "" if $namespace==1;
	$ns = "Wikipedia " if $namespace==5;
	$ns = "Bild " if $namespace==7;
	$kompletttitel = "${ns}Diskussion:$titel";
	$ausgabe = "*$kompletttitel";
	if($redir) {
	  $kompletttitel =~ s/'/\%27/;
	  $kompletttitel =~ s/ /_/;
		$ausgabe .= " [http://de.wikipedia.org/w/index.php?" .
			"title=$kompletttitel&redirect=no] (Redirect)";
		$ausgabe =~ s/\\n//;
	}
	print "$ausgabe\n";
}