Revision: | 1.1 |
Committed: | Fri Feb 3 07:14:50 2006 UTC (18 years, 5 months ago) by root |
Branch: | MAIN |
Branch point for: | UPSTREAM |
Log Message: | Initial revision |
# | 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 | } |