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

#!/usr/bin/perl

#  remove _all_ persons from xml file
#  remember to reset all person references to the SG0 Admin before.


local $/;

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

# remove all "grp" elements (scary)
$xml =~ s#<person.*?>.*?</person>##sg;

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

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