hayabusa 0.0.1

data/lib/models/log_data.rb

@@ -0,0 +1,27 @@
+class Hayabusa::Models::Log_data < Knj::Datarow
+  def self.force(d, id_hash)
+    data_obj = d.ob.get_by(:Log_data, {"id_hash" => id_hash})
+    
+    if !data_obj
+      data_obj = d.ob.add(:Log_data, {"id_hash" => id_hash})
+    end
+    
+    return data_obj
+  end
+  
+  def self.force_id(d, id_hash)
+    data = d.db.query("SELECT * FROM Log_data WHERE id_hash = '#{d.db.esc(id_hash)}' LIMIT 1").fetch
+    return data[:id].to_i if data
+    return d.db.insert(:Log_data, {:id_hash => id_hash}, {:return_id => true}).to_i
+  end
+  
+  def self.by_id_hash(d, id_hash)
+    data = d.db.query("SELECT * FROM Log_data WHERE id_hash = '#{d.db.esc(id_hash)}' LIMIT 1").fetch
+    return data[:id].to_i if data
+    return false
+  end
+  
+  def links(args = {})
+    return ob.list(:Log_data_link, {"data" => self}.merge(args))
+  end
+end

data/lib/models/log_data_link.rb

@@ -0,0 +1,3 @@
+class Hayabusa::Models::Log_data_link < Knj::Datarow
+  
+end

data/lib/models/log_data_value.rb

@@ -0,0 +1,21 @@
+class Hayabusa::Models::Log_data_value < Knj::Datarow
+  def self.force(d, value)
+    value_obj = d.ob.get_by(:Log_data_value, {
+      "value" => value.to_s
+    })
+    
+    if !value_obj
+      value_obj = d.ob.add(:Log_data_value, {"value" => value})
+    end
+    
+    return value_obj
+  end
+  
+  def self.force_id(d, value)
+    d.db.select(:Log_data_value, {"value" => value}) do |d_val|
+      return d_val[:id].to_i if d_val[:value].to_s == value.to_s #MySQL doesnt take upper/lower-case into consideration because value is a text-column... lame! - knj
+    end
+    
+    return d.db.insert(:Log_data_value, {:value => value}, {:return_id => true}).to_i
+  end
+end

data/lib/models/log_link.rb

@@ -0,0 +1,65 @@
+class Hayabusa::Models::Log_link < Knj::Datarow
+  has_one [
+    {:class => :Log, :col => :log_id, :method => :log}
+  ]
+  
+  def self.list(d, &block)
+    if d.args["count"]
+      sql = "SELECT COUNT(id) AS count FROM #{table} WHERE 1=1"
+      count = true
+      d.args.delete("count")
+    else
+      sql = "SELECT * FROM #{table} WHERE 1=1"
+    end
+    
+    q_args = nil
+    ret = self.list_helper(d)
+    sql << ret[:sql_joins]
+    
+    d.args.each do |key, val|
+      case key
+        when "object_class"
+          data_val = d.db.single(:Log_data_value, {"value" => val})
+          return [] if !data_val #if this data-value cannot be found, nothing has been logged for the object. So just return empty array here and skip the rest.
+          sql << " AND object_class_value_id = '#{d.db.esc(data_val[:id])}'"
+        when :cloned_ubuf
+          q_args = {:cloned_ubuf => true}
+        else
+          raise "Invalid key: #{key}."
+      end
+    end
+    
+    sql << ret[:sql_where]
+    
+    return d.db.query(sql).fetch[:count].to_i if count
+    
+    sql << ret[:sql_order]
+    sql << ret[:sql_limit]
+    
+    return d.ob.list_bysql(:Log_link, sql, q_args, &block)
+  end
+  
+  def self.add(d)
+    if d.data.has_key?(:object)
+      class_data_id = d.ob.static(:Log_data_value, :force, d.data[:object].class.name)
+      d.data[:object_class_value_id] = class_data_id.id
+      d.data[:object_id] = d.data[:object].id
+      d.data.delete(:object)
+    end
+    
+    log = d.ob.get(:Log, d.data[:log_id]) #throws exception if it doesnt exist.
+  end
+  
+  def object(ob_use)
+    begin
+      class_name = ob.get(:Log_data_value, self[:object_class_value_id])[:value].split("::").last
+      return ob_use.get(class_name, self[:object_id])
+    rescue Errno::ENOENT
+      return false
+    end
+  end
+  
+  def object_class
+    return ob.get(:Log_data_value, self[:object_class_value_id])[:value]
+  end
+end

