1 <% include('/elements/header-minimal.html', 'File Upload') %>
5 File Upload Successful <% join(',', @filenames) %>;
7 <% include('/elements/footer.html') %>
11 unless $FS::CurrentUser::CurrentUser->access_right('Import'); #?
14 my $error = ''; # could be extended to the access control
16 $cgi->param('upload_fields') =~ /^([,\w]+)$/
17 or $error = "invalid upload_fields";
20 my $dir = $FS::UID::cache_dir. "/cache.". $FS::UID::datasrc;
22 foreach my $field (split /,/, $fields) {
25 my $fh = $cgi->upload($field)
26 or $error = "No valid file was provided.";
29 if ( $cgi->param($field) =~ /(\.\w+)$/i ) {
33 my $sh = new File::Temp( TEMPLATE => 'upload.XXXXXXXX',
38 or $error ||= "can't open temporary file to store upload: $!\n";
44 $sh->filename =~ m!.*/([.\w]+)$!;
45 push @filenames, "$field:$1";
51 $error = "No files" unless scalar(@filenames);