1 <% include('/elements/header-minimal.html', 'File Upload') %>
5 Freeside 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::conf_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.";
28 my $sh = new File::Temp( TEMPLATE => 'upload.XXXXXXXX',
32 or $error ||= "can't open temporary file to store upload: $!\n";
38 $sh->filename =~ m!.*/([.\w]+)$!;
39 push @filenames, "$field:$1";
45 $error = "No files" unless scalar(@filenames);