Merge pull request esl#21 from fogfish/master

fix crash on erlcloud_ec2:describe_instance_attribute

.gitignore

@@ -4,4 +4,6 @@ _build
 ebin/*.beam
 ebin/*.app
 .eunit/
+rebar
+*.sublime-*
 deps/

Makefile

@@ -1,15 +1,15 @@
 REBAR=$(shell which rebar || echo ./rebar)
 
+all: get-deps compile
+
 get-deps:
 	@$(REBAR) get-deps
 
-all: compile
-
 clean:
 	@$(REBAR) clean
 
 compile:
 	@$(REBAR) compile
 
 eunit: compile
-	@$(REBAR) eunit skip_deps=true
+	@$(REBAR) eunit skip_deps=true

src/erlcloud_ec2.erl

@@ -621,19 +621,27 @@ describe_instance_attribute(InstanceID, Attribute, Config)
         block_device_mapping -> "blockDeviceMapping"
     end,
     Doc = ec2_query(Config, "DescribeInstanceAttribute", [{"InstanceId", InstanceID}, {"Attribute", AttributeName}]),
-    Node = case Attribute of
-        block_device_mapping -> hd(xmerl_xpath:string("/DescribeInstanceAttributeResponse/" ++ AttributeName, Doc));
-        _ -> hd(xmerl_xpath:string("/DescribeInstanceAttributeResponse/" ++ AttributeName ++ "/value", Doc))
-    end,
-    case Attribute of
-        user_data -> base64:decode(get_text(Node));
-        disable_api_termination -> list_to_existing_atom(get_text(Node));
-        instance_initiated_shutdown_behavior -> list_to_existing_atom(get_text(Node));
-        block_device_mapping ->
-            [extract_block_device_mapping_status(Item) || Item <- xmerl_xpath:string("item", Node)];
-        _ -> get_text(Node)
+    case xmerl_xpath:string(attribute_xpath(Attribute, AttributeName), Doc) of
+        % attribute might not be defined
+        [] -> 
+            undefined;
+        [Node | _] ->
+            case Attribute of
+                user_data -> base64:decode(get_text(Node));
+                disable_api_termination -> list_to_existing_atom(get_text(Node));
+                instance_initiated_shutdown_behavior -> list_to_existing_atom(get_text(Node));
+                block_device_mapping ->
+                    [extract_block_device_mapping_status(Item) || Item <- xmerl_xpath:string("item", Node)];
+                _ -> get_text(Node)
+            end
     end.
 
+attribute_xpath(block_device_mapping, AttributeName) ->
+   "/DescribeInstanceAttributeResponse/" ++ AttributeName;
+attribute_xpath(_, AttributeName) ->
+   "/DescribeInstanceAttributeResponse/" ++ AttributeName ++ "/value".
+
+
 -spec(describe_instances/0 :: () -> proplist()).
 describe_instances() -> describe_instances([]).