use strict;
use warnings;
use CGI::Carp qw(fatalsToBrowser);
use File::Copy;
use File::Path qw(remove_tree rmtree);
use File::Fetch;
$File::Fetch::WARN = 0;
use Fcntl;
use URI::Escape;

use English;

my $ff = 0;
eval { $ff = File::Fetch->new(uri => $PARAMS{url}); };

if (not $ff) {
  if ($DEBUG_OP_ADD_COVER_PHOTO) {
    $output .= "failed to retrieve image: " . $ff->error . "<br>\n";
  } else {
    print error_redir(redirrer($OP_QUERY, $OP_FILE_MANAGER, $FOLDER_QUERY, $FOLDER), "Failed to Retrieve Image: " . $ff->error);
    exit 1;
  }
}