From 4f05ddcf2ad5c014cdc28ba75b86227b9f53833f Mon Sep 17 00:00:00 2001 From: David Hampton Date: Wed, 28 Jun 2006 00:02:30 +0000 Subject: [PATCH] When modules can't be found refer users to their package manager first. Other fixups for the utility program name changes. git-svn-id: svn+ssh://svn.gnucash.org/repo/gnucash/trunk@14453 57a11ea4-9604-0410-9ed3-97b8803252fd --- ChangeLog | 9 +++++++++ src/quotes/gnc-fq-check.in | 9 +++++---- src/quotes/gnc-fq-dump | 15 ++++++++------- src/quotes/gnc-fq-helper.in | 13 +++++++------ src/quotes/gnc-fq-update.in | 4 ++-- 5 files changed, 31 insertions(+), 19 deletions(-) diff --git a/ChangeLog b/ChangeLog index 10f258edb9..3e20e460c8 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,12 @@ +2006-06-27 David Hampton + + * src/quotes/gnc-fq-update.in: + * src/quotes/gnc-fq-check.in: + * src/quotes/gnc-fq-helper.in: + * src/quotes/gnc-fq-dump: When modules can't be found refer users + to their package manager first. Other fixups for the utility + program name changes. + 2006-06-27 Christian Stimming * src/backend/file/gnc-backend-file.c: Ignore failed chown() diff --git a/src/quotes/gnc-fq-check.in b/src/quotes/gnc-fq-check.in index 1d4754c51c..f64c58dea2 100644 --- a/src/quotes/gnc-fq-check.in +++ b/src/quotes/gnc-fq-check.in @@ -1,7 +1,7 @@ #!@-PERL-@ -w ###################################################################### -### finance-quote-check - check for the presence of Finance::Quote -### From finance-quote-helper. +### gnc-fq-check - check for the presence of Finance::Quote +### From gnc-fq-helper. ### Copyright 2001 Rob Browning ### ### This program is free software; you can redistribute it and/or @@ -62,7 +62,8 @@ sub check_modules { } print STDERR "\n"; - print STDERR "Run 'update-finance-quote' as root to install them.\n"; + print STDERR "Use your system's package manager to install them,\n"; + print STDERR "or run 'gnc-fq-update' as root.\n"; print "missing-lib\n"; @@ -77,7 +78,7 @@ check_modules (); # Create a stockquote object. my $quoter = Finance::Quote->new(); -my $prgnam = "scmio-finance-quote"; +my $prgnam = "gnc-fq-check"; my @qsources; my @sources = $quoter->sources(); diff --git a/src/quotes/gnc-fq-dump b/src/quotes/gnc-fq-dump index ce614fb27b..38f892450c 100755 --- a/src/quotes/gnc-fq-dump +++ b/src/quotes/gnc-fq-dump @@ -40,7 +40,8 @@ sub check_modules { foreach my $mod (@missing) { print STDERR " ".$mod."\n"; } - print STDERR "Run 'update-finance-quote' as root to install them.\n"; + print STDERR "Use your system's package manager to install them,\n"; + print STDERR "or run 'gnc-fq-update' as root.\n"; exit 1; } @@ -184,15 +185,15 @@ if ($exchange eq "currency") { =head1 NAME -dump-finance-quote - Print out data from the F::Q module +dump-gnc-fq - Print out data from the F::Q module =head1 SYNOPSIS - dump-finance-quote yahoo CSCO JNPR - dump-finance-quote yahoo BAESY.PK - dump-finance-quote europe 48406.PA 13000.PA - dump-finance-quote vwd 632034 - dump-finance-quote ftportfolios FKYGTX + dump-gnc-fq yahoo CSCO JNPR + dump-gnc-fq yahoo BAESY.PK + dump-gnc-fq europe 48406.PA 13000.PA + dump-gnc-fq vwd 632034 + dump-gnc-fq ftportfolios FKYGTX =head1 DESCRIPTION diff --git a/src/quotes/gnc-fq-helper.in b/src/quotes/gnc-fq-helper.in index 439f2f5a87..63e9e2f79f 100644 --- a/src/quotes/gnc-fq-helper.in +++ b/src/quotes/gnc-fq-helper.in @@ -1,6 +1,6 @@ #!@-PERL-@ -w ###################################################################### -### finance-quote-helper - present a scheme interface to Finance::Quote +### gnc-fq-helper - present a scheme interface to Finance::Quote ### Copyright 2001 Rob Browning ### ### This program is free software; you can redistribute it and/or @@ -50,7 +50,7 @@ use FileHandle; # Output (on standard output, one output form per input line): -# Schemified version of finance-quote's output, basically an alist of +# Schemified version of gnc-fq's output, basically an alist of # alists, as in the example below. Right now, only the fields that # this script knows about (and knows how to convert to scheme) are # returned, so the conversion function will have to be updated @@ -65,7 +65,7 @@ use FileHandle; # For example: -# $ echo '(yahoo "CSCO" "JDSU" "^IXIC")' | ./finance-quote-helper +# $ echo '(yahoo "CSCO" "JDSU" "^IXIC")' | ./gnc-fq-helper # (("CSCO" (symbol . "CSCO") # (gnc:time-no-zone . "2001-03-13 19:27:00") # (last . 20.375) @@ -82,7 +82,7 @@ use FileHandle; # On error, the overall result may be #f, or on individual errors, the # list sub-item for a given symbol may be #f, like this: -# $ echo '(yahoo "CSCO" "JDSU")' | ./finance-quote-helper +# $ echo '(yahoo "CSCO" "JDSU")' | ./gnc-fq-helper # (#f # ("JDSU" (symbol . "JDSU") # (gnc:time-no-zone . "2001-03-13 19:27:00") @@ -124,7 +124,8 @@ sub check_modules { } print STDERR "\n"; - print STDERR "Run 'update-finance-quote' as root to install them.\n"; + print STDERR "Use your system's package manager to install them,\n"; + print STDERR "or run 'gnc-fq-update' as root.\n"; print "missing-lib"; @@ -317,7 +318,7 @@ check_modules (); # Create a stockquote object. my $quoter = Finance::Quote->new(); -my $prgnam = "scmio-finance-quote"; +my $prgnam = "gnc-fq-helper"; # Disable default currency conversions. $quoter->set_currency(); diff --git a/src/quotes/gnc-fq-update.in b/src/quotes/gnc-fq-update.in index f2106126f3..6e22a20522 100644 --- a/src/quotes/gnc-fq-update.in +++ b/src/quotes/gnc-fq-update.in @@ -1,6 +1,6 @@ #!@-PERL-@ -w ###################################################################### -### update-finance-quote - present a scheme interface to Finance::Quote +### update-gnc-fq - present a scheme interface to Finance::Quote ### Copyright 2001 Gnumatic, Inc. ### ### This program is free software; you can redistribute it and/or @@ -28,7 +28,7 @@ use CPAN; if ($( != 0) { print "\n"; - print "You probably need to be root before running update-finance-quote."; + print "You probably need to be root before running gnc-fq-update."; print "\n\n"; print "Do you want to continue? (y/n) ";