source: subversion/applications/editors/josm/plugins/getrevision.pl @ 27834

Last change on this file since 27834 was 10454, checked in by Dirk Stoecker, 11 years ago

allow multi-revision based plugin revision

  • Property svn:executable set to *
File size: 353 bytes
Line 
1#! /usr/bin/perl
2
3my $checkrev = qr/commit[ \n]+revision=\"(\d+)\">/;
4my $text = `svn info --xml .`;
5my $revision = $1 if $text =~ $checkrev;
6foreach 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
17print $text;
Note: See TracBrowser for help on using the repository browser.