Dave Cross: Still Munging Data With Perl: Online event - Mar 17 Learn more

=begin comment
Fastly API
Via the Fastly API you can perform any of the operations that are possible within the management console, including creating services, domains, and backends, configuring rules or uploading your own application code, as well as account operations such as user administration and billing reports. The API is organized into collections of endpoints that allow manipulation of objects related to Fastly services and accounts. For the most accurate and up-to-date API reference content, visit our [Developer Hub](https://www.fastly.com/documentation/reference/api/)
The version of the API Spec document: 1.0.0
Contact: oss@fastly.com
=end comment
=cut
#
# NOTE: This class is auto generated.
# Do not edit the class manually.
#
require 5.6.0;
use strict;
use utf8;
use Carp qw( croak );
use Log::Any qw($log);
__PACKAGE__->mk_classdata('method_documentation' => {});
sub new {
my $class = shift;
my $api_client;
if ($_[0] && ref $_[0] && ref $_[0] eq 'WebService::Fastly::ApiClient' ) {
$api_client = $_[0];
} else {
$api_client = WebService::Fastly::ApiClient->new(@_);
}
bless { api_client => $api_client }, $class;
}
#
# get_waf_rule
#
# Get a rule
#
# @param string $waf_rule_id Alphanumeric string identifying a WAF rule. (required)
# @param string $include Include relationships. Optional, comma-separated values. Permitted values: `waf_tags` and `waf_rule_revisions`. (optional)
{
my $params = {
'waf_rule_id' => {
data_type => 'string',
description => 'Alphanumeric string identifying a WAF rule.',
required => '1',
},
'include' => {
data_type => 'string',
description => 'Include relationships. Optional, comma-separated values. Permitted values: `waf_tags` and `waf_rule_revisions`. ',
required => '0',
},
};
__PACKAGE__->method_documentation->{ 'get_waf_rule' } = {
summary => 'Get a rule',
params => $params,
returns => 'WafRuleResponse',
};
}
# @return WafRuleResponse
#
sub get_waf_rule {
my ($self, %args) = @_;
# verify the required parameter 'waf_rule_id' is set
unless (exists $args{'waf_rule_id'}) {
croak("Missing the required parameter 'waf_rule_id' when calling get_waf_rule");
}
# parse inputs
my $_resource_path = '/waf/rules/{waf_rule_id}';
my $_method = 'GET';
my $query_params = {};
my $header_params = {};
my $form_params = {};
# 'Accept' and 'Content-Type' header
my $_header_accept = $self->{api_client}->select_header_accept('application/vnd.api+json');
if ($_header_accept) {
$header_params->{'Accept'} = $_header_accept;
}
$header_params->{'Content-Type'} = $self->{api_client}->select_header_content_type();
# query params
if ( exists $args{'include'}) {
$query_params->{'include'} = $self->{api_client}->to_query_value($args{'include'});
}
# path params
if ( exists $args{'waf_rule_id'}) {
my $_base_variable = "{" . "waf_rule_id" . "}";
my $_base_value = $self->{api_client}->to_path_value($args{'waf_rule_id'});
$_resource_path =~ s/$_base_variable/$_base_value/g;
}
my $_body_data;
# authentication setting, if any
my $auth_settings = [qw(token )];
# make the API Call
my $response = $self->{api_client}->call_api($_resource_path, $_method,
$query_params, $form_params,
$header_params, $_body_data, $auth_settings);
if (!$response) {
return;
}
my $_response_object = $self->{api_client}->deserialize('WafRuleResponse', $response);
return $_response_object;
}
#
# list_waf_rules
#
# List available WAF rules
#
# @param string $filter[modsec_rule_id] Limit the returned rules to a specific ModSecurity rule ID. (optional)
# @param string $filter[waf_tags][name] Limit the returned rules to a set linked to a tag by name. (optional)
# @param string $filter[waf_rule_revisions][source] Limit the returned rules to a set linked to a source. (optional)
# @param string $filter[waf_firewall/id][not][match] Limit the returned rules to a set not included in the active firewall version for a firewall. (optional)
# @param int $page[number] Current page. (optional)
# @param int $page[size] Number of records per page. (optional, default to 20)
# @param string $include Include relationships. Optional, comma-separated values. Permitted values: `waf_tags` and `waf_rule_revisions`. (optional)
{
my $params = {
'filter[modsec_rule_id]' => {
data_type => 'string',
description => 'Limit the returned rules to a specific ModSecurity rule ID.',
required => '0',
},
'filter[waf_tags][name]' => {
data_type => 'string',
description => 'Limit the returned rules to a set linked to a tag by name.',
required => '0',
},
'filter[waf_rule_revisions][source]' => {
data_type => 'string',
description => 'Limit the returned rules to a set linked to a source.',
required => '0',
},
'filter[waf_firewall/id][not][match]' => {
data_type => 'string',
description => 'Limit the returned rules to a set not included in the active firewall version for a firewall.',
required => '0',
},
'page[number]' => {
data_type => 'int',
description => 'Current page.',
required => '0',
},
'page[size]' => {
data_type => 'int',
description => 'Number of records per page.',
required => '0',
},
'include' => {
data_type => 'string',
description => 'Include relationships. Optional, comma-separated values. Permitted values: `waf_tags` and `waf_rule_revisions`. ',
required => '0',
},
};
__PACKAGE__->method_documentation->{ 'list_waf_rules' } = {
summary => 'List available WAF rules',
params => $params,
returns => 'WafRulesResponse',
};
}
# @return WafRulesResponse
#
sub list_waf_rules {
my ($self, %args) = @_;
# parse inputs
my $_resource_path = '/waf/rules';
my $_method = 'GET';
my $query_params = {};
my $header_params = {};
my $form_params = {};
# 'Accept' and 'Content-Type' header
my $_header_accept = $self->{api_client}->select_header_accept('application/vnd.api+json');
if ($_header_accept) {
$header_params->{'Accept'} = $_header_accept;
}
$header_params->{'Content-Type'} = $self->{api_client}->select_header_content_type();
# query params
if ( exists $args{'filter[modsec_rule_id]'}) {
$query_params->{'filter[modsec_rule_id]'} = $self->{api_client}->to_query_value($args{'filter[modsec_rule_id]'});
}
# query params
if ( exists $args{'filter[waf_tags][name]'}) {
$query_params->{'filter[waf_tags][name]'} = $self->{api_client}->to_query_value($args{'filter[waf_tags][name]'});
}
# query params
if ( exists $args{'filter[waf_rule_revisions][source]'}) {
$query_params->{'filter[waf_rule_revisions][source]'} = $self->{api_client}->to_query_value($args{'filter[waf_rule_revisions][source]'});
}
# query params
if ( exists $args{'filter[waf_firewall/id][not][match]'}) {
$query_params->{'filter[waf_firewall.id][not][match]'} = $self->{api_client}->to_query_value($args{'filter[waf_firewall/id][not][match]'});
}
# query params
if ( exists $args{'page[number]'}) {
$query_params->{'page[number]'} = $self->{api_client}->to_query_value($args{'page[number]'});
}
# query params
if ( exists $args{'page[size]'}) {
$query_params->{'page[size]'} = $self->{api_client}->to_query_value($args{'page[size]'});
}
# query params
if ( exists $args{'include'}) {
$query_params->{'include'} = $self->{api_client}->to_query_value($args{'include'});
}
my $_body_data;
# authentication setting, if any
my $auth_settings = [qw(token )];
# make the API Call
my $response = $self->{api_client}->call_api($_resource_path, $_method,
$query_params, $form_params,
$header_params, $_body_data, $auth_settings);
if (!$response) {
return;
}
my $_response_object = $self->{api_client}->deserialize('WafRulesResponse', $response);
return $_response_object;
}
1;