10 |
$repo = "file://$repo" if -e $repo; |
$repo = "file://$repo" if -e $repo; |
11 |
|
|
12 |
my $debug = 0; |
my $debug = 0; |
13 |
|
my $tsv = 0; |
14 |
|
|
15 |
my $from_rev = 1; |
my $from_rev = 1; |
16 |
my $to_rev = 'HEAD'; |
my $to_rev = 'HEAD'; |
76 |
} |
} |
77 |
close(DIFF); |
close(DIFF); |
78 |
|
|
79 |
print $repo, '@', $rev, |
if ( $tsv ) { |
80 |
"\trepo\t$repo\trev\t$rev\tdate\t$date\tfiles\t$files\tadd\t$add\tdel\t$del\tmessage\t$msg\n"; |
print $repo, '@', $rev, |
81 |
|
"\trepo\t$repo\trev\t$rev\tdate\t$date\tfiles\t$files\tadd\t$add\tdel\t$del\tmessage\t$msg\n"; |
82 |
|
} else { |
83 |
|
print "$repo\t$rev\t$date\t$files\t$add\t$del\t$msg\n"; |
84 |
|
} |
85 |
|
|
86 |
} |
} |