4
# This perl script is used to make a patch for your GnuCash
5
# development work. All patches should be submitted to the
6
# mailing list gnucash-devel@gnucash.org. For more info
7
# consult README.patches
9
# WARNING: By default, this script will checkout an entire
10
# up to date copy of the source tree in ../tmp/gnucash/.
12
# In order to prevent patches which reverse recent changes
13
# made in CVS, make sure to "cvs update" in both
14
# directories before running make-gnucash-patch.
16
# This script requires the programs 'makepatch', 'gzip',
17
# a 'diff' work-a-like, and 'uuencode'.
19
# Author: Dave Peticolas <dave@krondo.com>
26
$::ask_description = 1;
27
$::should_uuencode = 1;
28
$::diffcmd = "diff -up";
30
die "This utility has not been updated to use SVN. Sorry, just use diff(1).";
32
my $rcfile = $ENV{"HOME"} . "/.gnucash-patch.rc";
38
###########################################################
39
# This section must be configured for your own setup. #
40
###########################################################
42
# The directory with the original gnucash sources
45
chomp(my $cwd = `pwd`);
47
my ($new, $gnc_home) = fileparse($cwd);
49
###########################################################
50
# This section should not need to be modified. #
51
###########################################################
53
# Allow the user to override the defaults with evnt vars.
55
if($ENV{'GNC_MAKEPATCH_OLD_DIR'}) {
56
$old = $ENV{'GNC_MAKEPATCH_OLD_DIR'};
59
if($ENV{'GNC_MAKEPATCH_NEW_DIR'}) {
60
$new = $ENV{'GNC_MAKEPATCH_NEW_DIR'};
63
if($ENV{'GNC_MAKEPATCH_HOME_DIR'}) {
64
$gnc_home = $ENV{'GNC_MAKEPATCH_HOME_DIR'};
67
###########################################################
68
# Make sure makepatch exists before going on #
69
###########################################################
71
open(OLDOUT, ">&STDOUT");
72
open(OLDERR, ">&STDERR");
73
open(STDOUT, "> /dev/null") || die "Can't redirect stdout";
74
open(STDERR, "> /dev/null") || die "Can't redirect stderr";
75
my $test = system('makepatch', "-help");
78
open(STDOUT, ">&OLDOUT");
79
open(STDERR, ">&OLDERR");
84
print "No makepatch installed. Exiting\n";
89
###########################################################
90
# Now, check if anything specified on command line #
91
###########################################################
95
my $zip = 1; # defaults to on
97
my $ignorename = undef;
101
$result = GetOptions("old=s" => \$old, "new=s" => \$new,
102
"prefix=s" => \$gnc_home, "help" => \$help,
103
"file=s" => \@filename, "ask!" => \$::ask_description,
104
"diff=s" => \$diffname, "uuencode!" => \$::should_uuencode,
105
"diffcmd!" => \$::diffcmd, "zip!" => \$zip,
106
"ignore=s" => \$ignorename, "manifest=s" => \$manifest);
108
if ($help or $result == 0) {
109
printf "Help information\n\n";
110
printf "make-gnucash-patch accepts the following arguments:\n";
111
printf "--old \"olddir\" Directory of \"pristine\" copy\n";
112
printf "--new \"newdir\" Directory with modified copy\n";
113
printf "--prefex \"homedir\" Full path of parent directory\n";
114
printf "--diff \"diffname\" Output name for diff file\n";
115
printf "--diffcmd \"cmd\" Command to compare two files\n";
116
printf "--file \"filename\" Make patch for filename ONLY\n";
117
printf "--manifest \"file\" Use file as a manifest file\n";
118
printf "--ignore \"igname\" File containing file matches to ignore\n";
119
printf "--(no)uuencode Enable or disable uuencoded output\n";
120
printf " (Defaults to enabled)\n";
121
printf "--(no)zip Enable or disable gzipped output\n";
122
printf " (Defaults to enabled)\n";
123
printf "--(no)ask Enable or disable prompting for description\n";
124
printf " (Defaults to enabled)\n";
125
printf "and of course:\n";
126
printf "--help Displays this text\n";
127
printf "\nAll options can be abbreviated to their shortest unique\n";
128
printf " form: --o, --ne, --p, --d, --diffc, --f, --m, --i,\n";
129
printf " --u/--nou, --z/--noz, --a/--noa, and --h\n";
134
# if explicit filename given, build required MANIFEST file
136
@filename = split(/,/,join(',',@filename));
139
open (FN, ">$gnc_home/tmp.MANIFEST") or die "Couldn't create MANIFEST file";
140
printf (FN "# Temporary manifest file for make-gnucash-patch -f option\n");
142
foreach my $part (@filename) {
143
printf (FN "%s\n", $part);
148
# Switch to the home directory
149
print "Changing directory to $gnc_home\n";
150
chdir $gnc_home or die "Can't cd!\n";
152
if (not defined($old)) {
153
if (not -f "$new/CVS/Root") {
154
print "Source not checked out of CVS and no \$old set. Quitting...\n";
161
system("cvs -d `cat ../$new/CVS/Root` co gnucash");
163
$old = "tmp/gnucash";
166
chdir $gnc_home . "/" . $new or die "Can't cd!\n";
167
# Start out with our basic makepatch arguments
168
my @args = ('-verbose', '-exclude-vc');
170
# Push the diff command value
171
push(@args, '-diff', "$::diffcmd");
173
if (not $::ask_description) {
174
push(@args, '-description', '');
177
# If -f options given, use generated manifest file
178
# otherwise, add exclusions and proceed as normal
180
push(@args, '-manifest', "$gnc_home/tmp.MANIFEST");
182
elsif (defined($manifest)) {
183
if (not $manifest =~ m#/#) {
184
$manifest = "$cwd/$manifest";
186
push(@args, '-manifest', "$manifest");
189
# Add in the exclude patterns from the __DATA__ section
190
push_exclusions(\@args);
193
sub push_exclusions {
195
foreach my $pat (<DATA>) {
197
push(@{$args}, '-exclude', $pat) if $pat;
199
if (defined ($ignorename)) {
200
$ignorename = "../" . $ignorename;
201
if (-e $ignorename) {
202
open (IG, $ignorename) or die "Couldn't open $ignorename";
203
foreach my $igf (<IG>) {
205
push(@{$args}, '-exclude', $igf) if $igf;
210
my @cvsignores = `find . -name '.cvsignore'`;
211
foreach my $one_ignore (@cvsignores) {
212
my ($name, $path) = fileparse($one_ignore);
213
open (IG, $one_ignore);
214
foreach my $fl (<IG>) {
217
push(@{$args}, '-exclude', $path . $fl) if $fl;
222
# Add the from and to directories for makepatch
223
push(@args, $old, $new);
224
print "Arguments are: " . join("; ", @args) . "\n";
226
chdir $gnc_home or die "Can't cd!\n";
228
# Erase the old files
229
#unlink('gnc.diff', 'gnucash.diff.gz', 'gnucash.diff.gz.uue');
231
if (not -d "diffs") {
237
if (not defined($diffname)) {
238
my $date = `date '+%Y%m%d-%H%M%S'`;
243
$outfilename = "gnucash-$date-$who.diff";
246
$outfilename = $diffname;
249
# Invoke makepatch with standard out redirected to 'gnucash.diff'
250
open(OLDOUT, ">&STDOUT");
251
open(STDOUT, "> diffs/$outfilename") || die "Can't redirect stdout";
252
system('makepatch', @args);
254
open(STDOUT, ">&OLDOUT");
256
print "makepatch done\n";
258
# Compress the patch if required
260
if (-f "diffs/$outfilename") {
261
system("gzip", "-9vf", "diffs/$outfilename");
265
# UU encode the patch if required
267
# if $zip is true, then
268
# 'gnucash.diff.gz.uue' is the file you send.
269
if ($zip and -f "diffs/$outfilename.gz" and $::should_uuencode) {
270
system("uuencode diffs/$outfilename.gz $outfilename.gz > diffs/$outfilename.gz.uue");
271
print "diffs/$outfilename.gz.uue\n";
274
if (not $zip and -f "diffs/$outfilename" and $::should_uuencode) {
275
system("uuencode diffs/$outfilename $outfilename > diffs/$outfilename.uue");
276
print "diffs/$outfilename.uue\n";
added
removed
make-gnucash-patch.in
