Don't die if no MetaDataConfigurations

This commit is contained in:
Isaac Connor committed 2020-02-17 16:32:37 -05:00
1 parent 9c65a8b293
commit c337fb921d
1 file changed
+15 -6
+15 -6
View File
@@ -330,13 +330,22 @@ sub move {
sub metadata {
my ( $client ) = @_;
my $result = $client->get_endpoint('media')->GetMetadataConfigurations( { } ,, );
die $result if not $result;
print $result . "\n";
my $media = $client->get_endpoint('media');
die 'No media endpoint.' if !$media;
$result = $client->get_endpoint('media')->GetVideoAnalyticsConfigurations( { } ,, );
die $result if not $result;
print $result . "\n";
my $result = $media->GetMetadataConfigurations( { } ,, );
if ( ! $result ) {
print "No MetaDataConfigurations\n" if $verbose;
} else {
print $result . "\n";
}
$result = $media->GetVideoAnalyticsConfigurations( { } ,, );
if ( ! $result ) {
print "No VideoAnalyticsConfigurations\n" if $verbose;
} else {
print $result . "\n";
}
# $result = $client->get_endpoint('analytics')->GetServiceCapabilities( { } ,, );
# die $result if not $result;