From 709bd7a384bd8dbde3a15185708a7598e91130d5 Mon Sep 17 00:00:00 2001 From: Ivan Kohler Date: Mon, 4 Apr 2016 15:29:16 -0700 Subject: [PATCH] fix syntax error as a result of inadvertant backport, RT#41597, RT#35167 --- FS/FS/part_event/Action/http.pm | 9 ++++++++- 1 file changed, 8 insertions(+), 1 deletion(-) diff --git a/FS/FS/part_event/Action/http.pm b/FS/FS/part_event/Action/http.pm index b17acb8b5..c3b1af039 100644 --- a/FS/FS/part_event/Action/http.pm +++ b/FS/FS/part_event/Action/http.pm @@ -1,13 +1,16 @@ package FS::part_event::Action::http; +use base qw( FS::part_event::Action ); use strict; -use base qw( FS::part_event::Action ); +use vars qw( $me ); use IO::Socket::SSL; use LWP::UserAgent; use HTTP::Request::Common; use JSON::XS; use FS::Misc::DateTime qw( iso8601 ); +$me = '[FS::part_event::Action::http]'; + #sub description { 'Send an HTTP or HTTPS GET or POST request'; } sub description { 'Send an HTTP or HTTPS POST request'; } @@ -38,6 +41,10 @@ sub option_fields { type => 'textarea', }, #'response_error_param' => 'Response error parameter', + 'debug' => { label => 'Enable debugging', + type => 'checkbox', + value => 1, + }, ); } -- 2.11.0