diff options
author | Matthew Somerville <matthew-github@dracos.co.uk> | 2017-07-06 08:05:54 +0100 |
---|---|---|
committer | Matthew Somerville <matthew-github@dracos.co.uk> | 2017-07-06 10:33:57 +0100 |
commit | 01b426f5ec48bc8b9cd90c85bd3e8782aec03767 (patch) | |
tree | 19f1a20fa075993cc358b31486a164b04ec80560 /perllib/FixMyStreet/SendReport | |
parent | f89681f9b900f0b20a099cb15ff8a01f1798d508 (diff) |
Stop using mySociety::Web and mySociety::Sundries.
Both uses can be covered by existing modules.
This means we can drop FCGI also.
Diffstat (limited to 'perllib/FixMyStreet/SendReport')
-rw-r--r-- | perllib/FixMyStreet/SendReport/Angus.pm | 1 | ||||
-rw-r--r-- | perllib/FixMyStreet/SendReport/EastHants.pm | 6 |
2 files changed, 3 insertions, 4 deletions
diff --git a/perllib/FixMyStreet/SendReport/Angus.pm b/perllib/FixMyStreet/SendReport/Angus.pm index cab5de173..b552fbd9d 100644 --- a/perllib/FixMyStreet/SendReport/Angus.pm +++ b/perllib/FixMyStreet/SendReport/Angus.pm @@ -7,7 +7,6 @@ BEGIN { extends 'FixMyStreet::SendReport'; } use Try::Tiny; use Encode; use XML::Simple; -use mySociety::Web qw(ent); sub get_auth_token { my ($self, $authxml) = @_; diff --git a/perllib/FixMyStreet/SendReport/EastHants.pm b/perllib/FixMyStreet/SendReport/EastHants.pm index 55ec79613..b24123f94 100644 --- a/perllib/FixMyStreet/SendReport/EastHants.pm +++ b/perllib/FixMyStreet/SendReport/EastHants.pm @@ -6,7 +6,7 @@ BEGIN { extends 'FixMyStreet::SendReport'; } use Try::Tiny; use Encode; -use mySociety::Web qw(ent); +use HTML::Entities; sub construct_message { my %h = @_; @@ -43,8 +43,8 @@ sub send { $eh_service ||= Integrations::EastHantsWSDL->on_fault(sub { my($soap, $res) = @_; die ref $res ? $res->faultstring : $soap->transport->status, "\n"; }); try { # ServiceName, RemoteCreatedBy, Salutation, FirstName, Name, Email, Telephone, HouseNoName, Street, Town, County, Country, Postcode, Comments, FurtherInfo, ImageURL - my $message = ent(encode_utf8($h->{message})); - my $name = ent(encode_utf8($h->{name})); + my $message = encode_entities(encode_utf8($h->{message})); + my $name = encode_entities(encode_utf8($h->{name})); my $result = $eh_service->INPUTFEEDBACK( $h->{category}, 'FixMyStreet', '', '', $name, $h->{email}, $h->{phone}, '', '', '', '', '', '', $message, 'Yes', $h->{image_url} |