appswarm 0.0.1

data/lib/appswarm/http.rb

@@ -0,0 +1 @@
+require 'http/http_app.rb'

data/lib/appswarm/http/http_app.rb

@@ -0,0 +1,257 @@
+require 'application.rb'
+require 'http/http_provider.rb'
+require 'http/http_controller.rb'
+require 'lib/settings.rb'
+
+class HTTPAppSettings<AdminAppSettings
+  
+end
+
+class HTTPApp<Application
+
+
+  ControllerInfo=Struct.new(:name,:klass,:filePath,:urlPart)
+
+  Instance=Struct.new(:instanceType,:instanceId,:instanceName,:appName)
+
+  requires :sessionManager
+
+  @@mutex=Mutex.new
+  def self.index(name)
+    @index=name
+  end
+  
+  attr_reader :port,:instanceName, :instances
+  
+  def initialize(cluster,options)
+    super(cluster,options)
+    @port=options[:httpPort]
+    @instances=options[:instances]
+    @instances||=[]
+    @controllers=[]
+    getControllerPaths.each{|cntrlPath|loadController(cntrlPath)}
+    provides(:httpApp)
+  end
+
+  def quit
+    saveRunningInstances
+    super
+  end
+
+  def startup
+    runStoredInstances
+    super
+  end
+
+
+  def settings
+    HTTPAppSettings.new(self)
+  end
+
+  def createInstance(name)
+    i=getInstanceByName(name)
+    return i if i
+    inst=Instance.new(self.class.to_s,cluster.createInstanceId,name,getAppName)
+    @instances<<inst
+    inst
+  end
+
+  def deleteInstance(instance)
+    case instance
+      when String
+        instance=getInstanceByName(instance)
+      when Instance
+      else
+        instance=nil
+    end
+    @instances.delete(instance) if instance
+  end
+
+  def defaultInstance
+    createInstance("default")
+  end
+
+  def getInstanceByName(name)
+    @instances.select{|i|i.instanceName==name}[0]
+  end
+
+  def handle(req,res,args,sessionId,instance,currentUrl)
+    begin
+      controller,func,*dummy=req.path_info.sub(/^\//,'').split("/")
+      log "path_info #{req.path_info}"
+      log "HANDLE #{controller} :: #{func}"
+      controller=getController(:urlPart=>controller) if controller
+      if controller.nil?
+        controller||=mainController
+        func,*dummy=req.path_info.sub(/^\//,'').split("/")
+      end
+      raise "NoController defined" if controller.nil?
+      func||="index"
+
+      path_rest=dummy
+
+      l=controller.klass.new(self,instance)
+      l.run(instance,res,func,args,path_rest,currentUrl)
+    rescue Object=>e
+      # maybe a file ?
+      path=req.path_info
+      log "PATH:",path
+      
+      #path=File.join(getAppDir,"static",path)
+      log "PATH:",path
+      unless render_static(res,path)
+        path=path.gsub(/[^\/]*\//,'')
+        unless render_static(res,path)
+         raise e
+        end
+      end
+    end
+  end
+
+  def findFile(fileName)
+    f=File.join(getAppDir,fileName)
+    return f if File.exists?(f)
+    #f=File.join(getAppDir,"..",fileName)
+    #return f if File.exists?(f)
+    return nil
+  end
+
+  def render_static(res,filename)
+    paths=[File.join(getAppDir,"static/"),File.expand_path('../static',__FILE__)]
+    paths.each{|path|
+      cp=File.join(path,filename)
+      #cp=findFile(File.join("static",filename))
+      if cp and File.file?(cp)
+        f=File.open(cp,"r")
+        c=f.read
+        f.close
+        res.body=c
+        res["Content-Type"]=case filename.gsub(/.*\./,"")
+         when "css"
+          "text/css"
+         when "svg"
+          "image/svg+xml"
+         when "ico"
+           "image/icon"
+         else
+          "text/plain"
+        end
+        return true
+      end
+    }
+    false
+  end
+
+
+  def run
+    # do nothing for mow
+  end
+
+  def instancesFor(provider,appName)
+    instances=retrieveConfig[:instances].content
+    if instances
+
+    else
+      if @instances
+        instances=@instances.map{|i|[i,i]}
+      else
+        instances=[["defaultInstance",""]]
+      end
+    end
+    instances.map{|instance|
+      instanceName,url=instance
+      [instanceName,"/"+appName+"/"+url]
+    }
+  end
+  
+  def url
+    base=""
+    base= @p.url if @p
+    mc=mainController
+    log "ControllerName #{mc} #{mc.urlPart}"
+    log "BASE #{base}"
+    return base+"/"+mc.urlPart if mc
+    "/"
+  end
+  
+  def serviceAddress(instance,path="")
+    raise "Instance not found!" unless @instances.member?(instance)
+    [getAppName,instance,path]
+  end
+  
+  # FIXME
+  def machine
+    "localhost"
+  end
+  
+  def stop
+    @p.stop if @p.is_a?(HTTPProvider)
+  end
+  
+  def halt
+    @p.stop if @p.is_a?(HTTPProvider)
+  end
+  
+  def getControllerPaths
+    path=File.join(getAppDir,"controllers","*.rb")
+    log "Controllers #{Dir[path]}"
+    Dir[path]
+  end
+
+
+  def controllerName(controller)
+    controller.gsub(/.*\//,"").gsub(".rb","").camelCase
+  end
+
+  def mainController
+    cntrl=@controllers.select{|c|c.name.downcase==getAppName.downcase}[0]
+    cntrl||@controllers[0] #FIXME: take controller with same name
+  end
+
+  def getController(hash)
+    info=@controllers.select{|c|
+      ok=true
+      hash.each{|k,v|
+        ok&=(c.send(k)==v)
+      }
+      ok
+    }[0]
+    return nil unless info
+    info=loadController(info.filePath) if $DEBUGGING
+    info
+  end
+  
+  def loadController(controllerPath)
+    log "Loading Controller #{controllerPath}"
+    controllerName=controllerName(controllerPath)
+    log controllerName
+    controllerPrg=File.load(controllerPath)
+    return unless controllerPrg
+    log "OK loaded"
+    self.class.send(:class_eval,controllerPrg) #create class
+    
+    klass=self.class.class_eval(controllerName)
+
+    info=ControllerInfo.new(controllerName,klass,controllerPath,controllerName.underscored)
+
+    @controllers<<info unless @controllers.select{|c|c.klass==klass}.length>0
+    info
+  end
+
+
+  private
+  def saveRunningInstances
+    config=retrieveConfig
+    config["instances"]=@instances
+  end
+
+  def runStoredInstances
+    config=retrieveConfig
+    inst=config["instances"].content
+    if inst.is_a?(Array)
+      inst.each{|i|
+        @instances<<i
+      }
+    end
+  end
+end

data/lib/appswarm/http/http_controller.rb

@@ -0,0 +1,267 @@
+require 'erb'
+
+
+def use_template(category,name)
+  begin
+  case category
+    when :web
+      path=File.join(asBaseDir,"templates","web",name.to_s)
+      $:<<path
+
+      cntrlPath=File.join(path,"controllers")
+      controllerFiles=Dir[File.join(cntrlPath,"*")]
+      controllerFiles.each{|f|load f}
+  end
+  rescue Object=>e
+    log "Error:",e,e.backtrace
+  end
+end
+
+class HTTPController
+  
+  class DummyResult
+    attr_accessor :body,:status
+    def initialize
+      @body=nil
+      @values={}
+    end
+    def []=(name,value)
+      @values[name]=value
+    end
+  end
+  
+  attr_accessor :contentType
+  attr_accessor :params,:sessionId
+  
+  class UnknownAction<Exception
+    def initialize(e)
+      @e=e
+      
+    end
+    def to_s
+      if @e.is_a?(Exception)
+        "Unknown Exception #{@e.inspect}\n"+@e.backtrace.join("\n")
+      else
+        "Unknown Exception #{@e.inspect}"
+      end
+    end
+  end
+
+  def self.layout(layoutName)
+    @@layoutName||={}
+    @@layoutName[self]=layoutName
+    #log "SETTING LAYOUT: #{self}"
+  end
+  def layoutName
+    @@layoutName||={}
+    @@layoutName[self.class]
+  end
+
+  WebRequest=Struct.new(:path,:args)
+
+  def initialize(app,instanceName)
+    @app=app
+    @b=binding
+    @view=true
+    @instanceName=instanceName
+    @params={}
+
+    @basePaths=[@app.getAppDir,File.expand_path('..',__FILE__)]
+  end
+
+  def log(*args)
+    @app.log(*args)
+  end
+
+  def session
+    @app.getApp(:sessionManager).get(@app,sessionId)
+  end
+
+  def findFile(fileName)
+    @basePaths.each{|p|
+      f=File.join(p,fileName)
+      return f if File.exists?(f)
+    }
+    return nil
+  end
+
+  def viewInstead(rhtml)
+    @mrhtml=rhtml
+  end
+
+  
+  def run(instance,res,action,args,path_rest,currentUrl)
+    log "controller-run"
+    log "ACTION ",action
+    @res=res
+    @instance=instance
+    @currentUrl=currentUrl
+    @params=args
+
+    path=path_rest
+
+    action||="index"
+    log "ACTION #{action} #{args}"
+    if respond_to?(action)
+      webRequest=WebRequest.new(path,args)
+      m=method(action)
+      if m
+        if m.arity>0
+          send(action,webRequest)
+        else
+          send(action)
+        end
+      end
+    else
+      log "#{self} DOES not respond to #{action}"
+      res.status=404
+    end
+    log "VIEW:#{@view}"
+    if @view
+      begin
+        #action=@mrhtml if @mrhtml
+        mrhtml=@mrhtml||action
+        #mrhtml=action
+        cntrlName=controllerName
+        path=File.join("views",cntrlName,"#{mrhtml}.rhtml")
+        if cntrlName==@app.getAppName.underscored
+          path=File.join("views","#{mrhtml}.rhtml")
+        end
+        filename=findFile(path)
+        log "FILE #{filename} #{path}"
+        @mrhtml=nil
+        if filename
+          c=File.read(filename)
+          res.body=ERB.new(c).result binding
+          res["Content-Type"]="text/html"
+          #log "RES:",res
+
+          log "LAYOUT #{self.class} #{layoutName}"
+
+          if layoutName and not action=~/_.*/
+            layout=layoutName.to_s
+            #filename="apps/#{app.shortName.downcase}/layouts/#{layout}.rhtml"
+            filename=findFile(File.join("layouts","#{layout}.rhtml"))
+            if File.file?(filename)
+              c=File.read(filename)
+              content=res.body
+              res.body=ERB.new(c).result binding
+              res["Content-Type"]="text/html"
+            end
+          end
+          log "OK"
+
+          # FIXME: fix content-size !!!
+
+        else
+          raise UnknownAction.new(action)
+        end
+
+
+      rescue Exception=>e
+        raise e if e.is_a?(UnknownAction)
+        raise UnknownAction.new(e)
+      end
+    end
+  end
+  def method_missing(name,*s)
+    if s.length==0 and instance_variable_defined?("@"+name.to_s)
+      instance_variable_get("@"+name.to_s)
+    else
+      super
+    end
+  end
+  def render_html(html)
+    @res.body=html
+    @res["Content-Type"]="text/html"
+    @view=false    
+  end
+  def redirect_to(purl)
+    purl=url(purl) if purl.is_a?(Hash)
+    @res.header["Location"]=purl
+    @res["Content-Type"]="text/html"
+    @res.body="<HTML><A HREF=\"#{purl.to_s}\">#{purl.to_s}</A>.</HTML>\n"
+    @res.status=302
+    @view=false
+  end
+  def url(a)
+
+    ps=[]
+    a.each{|n,v|
+      if n!=:action
+        ps << "#{n}=#{v}"
+      end
+    }
+    args=ps.join("&")
+    args="?#{args}" if args.length>0
+
+    u=@currentUrl.gsub(/\/$/,'')
+
+    if urlPart!=@app.mainController.urlPart
+      u+="/#{urlPart}"
+    end
+    u+"/#{a[:action]}"+args
+  end
+
+  def urlPart
+    self.class.to_s.gsub(/.*:/,'').underscored
+  end
+
+  def self.controllerName
+    self.to_s.downcase.gsub(/.*:/,"")
+  end
+
+  def controllerName
+    name.gsub(/.*:/,"")
+  end
+  def name
+    self.class.to_s.downcase    
+  end
+  
+  def render_partial(name,args={}) # FIXME args={} ???
+    res=DummyResult.new
+    #log name
+    run(@instance,res,"_"+name.to_s,args,[],@currentUrl)
+
+    return res.body
+  end
+  
+  def count(name,to=nil)
+    @counters||={}
+    @counters[name]||=0
+    @counters[name]+=1
+    if @counters[name]>=to
+      @counters[name]=0
+    end
+    @counters[name]
+  end
+  
+  def css(file)
+    file+=".css" unless file=~/\.css$/
+    "<link rel=\"stylesheet\" href=\"#{url(:action=>file)}\" type=\"text/css\" media=\"screen\" />"
+  end
+  
+  def javascript(file)
+    file+=".js" unless file=~/\.js$/
+
+    local=findFile(File.join("static",file))
+    if local
+      file=local
+    else
+      file=File.join("/javascript",file)
+    end
+    "<script language='javascript' src='#{file}'></script>"
+  end
+  private :javascript
+  
+end
+#
+
+class TemplateController<HTTPController
+  def initialize(*args)
+    super
+    templateCntrlFile=caller[0].split(":")[0]
+    templateDir=File.expand_path('../..',templateCntrlFile)
+    @basePaths<<templateDir
+  end
+end