App-Fetchware
view release on metacpan or search on metacpan
bin/fetchware view on Meta::CPAN
# command line and/or in a Fetchwarefile.
exit 1;
};
vmsg 'Parsing command line options using Getopt::Long';
GetOptions(
# $VERSION is managed by dzil; therefore, I use eval to access it at
# run time instead of compile time, so that I can test fetchware without
# running dzil test.
'version|V' => sub { eval 'say "Fetchware version $fetchware::VERSION"; '; exit 0},
'help|h|?' => \&cmd_help,
'verbose|v' => \$verbose,
'quiet|q' => \$quiet,
# Expose File::Temp's KEEP_ALL flag, and an easy feature to implement
# that lets users easily ensure the tempdir stays around when needed.
'keep-temp|K' => \$File::Temp::KEEP_ALL,
###BUGALERT### dry-run functionality is *not* implemented!!!
#'dry-run|d' => \$dry_run,
);
bin/fetchware view on Meta::CPAN
C<new> asks you a bunch of questions, and uses the answers you provide in
addition to the contents of the directory listing fetchware downloads based on
the C<lookup_url> you give fetchware, to create a Fetchwarefile for you with all
the mandatory options filled in. It also gives you the opportunity to add any
additional options that you may want to use. C<new> also gives you a chance to
edit the Fetchwarefile it created for you manually in your editor. Set the
C<EDITOR> environment variable to pick which editor to use, or leave it empty,
and fetchware will ask you what editor you would like to use.
C<new> finishes by asking if you would like fetchware to go ahead and install
the Fetchwarefile it has just created for you. If you say yes, then fetchware
will install it, or if you say no, fetchware will skip installing it for you,
and print out the path to the Fetchwarefile it just created for you.
You can install that Fetchwarefile later with:
fetchware install path/to/your/some-program.Fetchwarefile
For more details about fetchware's configuration files Fetchwarefiles see
L<App::Fetchware/CREATING A App::Fetchware FETCHWAREFILE>
=head2 install
bin/fetchware view on Meta::CPAN
##TODO##Fetchware is flexible enough, using the C<no_rebuild> and C<no_lookup>
##TODO##configuration options, to be configured and compiled on one computer, and then
##TODO##B<only> installed on any additional servers that install that fetchware package.
##TODO##
##TODO##So, instead of needing gcc, devel versions of libraries, and make, the servers
##TODO##you deploy your fetchware package on compile using these options will only need
##TODO##make installed instead of an entire build environment (Actually, they'll need
##TODO##whatever commands your Fetchwarefile's C<install_commands> uses, which is
##TODO##C<make install> by default.
##TODO##
##TODO#####BUGALERT### Actually implemente this cool idea, and fix docs to say that to
##TODO###actually lookup and actually build the package use the --force option, which
##TODO###also needs to be implemented.
; List of non-core (as of 5.10.01) prereqs.
; Remember to make any changes to the list of prereqs in the README.
;;;BUGALERT;;; Sometimes modules are removed from Perl's included library, so
;perhaps I should just list all used modules regardless of core or not?
[Prereqs]
; Perl 5.10.1 is the minimum version of Perl Fetchware supports. Originally this
; was because given/when was cool, and I wanted to use it, but given/when was
; brutally murdured in 5.16, because smart matching is not very smart, because
; you always have to lookup what it does in the documentation every time you use
; it. I could probably port Fetchware to 5.8 or even 5.6 if I wanted to, but I
; also use the cool // operator an say occastionally too.
perl = 5.010001
; Test::More 0.98 is needed for proper subtest support.
Test::More = 0.98
Path::Class = 0
Perl::OSType = 0
URI = 0
Getopt::Long = 0
Archive::Tar = 0
Archive::Zip = 0
Term::UI = 0
Digest::SHA = 0
Digest::MD5 = 0
; Installs ok on Windows, but doesn't do much.
; Fetchware only uses it on Unix.
Privileges::Drop = 0
; Not counting core modules such as File::Spec, Text::Wrap, Data::Dumper,
; File::Find, Net::FTP, Fcntl, File::Path, File::Copy, and perhaps others.
Text::ParseWords = 0
Sub::Mage = 0
; Test::Deep is *only* used during testing, so say so.
[Prereqs / TestRequires]
Test::Deep = 0
; Test::Expect is also only used during testing, but I don't want it "required
; for testing, only used if it is already made available for testing. That's why
; its commented out below, because I want it documented here, but I don't
; actually want it required for testing.
;;;Test::Expect =
; Need some modules *only* on Windows.
; So far just Win32 for Win32::LoginName().
lib/App/Fetchware.pm view on Meta::CPAN
extension_name(__PACKAGE__);
my $opening_message = <<EOM;
Fetchware's new command is reasonably sophisticated, and is smart enough to
determine based on the lookup_url you provide if it can autogenerate a
Fetchwarefile for you. If Fetchware cannot, then it will ask you more
questions regarding the information it requires to be able to build a
installable fetchware package for you. After that, fetchware will ask you if
you would like to edit the Fetchwarefile, fetchware has created for you in an
editor. If you say yes, fetchware will open a editor for you, but if you say
no, fetchware will skip the custom editing. Next, fetchware will create a test
Fetchwarefile for you, and ask you if you would like to test it by trying to
install it now. If you say yes, fetchware will install it, and if you say no,
then fetchware will print the location of the Fetchwarefile it created for
you to later use to install your application.
EOM
opening_message($opening_message);
# Ask user for name of program unless the user provided one at command
# line such as fetchware new <programname>.
$program_name = fetchwarefile_name(program => $program_name);
vmsg "Determined name of your program to be [$program_name]";
lib/App/Fetchware.pm view on Meta::CPAN
sub list_files_tar {
my $path_to_tar_archive = shift;
my $tar_iter = Archive::Tar->iter($path_to_tar_archive, 1, );
die <<EOD unless defined $tar_iter;
App-Fetchware: fetchware failed to create a new Archive::Tar iterator. The
Archive::Tar error message was [@{[Archive::Tar->error()]}].
EOD
# Iterate over the the archive one file at a time to save memory on big
# archives suchs a say MariaDB or the Linux kernel.
my @files;
while (my $file = $tar_iter->() ) {
push @files, $file->full_path();
}
return \@files;
}
{ # Begin %zip_error_codes hash.
lib/App/Fetchware.pm view on Meta::CPAN
example, therefore, cannot be uninstalled by fetchware automatically.
=item B<upgrade-all>
A C<fetchware upgrade-all> will cause fetchware to run C<fetchware upgrade> for
all installed packages that fetchware is tracking in its internal fetchware
database. This command can be used to have fetchware upgrade all currently
installed programs that fetchware installed.
If you would like C<fetchware upgrade-all> to be run every night automatically
by cron, then just create a file say fetchware with the contents below in it,
and add it to /etc/cron.daily.
#!/bin/sh
# Update all already installed fetchware packages.
fetchware upgrade-all
And if you don't want to run it system wide as root, you can add it to your user
crontab by pasting the snippet below in to your crontab by executing C<crontab -e>.
# Check for updates using fetchware every night at 2:30AM.
lib/App/Fetchware.pm view on Meta::CPAN
App::Fetchware is B<not> object-oriented; therefore, you B<can not> subclass
App::Fetchware to extend it!
=head3 ask_to_install_now_to_test_fetchwarefile()
my $fetchware_package_path = ask_to_install_now_to_test_fetchwarefile($term, \$fetchwarefile, $program_name);
my $fetchwarefile_filename = ask_to_install_now_to_test_fetchwarefile($term, \$fetchwarefile, $program_name);
This subroutine asks the user if they want to install the Fetchwarefile that
this subroutine has been called with. If they say yes, then the Fetchwarefile is
passed on to cmd_install() to do all of the installation stuff. If they say no,
then fetchware saves the file to C<"$program_name.Fetchwarefile"> or
ask_to_install_now_to_test_fetchwarefile() will ask the user where to save the
file until the user picks a filename that does not exist.
=over
NOTE: ask_to_install_now_to_test_fetchwarefile() has an infinite loop in it! It
asks the user forever until they provide a filename that doesn't exist. Should a
limit be placed on this? Should it only ask just once?
=back
lib/App/Fetchware/Util.pm view on Meta::CPAN
###BUGALERT### Add Test::Wrap support to msg() and vmsg() so that they will
#inteligently rewrap any text they receive so newly filled in variables won't
#screw up the wrapping.
sub msg (@) {
# If fetchware was not run in quiet mode, -q.
unless (defined $fetchware::quiet and $fetchware::quiet > 0) {
# print are arguments. Use say if the last one doesn't end with a
# newline. $#_ is the last subscript of the @_ variable.
if ($_[$#_] =~ /\w*\n\w*\z/) {
print @_;
} else {
say @_;
}
# Quiet mode is turned on.
} else {
# Don't print anything.
return;
}
}
sub vmsg (@) {
# If fetchware was not run in quiet mode, -q.
###BUGALERT### Can I do something like:
#eval "use constant quiet => 0;" so that the iffs below can be resolved at
#run-time to make vmsg() and msg() faster???
unless (defined $fetchware::quiet and $fetchware::quiet > 0) {
# If verbose is also turned on.
if (defined $fetchware::verbose and $fetchware::verbose > 0) {
# print our arguments. Use say if the last one doesn't end with a
# newline. $#_ is the last subscript of the @_ variable.
if ($_[$#_] =~ /\w*\n\w*\z/) {
print @_;
} else {
say @_;
}
}
# Quiet mode is turned on.
} else {
# Don't print anything.
return;
}
}
lib/App/Fetchware/Util.pm view on Meta::CPAN
# This loops version of $i++ the itcremeter.
$dir = $dir->parent();
}
push @dirs, $dir->parent(); # $dir->parent() should be the root dir.
# Return, by being the last statement, the list of parent dirs for
# $file_to_check.
@dirs;
};
# Who cares if _PC_CHOWN_RESTRICTED is set, check all parent dirs anyway,
# because if say /home was 777, then anyone (other) can change any child
# file in any directory above /home now anyway even if _PC_CHOWN_RESTRICTED
# is set.
for my $dir (@directories) {
my $info = stat($dir);# or goto STAT_ERROR;
# Owner must be either me (whoever runs fetchware) or superuser. No one
# else can be trusted.
if(($info->uid() != 0) && ($info->uid() != $<)) {
die <<EOD;
lib/App/FetchwareX/HTMLPageSync.pm view on Meta::CPAN
# Only delete destination_directory if keep_destination_directory is false.
unless (config('keep_destination_directory')) {
msg <<EOM;
Uninstalling this HTMLPageSync package by deleting your destination directory.
EOM
###BUGALERT### Before release go though all of Fetchware's API, and subifiy
#each main component like lookup and download were, the later ones were not
#done this way. That way I can put say chdir_to_build_path() here instead of
#basicaly copying and pasting the code like I do below. Also
#chdir_to_build_path() can be put in :OVERRIDE_UNINSTALL!!! Which I can use
#here.
chdir $build_path or die <<EOD;
App-FetchwareX-HTMLPageSync: Failed to uninstall the specified package and specifically to change
working directory to [$build_path] before running make uninstall or the
uninstall_commands provided in the package's Fetchwarefile. Os error [$!].
EOD
if ( defined config('destination_directory')) {
t/App-Fetchware-new.t view on Meta::CPAN
# Have Expect print an example URL.
expect_send('http://who.cares/whatever/',
'check add_mirror() sent mirror URL.');
# Check if upon receiving the URL the command prints out the next correct
# prompt.
expect_like(qr/Would you like to add any additional mirrors?/,
'checked get_mirrors() received more mirrors prompt.');
expect_send('N', 'checked get_mirrors() say No to more mirrors.');
expect_quit();
# Test answering Yes for more mirrors.
expect_run(
command => 't/App-Fetchware-new-get_mirrors',
prompt => [-re => qr/: |\? /],
quit => "\cC"
);
t/App-Fetchware-new.t view on Meta::CPAN
# Have Expect print an example URL.
expect_send('http://who.cares/whatever/',
'check add_mirror() sent mirror URL.');
# Check if upon receiving the URL the command prints out the next correct
# prompt.
expect_like(qr/Would you like to add any additional mirrors?/,
'checked get_mirrors() received more mirrors prompt.');
expect_send('Y', 'checked get_mirrors() say No to more mirrors.');
expect_like(qr!\[y/N\]|Type in URL of mirror or done to continue!,
'checked get_mirrors() received prompt to enter a mirror.');
expect_send('ftp://afakemirror.blah/huh?',
'checked get_mirrors() sent another mirror URL.');
expect_like(qr/Type in URL of mirror or done to continue/,
'checked get_mirrors() received prompt to enter a mirror.');
t/App-Fetchware-new.t view on Meta::CPAN
##TODO####BROKEN## expect_like(qr/Fetchware's new command is reasonably sophisticated, and is smart enough to/ms,
##TODO####BROKEN## 'checked cmd_new() received correct name prompt');
##TODO####BROKEN##
##TODO####BROKEN## expect_send('Apache',
##TODO####BROKEN## 'check cmd_new() sent Apache as my name.');
##TODO####BROKEN##
##TODO####BROKEN## expect_like(qr/Fetchware's heart and soul is its lookup_url. This is the configuration option/ms,
##TODO####BROKEN## 'checked cmd_new() received lookup_url prompt.');
##TODO####BROKEN##
##TODO####BROKEN## expect_send("$ENV{FETCHWARE_HTTP_LOOKUP_URL}",
##TODO####BROKEN## 'checked cmd_new() say lookup_url.');
##TODO####BROKEN##
##TODO####BROKEN## expect_like(qr/Fetchware requires you to please provide a mirror. This mirror is required,/ms,
##TODO####BROKEN## 'checked cmd_new() received mirror prompt.');
##TODO####BROKEN##
##TODO####BROKEN## expect_send("$ENV{FETCHWARE_HTTP_MIRROR_URL}",
##TODO####BROKEN## 'checked cmd_new() say mirror.');
##TODO####BROKEN##
##TODO####BROKEN## expect_like(qr/In addition to the one required mirror that you must define in order for/ms,
##TODO####BROKEN## 'checked cmd_new() received more mirrors prompt.');
##TODO####BROKEN##
##TODO####BROKEN## expect_send('N',
##TODO####BROKEN## 'checked cmd_new() say N for more mirrors.');
##TODO####BROKEN##
##TODO####BROKEN## #expect_like(qr!\[y/N\]|gpg digital signatures found. Using gpg verification.!ms,
##TODO####BROKEN## expect_like(qr!.*|gpg digital signatures found. Using gpg verification.!ms,
##TODO####BROKEN## 'checked cmd_new() received filter prompt.');
##TODO####BROKEN##
##TODO####BROKEN## expect_send('httpd-2.2',
##TODO####BROKEN## 'checked cmd_new() say httpd-2.2 for filter option.');
##TODO####BROKEN##
##TODO####BROKEN## expect_like(qr/Fetchware has many different configuration options that allow you to control its/ms,
##TODO####BROKEN## 'checked cmd_new() received extra config prompt.');
##TODO####BROKEN##
##TODO####BROKEN## expect_send('N',
##TODO####BROKEN## 'checked cmd_new() say N for more config options prompt.');
##TODO####BROKEN##
##TODO####BROKEN## expect_like(qr/Fetchware has now asked you all of the needed questions to determine what it/ms,
##TODO####BROKEN## 'checked cmd_new() received edit config prompt.');
##TODO####BROKEN##
##TODO####BROKEN## expect_send('N',
##TODO####BROKEN## 'checked cmd_new() say N for edit config prompt.');
##TODO####BROKEN##
##TODO####BROKEN## expect_like(qr/It is recommended that fetchware go ahead and install the program based on the/ms,
##TODO####BROKEN## 'checked cmd_new() received install program prompt.');
##TODO####BROKEN##
##TODO####BROKEN## # Say no to avoid actually installing Apache yet again.
##TODO####BROKEN## expect_send('N',
##TODO####BROKEN## 'checked cmd_new() say N for install program prompt.');
##TODO####BROKEN##
##TODO####BROKEN## expect_quit();
##TODO####BROKEN##};
} # #End of gigantic skip block.
# Remove this or comment it out, and specify the number of tests, because doing
# so is more robust than using this, but this is better than no_plan.
#done_testing();
t/bin-fetchware-new.t view on Meta::CPAN
##TODO####BROKEN## expect_like(qr/Fetchware's new command is reasonably sophisticated, and is smart enough to/ms,
##TODO####BROKEN## 'checked cmd_new() received correct name prompt');
##TODO####BROKEN##
##TODO####BROKEN## expect_send('Apache',
##TODO####BROKEN## 'check cmd_new() sent Apache as my name.');
##TODO####BROKEN##
##TODO####BROKEN## expect_like(qr/Fetchware's heart and soul is its lookup_url. This is the configuration option/ms,
##TODO####BROKEN## 'checked cmd_new() received lookup_url prompt.');
##TODO####BROKEN##
##TODO####BROKEN## expect_send("$ENV{FETCHWARE_HTTP_LOOKUP_URL}",
##TODO####BROKEN## 'checked cmd_new() say lookup_url.');
##TODO####BROKEN##
##TODO####BROKEN## expect_like(qr/Fetchware requires you to please provide a mirror. This mirror is required,/ms,
##TODO####BROKEN## 'checked cmd_new() received mirror prompt.');
##TODO####BROKEN##
##TODO####BROKEN## expect_send("$ENV{FETCHWARE_HTTP_MIRROR_URL}",
##TODO####BROKEN## 'checked cmd_new() say mirror.');
##TODO####BROKEN##
##TODO####BROKEN## expect_like(qr/In addition to the one required mirror that you must define in order for/ms,
##TODO####BROKEN## 'checked cmd_new() received more mirrors prompt.');
##TODO####BROKEN##
##TODO####BROKEN## expect_send('N',
##TODO####BROKEN## 'checked cmd_new() say N for more mirrors.');
##TODO####BROKEN##
##TODO####BROKEN## #expect_like(qr!\[y/N\]|gpg digital signatures found. Using gpg verification.!ms,
##TODO####BROKEN## expect_like(qr!.*|gpg digital signatures found. Using gpg verification.!ms,
##TODO####BROKEN## 'checked cmd_new() received filter prompt.');
##TODO####BROKEN##
##TODO####BROKEN## expect_send('httpd-2.2',
##TODO####BROKEN## 'checked cmd_new() say httpd-2.2 for filter option.');
##TODO####BROKEN##
##TODO####BROKEN## expect_like(qr/Fetchware has many different configuration options that allow you to control its/ms,
##TODO####BROKEN## 'checked cmd_new() received extra config prompt.');
##TODO####BROKEN##
##TODO####BROKEN## expect_send('N',
##TODO####BROKEN## 'checked cmd_new() say N for more config options prompt.');
##TODO####BROKEN##
##TODO####BROKEN## expect_like(qr/Fetchware has now asked you all of the needed questions to determine what it/ms,
##TODO####BROKEN## 'checked cmd_new() received edit config prompt.');
##TODO####BROKEN##
##TODO####BROKEN## expect_send('N',
##TODO####BROKEN## 'checked cmd_new() say N for edit config prompt.');
##TODO####BROKEN##
##TODO####BROKEN## expect_like(qr/It is recommended that fetchware go ahead and install the program based on the/ms,
##TODO####BROKEN## 'checked cmd_new() received install program prompt.');
##TODO####BROKEN##
##TODO####BROKEN## # Say no to avoid actually installing Apache yet again.
##TODO####BROKEN## expect_send('N',
##TODO####BROKEN## 'checked cmd_new() say N for install program prompt.');
##TODO####BROKEN##
##TODO####BROKEN## expect_quit();
##TODO####BROKEN##};
##TODO##
##TODO##} # #End of gigantic skip block.
# Remove this or comment it out, and specify the number of tests, because doing
# so is more robust than using this, but this is better than no_plan.
#done_testing();
( run in 1.170 second using v1.01-cache-2.11-cpan-d7a12ab2c7f )