root/trunk/midgard/tools/yamp/remove_sg0_admin.pl

#!/usr/bin/perl

#  changes the "changed" tag of SG0 admin in repligard file,
#  so his record is never updated (but created if not existing)


$admin_user_guid = "f6b665f1984503790ed91f39b11b5392";

local $/;

open FILE, "< $ARGV[0]";
$xml = <FILE>;
close FILE;

# this would remove SG0 admin completely
#$xml =~ s/<person id="$admin_user_guid".*?<\/person>//s;

$xml =~ s/<person(.*?)id="$admin_user_guid"(.*?)changed="(\d+)"(.*?)>/<person${1}id="$admin_user_guid"$2changed="19980101000000"$4>/;

open FILE2, "> /tmp/$1.$$";
print FILE2 $xml;
close FILE2;

# create backup copy
#system("mv", $ARGV[0], $ARGV[0] . ".backup");

system("mv", "/tmp/$1.$$", $ARGV[0]);
unlink("/tmp/$1.$$");