debian/build-git-snapshot

   1 #!/usr/bin/perl
   2
   3 # Copyright 2010 Catalyst IT Ltd.
   4 #
   5 # This file is part of Koha.
   6 #
   7 # Koha is free software; you can redistribute it and/or modify it under the
   8 # terms of the GNU General Public License as published by the Free Software
   9 # Foundation; either version 2 of the License, or (at your option) any later
  10 # version.
  11 #
  12 # Koha is distributed in the hope that it will be useful, but WITHOUT ANY
  13 # WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
  14 # A PARTICULAR PURPOSE.  See the GNU General Public License for more details.
  15 #
  16 # You should have received a copy of the GNU General Public License along
  17 # with Koha; if not, write to the Free Software Foundation, Inc.,
  18 # 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
  19
  20 # Written by Robin Sheat <robin@catalyst.net.nz> and
  21 #   Srdjan Jankovic <srdjan@catalyst.net.nz>
  22 # Based on an sh version by Lars Wirzenius.
  23
  24 use strict;
  25 use warnings;
  26
  27 use Getopt::Long;
  28 use POSIX qw/strftime/;
  29
  30 my $buildresult;
  31 my $distribution='squeeze-dev';
  32 my $git_checks='all';
  33 my $version='3.5-1~git';
  34 my $auto_version=1;
  35 my $need_help;
  36 my $debug;
  37
  38 GetOptions(
  39     'buildresult|r=s'   => \$buildresult,
  40     'distribution|D=s'  => \$distribution,
  41     'git-checks|g=s'    => \$git_checks,
  42     'version|v=s'       => \$version,
  43     'autoversion!'      => \$auto_version,
  44     'help|h'            => \$need_help,
  45     'debug|d'           => \$debug,
  46 );
  47
  48 help_and_exit() if $need_help;
  49
  50
  51 sub sys_command_output {
  52     my ($command) = @_;
  53
  54     print "$command\n" if $debug;
  55     open COMMAND, "$command |"
  56       or die qq{Cannot execute "$command": $!"};
  57     return map { chomp; $_ } <COMMAND>;
  58 }
  59
  60 sub everything_is_committed {
  61     my $filter;
  62     for ($git_checks) {
  63         $_ eq "none"
  64           and return 1;
  65
  66         $_ eq "modified"
  67           and $filter = "no",
  68               last;
  69
  70         $_ eq "all"
  71           and $filter = "normal",
  72               last;
  73
  74             help_and_exit("$0: --git-checks/-g must be one of 'all', 'modified', or 'none'");
  75     }
  76     my $has_changes = grep /^xxx/, sys_command_output("git status --porcelain -u${filter}");
  77
  78     return !$has_changes;
  79 }
  80
  81 sub help_and_exit {
  82         my $msg = shift;
  83         if ($msg) {
  84         print "$msg\n\n";
  85     }
  86     print <<EOH;
  87 This builds Koha deb packages, from a git snapshot. It's not suitable for
  88 making upstreamable verions, but handy for your own local packages.
  89
  90 Options:
  91     --buildresult, -r
  92         the location that the resulting .deb, .changes, etc. will be placed in.
  93         Default is whatever pdebuild uses.
  94     --distribution, -D
  95         the distribution value to set in the changelog when editing it. Default
  96         is 'squeeze-dev'.
  97     --git-checks, -g
  98         what level of git checks are run to determine if the working copy is
  99         clean enough. One of 'all' (any changes are bad), 'modified' (only
 100         tracked files with untracked changes will cause an error), and 'none'
 101         (checking git status is skipped totally.) Default is 'all'.
 102     --version, -v
 103         the version string for the resulting package. Default is '3.5-1~git'.
 104     --(no)autoversion
 105         whether or not to use the date and git commit ID in the version value.
 106         Default is to include it.
 107     --debug, -d
 108 EOH
 109     exit;
 110 }
 111
 112 sub latest_sha1 {
 113     return sys_command_output("git rev-parse --short=8 HEAD");
 114 }
 115
 116 sub adjust_debian_changelog {
 117     my ($newversion) = @_;
 118
 119     sys_command_output( qq{dch --force-distribution -D "$distribution" -v "$newversion" "Building git snapshot."} );
 120     sys_command_output( qq{dch -r "Building git snapshot."} );
 121 }
 122
 123 sub reset_debian_changelog {
 124     sys_command_output( qq{git checkout -- debian/changelog} );
 125 }
 126
 127 sub build_package {
 128     my ($newversion) = @_;
 129     sys_command_output( qq{git archive --format=tar --prefix="koha-$newversion/" HEAD | gzip -9 > "../koha_$newversion.tar.gz"} );
 130
 131     my $pdebuildopts = $buildresult ? "--buildresult $buildresult" : "";
 132     sys_command_output( "pdebuild $pdebuildopts" );
 133 }
 134
 135 everything_is_committed() or die "cannot build: uncommited changes";
 136
 137 my $newversion = $auto_version
 138   ? sprintf ('%s%s.%s', $version, strftime("+%Y%m%d%H%M%S", localtime), latest_sha1())
 139   : $version;
 140
 141 adjust_debian_changelog( $newversion );
 142 build_package( $newversion );
 143 reset_debian_changelog();
 144