deltacloud-core 0.0.1

data/views/docs/operation.xml.haml

@@ -0,0 +1,10 @@
+%docs{:status => "unsupported"}
+  %operation{:url => "/api/docs/#{@collection.name.to_s}", :name => "#{@operation.name.to_s}", :href => "#{@operation.path}", :method => "#{@operation.method}"}
+    %description #{@operation.description}
+    - @operation.each_param do |param|
+      %parameter{:name => "#{param.name}", :type => "#{param.type}"}
+        %class #{param.klass}
+        - unless param.options.empty?
+          %values
+            - param.options.each do |v|
+              %value #{v}

data/views/errors/auth_exception.html.haml

@@ -0,0 +1,8 @@
+%h1 Authentication Failure
+
+%p= @error.message
+
+%dl
+  %di
+    %dt Request URL
+    %dd= request.env['REQUEST_URI']

data/views/errors/auth_exception.xml.haml

@@ -0,0 +1,2 @@
+%error{:url => "#{request.env['REQUEST_URI']}", :status => "#{response.status}"}
+  %message #{@error.message}

data/views/errors/backend_error.html.haml

@@ -0,0 +1,17 @@
+%h1 Backend Error
+
+%p= @error.message
+
+%dl
+  %di
+    %dt Request URL
+    %dd= request.env['REQUEST_URI']
+  %di
+    %dt Code
+    %dd= @error.code
+  %di
+    %dt Cause
+    %dd= @error.cause
+  %di
+    %dt Details
+    %dd= @error.details

data/views/errors/backend_error.xml.haml

@@ -0,0 +1,8 @@
+%error{:url => "#{request.env['REQUEST_URI']}", :status => "#{response.status}"}
+  %kind backend_error
+  %backend{ :driver => DRIVER }
+    %code= @error.code
+    %cause= @error.cause
+    - if @error.details
+      %details #{@error.details}
+  %message #{@error.message}

data/views/errors/validation_failure.html.haml

@@ -0,0 +1,11 @@
+%h1 Validation Failure
+
+%p= @error.message
+
+%dl
+  %di
+    %dt Request URL
+    %dd= request.env['REQUEST_URI']
+  %di
+    %dt Parameter
+    %dd= @error.name

data/views/errors/validation_failure.xml.haml

@@ -0,0 +1,7 @@
+%error{:url => "#{request.env['REQUEST_URI']}", :status => "#{response.status}"}
+  %parameter #{@error.name}
+  %message #{@error.message}
+  - unless @error.param.options.empty?
+    %valid_options
+      - @error.param.options.each do |v|
+        %value #{v}

data/views/hardware_profiles/index.html.haml

@@ -0,0 +1,25 @@
+%h1
+  Hardware Profiles
+
+%table.display
+  %thead
+    %tr
+      %th
+        Name
+      %th
+        Architecture
+      %th
+        Memory
+      %th
+        Storage
+  %tbody
+    - for profile in @profiles
+      %tr
+        %td
+          = link_to profile.name, hardware_profile_url( profile.name )
+        %td
+          = format_hardware_property profile.architecture
+        %td
+          = format_hardware_property profile.memory
+        %td
+          = format_hardware_property profile.storage

data/views/hardware_profiles/index.xml.haml

@@ -0,0 +1,4 @@
+!!! XML
+%hardware-profiles
+  - @profiles.each do |prof|
+    = haml :'hardware_profiles/show', :locals => { :@profile => prof, :partial => true }

data/views/hardware_profiles/show.html.haml

@@ -0,0 +1,19 @@
+%h1
+  = @profile.name
+
+%dl
+  %di
+    %dt
+      Architecture
+    %dd
+      = format_hardware_property @profile.architecture
+  %di
+    %dt
+      Memory
+    %dd
+      = format_hardware_property @profile.memory
+  %di
+    %dt
+      Storage
+    %dd
+      = format_hardware_property @profile.storage

data/views/hardware_profiles/show.xml.haml

@@ -0,0 +1,17 @@
+- unless defined?(partial)
+  !!! XML
+%hardware-profile{ :href => hardware_profile_url(@profile.name) }
+  %id= @profile.name
+  - @profile.each_property do |prop|
+    - attr = { :name => prop.name, :kind => prop.kind, :unit => prop.unit }
+    - if prop.kind == :fixed
+      %property{ attr, :value => prop.value }/
+    - else
+      %property{ attr, :value => prop.default }
+        %param{ :operation => "create", :href => instances_url, :method => "post", :name  => prop.param }
+        - if prop.kind == :range
+          %range{ :first => prop.first, :last => prop.last }/
+        - elsif prop.kind == :enum
+          %enum
+            - prop.values.each do |v|
+              %entry{ :value => v }/

data/views/images/index.html.haml

