Force CGI::FormBuilder->field to scalar context where necessary
CGI::FormBuilder->field has behaviour similar to the CGI.pm misfeature
we avoided in f4ec7b0
. Force it into scalar context where it is used
in an argument list.
This prevents two (relatively minor) commit metadata forgery
vulnerabilities:
* In the comments plugin, an attacker who was able to post a comment
could give it a user-specified author and author-URL even if the wiki
configuration did not allow for that, by crafting multiple values
to other fields.
* In the editpage plugin, an attacker who was able to edit a page
could potentially forge commit authorship by crafting multiple values
for the rcsinfo field.
The remaining plugins changed in this commit appear to have been
protected by use of explicit scalar prototypes for the called functions,
but have been changed anyway to make them more obviously correct.
In particular, checkpassword() in passwordauth has a known prototype,
so an attacker cannot trick it into treating multiple values of the
name field as being the username, password and field to check for.
OVE-20161226-0001
master
parent
e193c75b7d
commit
c1120bbbe8
|
@ -165,7 +165,7 @@ sub formbuilder (@) {
|
||||||
|
|
||||||
# Generate the attachment list only after having added any new
|
# Generate the attachment list only after having added any new
|
||||||
# attachments.
|
# attachments.
|
||||||
$form->tmpl_param("attachment_list" => [attachment_list($form->field('page'))]);
|
$form->tmpl_param("attachment_list" => [attachment_list(scalar $form->field('page'))]);
|
||||||
}
|
}
|
||||||
|
|
||||||
sub attachment_holding_location {
|
sub attachment_holding_location {
|
||||||
|
|
|
@ -557,11 +557,12 @@ sub editcomment ($$) {
|
||||||
}
|
}
|
||||||
|
|
||||||
$postcomment=1;
|
$postcomment=1;
|
||||||
my $ok=IkiWiki::check_content(content => $form->field('editcontent'),
|
my $ok=IkiWiki::check_content(
|
||||||
subject => $form->field('subject'),
|
content => scalar $form->field('editcontent'),
|
||||||
|
subject => scalar $form->field('subject'),
|
||||||
$config{comments_allowauthor} ? (
|
$config{comments_allowauthor} ? (
|
||||||
author => $form->field('author'),
|
author => scalar $form->field('author'),
|
||||||
url => $form->field('url'),
|
url => scalar $form->field('url'),
|
||||||
) : (),
|
) : (),
|
||||||
page => $location,
|
page => $location,
|
||||||
cgi => $cgi,
|
cgi => $cgi,
|
||||||
|
@ -601,7 +602,7 @@ sub editcomment ($$) {
|
||||||
length $form->field('subject')) {
|
length $form->field('subject')) {
|
||||||
$message = sprintf(
|
$message = sprintf(
|
||||||
gettext("Added a comment: %s"),
|
gettext("Added a comment: %s"),
|
||||||
$form->field('subject'));
|
scalar $form->field('subject'));
|
||||||
}
|
}
|
||||||
|
|
||||||
IkiWiki::rcs_add($file);
|
IkiWiki::rcs_add($file);
|
||||||
|
|
|
@ -431,7 +431,7 @@ sub cgi_editpage ($$) {
|
||||||
$conflict=rcs_commit(
|
$conflict=rcs_commit(
|
||||||
file => $file,
|
file => $file,
|
||||||
message => $message,
|
message => $message,
|
||||||
token => $form->field("rcsinfo"),
|
token => scalar $form->field("rcsinfo"),
|
||||||
session => $session,
|
session => $session,
|
||||||
);
|
);
|
||||||
enable_commit_hook();
|
enable_commit_hook();
|
||||||
|
|
|
@ -34,7 +34,7 @@ sub formbuilder (@) {
|
||||||
}
|
}
|
||||||
elsif ($form->submitted eq "Save Preferences" && $form->validate &&
|
elsif ($form->submitted eq "Save Preferences" && $form->validate &&
|
||||||
defined $form->field("subscriptions")) {
|
defined $form->field("subscriptions")) {
|
||||||
setsubscriptions($username, $form->field('subscriptions'));
|
setsubscriptions($username, scalar $form->field('subscriptions'));
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
|
|
||||||
|
|
|
@ -231,7 +231,7 @@ sub formbuilder_setup (@) {
|
||||||
$form->field(
|
$form->field(
|
||||||
name => "password",
|
name => "password",
|
||||||
validate => sub {
|
validate => sub {
|
||||||
checkpassword($form->field("name"), shift);
|
checkpassword(scalar $form->field("name"), shift);
|
||||||
},
|
},
|
||||||
);
|
);
|
||||||
}
|
}
|
||||||
|
@ -395,7 +395,7 @@ sub formbuilder (@) {
|
||||||
if ($form->submitted eq "Save Preferences" && $form->validate) {
|
if ($form->submitted eq "Save Preferences" && $form->validate) {
|
||||||
my $user_name=$form->field('name');
|
my $user_name=$form->field('name');
|
||||||
if (defined $form->field("password") && length $form->field("password")) {
|
if (defined $form->field("password") && length $form->field("password")) {
|
||||||
setpassword($user_name, $form->field('password'));
|
setpassword($user_name, scalar $form->field('password'));
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
|
|
|
@ -548,7 +548,7 @@ sub formbuilder_setup (@) {
|
||||||
# their buttons, which is why this hook must be run last.
|
# their buttons, which is why this hook must be run last.
|
||||||
# The canrename/canremove hooks already ensure this is forbidden
|
# The canrename/canremove hooks already ensure this is forbidden
|
||||||
# at the backend level, so this is only UI sugar.
|
# at the backend level, so this is only UI sugar.
|
||||||
if (istranslation($form->field("page"))) {
|
if (istranslation(scalar $form->field("page"))) {
|
||||||
map {
|
map {
|
||||||
for (my $i = 0; $i < @{$params{buttons}}; $i++) {
|
for (my $i = 0; $i < @{$params{buttons}}; $i++) {
|
||||||
if (@{$params{buttons}}[$i] eq $_) {
|
if (@{$params{buttons}}[$i] eq $_) {
|
||||||
|
|
|
@ -259,7 +259,7 @@ sub formbuilder (@) {
|
||||||
my $session=$params{session};
|
my $session=$params{session};
|
||||||
|
|
||||||
if ($form->submitted eq "Rename" && $form->field("do") eq "edit") {
|
if ($form->submitted eq "Rename" && $form->field("do") eq "edit") {
|
||||||
rename_start($q, $session, 0, $form->field("page"));
|
rename_start($q, $session, 0, scalar $form->field("page"));
|
||||||
}
|
}
|
||||||
elsif ($form->submitted eq "Rename Attachment") {
|
elsif ($form->submitted eq "Rename Attachment") {
|
||||||
my @selected=map { Encode::decode_utf8($_) } $q->param("attachment_select");
|
my @selected=map { Encode::decode_utf8($_) } $q->param("attachment_select");
|
||||||
|
@ -312,7 +312,7 @@ sub sessioncgi ($$) {
|
||||||
# performed in check_canrename later.
|
# performed in check_canrename later.
|
||||||
my $srcfile=IkiWiki::possibly_foolish_untaint($pagesources{$src})
|
my $srcfile=IkiWiki::possibly_foolish_untaint($pagesources{$src})
|
||||||
if exists $pagesources{$src};
|
if exists $pagesources{$src};
|
||||||
my $dest=IkiWiki::possibly_foolish_untaint(titlepage($form->field("new_name")));
|
my $dest=IkiWiki::possibly_foolish_untaint(titlepage(scalar $form->field("new_name")));
|
||||||
my $destfile=$dest;
|
my $destfile=$dest;
|
||||||
if (! $q->param("attachment")) {
|
if (! $q->param("attachment")) {
|
||||||
my $type=$q->param('type');
|
my $type=$q->param('type');
|
||||||
|
|
|
@ -1,5 +1,10 @@
|
||||||
ikiwiki (3.20161220) UNRELEASED; urgency=medium
|
ikiwiki (3.20161220) UNRELEASED; urgency=medium
|
||||||
|
|
||||||
|
* Security: force CGI::FormBuilder->field to scalar context where
|
||||||
|
necessary, avoiding unintended function argument injection
|
||||||
|
analogous to CVE-2014-1572. In ikiwiki this could be used to
|
||||||
|
forge commit metadata, but thankfully nothing more serious.
|
||||||
|
(OVE-20161226-0001)
|
||||||
* Add CVE references for CVE-2016-10026
|
* Add CVE references for CVE-2016-10026
|
||||||
* Add missing ikiwiki.setup for the manual test for CVE-2016-10026
|
* Add missing ikiwiki.setup for the manual test for CVE-2016-10026
|
||||||
* git: don't issue a warning if the rcsinfo CGI parameter is undefined
|
* git: don't issue a warning if the rcsinfo CGI parameter is undefined
|
||||||
|
|
|
@ -563,3 +563,25 @@ which are both used in most ikiwiki installations.
|
||||||
|
|
||||||
This bug was reported on 2016-12-17. The fixed version 3.20161219
|
This bug was reported on 2016-12-17. The fixed version 3.20161219
|
||||||
was released on 2016-12-19. ([[!cve CVE-2016-10026]])
|
was released on 2016-12-19. ([[!cve CVE-2016-10026]])
|
||||||
|
|
||||||
|
## Commit metadata forgery via CGI::FormBuilder context-dependent APIs
|
||||||
|
|
||||||
|
When CGI::FormBuilder->field("foo") is called in list context (and
|
||||||
|
in particular in the arguments to a subroutine that takes named
|
||||||
|
arguments), it can return zero or more values for foo from the CGI
|
||||||
|
request, rather than the expected single value. This breaks the usual
|
||||||
|
Perl parsing convention for named arguments, similar to CVE-2014-1572
|
||||||
|
in Bugzilla (which was caused by a similar API design issue in CGI.pm).
|
||||||
|
|
||||||
|
In ikiwiki, this appears to have been exploitable in two places, both
|
||||||
|
of them relatively minor:
|
||||||
|
|
||||||
|
* in the comments plugin, an attacker who was able to post a comment
|
||||||
|
could give it a user-specified author and author-URL even if the wiki
|
||||||
|
configuration did not allow for that, by crafting multiple values
|
||||||
|
for other fields
|
||||||
|
* in the editpage plugin, an attacker who was able to edit a page
|
||||||
|
could potentially forge commit authorship (attribute their edit to
|
||||||
|
someone else) by crafting multiple values for the rcsinfo field
|
||||||
|
|
||||||
|
(OVE-20161226-0001)
|
||||||
|
|
Loading…
Reference in New Issue