[ViewVC] Annotation 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.1.1.1 (vendor branch)
Committed:	Fri Feb 3 07:14:50 2006 UTC (18 years, 5 months ago) by root
Branch:	UPSTREAM
CVS Tags:	UPSTREAM_2006_03_15, LAST_C_VERSION, STABLE, UPSTREAM_2006_02_22, difficulty_fix_merge_060810_2300, UPSTREAM_2006_02_03
Branch point for:	difficulty_fix
Changes since 1.1:	+0 -0 lines
Log Message:	initial import
#	User	Rev	Content
1	root	1.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			}