/[tokyocabinet-toys]/svn-tsv.pl
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /svn-tsv.pl

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 8 by dpavlin, Sat Jul 25 10:55:35 2009 UTC revision 9 by dpavlin, Sat Jul 25 16:50:09 2009 UTC
# Line 10  my $repo = shift @ARGV || die "usage: $0 Line 10  my $repo = shift @ARGV || die "usage: $0
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';
# Line 75  foreach my $e (@{$xml->{'logentry'}}) { Line 76  foreach my $e (@{$xml->{'logentry'}}) {
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  }  }
Legend:
Removed from v.8  
changed lines
  Added in v.9
  ViewVC Help
Powered by ViewVC 1.1.26