data/lib/models/session.rb

@@ -0,0 +1,35 @@
+class Hayabusa::Models::Session < Knj::Datarow
+  attr_reader :edata
+  attr_accessor :sess_data
+  
+  def initialize(*args, &block)
+    @edata = {}
+    super(*args, &block)
+    
+    if self[:sess_data].to_s.length > 0
+      begin
+        @sess_data = Marshal.load(Base64.decode64(self[:sess_data]))
+      rescue ArgumentError
+        @sess_data = {}
+      end
+    else
+      @sess_data = {}
+    end
+  end
+  
+  def self.add(d)
+    d.data[:date_added] = Time.now if !d.data[:date_added]
+    d.data[:date_lastused] = Time.now if !d.data[:date_lastused]
+  end
+  
+  def flush
+    flush_data = Base64.encode64(Marshal.dump(@sess_data))
+    
+    if self[:sess_data] != flush_data
+      self.update(
+        :sess_data => flush_data,
+        :date_lastused => Time.now
+      )
+    end
+  end
+end

data/pages/benchmark_print.rhtml

@@ -0,0 +1,14 @@
+<%
+  0.upto(100) do
+    print "Test 1<br />\n"
+    print "Test 2<br />\n"
+    print "Test 3<br />\n"
+    print "Test 4<br />\n"
+    print "Test 5<br />\n"
+    print "Test 6<br />\n"
+    print "Test 7<br />\n"
+    print "Test 8<br />\n"
+    print "Test 9<br />\n"
+    print "Test 10<br />\n"
+  end
+%>

data/pages/benchmark_simple.rhtml

@@ -0,0 +1,3 @@
+<%
+  Php4r.print_r([_get, _post, _meta])
+%>

data/pages/benchmark_threadded_content.rhtml

@@ -0,0 +1,21 @@
+<%
+  print "1"
+  
+  _hb.threadded_content do
+    sleep 0.1
+    print "2"
+  end
+  
+  _hb.threadded_content do
+    print "3"
+  end
+  
+  print "4"
+  
+  _hb.threadded_content do
+    sleep 0.1
+    print "5"
+  end
+  
+  print "6"
+%>

data/pages/debug_database_connections.rhtml

@@ -0,0 +1,46 @@
+<h1>Database connections</h1>
+
+<table>
+  <thead>
+    <tr>
+      <th>Key</th>
+      <th>Free</th>
+    </tr>
+  </thead>
+  <tbody>
+    <%
+      thread_handler = _hb.db_handler.conns
+      if !thread_handler.is_a?(Knj::Threadhandler)
+        print "A threadhandler has not been spawned for this instance."
+        exit
+      end
+      
+      objects = thread_handler.objects.clone
+      
+      objects.each_index do |key|
+        val = objects[key]
+        
+        %>
+          <tr>
+            <td>
+              <%=key%>
+            </td>
+            <td>
+              <%=Knj::Strings.yn_str(val[:free])%>
+            </td>
+          </tr>
+        <%
+      end
+      
+      if objects.empty?
+        %>
+          <tr>
+            <td colspan="2">
+              Thread handler was spawned but no active connections was spawned?
+            </td>
+          </tr>
+        <%
+      end
+    %>
+  </tbody>
+</table>

data/pages/debug_http_sessions.rhtml

@@ -0,0 +1,40 @@
+<h1>HTTP sessions</h1>
+
+<table>
+  <thead>
+    <tr>
+      <th>Key</th>
+      <th>Working</th>
+    </tr>
+  </thead>
+  <tbody>
+    <%
+      sessions = _hb.httpserv.http_sessions.clone
+      
+      sessions.each_index do |key|
+        http_session = sessions[key]
+        
+        %>
+          <tr>
+            <td>
+              <%=key%>
+            </td>
+            <td>
+              <%=Knj::Strings.yn_str(http_session.working)%>
+            </td>
+          </tr>
+        <%
+      end
+      
+      if sessions.empty?
+        %>
+          <tr>
+            <td colspan="2">
+              No HTTP-sessions has been spawned.
+            </td>
+          </tr>
+        <%
+      end
+    %>
+  </tbody>
+</table>

data/pages/debug_memory_usage.rhtml

