tools/client-side/showchange.pl

   1 #!/usr/bin/perl -w
   2
   3 use strict;
   4
   5 # ====================================================================
   6 # Show the log message and diff for a revision.
   7 #
   8 #    $ showchange.pl REVISION [WC_PATH|URL]
   9
  10
  11 if ((scalar(@ARGV) == 0)
  12     or ($ARGV[0] eq '-?')
  13     or ($ARGV[0] eq '-h')
  14     or ($ARGV[0] eq '--help')) {
  15     print <<EOF;
  16 Show the log message and diff for a revision.
  17 usage: $0 REVISION [WC_PATH|URL]
  18 EOF
  19     exit 0;
  20 }
  21
  22 my $revision = shift || die ("Revision argument required.\n");
  23 if ($revision =~ /r([0-9]+)/) {
  24   $revision = $1;
  25 }
  26
  27 my $url = shift || "";
  28
  29 my $svn = "svn";
  30
  31 my $prev_revision = $revision - 1;
  32
  33 system ("${svn} log -v --incremental -r${revision} $url");
  34 system ("${svn} diff -r${prev_revision}:${revision} $url");