projects
/
freeside.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
71513: Card tokenization [tweaks to paycardtype checks]
[freeside.git]
/
httemplate
/
misc
/
file-upload.html
diff --git
a/httemplate/misc/file-upload.html
b/httemplate/misc/file-upload.html
index
9649d36
..
469274c
100644
(file)
--- a/
httemplate/misc/file-upload.html
+++ b/
httemplate/misc/file-upload.html
@@
-2,7
+2,7
@@
% if ($error) {
Error: <% $error %>
% }else{
% if ($error) {
Error: <% $error %>
% }else{
-F
reeside F
ile Upload Successful <% join(',', @filenames) %>;
+File Upload Successful <% join(',', @filenames) %>;
% }
<% include('/elements/footer.html') %>
<%init>
% }
<% include('/elements/footer.html') %>
<%init>
@@
-17,7
+17,7
@@
$cgi->param('upload_fields') =~ /^([,\w]+)$/
or $error = "invalid upload_fields";
my $fields = $1;
or $error = "invalid upload_fields";
my $fields = $1;
-my $dir = $FS::UID::c
onf
_dir. "/cache.". $FS::UID::datasrc;
+my $dir = $FS::UID::c
ache
_dir. "/cache.". $FS::UID::datasrc;
foreach my $field (split /,/, $fields) {
next if $error;
foreach my $field (split /,/, $fields) {
next if $error;
@@
-25,7
+25,13
@@
foreach my $field (split /,/, $fields) {
my $fh = $cgi->upload($field)
or $error = "No valid file was provided.";
my $fh = $cgi->upload($field)
or $error = "No valid file was provided.";
+ my $suffix = '';
+ if ( $cgi->param($field) =~ /(\.\w+)$/i ) {
+ $suffix = lc($1);
+ }
+
my $sh = new File::Temp( TEMPLATE => 'upload.XXXXXXXX',
my $sh = new File::Temp( TEMPLATE => 'upload.XXXXXXXX',
+ SUFFIX => $suffix,
DIR => $dir,
UNLINK => 0,
)
DIR => $dir,
UNLINK => 0,
)