#!@-PERL-@ -w ###################################################################### ### gnc-fq-update - presents a scheme interface to Finance::Quote ### Copyright 2001 Gnumatic, Inc. ### ### This program is free software; you can redistribute it and/or ### modify it under the terms of the GNU General Public License as ### published by the Free Software Foundation; either version 2 of ### the License, or (at your option) any later version. ### ### This program is distributed in the hope that it will be useful, ### but WITHOUT ANY WARRANTY; without even the implied warranty of ### MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the ### GNU General Public License for more details. ### ### You should have received a copy of the GNU General Public License ### along with this program# if not, contact: ### ### Free Software Foundation Voice: +1-617-542-5942 ### 51 Franklin Street, Fifth Floor Fax: +1-617-542-2652 ### Boston, MA 02110-1301, USA gnu@gnu.org ###################################################################### use strict; use CPAN; if ($( != 0) { print "\n"; print "You probably need to be root before running gnc-fq-update."; print "\n\n"; print "Are you sure, you want to update parts of your Perl library? (y/n) "; my $input = ; chomp ($input); exit 0 if ($input ne "y"); } CPAN::Shell->install('Date::Manip'); #Required by gnc-fq-helper CPAN::Shell->install('Finance::Quote'); ## Local Variables: ## mode: perl ## End: