clean_group_references.pl

Revision 6971, 322 bytes (checked in by nico, 6 years ago)
now clean_group_references.pl and remove_grps.pl are doing what they should
Property svn:eol-style set to `native` Property svn:executable set to ``* Property svn:keywords set to `Author Date Id Revision`

Line
1	#!/usr/bin/perl
2
3	open FILE, "< $ARGV[0]";
4	open FILE2, "> /tmp/clean_group_references.$$";
5
6	while (<FILE>) {
7
8	# Remove all group references
9	s#<owner>.*?</owner>#<owner></owner>#;
10	print FILE2;
11	}
12
13	close FILE;
14	close FILE2;
15
16	system("mv","/tmp/clean_group_references.$$", $ARGV[0]);
17	unlink("/tmp/clean_group_references.$$");

Note: See TracBrowser for help on using the browser.