undelete-pagelinks.pl
ActivePublic
Actions

Authored by • tstarling on Jan 13 2022, 1:26 AM.

Tags

None

Referenced Files

	F34916316: undelete-pagelinks.pl
	Jan 13 2022, 4:42 AM

	F34916275: undelete-pagelinks.pl
	Jan 13 2022, 3:19 AM

	F34916210: undelete-pagelinks.pl
	Jan 13 2022, 1:26 AM

Subscribers

None

	#!/usr/bin/perl -w

	$db = $ARGV[0];
	$table = 'pagelinks';

	while (<STDIN>) {
	if (/DELETE FROM `$db`.`$table`/) {
	<STDIN>; # where
	@values = [];
	$ok = 1;
	for ( $i = 1; $i <= 4; $i++ ) {
	$valueLine = <STDIN>;
	if ($valueLine =~ /\@$i=([0-9]+)/) {
	$values[$i] = $1;
	} elsif ( $valueLine =~ /\@$i='(.*)'/ ) {
	$str = $1;
	$str =~ s/'/\\'/g;
	$values[$i] = "'$str'";
	} else {
	$ok = 0;
	}
	}
	if ( $ok ) {
	print "INSERT IGNORE INTO pagelinks (pl_from, pl_namespace, pl_title, pl_from_namespace) " .
	"VALUES ($values[1], $values[2], $values[3], $values[4]);\n";
	}
	}
	}

undelete-pagelinks.plActivePublicActions