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