@@ -0,0 +1,30 @@
+%h1
+  Images
+
+%table.display
+  %thead
+    %tr
+      %th
+        ID
+      %th
+        Name
+      %th
+        Owner
+      %th
+        Architecture
+      %th
+        Description
+  %tbody
+    - @images.each do |image|
+      %tr
+        %td
+          = link_to image.id, image_url(image.id)
+        %td
+          = image.name
+        %td
+          = link_to image.owner_id, images_url( :owner_id => image.owner_id )
+        %td
+          = image.architecture
+        %td
+          = image.description
+

data/views/images/index.xml.haml

@@ -0,0 +1,7 @@
+!!! XML
+%images
+  - @elements.each do |image|
+    %image{:href => image_url(image.id)}
+      - image.attributes.each do |attribute|
+        - haml_tag(attribute, :<) do
+          - haml_concat image.send(attribute)

data/views/images/show.html.haml

@@ -0,0 +1,21 @@
+%h1 Image
+%h2
+  = @image.id
+
+%dl
+  %di
+    %dt Name
+    %dd
+      = @image.name
+    %dt Owner
+    %dd
+      = link_to @image.owner_id, images_url( :owner_id => @image.owner_id )
+    %dt Architecture
+    %dd
+      = @image.architecture
+    %dt Description
+    %dd
+      = @image.description
+    %dt
+    %dd
+      = link_to 'Launch', "/api/instances/new?image_id=#{@image.id}"

data/views/images/show.xml.haml

@@ -0,0 +1,5 @@
+!!! XML
+%image{:href => image_url(@image.id)}
+  - @image.attributes.each do |attribute|
+    - haml_tag(attribute, :<) do
+      - haml_concat @image.send(attribute)

data/views/instance_states/show.gv.erb

@@ -0,0 +1,45 @@
+digraph instance_states {
+  rankdir=LR;
+  <% for state in @machine.states do %>
+    <%= state %>
+      [
+        label="<%= state.to_s.titlecase %>",
+        labelloc="c",
+        fontsize="12.0",
+        <% if ( state.name == :start || state.name == :finish ) %>
+          fontname="Liberation Sans Bold",
+          color="<%= state.name == :start ? '#449944' : '#994444' %>",
+          fillcolor="<%= state.name == :start ? '#88DD88' : '#DD8888' %>",
+          style="filled",
+          shape="doublecircle",
+        <% else %>
+          fontname="Liberation Sans Bold",
+          shape="rect",
+          color="#999999",
+          fillcolor="#DDDDDD",
+          style="filled",
+        <% end %>
+        height=0.5
+      ]
+  <% end %>
+
+  <% for state in @machine.states do %>
+    <% for transition in state.transitions do %>
+      <%= state %> -> <%= transition.destination %>
+        [
+          label="<%= transition.automatically? ? 'auto' : transition.action %>",
+          fontsize="14.0",
+          penwidth="2.0",
+          labelloc="t",
+          color="#CCCCCC",
+          <% if transition.automatically? %>
+          fontcolor="#227722",
+          fontname="Liberation Sans Bold Italic",
+          <% else %>
+          fontcolor="#333333",
+          fontname="Liberation Sans Bold",
+          <% end %>
+        ];
+    <% end %>
+  <% end %>
+}

data/views/instance_states/show.html.haml

@@ -0,0 +1,31 @@
+%h1 Instance States
+
+%div#state_graph
+  = image_tag url_for( '/api/instance_states.png' )
+
+%table.states
+  %thead
+    %tr
+      %th Origin
+      %th Action
+      %th Destination
+  %tbody
+    - @machine.states.each do |state|
+      %tr
+        %td.origin{:rowspan => "#{state.transitions.empty? ? 2 : (state.transitions.size + 1)}"}
+          = state
+      - if state.transitions.empty?
+        %tr
+          %td --
+          %td --
+      - else
+        - state.transitions.each do |transition|
+          %tr
+            %td
+              - if transition.automatically?
+                %em auto
+              - else
+                = transition.action
+            %td
+              = transition.destination
+

data/views/instance_states/show.xml.haml

@@ -0,0 +1,8 @@
+%states
+  - for state in @machine.states
+    %state{ :name=>state }
+      - for transition in state.transitions
+        - if ( transition.automatically? )
+          %transition{ :to=>transition.destination, :auto=>'true'}
+        - else
+          %transition{ :to=>transition.destination, :action=>transition.action }

data/views/instances/index.html.haml

@@ -0,0 +1,29 @@
+%h1 Instances
+
+%table.display
+  %thead
+    %tr
+      %th ID
+      %th Owner
+      %th Name
+      %th Image
+      %th Realm
+      %th State
+      %th Actions
+  %tbody
+    - @instances.each do |instance|
+      %tr
+        %td
+          = link_to instance.id, instance_url( instance.id )
+        %td
+          = link_to instance.owner_id, images_url( instance.owner_id )
+        %td
+          = instance.name
+        %td
+          = link_to instance.image_id, image_url( instance.image_id )
+        %td
+          = instance.realm_id ? link_to(instance.realm_id, realm_url( instance.realm_id )) : 'default'
+        %td
+          = instance.state
+        %td
+          = instance.actions.collect { |a| link_to(a, self.send("#{a}_instance_url", instance.id), :method => :post)}.join(' ')

