|
Server : Apache/2.2.2 (Fedora) System : Linux App1.pathumtani.go.th 2.6.20-1.2320.fc5smp #1 SMP Tue Jun 12 19:40:16 EDT 2007 i686 User : apache ( 48) PHP Version : 5.2.9 Disable Function : NONE Directory : /proc/self/root/usr/share/doc/subversion-1.3.2/tools/client-side/ |
Upload File : |
#!/usr/bin/perl -w
use strict;
# ====================================================================
# Show the log message and diff for a revision.
#
# $ showchange.pl REVISION [PATH|URL]
if ((scalar(@ARGV) == 0)
or ($ARGV[0] eq '-?')
or ($ARGV[0] eq '-h')
or ($ARGV[0] eq '--help')) {
print <<EOF;
Show the log message and diff for a revision.
usage: $0 REVISION [PATH|URL]
EOF
exit 0;
}
my $revision = shift || die ("Revision argument required.\n");
if ($revision =~ /r([0-9]+)/) {
$revision = $1;
}
my $url = shift || "";
my $svn = "svn";
my $prev_revision = $revision - 1;
system ("${svn} log -v --incremental -r${revision} $url");
system ("${svn} diff -r${prev_revision}:${revision} $url");