knjtasks 0.0.3

data/scripts/fckeditor_validate_login.rb

@@ -0,0 +1,23 @@
+args = {
+  "host" => $validate_login["_SERVER"]["HTTP_HOST"]
+}
+
+if $validate_login["_SERVER"]["HTTPS"] or $validate_login["_SERVER"]["HTTP_SSL_ENABLED"]
+  args["ssl"] = true
+  args["port"] = 443
+  args["validate"] = false
+end
+
+http = Knj::Http.new(args)
+http.cookies["KnjappserverSession"] = $validate_login["_COOKIE"]["KnjappserverSession"]
+data = http.get("/?show=users_login")
+
+if data["data"].to_s.index("<form method=\"post\" action=\"?show=user_login") == nil
+  print JSON.generate(
+    "Enabled" => true
+  )
+else
+  print JSON.generate(
+    "Enabled" => false
+  )
+end

data/spec/knjtasks_spec.rb

@@ -0,0 +1,115 @@
+require File.expand_path(File.dirname(__FILE__) + '/spec_helper')
+
+describe "Knjtasks" do
+  it "should be able to require the needed frameworks and gems" do
+    require "rubygems"
+    require "sqlite3"
+    require "knjrbfw"
+    require "knjtasks"
+    Knj.gem_require(:Hayabusa)
+    Knj.gem_require(:Http2)
+  end
+  
+  it "should be able to require all the model-framework-files." do
+    models_path = "#{File.dirname(__FILE__)}/../models"
+    Dir.new(models_path).each do |file|
+      next if file == "." or file == ".."
+      fp = "#{models_path}/#{file}"
+      require fp
+    end
+  end
+  
+  it "should be able to generate a sample database and start a test-environment." do
+    db_path = "#{Knj::Os.tmpdir}/knjtasks_spec_database_sample.sqlite3"
+    File.unlink(db_path) if File.exists?(db_path)
+    
+    db = Knj::Db.new(
+      :type => "sqlite3",
+      :path => db_path,
+      :return_keys => "symbols",
+      :index_append_table_name => true
+    )
+    tasks = Knjtasks.new(
+      :title => "rake_rspec",
+      :host => "0.0.0.0",
+      :port => 1515,
+      :db => db,
+      :knjjs_url => "http://www.kaspernj.org/js",
+      :email_admin => "k@spernj.org",
+      :email_robot => "k@spernj.org",
+      :smtp_args => {
+        "smtp_host" => "localhost",
+        "smtp_port" => 25
+      },
+      :db_args => false
+    )
+    
+    tasks.start
+    $tasks = tasks
+    
+    #The admin-user should exists.
+    user = tasks.ob.get_by(:User, "username" => "admin", "passwd" => Digest::MD5.hexdigest("admin"))
+    raise "Expected admin user to exist but it didnt." if !user
+    
+    $http = Http2.new(:host => "localhost", :port => 1515, :follow_redirects => false)
+  end
+  
+  it "should be able to log in" do
+    res = $http.post(:url => "?show=user_login&choice=dologin", :post => {
+      "texuser" => "admin",
+      "texpass_md5" => Digest::MD5.hexdigest("admin"),
+      "cheremember" => "on"
+    })
+    
+    res = $http.get("?show=user_login")
+    raise "Expected to be logged in but wasnt according to HTML:\n#{res.body}" if res.body.index("You are logged in as") == nil
+  end
+  
+  it "should be able to add customers" do
+    res = $http.post(:url => "?show=customer_edit&choice=dosave", :post => {
+      "texname" => "Test customer"
+    })
+    
+    if match = res.body.match(/location\.href="\?show=customer_edit&customer_id=(\d+)"/)
+      $customer = $tasks.ob.get(:Customer, match[1])
+    else
+      raise "Expected to be redirected to the new customer but wasnt:\n#{res.body}"
+    end
+  end
+  
+  it "should be able to add projects" do
+    res = $http.post(:url => "?show=project_edit&choice=dosave", :post => {
+      "texname" => "Test project",
+      "selcustomer" => $customer.id,
+      "texdescr" => "Test project"
+    })
+    
+    if match = res.body.match(/location\.href="\?show=project_edit&project_id=(\d+)"/)
+      $project = $tasks.ob.get(:Project, match[1])
+    else
+      raise "Expected to be redirected to new project but wasnt:\n#{res.body}"
+    end
+  end
+  
+  it "should be able to add tasks" do
+    res = $http.post(:url => "?show=task_edit&choice=dosave", :post => {
+      "texname" => "Test task",
+      "texdescr" => "Test description",
+      "selproject" => $project.id,
+      "type" => "feature"
+    })
+    
+    if match = res.body.match(/location\.href="\?show=task_show&task_id=(\d+)"/)
+      $task = $tasks.ob.get(:Task, match[1])
+    else
+      raise "Expected to be redirected to new task but wasnt:\n#{res.body}"
+    end
+  end
+  
+  it "should show special HTML for expired sessions" do
+    res = $http.get(:url => "?show=user_login&choice=dologout")
+    res = $http.get(:url => "clean.rhtml?show=task_show&task_id=#{$task.id}&choice=gettimelogs")
+    
+    raise "Expected message about not logged in but got this instead: '#{res.body}'." if res.body != "You are not logged in. Log in and try to view this page again."
+  end
+end

