FilesExpand file tree

master

/

version-bump.pl

Copy path

Blame

More file actions

Blame

More file actions

Latest commit

 

History

History

History

executable file

·

64 lines (54 loc) · 1.59 KB

master

/

version-bump.pl

Copy path

Top

File metadata and controls

• Code
• Blame

executable file

·

64 lines (54 loc) · 1.59 KB

Raw

Copy raw file

Download raw file

Open symbols panel

Edit and raw actions

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30

31

32

33

34

35

36

37

38

39

40

41

42

43

44

45

46

47

48

49

50

51

52

53

54

55

56

57

58

59

60

61

62

63

64

#!/usr/bin/perl -w

use strict;

use File::Copy;

use File::Find;

open ROOTPOM, "< ../pom.xml" or die;

my $oldversion;

while (<ROOTPOM>) {

my $line = $_;

if ($line =~ m/mage-version>(.*)</) {

print "Current version: $1\n";

$oldversion = $1;

}

}

print "Enter new version: ";

my $version = <STDIN>;

chomp $version;

find(\&update_in_finded, "..");

#update_version_in_java("../Mage.CLient/src/main/java/mage/client/MageFrame.java");

#update_version_in_java("../Mage.Server/src/main/java/mage/server/Main.java");

#update_version_in_java("../Mage.Server.Console/src/main/java/mage/server/console/ConsoleFrame.java");

sub update_in_finded {

if (/pom\.xml$/ && !/^\.git/) {

update_version($_);

}

}

sub update_version {

my ($filename) = @_;

open POM, "< $filename" or die;

open NEWPOM, "> $filename.new" or die;

while (<POM>) {

s/version>$oldversion/version>$version/g;

print NEWPOM $_;

}

close POM;

close NEWPOM;

move("$filename.new", "$filename");

}

sub update_version_in_java {

my ($filename) = @_;

open FILE, "< $filename" or die;

open NEWFILE, "> $filename.new" or die;

$version =~m/(.)\.(.)\.(.)/;

my ($f, $s, $t) = ($1, $2, $3);

$oldversion =~m/(.)\.(.)\.(.)/;

my ($of, $os, $ot) = ($1, $2, $3);

print "f - $f, s - $s, t - $t\n";

while (<FILE>) {

s/new MageVersion\($of, $os, $ot,/new MageVersion\($f, $s, $t,/;

print NEWFILE $_;

}

close FILE;

close NEWFILE;

move("$filename.new", "$filename");

}