| Revision: | 1.2 |
| Committed: | Mon Mar 5 19:03:09 2007 UTC (17 years, 3 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/ |
| # | 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 | } |