appswarm 0.0.1

data/apps/admin/features/settings.feature

@@ -0,0 +1,68 @@
+Feature: Settings of applications
+  @settings2
+
+  Scenario: Creating and Removing http-app-instances
+    Given a testbed with a "LocalWebServer" application
+    And a "Admin" application in it
+    And a "HelloWorld" application in it
+    When I visit "/admin" on the "LocalWebServer"
+    And I click on "Settings HelloWorldApp"
+    Then the resulting html page contains a field "NewInstanceName"
+    When I enter "MyInstance" into "NewInstanceName"
+    And click on "CreateInstance"
+    Then the resulting html page contains "NewInstanceName"
+    And the "HelloWorld" application has a "MyInstance" instance
+    And the resulting html page contains "MyInstance"
+    When I click on "Delete" within the "MyInstance" form
+    Then the "HelloWorld" application has no "MyInstance" instance
+    And the resulting html page doesn't contain "MyInstance"
+    And the resulting html page contains "NewInstanceName"
+
+  @settings
+
+  Scenario: Publishing your http-app instance on a LocalWebServer
+    Given a testbed with a "LocalWebServer" application
+    And a "Admin" application in it
+    And a "HelloWorld" application in it
+    When I visit "/admin" on the "LocalWebServer"
+    And I click on "Settings HelloWorldApp"
+    Then the resulting html page contains a field "NewInstanceName"
+    When I enter "MyInstance" into "NewInstanceName"
+    And click on "Create Instance"
+    Then the resulting html page contains "NewInstanceName"
+    And the "HelloWorld" application has a "MyInstance" instance
+    When I visit "/admin" on the "LocalWebServer"
+    And I click on "Settings LocalWebServerApp"
+    Then the resulting html page contains "Settings"
+    When I enter "/hello" into "mountPath"
+    Then the resulting html page contains "HelloWorld"
+    When I select "HelloWorld" from "httpApp"
+    And I select "MyInstance" from "httpAppInstance"
+    When I click on "Add mount"
+    Then the resulting html page contains "/hello"
+    And the resulting html page contains "MyInstance"
+    When I visit "/hello" on the "LocalWebServer"
+    Then the resulting html page contains "Hello World"
+    And the resulting html page contains "MyInstance"
+    When I visit "/admin" on the "LocalWebServer"
+    And I click on "Settings LocalWebServerApp"
+    And I click on "Delete" within the "/hello" form
+    Then the resulting html page doesn't contain /MyInstance.* instance/
+    When I visit "/hello" on the "LocalWebServer"
+    Then it is given nothing
+
+
+@settings_restart
+  Scenario: Restarting testbed leaves settings untouched
+    Given a testbed with a "LocalWebServer" application
+    And a "Admin" application in it
+    And a "HelloWorld" application in it
+    And I create a "test" instance on the "HelloWorld" http-application
+    Then the "HelloWorld" application has a "test" instance
+    When the "test" instance of "HelloWorld" is offered on path "/hello" on the "LocalWebServer" application
+    And it is restarted
+    Then the "HelloWorld" application has a "test" instance
+    And the "LocalWebServer" has "3" mounts
+    When I visit "/hello" on the "LocalWebServer"
+    Then the resulting html page contains "test"
+# thus the instance is still there and mounted

data/apps/admin/features/startApps.feature

@@ -0,0 +1,27 @@
+Feature: Starting applications on startup
+  Appswarm should start all applications defined within BASIC_APPS at startup.
+  Apart from this it should start applications that were used in the last session.
+
+  @startup
+  Scenario: Startup from scratch
+    Given a testbed
+    When the cluster is running
+    Then one "Admin" application should be running
+    And one "LocalFileStore" application should be running
+    And one "LocalWebServer" application should be running
+    And one "Permaspace" application should be running
+    And one "Home" application should be running
+    And one "SessionManager" application should be running
+
+  Scenario: Starting an application, stopping the cluster and restoring the application
+    Given a testbed with a "Admin" application
+    And a "Wiki" application in it
+    When it is restarted
+    Then one "Admin" application should be running
+    And one "LocalFileStore" application should be running
+    And one "LocalWebServer" application should be running
+    And one "Permaspace" application should be running
+    And one "Home" application should be running
+    And one "Wiki" application should be running
+    And one "SessionManager" application should be running
+

data/apps/admin/layouts/main.rhtml

@@ -0,0 +1,10 @@
+<html>
+  <head>
+   <%=css("admin")%>
+   <%=javascript("prototype.js")%>
+  </head>
+  <body>
+    <h1>AppSwarm administration</h1>
+    <%=content%>
+  </body>
+</html>

data/apps/admin/lib/settings.rb

