|
Last change
on this file since 33657 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.
