@@ -, +, @@ 12345, "conver image, with spaces.jpg" --- tools/upload-cover-image.pl | 7 +++++-- 1 files changed, 5 insertions(+), 2 deletions(-) --- a/tools/upload-cover-image.pl +++ a/tools/upload-cover-image.pl @@ -143,10 +143,13 @@ if ($fileID) { $error = 'DELERR'; } else { - ( $biblionumber, $filename ) = split $delim, $line; + ( $biblionumber, $filename ) = split $delim, $line, 2; $biblionumber =~ s/[\"\r\n]//g; # remove offensive characters - $filename =~ s/[\"\r\n\s]//g; + $filename =~ s/[\"\r\n]//g; + $filename =~ s/^\s+//; + $filename =~ s/\s+$//; + warn "## $total cover image biblionumber: $biblionumber file: $filename\n"; my $srcimage = GD::Image->new("$dir/$filename"); if ( defined $srcimage ) { $total++; --