Ceki Gulcu | 88c4c45 | 2009-12-03 19:16:42 +0100 | [diff] [blame] | 1 | |
| 2 | if ($#ARGV < 1) { |
| 3 | print "Usage: binderVersion.pl VER FILE {FILE, FILE}\n"; |
| 4 | exit; |
| 5 | } |
| 6 | |
| 7 | $V= $ARGV[0]; |
| 8 | # Trim -SNAPSHOT |
| 9 | $V =~ s/-SNAPSHOT//; |
| 10 | |
| 11 | print "VER:${V}\r\n"; |
| 12 | shift(@ARGV); |
| 13 | |
| 14 | sub replace () { |
| 15 | my $filename = $_[0]; |
| 16 | |
| 17 | if(-s $filename) { |
| 18 | print "Processing [" . $filename . "]\r\n"; |
| 19 | |
| 20 | my $original = "$filename.original"; |
| 21 | |
| 22 | rename($filename, $original); |
| 23 | open(OUT, ">$filename"); |
| 24 | open(IN, "$original"); |
| 25 | |
| 26 | while(<IN>) { |
| 27 | if(/VERSION\s+=\s+".*";/) { |
| 28 | s/VERSION\s+=\s+".*";/VERSION = "${V}";/; |
| 29 | } |
| 30 | print OUT; |
| 31 | } |
| 32 | close(IN); |
| 33 | close(OUT); |
| 34 | unlink($original); |
| 35 | } else { |
| 36 | print "File [" . $filename . "] does not exist\r\n" |
| 37 | } |
| 38 | } |
| 39 | |
| 40 | foreach $ARG (@ARGV) { |
| 41 | do replace($ARG); |
| 42 | } |