Bug 7359 - Begin migration to a new "Koha" namespace from the old "C4" namespace
[koha.git] / tools / upload-cover-image.pl
1 #!/usr/bin/perl
2 #
3 # Copyright 2011 C & P Bibliography Services
4 #
5 # This file is part of Koha.
6 #
7 # Koha is free software; you can redistribute it and/or modify it under the
8 # terms of the GNU General Public License as published by the Free Software
9 # Foundation; either version 2 of the License, or (at your option) any later
10 # version.
11 #
12 # Koha is distributed in the hope that it will be useful, but WITHOUT ANY
13 # WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
14 # A PARTICULAR PURPOSE.  See the GNU General Public License for more details.
15 #
16 # You should have received a copy of the GNU General Public License along
17 # with Koha; if not, write to the Free Software Foundation, Inc.,
18 # 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
19 #
20 #
21 #
22
23 =head1 NAME
24
25 upload-cover-image.pl - Script for handling uploading of both single and bulk coverimages and importing them into the database.
26
27 =head1 SYNOPSIS
28
29 upload-cover-image.pl
30
31 =head1 DESCRIPTION
32
33 This script is called and presents the user with an interface allowing him/her to upload a single cover image or bulk cover images via a zip file.
34 Images will be resized into thumbnails of 140x200 pixels and larger images of
35 800x600 pixels. If the images that are uploaded are larger, they will be
36 resized, maintaining aspect ratio.
37
38 =cut
39
40 use strict;
41 use warnings;
42
43 use File::Temp;
44 use CGI;
45 use GD;
46 use C4::Context;
47 use C4::Auth;
48 use C4::Output;
49 use C4::Images;
50 use C4::UploadedFile;
51
52 my $debug = 1;
53
54 my $input = new CGI;
55
56 my $fileID = $input->param('uploadedfileid');
57 my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
58     {
59         template_name   => "tools/upload-images.tmpl",
60         query           => $input,
61         type            => "intranet",
62         authnotrequired => 0,
63         flagsrequired   => { tools => 'upload_cover_images' },
64         debug           => 0,
65     }
66 );
67
68 my $filetype       = $input->param('filetype');
69 my $biblionumber   = $input->param('biblionumber');
70 my $uploadfilename = $input->param('uploadfile');
71 my $replace        = !C4::Context->preference("AllowMultipleCovers")
72   || $input->param('replace');
73 my $op        = $input->param('op');
74 my %cookies   = parse CGI::Cookie($cookie);
75 my $sessionID = $cookies{'CGISESSID'}->value;
76
77 my $error;
78
79 $template->{VARS}->{'filetype'}     = $filetype;
80 $template->{VARS}->{'biblionumber'} = $biblionumber;
81
82 my $total = 0;
83
84 if ($fileID) {
85     my $uploaded_file = C4::UploadedFile->fetch( $sessionID, $fileID );
86     if ( $filetype eq 'image' ) {
87         my $fh       = $uploaded_file->fh();
88         my $srcimage = GD::Image->new($fh);
89         if ( defined $srcimage ) {
90             my $dberror = PutImage( $biblionumber, $srcimage, $replace );
91             if ($dberror) {
92                 $error = 'DBERR';
93             }
94             else {
95                 $total = 1;
96             }
97         }
98         else {
99             $error = 'OPNIMG';
100         }
101         undef $srcimage;
102     }
103     else {
104         my $filename = $uploaded_file->filename();
105         my $dirname = File::Temp::tempdir( CLEANUP => 1 );
106         unless ( system( "unzip", $filename, '-d', $dirname ) == 0 ) {
107             $error = 'UZIPFAIL';
108         }
109         else {
110             my @directories;
111             push @directories, "$dirname";
112             foreach my $recursive_dir (@directories) {
113                 my $dir;
114                 opendir $dir, $recursive_dir;
115                 while ( my $entry = readdir $dir ) {
116                     push @directories, "$recursive_dir/$entry"
117                       if ( -d "$recursive_dir/$entry" and $entry !~ /^[._]/ );
118                 }
119                 closedir $dir;
120             }
121             foreach my $dir (@directories) {
122                 my $file;
123                 if ( -e "$dir/idlink.txt" ) {
124                     $file = "$dir/idlink.txt";
125                 }
126                 elsif ( -e "$dir/datalink.txt" ) {
127                     $file = "$dir/datalink.txt";
128                 }
129                 else {
130                     next;
131                 }
132                 if ( open( FILE, $file ) ) {
133                     while ( my $line = <FILE> ) {
134                         my $delim =
135                             ( $line =~ /\t/ ) ? "\t"
136                           : ( $line =~ /,/ )  ? ","
137                           :                     "";
138
139                         #$debug and warn "Delimeter is \'$delim\'";
140                         unless ( $delim eq "," || $delim eq "\t" ) {
141                             warn
142 "Unrecognized or missing field delimeter. Please verify that you are using either a ',' or a 'tab'";
143                             $error = 'DELERR';
144                         }
145                         else {
146                             ( $biblionumber, $filename ) = split $delim, $line;
147                             $biblionumber =~
148                               s/[\"\r\n]//g;    # remove offensive characters
149                             $filename =~ s/[\"\r\n\s]//g;
150                             my $srcimage = GD::Image->new("$dir/$filename");
151                             if ( defined $srcimage ) {
152                                 $total++;
153                                 my $dberror =
154                                   PutImage( $biblionumber, $srcimage,
155                                     $replace );
156                                 if ($dberror) {
157                                     $error = 'DBERR';
158                                 }
159                             }
160                             else {
161                                 $error = 'OPNIMG';
162                             }
163                             undef $srcimage;
164                         }
165                     }
166                     close(FILE);
167                 }
168                 else {
169                     $error = 'OPNLINK';
170                 }
171             }
172         }
173     }
174     $template->{VARS}->{'total'}        = $total;
175     $template->{VARS}->{'uploadimage'}  = 1;
176     $template->{VARS}->{'error'}        = $error;
177     $template->{VARS}->{'biblionumber'} = $biblionumber;
178 }
179
180 output_html_with_http_headers $input, $cookie, $template->output;
181
182 exit 0;
183
184 =head1 AUTHORS
185
186 Written by Jared Camins-Esakov of C & P Bibliography Services, in part based on
187 code by Koustubha Kale of Anant Corporation and Chris Nighswonger of Foundation
188 Bible College.
189
190 =cut