data/spec/spec_helper.rb

@@ -0,0 +1,12 @@
+$LOAD_PATH.unshift(File.join(File.dirname(__FILE__), '..', 'lib'))
+$LOAD_PATH.unshift(File.dirname(__FILE__))
+require 'rspec'
+require 'knjtasks'
+
+# Requires supporting files with custom matchers and macros, etc,
+# in ./support/ and its subdirectories.
+Dir["#{File.dirname(__FILE__)}/support/**/*.rb"].each {|f| require f}
+
+RSpec.configure do |config|
+  
+end

data/threads/thread_mail_task_comments.rb

@@ -0,0 +1,114 @@
+#This class checks the mail-account for mails and imports them as comments.
+class Knjtasks::Thread_mail_task_comments
+  def initialize(args = {})
+    @args = args
+    
+    require "rubygems"
+    require "mail"
+    
+    if !@args[:args][:mail_args][:port]
+      @args[:args][:mail_args][:port] = 143 if @args[:args][:mail_args][:type] == "imap"
+      @args[:args][:mail_args][:port] = 100 if @args[:args][:mail_args][:type] == "pop3"
+    end
+  end
+  
+  def run
+    STDOUT.print "Checking for mails.\n" if @args[:appsrv].debug
+    conn = Net::IMAP.new(@args[:args][:mail_args][:host], @args[:args][:mail_args][:port].to_i, @args[:args][:mail_args][:ssl])
+    
+    if @args[:args][:mail_args][:user] and @args[:args][:mail_args][:pass]
+      conn.login(@args[:args][:mail_args][:user], @args[:args][:mail_args][:pass])
+    end
+    
+    conn.select("INBOX")
+    emails = conn.search(["ALL"])
+    emails.each do |msg_id|
+      error = nil
+      from = nil
+      html = nil
+      
+      begin
+        msg = conn.fetch(msg_id, "(ENVELOPE RFC822)")
+        mail = Mail.new(msg[0].attr["RFC822"])
+        
+        env = msg[0].attr["ENVELOPE"]
+        from = "#{env.from.first.mailbox}@#{env.from.first.host}"
+        env_msg_id = env.message_id
+        
+        if _ob.static(:Email_check, :checked_id?, env_msg_id)
+          next
+        else
+          _db.insert(:Email_check, {:email_id_str => env_msg_id})
+        end
+        
+        user = @args[:ob].get_by(:User, {"email" => from})
+        raise "Could not find a user in this task-system with that email: '#{from}'." if !user
+        
+        subj_match = mail.subject.to_s.match(/^([A-z]{1,3}):\s+(\S+)\s+#(\d+):\s+/)
+        raise "Could not figure out the task-ID from the email." if !subj_match
+        task_id = subj_match[3]
+        
+        begin
+          task = @args[:ob].get(:Task, task_id)
+        rescue
+          raise "Could not find a task in this task-system with that task-ID: '#{task_id}'."
+        end
+        
+        parts = {}
+        mail.parts.each do |part|
+          if part.content_type.match(/^text\/plain/)
+            parts[:plain] = part.body.to_s
+          elsif part.content_type.match(/^text\/html/) and match = part.body.match(/<body.*>([\s\S]+)<\/body>/)
+            parts[:html] = match[1]
+          end
+        end
+        
+        if parts[:html]
+          html = parts[:html]
+          html.gsub!(/<blockquote([\s\S]+?)>([\s\S]+?)<\/blockquote>/i, "")
+          html.gsub!(/on\s+\d+.+?\s+wrote:/i, "")
+          html.gsub!(/<pre.+?class="moz-signature".*?>([\s\S]*?)<\/pre>/i, "")
+          html = Knj::Strings.strip(html, {
+            :strips => [" ", "\n", "\r", "<br>", "<br />", "<br/>"]
+          })
+        elsif parts[:plain]
+          html = parts[:plain]
+          html.gsub!(/on\s+\d+.+?\s+wrote:/i, "")
+          html.gsub!(/^>(.*?)\n/, "")
+          html.gsub!(/\n-- \n[\s\S]++/, "")
+          html = Knj::Strings.strip(html, {
+            :strips => ["\n", "\r", "<br>", "<br />", "<br/>"]
+          })
+          html.gsub!(/\n/, "<br>")
+        end
+        
+        raise "Could not read any content in the email." if !html
+        
+        comment = @args[:ob].add(:Comment, {
+          :object_class => :Task,
+          :object_id => task.id,
+          :comment => html,
+          :user_id => user.id
+        })
+        
+        conn.store(msg_id, "+FLAGS", ["DELETED"])
+        conn.expunge
+      rescue => e
+        if !from
+          STDOUT.print "Could not respond to task-email."
+          STDOUT.puts e.inspect
+          STDOUT.puts e.backtrace
+        else
+          @args[:appsrv].mail(
+            :to => from,
+            :subject => "Your email to the task-system.",
+            :text => "Could not parse your email:\n\n#{e.inspect}\n#{e.backtrace.join("\n")}"
+          )
+        end
+      end
+    end
+    
+    conn.logout
+    conn.disconnect
+  end
+end

data/www/api/task.rhtml

@@ -0,0 +1,9 @@
+<%
+  arr = []
+  
+  _ob.list(:Task) do |task|
+    arr << task.data
+  end
+  
+  print JSON.generate(arr)
+%>

data/www/api/user.rhtml

@@ -0,0 +1,20 @@
+<%
+  if _get["choice"] == "dologin"
+    user = _ob.get_by(:User, {
+      "username" => _post["username"],
+      "passwd" => _post["password"]
+    })
+    if !user
+      print JSON.generate(
+        "result" => false,
+        "msg" => "User not found."
+      )
+    else
+      print JSON.generate(
+        "result" => true,
+        "msg" => "Logged in as user #{user.id}.",
+        "user_data" => user.data
+      )
+    end
+  end
+%>

data/www/clean.rhtml

@@ -0,0 +1,14 @@
+<%
+  _site.load_request
+  
+  show = _get["show"]
+  show = "frontpage" if !show
+  showp = "../pages/#{show}.rhtml"
+  
+  if !_site.user
+    print _("You are not logged in. Log in and try to view this page again.")
+    exit
+  end
+  
+  _hb.import(showp)
+%>

data/www/css/default.css

@@ -0,0 +1,186 @@
+html, body, input, textarea, select, td{
+  font-family: verdana, tahoma, arial;
+  font-size: 12px;
+  color: black;
+}
+
+html, body, html > body > center{
+  width: 100%;
+  height: 100%;
+  margin: 0px;
+  padding: 0px;
+}
+
+body{
+  background: url("/gfx/body_bg.jpg") 0 0 repeat;
+}
+
+a:link, a:visited{
+  color: #698295;
+  text-decoration: none;
+}
+
+a:active, a:hover{
+  color: #272727;
+  text-decoration: none;
+}
+
+table.main_table{
+  height: 100%;
+  width: 1200px;
+  border-top: none;
+  border-bottom: none;
+  text-align: left;
+}
+
+td.main_logo{
+  font-size: 24px;
+  padding: 15px;
+  padding-left: 28px;
+  height: 40px;
+}
+
+div.main_menu_outer{
+  position: relative;
+  height: 19px;
+}
+
+div.main_menu_inner{
+  position: absolute;
+  top: -15px;
+  font-size: 16px;
+}
+
+td.main_bottom{
+  text-align: center;
+  padding: 4px;
+  background-color: #ffffff;
+  height: 25px;
+}
+
+td.main_corner_top_left{
+  width: 41px;
+  height: 41px;
+  background: url("/gfx/main_box_top_left.png") 0 0 no-repeat;
+}
+
+td.main_corner_top_right{
+  width: 41px;
+  height: 41px;
+  background: url("/gfx/main_box_top_right.png") 0 0 no-repeat;
+}
+
+td.main_side_top{
+  height: 41px;
+  background: url("/gfx/main_box_top.png") 0 0 repeat-x;
+}
+
+td.main_side_left{
+  width: 41px;
+  background: url("/gfx/main_box_left.png") 0 0 repeat-y;
+}
+
+td.main_side_right{
+  width: 41px;
+  background: url("/gfx/main_box_right.png") 0 0 repeat-y;
+}
+
+td.main_body{
+  background-color: #ffffff;
+  vertical-align: top;
+}
+
+table.box{
+  border: none;
+}
+
+td.box_header{
+  font-weight: bold;
+  white-space: nowrap;
+  text-align: right;
+  background-color: #666666;
+  padding: 5px;
+  color: #d9d9d9;
+}
+
+td.box_header_spacer{
+  width: 27%;
+}
+
+td.box_content{
+  border: 1px solid #666666;
+  padding: 7px;
+  padding-right: 14px;
+  background-color: #ffffff;
+}
+
+.buttons{
+  text-align: right;
+}
+
+table.form, table.list{
+  width: 100%;
+}
+
+thead > tr > th{
+  font-size: 12px;
+  text-align: left;
+  white-space: nowrap;
+}
+
+td.tdt, td.tdcheck{
+  font-weight: bold;
+  white-space: nowrap;
+}
+
+td.tdc{
+  width: 100%;
+}
+
+td.tdd, div.tdd{
+  color: grey;
+  padding-top: 0px;
+  padding-bottom: 7px;
+  font-size: 10px;
+}
+
+td.tdr, th.tdr{
+  text-align: right;
+}
+
+.error{
+  font-style: italic;
+}
+
+td.error{
+  text-align: center;
+}
+
+input, select, textarea{
+  border: 1px solid #bbbbbb;
+  background-color: #ffffff;
+  color: #000000;
+  padding: 4px;
+}
+
+input[type=button], input[type=submit], input.button{
+  border: 1px solid #989898;
+  background: url("/gfx/button_bg.png") 0 0 repeat-x;
+  height: 20px;
+  font-size: 12px;
+  padding: 0px 9px 0px 9px;
+  margin: 0px 0px 0px 0px;
+}
+
+input[type=checkbox]{
+  border: none;
+  background-color: transparent;
+}
+
+input.input_text, input.input_password, select.input_select, textarea.input_textarea{
+  width: 100%;
+}
+
+.nowrap{
+  white-space: nowrap;
+}