#!/usr/bin/perl -w

#

# Copyright 2019, Google LLC

#

# Licensed under the Apache License, Version 2.0 (the "License");

# you may not use this file except in compliance with the License.

# You may obtain a copy of the License at

#

# http://www.apache.org/licenses/LICENSE-2.0

#

# Unless required by applicable law or agreed to in writing, software

# distributed under the License is distributed on an "AS IS" BASIS,

# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.

# See the License for the specific language governing permissions and

# limitations under the License.

#

# This example gets all campaigns. To add campaigns, run add_campaigns.pl.

use strict;

use warnings;

use utf8;

use FindBin qw($Bin);

use lib "$Bin/../../lib";

use Google::Ads::GoogleAds::Client;

use Google::Ads::GoogleAds::Utils::GoogleAdsHelper;

use Google::Ads::GoogleAds::Utils::SearchStreamHandler;

use

Google::Ads::GoogleAds::V17::Services::GoogleAdsService::SearchGoogleAdsStreamRequest;

use Getopt::Long qw(:config auto_help);

use Pod::Usage;

use Cwd qw(abs_path);

# The following parameter(s) should be provided to run the example. You can

# either specify these by changing the INSERT_XXX_ID_HERE values below, or on

# the command line.

#

# Parameters passed on the command line will override any parameters set in

# code.

#

# Running the example with -h will print the command line usage.

my $customer_id = "INSERT_CUSTOMER_ID_HERE";

# [START get_campaigns]

sub get_campaigns {

my ($api_client, $customer_id) = @_;

# Create a search Google Ads stream request that will retrieve all campaigns.

my $search_stream_request =

Google::Ads::GoogleAds::V17::Services::GoogleAdsService::SearchGoogleAdsStreamRequest

->new({

customerId => $customer_id,

query =>

"SELECT campaign.id, campaign.name FROM campaign ORDER BY campaign.id"

});

# Get the GoogleAdsService.

my $google_ads_service = $api_client->GoogleAdsService();

my $search_stream_handler =

Google::Ads::GoogleAds::Utils::SearchStreamHandler->new({

service => $google_ads_service,

request => $search_stream_request

});

# Issue a search request and process the stream response to print the requested

# field values for the campaign in each row.

$search_stream_handler->process_contents(

sub {

my $google_ads_row = shift;

printf "Campaign with ID %d and name '%s' was found.\n",

$google_ads_row->{campaign}{id}, $google_ads_row->{campaign}{name};

});

return 1;

}

# [END get_campaigns]

# Don't run the example if the file is being included.

if (abs_path($0) ne abs_path(__FILE__)) {

return 1;

}

# Get Google Ads Client, credentials will be read from ~/googleads.properties.

my $api_client = Google::Ads::GoogleAds::Client->new();

# By default examples are set to die on any server returned fault.

$api_client->set_die_on_faults(1);

# Parameters passed on the command line will override any parameters set in code.

GetOptions("customer_id=s" => \$customer_id);

# Print the help message if the parameters are not initialized in the code nor

# in the command line.

pod2usage(2) if not check_params($customer_id);

# Call the example.

get_campaigns($api_client, $customer_id =~ s/-//gr);

=pod

=head1 NAME

get_campaigns

=head1 DESCRIPTION

This example gets all campaigns. To add campaigns, run add_campaigns.pl.

=head1 SYNOPSIS

get_campaigns.pl [options]

-help Show the help message.

-customer_id The Google Ads customer ID.

=cut