source/tools/updateversion.pl

   1 #!/usr/bin/perl
   2
   3 #############################################################################
   4 # Xestia Address Book: Version Updater                                      #
   5 # (c) 2017 Xestia Address Book                                              #
   6 #############################################################################
   7 # This file is part of Xestia Address Book.                                 #
   8 #                                                                           #
   9 # Xestia Address Book is free software: you can redistribute it and/or      #
  10 # modify it under the terms of the GNU General Public License as published  #
  11 # by the Free Software Foundation, version 3 of the license.                #
  12 #                                                                           #
  13 # Xestia Address Book is distributed in the hope that it will be useful,    #
  14 # but WITHOUT ANY WARRANTY; without even the implied warranty of            #
  15 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the              #
  16 # GNU General Public License for more details.                              #
  17 #                                                                           #
  18 # You should have received a copy of the GNU General Public License along   #
  19 # with Xestia Address Book. If not, see <http://www.gnu.org/licenses/>      #
  20 #############################################################################
  21
  22 use strict;
  23 use warnings;
  24 use Tie::File;
  25
  26 # Get the version number.
  27
  28 if (!$ARGV[0]){
  29         print "Error: No version specified!\n";
  30         exit;
  31 }
  32
  33 my $version = $ARGV[0];
  34
  35 my $filename;
  36 my $file_handle;
  37 my @file_data;
  38
  39 # Split the version information down.
  40
  41 my @version_split = split(/(\.)/, $version);
  42
  43 my $version_major = $version_split[0];
  44 my $version_minor = $version_split[2];
  45
  46 # Update source/version.h
  47
  48 $filename = "../version.h";
  49
  50 tie(@file_data, 'Tie::File', $filename);
  51 foreach my $file_data_line(@file_data) {
  52
  53         # Look for XSDAB_VERSION
  54
  55         if ($file_data_line =~ /^\#define\ XSDAB_VERSION/){
  56                 my $line_output = "#define XSDAB_VERSION \"";
  57                 $line_output .= $version;
  58                 $line_output .= "\"";
  59                 $file_data_line = $line_output;
  60         }
  61
  62         # Look for XSDAB_USERAGENT
  63
  64         if ($file_data_line =~ /^\#define\ XSDAB_USERAGENT/){
  65                 my $line_output = "#define XSDAB_USERAGENT \"XestiaAddressBook/";
  66                 $line_output .= $version;
  67                 $line_output .= "\"";
  68                 $file_data_line = $line_output;
  69         }
  70
  71 }
  72
  73 # Update projects/msw/xestiaab.rc
  74
  75 $filename = "../../projects/msw/xestiaab.rc";
  76 tie(@file_data, 'Tie::File', $filename);
  77 foreach my $file_data_line(@file_data) {
  78
  79         # Look for FILEVERSION
  80
  81         if ($file_data_line =~ /^    FILEVERSION/){
  82                 my $line_output = "    FILEVERSION     ";
  83                 $line_output .= $version_major;
  84                 $line_output .= ",";
  85                 $line_output .= $version_minor;
  86                 $line_output .= ",0,0";
  87                 $file_data_line = $line_output;
  88         }
  89
  90         # Look for PRODUCTVERSION
  91
  92         if ($file_data_line =~ /^    PRODUCTVERSION/){
  93                 my $line_output = "    PRODUCTVERSION  ";
  94                 $line_output .= $version_major;
  95                 $line_output .= ",";
  96                 $line_output .= $version_minor;
  97                 $line_output .= ",0,0";
  98                 $file_data_line = $line_output;
  99         }
 100
 101 }
 102
 103 # Update projects/osx/XestiaAddressBook.xcodeproj/project.pbxproj
 104
 105 $filename = "../../projects/osx/XestiaAddressBook.xcodeproj/project.pbxproj";
 106 tie(@file_data, 'Tie::File', $filename);
 107 foreach my $file_data_line(@file_data) {
 108
 109         # Look for PRODUCT_VERSION
 110
 111         if ($file_data_line =~ /^\t\t\t\tPRODUCT_VERSION/){
 112                 my $line_output = "\t\t\t\tPRODUCT_VERSION = ";
 113                 $line_output .= $version;
 114                 $line_output .= ";";
 115                 $file_data_line = $line_output;
 116         }
 117
 118 }