[ViewVC] Contents of: cvs/deliantra/server/utils/update_rp

#!/usr/bin/perl
use File::Find;

find(\&wanted, "$ARGV[0]");

sub wanted {
    if ($_ eq "Repository") {
        $file=$_;
        open(IN,"<$file");
        $contents  = <IN>;
        close(IN);
        $contents =~ s#/home/cvs/CVS/##;
        open(IN,">$file");
        print IN $contents;
        close(IN);
    }
}
Revision:	1.2
Committed:	Mon Mar 5 19:03:09 2007 UTC (17 years, 2 months ago) by root
Branch:	MAIN
CVS Tags:	HEAD
Changes since 1.1:	+0 -0 lines
State:	*FILE REMOVED*
Log Message:	major clenaup in utils/
#	Content
1	#!/usr/bin/perl
2	use File::Find;
3
4	find(\&wanted, "$ARGV[0]");
5
6	sub wanted {
7	if ($_ eq "Repository") {
8	$file=$_;
9	open(IN,"<$file");
10	$contents = <IN>;
11	close(IN);
12	$contents =~ s#/home/cvs/CVS/##;
13	open(IN,">$file");
14	print IN $contents;
15	close(IN);
16	}
17	}