ma27/hydra
0
0
Fork 0
forked from lix-project/hydra
Code Pull requests Activity

Fix a couple of encoding issues

Browse source
This commit is contained in:
Eelco Dolstra 2016-10-24 16:08:19 +02:00
parent 3586bf28e4
commit f7ff7f741b
3 changed files with 4 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

1
src/lib/Hydra/Controller/Job.pm
View file

@ -1,5 +1,6 @@
package Hydra::Controller::Job; package Hydra::Controller::Job;
use utf8;
use strict; use strict;
use warnings; use warnings;
use base 'Hydra::Base::Controller::ListBuilds'; use base 'Hydra::Base::Controller::ListBuilds';

1
src/lib/Hydra/Controller/JobsetEval.pm
View file

@ -1,5 +1,6 @@
package Hydra::Controller::JobsetEval; package Hydra::Controller::JobsetEval;
use utf8;
use strict; use strict;
use warnings; use warnings;
use base 'Hydra::Base::Controller::NixChannel'; use base 'Hydra::Base::Controller::NixChannel';

3
src/lib/Hydra/Controller/Root.pm
View file

@ -1,5 +1,6 @@
package Hydra::Controller::Root; package Hydra::Controller::Root;
use utf8;
use strict; use strict;
use warnings; use warnings;
use base 'Hydra::Base::Controller::ListBuilds'; use base 'Hydra::Base::Controller::ListBuilds';
@ -65,7 +66,7 @@ sub begin :Private {
my $referer = $c->req->header('Origin'); my $referer = $c->req->header('Origin');
$referer //= $c->req->header('Referer'); $referer //= $c->req->header('Referer');
my $base = $c->req->base; my $base = $c->req->base;
error($c, "POST requests should come from ‘$base’") error($c, "POST requests should come from ‘$base’.")
unless defined $referer && substr($referer, 0, length $base) eq $base; unless defined $referer && substr($referer, 0, length $base) eq $base;
} }