IntenseFinance/gnucash
3
0
Fork 0
mirror of https://github.com/Gnucash/gnucash.git synced 2025-02-25 18:55:30 -06:00
Code Issues Packages Projects Releases Wiki Activity

James LewisMoss's patch.

Browse Source 
Build info updates, .cvsignore update, check for popt
in configure.in, more stuff for make-gnucash-patch, and
a dtd for the xml save format.


git-svn-id: svn+ssh://svn.gnucash.org/repo/gnucash/trunk@3355 57a11ea4-9604-0410-9ed3-97b8803252fd
This commit is contained in:
Dave Peticolas
2000-12-27 23:37:52 +00:00
parent 39131cc462
commit a1f818d47f
6 changed files with 109 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

19
make-gnucash-patch.in
View File

@@ -15,6 +15,15 @@ use strict;
use File::Basename;
$::ask_description = 1;
$::should_uuencode = 1;
my $rcfile = $ENV{"HOME"} . "/.gnucash-patch.rc";
if (-f $rcfile) {
require $rcfile;
}
###########################################################
# This section must be configured for your own setup. #
###########################################################
@@ -67,6 +76,9 @@ chdir $gnc_home . "/" . $new or die "Can't cd!\n";
# Start out with our basic makepatch arguments
my @args = ('-verbose', '-diff', 'diff -u', '-exclude-vc');
if (not $::ask_description) {
push(@args, '-description', '');
}
# Add in the exclude patterns from the __DATA__ section
push_exclusions(\@args);
@@ -123,11 +135,14 @@ if (-f "diffs/$outfilename") {
# UU encode the compressed patch
# 'gnucash.diff.gz.uue' is the file you send.
if (-f "diffs/$outfilename.gz") {
if (-f "diffs/$outfilename.gz" and $::should_uuencode) {
system("uuencode diffs/$outfilename.gz $outfilename.gz > diffs/$outfilename.gz.uue");
print "diffs/$outfilename.gz.uue\n";
}
else {
print "diffs/$outfilename.gz\n";
}
print "diffs/$outfilename.gz.uue\n";
exit(0);