Last change
on this file since 26406 was 10454, checked in by stoecker, 16 years ago |
allow multi-revision based plugin revision
|
-
Property svn:executable
set to
*
|
File size:
353 bytes
|
Rev | Line | |
---|
[10454] | 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.