diff options
Diffstat (limited to 'FS/FS/part_export/http.pm')
-rw-r--r-- | FS/FS/part_export/http.pm | 13 |
1 files changed, 1 insertions, 12 deletions
diff --git a/FS/FS/part_export/http.pm b/FS/FS/part_export/http.pm index 3749224..e5e5a5c 100644 --- a/FS/FS/part_export/http.pm +++ b/FS/FS/part_export/http.pm @@ -33,10 +33,6 @@ tie %options, 'Tie::IxHash', default => join("\n", ), }, - 'success_regexp' => { - label => 'Success Regexp', - default => '', - }, ; %info = ( @@ -75,7 +71,6 @@ sub _export_command { $self->http_queue( $svc_x->svcnum, $self->option('method'), $self->option('url'), - $self->option('success_regexp'), map { /^\s*(\S+)\s+(.*)$/ or /()()/; my( $field, $value_expression ) = ( $1, $2 ); @@ -100,7 +95,6 @@ sub _export_replace { $self->http_queue( $new->svcnum, $self->option('method'), $self->option('url'), - $self->option('success_regexp'), map { /^\s*(\S+)\s+(.*)$/ or /()()/; my( $field, $value_expression ) = ( $1, $2 ); @@ -120,7 +114,7 @@ sub http_queue { } sub http { - my($method, $url, $success_regexp, @data) = @_; + my($method, $url, @data) = @_; $method = lc($method); @@ -140,11 +134,6 @@ sub http { die $response->error_as_HTML if $response->is_error; - if(length($success_regexp) > 1) { - my $response_content = $response->content; - die $response_content unless $response_content =~ /$success_regexp/; - } - } 1; |