3 # Copyright 2010 Catalyst IT Ltd.
5 # This file is part of Koha.
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
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.
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.
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.
28 use POSIX qw/strftime/;
31 my $distribution='squeeze-dev';
33 my $version='3.5-1~git';
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,
48 help_and_exit() if $need_help;
51 sub sys_command_output {
54 print "$command\n" if $debug;
56 open($command_output, "-|", "$command ")
57 or die qq{Cannot execute "$command": $!"};
58 return map { chomp; $_ } <$command_output>;
61 sub everything_is_committed {
72 and $filter = "normal",
75 help_and_exit("$0: --git-checks/-g must be one of 'all', 'modified', or 'none'");
77 my $has_changes = grep /^xxx/, sys_command_output("git status --porcelain -u${filter}");
88 This builds Koha deb packages, from a git snapshot. It's not suitable for
89 making upstreamable verions, but handy for your own local packages.
93 the location that the resulting .deb, .changes, etc. will be placed in.
94 Default is whatever pdebuild uses.
96 the distribution value to set in the changelog when editing it. Default
99 what level of git checks are run to determine if the working copy is
100 clean enough. One of 'all' (any changes are bad), 'modified' (only
101 tracked files with untracked changes will cause an error), and 'none'
102 (checking git status is skipped totally.) Default is 'all'.
104 the version string for the resulting package. Default is '3.5-1~git'.
106 whether or not to use the date and git commit ID in the version value.
107 Default is to include it.
114 return sys_command_output("git rev-parse --short=8 HEAD");
117 sub adjust_debian_changelog {
118 my ($newversion) = @_;
120 sys_command_output( qq{dch --force-distribution -D "$distribution" -v "$newversion" "Building git snapshot."} );
121 sys_command_output( qq{dch -r "Building git snapshot."} );
124 sub reset_debian_changelog {
125 sys_command_output( qq{git checkout -- debian/changelog} );
129 my ($newversion) = @_;
130 sys_command_output( qq{git archive --format=tar --prefix="koha-$newversion/" HEAD | gzip -9 > "../koha_$newversion.tar.gz"} );
132 my $pdebuildopts = $buildresult ? "--buildresult $buildresult" : "";
133 sys_command_output( "pdebuild $pdebuildopts" );
136 everything_is_committed() or die "cannot build: uncommited changes";
138 my $newversion = $auto_version
139 ? sprintf ('%s%s.%s', $version, strftime("+%Y%m%d%H%M%S", localtime), latest_sha1())
142 adjust_debian_changelog( $newversion );
143 build_package( $newversion );
144 reset_debian_changelog();