undelete-pagelinks.pl
No One
Actions

Authored By

	tstarling
	Jan 13 2022, 4:42 AM

Size

612 B

Referenced Files

None

Subscribers

None

undelete-pagelinks.pl
View Options

	#!/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";
	}
	}
	}