@@ -0,0 +1,52 @@
+class AdminAppSettings
+  def self.data(mapping)
+    pp mapping
+  end
+
+  attr_reader :data
+
+  def initialize(app)
+    @app=app
+    @data={}
+  end
+
+  def []=(name,value)
+    @data[name]=value
+  end
+
+  def buildForm
+    @data.map{|setting|
+      
+    }
+  end
+
+end
+
+class SomeSettings
+  def initialize(app)
+    @app=app
+  end
+  def valuesFor(input)
+  end
+
+end
+
+class StringSetting
+  def htmlField(name)
+    "<input type='input' name='#{name}'>#{value}</input>"
+  end
+end
+
+class HTTPInstanceSetting
+  def htmlField(name)
+    
+  end
+
+  def possibleHttpApps
+    @app.cluster.getApps(HTTPApp).map{|app|app.getAppName}
+  end
+
+  def possibleInstances(httpApp)
+    @app.cluster.getAppByName(httpApp).instances
+  end
+end

data/apps/admin/static/admin.css

@@ -0,0 +1,23 @@
+table.log
+{
+  font-size:8pt;
+  font-family: monospace;
+  border: 1px solid black;
+}
+table.log tr.odd
+{
+  background-color:#AAAAFF;
+}
+table.log tr.even
+{
+  background-color:#CCCCFF;
+}
+table.log td
+{
+  vertical-align:top;
+  
+}
+table.log td.what
+{
+  width:40em;
+}

data/apps/admin/views/_log.rhtml

@@ -0,0 +1,21 @@
+<div id='log'
+<table class='log'>
+<script language='javascript'>
+function mreload()
+{
+  x=new Ajax.Updater('log', '/admin/_log', { method: 'get' });
+  setTimeout('mreload();',2000);
+}
+setTimeout('mreload();',2000);
+</script>
+  <%
+  loglist.each{|entry| %>
+    <tr class='<%=count(:tr,2)==0?"odd":"even"%>'>
+      <td><%=entry.time.to_s.to_h%></td>
+      <td><%=entry.klass.to_s.to_h%></td>
+      <td><%=entry.appname.to_s.to_h%></td>
+      <td class='what'><%=entry.what.to_h%></td>
+    </tr>
+  <% } %>
+</table>
+</div>

data/apps/admin/views/index.rhtml

@@ -0,0 +1,43 @@
+<table>
+  <% i=0 %>
+  <% apps.each{|a| %>
+    <tr>
+      <td>
+        <%=i+=1%>
+      </td>
+      <td>
+        <a href='/admin/info/<%=a.getAppName%>'><%=a.getAppName%></a>
+      </td>
+      <td>
+        <%=a.class.to_s.to_h %>
+      </td>
+      <td>
+        <a href='/admin/stop/<%=a.object_id%>'>Stop</a>
+      </td>
+      <td>
+        <a href='/admin/settings/index/<%=a.object_id%>'>Settings <%=a.class.to_s.to_h%></a>
+      </td>
+      <td><%=a.getAppId%></td>
+      <% if a.is_a?(HTTPApp) %>
+        <td>
+          <a href='<%=a.url%>'>Link</a>
+        </td>
+      <% end %>
+    </tr>
+  <% } %>
+</table>
+<hr>
+Application-Types
+<table>
+  <% appTypes.each{|apptype| %>
+    <tr>
+      <td><%=apptype%> </td>
+      <td ><a href="/admin/start/<%=apptype %>">Start <%=apptype%></a></td>
+    </tr>
+  <% } %>
+</table>
+<hr>
+<a href='/admin/shutdown'>Shutdown</a>
+
+
+<%= render_partial :log %>

data/apps/admin/views/info.rhtml

@@ -0,0 +1,7 @@
+<html>
+<body>
+<pre>
+<%=infoVar.pretty_inspect.to_hents%>
+</pre>
+</body>
+</html>

data/apps/admin/views/settings.rhtml

@@ -0,0 +1,9 @@
+<h2>Settings</h2>
+
+<%=appSettings.data.inspect.to_h%>
+
+<form>
+  <%= render_partial :settings_string %>
+  <%= render_partial :settings_httpapp_instance %>
+</form>
+

data/apps/admin/views/settings/_http_app.rhtml

@@ -0,0 +1,15 @@
+<% instances.each{|instance| %>
+  <li>
+    <%=instance.instanceName%>
+    <form method="POST" action="<%=url(:action=>:del)%>/<%=@targetApp.object_id%>" name="<%=instance.instanceName%>">
+      <button name="delete">Delete</button>
+      <input type="hidden" name="instanceName" value="<%=instance.instanceName%>" />
+    </form>
+  </li>
+<% } %>
+
+<form method="POST" action="<%=url(:action=>:add)%>">
+  <input type="hidden"  name="appId" value="<%=@targetApp.object_id%>" />
+  <input type="text" name="NewInstanceName" />
+  <button name="CreateInstance">Create Instance</button>
+</form>

data/apps/admin/views/settings/_web_server.rhtml