data/views/instances/index.xml.haml

@@ -0,0 +1,23 @@
+!!! XML
+%instances
+  - @elements.each do |instance|
+    %instance{:href => instance_url(instance.id)}
+      %id #{instance.id}
+      %name #{instance.name}
+      %owner_id #{instance.owner_id}
+      %image{:href => image_url(instance.image_id)}
+      %realm{:href => realm_url(instance.realm_id)}
+      %state #{instance.state}
+      - haml_tag :"hardware-profile", { :href => hardware_profile_url(instance.instance_profile.id)} do
+        %id #{instance.instance_profile.id}
+        - instance.instance_profile.overrides.each do |p, v|
+          %property{:kind => 'fixed', :name => p, :value => v, :unit => Deltacloud::HardwareProfile::unit(p)}
+      %actions
+        - instance.actions.compact.each do |action|
+          %link{:rel => action, :href => self.send("#{action}_instance_url", instance.id)}
+      - haml_tag :"public-addresses" do
+        - instance.public_addresses.each do |address|
+          %address  #{address}
+      - haml_tag :"private-addresses" do
+        - instance.private_addresses.each do |address|
+          %address  #{address}

data/views/instances/new.html.haml

@@ -0,0 +1,49 @@
+%h1 New Instance
+
+%h2= @image.id
+%h3= @image.description
+
+%form{ :action => instances_url, :method => :post }
+  %input{ :name => :image_id, :type => :hidden, :value => @instance.image_id }/
+  %label
+    Instance Name:
+  %input{ :name => 'name', :size => 30 }/
+  - if !@hardware_profiles.empty?
+    %h3 What size machine?
+    - for hwp in @hardware_profiles
+      .radio-group
+        %label{ :for => "hwp_id_#{hwp.name}" }
+          %input{ :type => :radio, :name => 'hwp_id', :value => hwp.name }/
+          = hwp.name
+          %br/
+          %span.radio-group-details
+            - first = true
+            - hwp.properties.select { |prop| prop.fixed? }.each do |prop|
+              - unless first
+                ,
+              - first = false
+              = format_hardware_property prop
+          - hwp.properties.reject { |prop| prop.fixed? }.each do |prop|
+            %span.radio-group-details
+              %label{ :for => "#{prop.param}_#{hwp.name}" }
+                = prop.name
+              - if prop.kind == :enum
+                %select{ :size => 1, :name => prop.param }
+                  - for v in prop.values
+                    %option= v
+                = prop.unit
+              - else
+                %input{ :name => prop.param, :size => 10, :value => "#{prop.default}" }
+                = prop.unit
+                (value must be between #{prop.first} #{prop.unit} and #{prop.last} #{prop.unit})
+  - if !@realms.empty?
+    %h3 Where do you want it?
+    - for realm in @realms
+      .radio-group
+        %label{ :for => "realm_id_#{realm.id}" }
+          %input{ :type => :radio, :name => 'realm_id', :value => realm.id }/
+          = realm.id
+          %br/
+          %span.radio-group-details
+            = "#{realm.name}, #{realm.limit}"
+  %input{ :type => :submit, :name => "commit", :value => "create" }/

data/views/instances/show.html.haml

@@ -0,0 +1,42 @@
+%h1
+  = @instance.id
+
+%dl
+  %di
+    %dt Image
+    %dd
+      = link_to @instance.image_id, image_url( @instance.image_id )
+  %di
+    %dt Owner
+    %dd
+      = @instance.owner_id
+  %di
+    %dt Name
+    %dd
+      = @instance.name
+  %di
+    %dt Hardware Profile
+    %dd
+      - prof = @instance.instance_profile
+      = link_to(prof.name, hardware_profile_url(prof.name))
+      = format_instance_profile(prof)
+  %di
+    %dt Realm
+    %dd
+      = @instance.realm_id ? link_to(@instance.realm_id, realm_url(@instance.realm_id)) : 'default'
+  %di
+    %dt State
+    %dd
+      = @instance.state
+  %di
+    %dt Public Addresses
+    %dd
+      = @instance.public_addresses.collect { |address| "<div>#{address}</div>" }.join
+  %di
+    %dt Private Addresses
+    %dd
+      = @instance.private_addresses.collect { |address| "<div>#{address}</div>" }.join
+  %di
+    %dt
+    %dd
+      = @instance.actions.collect { |action| link_to(action, "/api/instances/#{@instance.id}/#{action}") }.join("&nbsp;")