Merge pull request #86 from unix1/add-sdb-domain-metadata

add SimpleDB domain metadata support
timkay · Dec 6, 2014 · 7b8e99d · 7b8e99d
2 parents c47cb46 + 46cd2fd
commit 7b8e99d
Showing 1 changed file with 8 additions and 0 deletions.
diff --git a/aws b/aws
@@ -1019,6 +1019,9 @@ $rds_version = "2013-09-09";
 	 [c => ConsistentRead],
 	 [next => NextToken],
      ]],
+    ["sdb", "domain-metadata", DomainMetadata, [
+         ["" => DomainName],
+     ]],
     #####  R53 (Route 53, DNS)
     ["r53", "list-resource-record-sets lrrs", 'GET|rrset', [
 	 ['' => zone_id],
@@ -2411,6 +2414,11 @@ if (!$cmd_data)
 	    print ary2tab([@$ary]);
 	}
     }
+    elsif ($result =~ /<DomainMetadataResponse/)
+    {
+        my $ary = xml2ary(DomainMetadataResult, $result);
+        print ary2tab([@$ary]);
+    }
     elsif ($result =~ /<GetAttributesResponse/ && $d1)
     {
 	while ($result =~ /<Attribute>(.*?)<\/Attribute>/sg)