bug fixes

This commit is contained in:
Harald Hope 2018-03-21 01:20:18 -07:00
parent a1129aa7ca
commit 222d818299

26
inxi
View file

@ -3191,7 +3191,7 @@ sub update_man {
my $man_file_path="$man_file_location/$self_name.1.gz" ;
my $output = '';
my $downloader_man_error=1;
my $b_downloaded=1;
if ( ! -d $man_file_location ){
print "The required man directory was not detected on your system.\n";
print "Unable to continue: $man_file_location\n";
@ -3209,22 +3209,22 @@ sub update_man {
system( 'mandb' );
}
}
if ( $dl{'dl'} =~ /tiny|wget/){
print "Checking Man page download URL...\n";
download_file('spider', $man_file_url);
$downloader_man_error = $?;
}
if ( $downloader_man_error ){
if ( $dl{'dl'} =~ /tiny|wget/){
print "Man file download URL verified: $man_file_url\n";
}
# if ( $dl{'dl'} =~ /^(tiny|wget)$/){
# print "Checking Man page download URL...\n";
# download_file('spider', $man_file_url);
# $b_downloaded = $?;
# }
if ( $b_downloaded ){
# if ( $dl{'dl'} =~ /^(tiny|wget)$/){
# print "Man file download URL verified: $man_file_url\n";
# }
print "Downloading Man page file now.\n";
# returns perl, 1 for true, 0 for false, even when using shell tool returns
download_file('file', $man_file_url, $man_file_path );
$downloader_man_error = $?;
if ( !$downloader_man_error ){
$b_downloaded = $?;
if ( !$b_downloaded ){
print "Oh no! Something went wrong downloading the Man file at: $man_file_url\n";
print "Check the error messages for what happened. Error: $downloader_man_error\n";
print "Check the error messages for what happened. Error: $b_downloaded\n";
}
else {
print "Download/install of man page successful. Check to make sure it works: man inxi\n";