Bug 1054702: CSV export vulnerable to formulae injection
r=glob,a=glob git-svn-id: svn://10.0.0.236/trunk@265606 18797224-902f-48f8-a5cc-f745e15eee43
This commit is contained in:
parent
d4a0f53c33
commit
c182cf6197
@ -1 +1 @@
|
||||
9162
|
||||
9163
|
||||
@ -1 +1 @@
|
||||
fa954ab78cc60aba43aedb85e2b4f98d56d7bf9d
|
||||
10e40c5707d383303c7837f526c3ab06466ede98
|
||||
@ -890,10 +890,12 @@ sub create {
|
||||
},
|
||||
|
||||
# In CSV, quotes are doubled, and any value containing a quote or a
|
||||
# comma is enclosed in quotes.
|
||||
# comma is enclosed in quotes. If a field starts with an equals
|
||||
# sign, it is proceed by a space.
|
||||
csv => sub
|
||||
{
|
||||
my ($var) = @_;
|
||||
$var = ' ' . $var if substr($var, 0, 1) eq '=';
|
||||
$var =~ s/\"/\"\"/g;
|
||||
if ($var !~ /^-?(\d+\.)?\d*$/) {
|
||||
$var = "\"$var\"";
|
||||
|
||||
@ -23,11 +23,13 @@
|
||||
[% END %]
|
||||
[% tbl_field_disp FILTER csv %]: [% tbl_disp FILTER csv %]
|
||||
[% END %]
|
||||
[% IF row_field %]
|
||||
[% IF row_field && col_field %]
|
||||
[% row_field_disp _ ' / ' _ col_field_disp FILTER csv %]
|
||||
[% ELSIF row_field %]
|
||||
[% row_field_disp FILTER csv %]
|
||||
[% ELSE %]
|
||||
[% col_field_disp FILTER csv %]
|
||||
[% END %]
|
||||
[% " / " IF col_field AND row_field %]
|
||||
[% col_field_disp FILTER csv %]
|
||||
[% IF col_field -%]
|
||||
[% FOREACH col = col_names -%]
|
||||
[% colsepchar %]
|
||||
|
||||
Loading…
x
Reference in New Issue
Block a user