@@ -0,0 +1,16 @@
+<%
+  if _get["choice"] == "dogarbagecollect"
+    GC.start
+    _hb.redirect("?show=debug_memory_usage")
+  end
+%>
+
+<h1>Memory usage</h1>
+
+<div style="padding-bottom: 15px;">
+  <input type="button" value="Garbage collect" onclick="location.href='?show=debug_memory_usage&amp;choice=dogarbagecollect';" />
+</div>
+
+<%
+  Knj::Memory_analyzer.new.write
+%>

data/pages/error_notfound.rhtml

@@ -0,0 +1,12 @@
+<%
+  _httpsession.resp.status = 404
+%>
+<!DOCTYPE HTML PUBLIC "-//IETF//DTD HTML 2.0//EN">
+<html><head>
+<title>404 Not Found</title>
+</head><body>
+<h1>Not Found</h1>
+<p>The requested URL <%=_meta["REQUEST_URI"]%> was not found on this server.</p>
+<hr>
+<address>Hayabusa at <%=_meta["HTTP_HOST"]%></address>
+</body></html>

data/pages/logs_latest.rhtml

@@ -0,0 +1,57 @@
+<%
+  access = _hb.events.call(:check_page_access, {:page => :logs_latest})
+  if !access
+    print _("You do not have access to this page.")
+    exit
+  end
+  
+  ob = _hb.events.call(:ob)
+%>
+
+<table class="list">
+  <thead>
+    <tr>
+      <th><%=_("ID")%></th>
+      <th><%=_("Log")%></th>
+      <%if ob%>
+        <th><%=_("Object")%></th>
+      <%end%>
+    </tr>
+  </thead>
+  <tbody>
+    <%
+      logs = _hb.ob.list(:Log, {
+        "orderby" => [["date_saved", "desc"]],
+        "limit" => 200
+      })
+      
+      logs.each do |log|
+        %>
+          <tr>
+            <td>
+              <a href="logs_show.rhtml?log_id=<%=log.id%>"><%=log.id%></a>
+            </td>
+            <td>
+              <%=log.first_line%>
+            </td>
+            <%if ob%>
+              <td>
+                <%=log.objects_html(ob)%>
+              </td>
+            <%end%>
+          </tr>
+        <%
+      end
+      
+      if logs.empty?
+        %>
+          <tr>
+            <td class="error">
+              <%=_("No logs were found.")%>
+            </td>
+          </tr>
+        <%
+      end
+    %>
+  </tbody>
+</table>

data/pages/logs_show.rhtml

@@ -0,0 +1,32 @@
+<%
+  access = _hb.events.call(:check_page_access, {:page => :logs_show})
+  if !access
+    print _("You do not have access to this page.")
+    exit
+  end
+  
+  ob = _hb.events.call(:ob)
+  log = _hb.ob.get(:Log, _get["log_id"])
+%>
+
+<table class="form">
+  <%
+    print Knj::Web.inputs([{
+      :title => _("Date"),
+      :type => :info,
+      :value => Datet.in(log[:date_saved]).out
+    }])
+    
+    if ob
+      print Knj::Web.input(
+        :title => _("Objects"),
+        :type => :info,
+        :value => log.objects_html(ob)
+      )
+    end
+  %>
+</table>
+
+<div style="padding-top: 10px;">
+  <%=log.text%>
+</div>

data/pages/spec.rhtml

@@ -0,0 +1,41 @@
+<%
+  require "json"
+  
+  if _get["choice"] == "test_cookie"
+    _hb.cookie(
+      "name" => "TestCookie",
+      "value" => "TestValue",
+      "expires" => Time.new + 3600 #add an hour
+    )
+    _hb.cookie(
+      "name" => "TestCookie2",
+      "value" => "TestValue2",
+      "expires" => Time.new + 7200 #add an hour
+    )
+    _hb.cookie(
+      "name" => "TestCookie3",
+      "value" => "TestValue 3 ",
+      "expires" => Time.new + 1200
+    )
+    exit
+  elsif _get["choice"] == "dopostconvert"
+    print JSON.generate(_post)
+    exit
+  end
+  
+  if _get["choice"] == "get_cookies"
+    print JSON.generate(_cookie)
+    exit
+  end
+  
+  _hb.header("TestHeader", "NormalHeader")
+  _hb.header_raw("TestRaw: RawHeader")
+  
+  if _meta["REQUEST_METHOD"] == "POST"
+    print _post["postdata"]
+  elsif _get["choice"] == "check_get_parse"
+    print _get["value"]
+  else
+    print "Test"
+  end
+%>