#!/usr/bin/perl
#

use strict;
use Getopt::Long;

my $anon = 0;
my $user = "";

sub usage () {
        die "
Usage:
   lj-repo-own --anonymous
   lj-repo-own --user=<danga_username>
";
}

usage() unless GetOptions(
        "anonymous" => \$anon,
        "user=s"    => \$user,
        );

usage() if      $anon && $user;
usage() unless  $anon || $user =~ /^\w+$/;

my $src = $anon ?
        ":pserver:anonymous\@cvs.livejournal.org:" :
        "$user\@cvs.danga.com:";

chdir "$ENV{LJHOME}" or die;

my @files = `find cvs -type f -path '*CVS/Root'`;
chomp @files;
foreach my $f (@files) {
    open(R, $f) or die;
    my $line = <R>;
    close R;
    print "in $f\tfrom $line ";
    $line =~ s/.+:/$src/;
    print "  to $line\n";
    open(W, ">$f") or die;
    print W $line;
    close W;
}