Last change
on this file since 30422 was 10454, checked in by stoecker, 16 years ago |
allow multi-revision based plugin revision
|
-
Property svn:executable
set to
*
|
File size:
353 bytes
|
Line | |
---|
1 | #! /usr/bin/perl
|
---|
2 |
|
---|
3 | my $checkrev = qr/commit[ \n]+revision=\"(\d+)\">/;
|
---|
4 | my $text = `svn info --xml .`;
|
---|
5 | my $revision = $1 if $text =~ $checkrev;
|
---|
6 | foreach my $file (@ARGV)
|
---|
7 | {
|
---|
8 | my $ftext = `svn info --xml $file`;
|
---|
9 | my $frevision = $1 if $ftext =~ $checkrev;
|
---|
10 | if($frevision > $revision)
|
---|
11 | {
|
---|
12 | $text = $ftext;
|
---|
13 | $revision = $frevision;
|
---|
14 | }
|
---|
15 | }
|
---|
16 |
|
---|
17 | print $text;
|
---|
Note:
See
TracBrowser
for help on using the repository browser.