@@ -0,0 +1,32 @@
+Current mount points:
+<ul>
+<% @targetApp.mounts.each{|mount| %>
+  <li>
+    <a href="<%="/"+mount.mountPoint%>">
+      "<%=mount.mountPoint%>" to "<%=mount.instance.instanceName%>" instance of <%=mount.instance.instanceType%>
+    </a>
+    <form method="POST" action="<%=url(:action=>:del)%>/<%=@targetApp.object_id%>" name="<%=mount.mountPoint%>">
+      <button name="delete" value="Delete">Delete</button>
+      <input type="hidden" name="mount" value="<%=mount.mountPoint%>" />
+    </form>
+  </li>
+<% } %>
+</ul>
+
+Create new mount point:
+<form method="POST" action="<%=url(:action=>:addMount)%>/<%=@targetApp.object_id%>">
+  <input type="text" name="mountPath">/</input>
+  <select name="httpApp">
+    <%  @targetApp.cluster.getApps(:httpApp).each{|httpApp| %>
+      <option value="<%=httpApp.getAppName%>"><%=httpApp.shortName%></option>
+    <% } %>
+  </select>
+  <select name="httpAppInstance">
+    <%  @targetApp.cluster.getApps(:httpApp).map{|app|app.instances}.flatten.each{|instance| %>
+      <option value="<%=instance.instanceName%>"><%=instance.instanceName%></option>
+    <% } %>
+  </select>
+  <button name="Add mount">Add mount</button>
+</form>
+
+

data/apps/admin/views/settings/index.rhtml

@@ -0,0 +1,3 @@
+<h2>Settings</h2>
+
+<%= render_partial(:editApp) %>

data/apps/admin/views/users/index.rhtml

@@ -0,0 +1,6 @@
+<%#
+# To change this template, choose Tools | Templates
+# and open the template in the editor.
+%>
+
+<%= "indexmyyy" %>

data/apps/application_provider/application_provider.rb

@@ -0,0 +1,11 @@
+require 'service.rb'
+
+class ApplicationProviderApp<Service
+  def initialize(cluster,options)
+    super(cluster,options,:appProvider)
+    
+    
+  end
+  
+  
+end

data/apps/blog/blog.rb

@@ -0,0 +1,27 @@
+require 'http.rb'
+
+class BlogApp<HTTPApp
+  requires :localTupleSpace
+  def initialize(*ops)
+    super
+    u=url
+    withAppFork(:directoryService) do
+      loop do
+        begin
+          log "Trying to register blog"
+          register(u,"blog")
+          log "Registered blog"
+          begin
+          assert{lookup(u)=="blog"}
+        rescue Object=>e
+          log e,e.backtrace
+        end
+          break
+        rescue NetApplication::NotInitialized=>e
+          #pp e
+          log "Failed to register blog",e
+        end
+      end
+    end
+  end
+end

data/apps/blog/controllers/blog.rb

@@ -0,0 +1,29 @@
+class Entry
+  attr_reader :body, :title
+  def initialize(params)
+    @body=params["body"].to_s
+    @title=params["title"].to_s
+  end
+end
+
+class Blog<HTTPController
+  def initialize(app)
+    super
+    
+    @tspace=app.cluster.getApp(:localTupleSpace)
+  end
+  def index(*s)
+    @entries=@tspace.read(:entries)
+    @entries||=[]
+  end
+  
+  def add
+    puts "ADD"
+    entries=@tspace.lend(:entries)
+    entries||=[]
+    entries << Entry.new(params)
+    @tspace.store(:entries,entries)
+    
+    redirect_to(url(:action=>:index))
+  end
+end

data/apps/blog/views/index.rhtml

@@ -0,0 +1,27 @@
+<html>
+<body>
+BLOG
+
+<%=tspace.to_s%>
+
+<%=params.inspect%>
+
+<br>
+<% entries.each{|entry| %>
+<h3><%=entry.title%></h3>
+<p><%=entry.body%></p>
+
+<% } %>
+
+<br>
+
+<form method='POST' action='/blog/add'>
+  <input type='text' name='title' />
+  <br>
+  <textarea name='body'></textarea>
+  <br>
+  <input type='submit'>
+</form>
+
+</body>
+</html>

data/apps/browser_starter/browser_starter.rb

@@ -0,0 +1,32 @@
+require 'application.rb'
+
+class BrowserStarterApp<Application
+  def initialize(*s)
+    super
+  end
+
+  def run
+    dirs=["/Applications/*/Contents/MacOS","/Applications/*/*/Contents/MacOS",
+      "/usr/bin","/usr/local/bin","/opt/bin"
+    ]
+    browsers=["firefox"]
+
+    bs=browsers.map{|b|
+      dirs.map{|d|
+        f=File.join(d,b)
+        pp f
+       Dir[f]
+    }}.flatten
+
+    browser=bs[0]
+
+    pp "BS:",bs
+
+    if browser
+      system "#{browser} http://localhost:4000"
+    else
+      # the windows-way
+      system "start http://localhost:4000"
+    end
+  end
+end