ViewVC Help
View File
|
Revision Log
|
Show Annotations
|
Download File
/
cvs
/
deliantra
/
server
/
utils
/
update_rp
Revision:
1.1
Committed:
Fri Feb 3 07:14:50 2006 UTC
(18 years, 3 months ago) by
root
Branch:
MAIN
Branch point for:
UPSTREAM
Log Message:
Initial revision
File Contents
#
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
}