knjrbfw 0.0.3

data/lib/knj/webscripts/image.rhtml

@@ -0,0 +1,82 @@
+<%
+	idstr = Knj::Php.md5("#{_get["path"]}_#{_get["smartsize"].to_i}_#{_get["width"].to_i}_#{_get["height"].to_i}_#{_get["maxwidth"].to_i}_#{_get["maxheight"].to_i}")
+	
+	tmp_use = false
+	tmp_write = false
+	if $knj_webscripts_image_config
+		tmp_use = true
+		tmp_path = "#{$knj_webscripts_image_config["tmp_path"]}/#{idstr}"
+		tmp_exists = File.exists?(tmp_path)
+		tmp_write = true if !tmp_exists
+		
+		if !tmp_write and tmp_exists
+			time_orig = File.mtime(_get["path"])
+			time_cache = File.mtime(tmp_path)
+			
+			if time_orig > time_cache
+				tmp_write = true
+			end
+		end
+	end
+	
+	if !tmp_use or tmp_write or _get["force"].to_i > 0
+		pic = Magick::ImageList.new(_get["path"])
+		width = pic.columns
+		height = pic.rows
+		
+		height = _get["height"].to_i if _get["height"]
+		width = _get["width"].to_i if _get["width"]
+		
+		if _get["smartsize"]
+			if pic.columns > pic.rows
+				width = _get["smartsize"].to_i
+				height = (pic.rows.to_f / (pic.columns.to_f / width.to_f)).to_i
+			else
+				height = _get["smartsize"].to_i
+				width = (pic.columns.to_f / (pic.rows.to_f / height.to_f)).to_i
+			end
+		end
+		
+		if _get["maxwidth"]
+			maxwidth = _get["maxwidth"].to_i
+			
+			if width > maxwidth
+				height = (pic.rows.to_f / (pic.columns.to_f / maxwidth.to_f)).to_i
+				width = maxwidth
+			end
+		end
+		
+		if _get["maxheight"]
+			maxheight = _get["maxheight"].to_i
+			
+			if height > maxheight
+				width = (pic.columns.to_f / (pic.rows.to_f / maxheight.to_f)).to_i
+				height = maxheight
+			end
+		end
+		
+		if _get["width"] and _get["height"]
+			width = _get["width"].to_i
+			height = _get["height"].to_i
+		end
+		
+		if height != pic.rows or width != pic.columns
+			pic = pic.resize_to_fit(width.to_i, height.to_i)
+		end
+		
+		pic.format = "png"
+		blob_cont = pic.to_blob
+	end
+	
+	if tmp_write and blob_cont
+		Knj::Php.file_put_contents(tmp_path, blob_cont)
+	end
+	
+	if tmp_use
+		Knj::Php.header("Content-Type: image/png")
+		print File.read(tmp_path)
+	else
+		Knj::Php.header("Content-Type: image/png")
+		print blob_cont
+	end
+%>

data/lib/knj/win.rb

@@ -0,0 +1,4 @@
+module Knj::Win
+	autoload :Registry, $knjpath + "win_registry"
+	autoload :TightVNC, $knjpath + "win_tightvnc"
+end

data/lib/knj/win_registry.rb

@@ -0,0 +1,60 @@
+class Knj::Win::Registry
+	def self.const(type)
+		if type == :cur_user
+			return Win32::Registry::HKEY_CURRENT_USER
+		elsif type == :local_machine
+			return Win32::Registry::HKEY_LOCAL_MACHINE
+		else
+			raise "Unknown type: " + type.to_s
+		end
+	end
+	
+	def self.type(in_type)
+		return Win32::Registry::REG_SZ if in_type == :sz
+		return Win32::Registry::REG_DWORD if in_type == :dword
+		return Win32::Registry::REG_BINARY if in_type == :bin
+		return nil if in_type == nil
+		
+		raise "Unknown type: #{in_type}"
+	end
+	
+	def self.get(type, regpath, key, in_type = nil)
+		hkey = self.const(type)
+		hkey.open(regpath, Win32::Registry::KEY_ALL_ACCESS) do |reg|
+			return reg[key, self.type(in_type)].to_s
+			
+			#reg.each_key do |k, v|
+			#	puts k, v
+			#end
+			#reg.each_value do |k, v|
+			#	puts k, v
+			#end
+			
+			#reg_typ, reg_val = reg.read('')
+			#return {
+			#	:type => reg_typ,
+			#	:value => reg_val
+			#}
+		end
+	end
+	
+	def self.set(type, regpath, key, content = nil, in_type = nil)
+		if key.is_a?(Array)
+			key.each do |v|
+				if v.is_a?(Array)
+					self.set(type, regpath, v[0], v[1], v[2])
+				elsif v.is_a?(Hash)
+					self.set(type, regpath, k, v[:val], v[:type])
+				else
+					raise "Unknown type: #{v.class.to_s}"
+				end
+			end
+		else
+			hkey = self.const(type)
+			hkey.create(regpath)
+			hkey.open(regpath, Win32::Registry::KEY_ALL_ACCESS) do |reg|
+				reg[key.to_s, self.type(in_type)] = content.to_s
+			end
+		end
+	end
+end

data/lib/knj/win_tightvnc.rb

@@ -0,0 +1,127 @@
+class Knj::Win::TightVNC
+	def initialize(args)
+		@args = ArrayExt.hash_sym(args)
+		
+		@args[:port] = 5900 if !@args[:port]
+		@args[:port_http] = 5800 if !@args[:http_port]
+		
+		raise "No path given." if !@args[:path]
+		
+		exefile = @args[:path] + "/WinVNC.exe"
+		raise "#{exefile} was not found." if !File.exists?(exefile)
+		
+		@wmi = WIN32OLE.connect("winmgmts://")
+		processes = @wmi.ExecQuery("SELECT * FROM win32_process")
+		ended = false
+		for process in processes do
+			if process.Name == "WinVNC.exe"
+				process.Terminate
+				ended = true
+			end
+		end
+		
+		sleep 1 if ended
+		
+		#print Win::Registry.get(:cur_user, 'Software\ORL\WinVNC3', 'Password', :sz).unpack('H*')[0] + "\n"
+		#print ["160e9d46f26586ca"].pack('H*').unpack('H*')[0] + "\n"
+		#exit
+		
+		Win::Registry.set(:cur_user, 'Software\ORL\WinVNC3', [
+			["AutoPortSelect", 1, :dword],
+			["BlankScreen", 0, :dword],
+			["DontSetHooks", 0, :dword],
+			["DontUseDriver", 0, :dword],
+			["DriverDirectAccess", 1, :dword],
+			["EnableFileTransfers", 1, :dword],
+			["HTTPPortNumber", @args[:port_http], :dword],
+			["IdleTimeout", 0, :dword],
+			["InputsEnabled", 1, :dword],
+			["LocalInputsDisabled", 0, :dword],
+			["LocalInputsPriority", 0, :dword],
+			["LocalInputsPriorityTime", 3, :dword],
+			["LockSetting", 0, :dword],
+			["OnlyPollConsole", 1, :dword],
+			["OnlyPollOnEvent", 0, :dword],
+			["PollForeground", 1, :dword],
+			["PollFullScreen", 0, :dword],
+			["PollingCycle", 300, :dword],
+			["PollUnderCursor", 0, :dword],
+			["PollUnderCursor", @args[:port], :dword],
+			["QueryAccept", 0, :dword],
+			["QueryAllowNoPass", 0, :dword],
+			["QuerySetting", 2, :dword],
+			["QueryTimeout", 30, :dword],
+			["RemoveWallpaper", 0, :dword],
+			["SocketConnect", 1, :dword],
+			["Password", ["160e9d46f26586ca"].pack('H*'), :bin],
+			["PasswordViewOnly", ["160e9d46f26586ca"].pack('H*'), :bin]
+		])
+		Win::Registry.set(:local_machine, 'Software\ORL\WinVNC3', [
+			["AllowLoopback", 1, :dword],
+			["LoopbackOnly", 0, :dword]
+		])
+		#password is of this moment only 'kaspernj'.
+		
+		@wmi = WIN32OLE.connect("winmgmts://")
+		processes = @wmi.ExecQuery("SELECT * FROM win32_process")
+		ended = false
+		for process in processes do
+			if process.Name == "WinVNC.exe"
+				process.Terminate
+				ended = true
+			end
+		end
+		
+		sleep 1 if ended
+		
+		Knj::Thread.new do
+			IO.popen(exefile) do |process|
+				#nothing
+			end
+		end
+		
+		sleep 1
+		
+		@processes = @wmi.ExecQuery("SELECT * FROM win32_process")
+		for process in @processes do
+			if process.Name == "WinVNC.exe"
+				@process = process
+				break
+			end
+		end
+		
+		raise "Could not start WinVNC.exe." if !@process
+		
+		Kernel.at_exit do
+			self.close
+		end
+	end
+	
+	def open?
+		begin
+			@process.GetOwner
+			return true
+		rescue Exception => e
+			return false
+		end
+	end
+	
+	def close
+		return nil if !@process
+		
+		begin
+			@process.Terminate
+		rescue Exception => e
+			if e.class.to_s == "WIN32OLERuntimeError" and e.message.index("Terminate") != nil
+				#do nothing.
+			else
+				raise e
+			end
+		end
+		
+		@process = nil
+		@args = nil
+		@wmi = nil
+		@processes = nil
+	end
+end

data/lib/knj/x11vnc.rb

@@ -0,0 +1,48 @@
+class Knj::X11VNC
+	def initialize(args = {})
+		@args = ArrayExt.hash_sym(args)
+		@open = true
+		
+		cmd = "x11vnc -q"
+		cmd += " -shared" if @args[:shared] or !@args.has_key?(:shared)
+		cmd += " -forever" if @args[:forever] or !@args.has_key?(:forever)
+		cmd += " -rfbport #{@args[:port]}" if @args[:port]
+		cmd += " -nolookup" if @args[:nolookup] or !@args.has_key?(:nolookup)
+		
+		print cmd + "\n"
+		
+		@thread = Knj::Thread.new do
+			IO.popen(cmd) do |process|
+				@pid = process.pid
+				process.sync
+				
+				while	read = process.read
+					break if read.length == 0
+					#print read
+				end
+				
+				@open = false
+				@pid = nil
+				@thread = nil
+			end
+		end
+		
+		Kernel.at_exit do
+			self.close
+		end
+	end
+	
+	def open?
+		return @open
+	end
+	
+	def close
+		return nil if !@thread
+		
+		Process.kill("HUP", @pid) if @pid
+		@thread.exit if @thread
+		@thread = nil
+		@open = false
+		@pid = nil
+	end
+end

data/lib/knj/youtube.rb

@@ -0,0 +1,38 @@
+class Knj::YouTube
+	def self.all_videos(data, params = {}, opts = {})
+		params[:per_page] = 50
+		
+		ret_arr = []
+		go_through_pages = true
+		page = 1
+		while go_through_pages
+			print "Getting page #{page.to_s}\n"
+			
+			newparams = Marshal.load(Marshal.dump(params))
+			newparams[:page] = page
+			videos = data["youtube"].videos_by(newparams)
+			
+			videos.videos.each do |video|
+				if data["check_stop"] and data["check_stop"].respond_to?("check_stop_parsing")
+					if data["check_stop"].check_stop_parsing(video)
+						go_through_pages = false
+						break
+					end
+				end
+				
+				ret_arr << video
+			end
+			
+			status = videos.next_page
+			break if !status
+			
+			page += 1
+			
+			if data["pages"] and page > data["pages"].to_i
+				break
+			end
+		end
+		
+		return ret_arr
+	end
+end

data/lib/knjrbfw.rb

@@ -0,0 +1,4 @@
+module Knj
+end
+
+$: << File.dirname(__FILE__)

data/spec/knjrbfw_spec.rb

@@ -0,0 +1,269 @@
+require File.expand_path(File.dirname(__FILE__) + '/spec_helper')
+
+describe "Knjrbfw" do
+  it "should be able to generate a sample SQLite database and add a sample table, with sample columns and with a sample index to it" do
+    require "knjrbfw"
+    require "knj/autoload"
+    require "tmpdir"
+    
+    db_path = "#{Dir.tmpdir}/knjrbfw_test_sqlite3.sqlite3"
+    
+    begin
+      db = Knj::Db.new(
+        :type => "sqlite3",
+        :path => db_path,
+        :return_keys => "symbols",
+        :index_append_table_name => true
+      )
+      
+      db.tables.create("Project", {
+        "columns" => [
+          {"name" => "id", "type" => "int", "autoincr" => true, "primarykey" => true},
+          {"name" => "category_id", "type" => "int"},
+          {"name" => "name", "type" => "varchar"}
+        ],
+        "indexes" => [
+          {"name" => "category_id", "columns" => ["category_id"]}
+        ]
+      })
+      
+      db.tables.create("Task", {
+        "columns" => [
+          {"name" => "id", "type" => "int", "autoincr" => true, "primarykey" => true},
+          {"name" => "project_id", "type" => "int"},
+          {"name" => "user_id", "type" => "int"},
+          {"name" => "name", "type" => "varchar"}
+        ],
+        "indexes" => [
+          {"name" => "project_id", "columns" => ["project_id"]}
+        ]
+      })
+      
+      db.tables.create("User", {
+        "columns" => [
+          {"name" => "id", "type" => "int", "autoincr" => true, "primarykey" => true},
+          {"name" => "name", "type" => "varchar"}
+        ]
+      })
+      
+      table = db.tables["Project"]
+      
+      indexes = table.indexes
+      raise "Could not find the sample-index 'category_id' that should have been created." if !indexes["category_id"]
+      
+      
+      #If we insert a row the ID should increase and the name should be the same as inserted (or something is very very wrong)...
+      db.insert("Project", {
+        "name" => "Test project"
+      })
+      
+      db.q("SELECT * FROM Project") do |d|
+        raise "Somehow name was not 'Test project'" if d[:name] != "Test project"
+        raise "ID was not set?" if d[:id].to_i <= 0
+      end
+      
+      $db = db
+    rescue => e
+      File.unlink(db_path) if File.exists?(db_path)
+      raise e
+    end
+  end
+  
+  it "should be able to parse various date formats." do
+    date = Knj::Datet.in("2011-07-09 00:00:00 UTC")
+    date = Knj::Datet.in("1985-06-17 01:00:00")
+    date = Knj::Datet.in("1985-06-17")
+    date = Knj::Datet.in("17/06 1985")
+    
+    raise "Couldnt register type 1 nullstamp." if !Knj::Datet.is_nullstamp?("0000-00-00")
+    raise "Couldnt register type 2 nullstamp." if !Knj::Datet.is_nullstamp?("0000-00-00 00:00:00")
+    raise "Registered nullstamp on valid date." if Knj::Datet.is_nullstamp?("1985-06-17")
+    raise "Registered nullstamp on valid date." if Knj::Datet.is_nullstamp?("1985-06-17 10:30:00")
+    
+    date = Knj::Datet.in("2011-07-09 13:05:04 +0200")
+    if date.time.localtime.to_s != "2011-07-09 15:05:04 +0200"
+      raise "Datet didnt return expected result: '#{date.time.localtime}'."
+    end
+  end
+  
+  it "should be able to automatic generate methods on datarow-classes (has_many, has_one)." do
+    class Project < Knj::Datarow
+      has_many [
+        {:class => :Task, :col => :project_id, :depends => true}
+      ]
+    end
+    
+    class Task < Knj::Datarow
+      has_one [
+        {:class => :User, :required => true},
+        :Project
+      ]
+      
+      def self.list(d)
+        sql = "SELECT * FROM Task WHERE 1=1"
+        
+        ret = list_helper(d)
+        d.args.each do |key, val|
+          raise sprintf("Invalid key: %s.", key)
+        end
+        
+        sql += ret[:sql_where]
+        sql += ret[:sql_order]
+        sql += ret[:sql_limit]
+        
+        return d.ob.list_bysql(:Task, sql)
+      end
+    end
+    
+    class User < Knj::Datarow
+      has_one [:Project]
+      
+      def html
+        return self[:name]
+      end
+    end
+    
+    $ob = Knj::Objects.new(:db => $db, :datarow => true, :require => false)
+    
+    $ob.add(:User, {
+      :name => "Kasper"
+    })
+    $ob.add(:Task, {
+      :name => "Test task",
+      :user_id => 1,
+      :project_id => 1
+    })
+    
+    project = $ob.get(:Project, 1)
+    
+    tasks = project.tasks
+    raise "No tasks were found on project?" if tasks.empty?
+    
+    user = tasks[0].user
+    project_second = tasks[0].project
+    
+    raise "Returned object was not a user on task." if !user.is_a?(User)
+    raise "Returned object was not a project on task." if !project_second.is_a?(Project)
+    
+    
+    #Check that has_many-depending is actually working.
+    begin
+      $ob.delete(project)
+      raise "It was possible to delete project 1 even though task 1 depended on it!"
+    rescue
+      #this should happen - it should not possible to delete project 1 because task 1 depends on it."
+    end
+  end
+  
+  it "should be able to connect to objects 'no-html' callback and test it." do
+    task = $ob.get(:Task, 1)
+    $ob.events.connect(:no_html) do |event, classname|
+      "[no #{classname.to_s.downcase}]"
+    end
+    
+    raise "Unexpected user_html from task (should have been 'Kasper')." if task.user_html != "Kasper"
+    task.update(:user_id => 0)
+    raise "Unexpected user_html from task (should have been '[no user]')." if task.user_html != "[no user]"
+  end
+  
+  it "should delete the temp database again." do
+    db_path = "#{Dir.tmpdir}/knjrbfw_test_sqlite3.sqlite3"
+    File.unlink(db_path) if File.exists?(db_path)
+  end
+  
+  it "should be able to execute various Knj::Php functions correctly." do
+    str = "Kasper Johansen"
+    
+    #substr
+    teststr = Knj::Php.substr(str, 7, 8)
+    if teststr != "Johansen"
+      raise "substr did not return expected result: '#{teststr}'"
+    end
+    
+    teststr = Knj::Php.substr(str, -8, 8)
+    if teststr != "Johansen"
+      raise "substr did not returned expected result when using negative positions: '#{teststr}'."
+    end
+    
+    #strtoupper
+    teststr = Knj::Php.strtoupper(str)
+    if teststr != "KASPER JOHANSEN"
+      raise "strtoupper did not return expected result: '#{teststr}'."
+    end
+    
+    #strtolower
+    teststr = Knj::Php.strtolower(str)
+    if teststr != "kasper johansen"
+      raise "strtolower did not return expected result: '#{teststr}'."
+    end
+  end
+  
+  it "should be able to join arrays with callbacks." do
+    res = Knj::ArrayExt.join(:arr => [1, 2, 3], :sep => ",", :callback => proc{|value| "'#{value}'"})
+    raise "Unexpected result from ArrayExt." if res != "'1','2','3'"
+  end
+  
+  it "should be able to generate valid SQL based on arrays." do
+    ret = $ob.sqlhelper({
+      "test_col" => [1, 2, 3]
+    },{
+      :cols_str => ["test_col"]
+    })
+    
+    raise "Unexpected SQL for generating based on array: '#{ret[:sql_where]}'" if ret[:sql_where] != " AND `test_col` IN ('1','2','3')"
+  end
+  
+  it "should be able to execute various forms of Web.input methods." do
+    html = Knj::Web.inputs([{
+      :title => "Test 1",
+      :name => :textest1,
+      :type => :text,
+      :default => "hmm",
+      :value => "trala"
+    },{
+      :title => "Test 2",
+      :name => :chetest2,
+      :type => :checkbox,
+      :default => true
+    },{
+      :title => "Test 3",
+      :name => :seltest3,
+      :type => :select,
+      :default => 1,
+      :opts => $ob.list_optshash(:Task)
+    },{
+      :title => "Test 4",
+      :name => :textest4,
+      :type => :textarea,
+      :height => 300,
+      :default => "Hmm",
+      :value => "Trala"
+    },{
+      :title => "Test 5",
+      :name => :filetest5,
+      :type => :file
+    },{
+      :title => "Test 6",
+      :type => :info,
+      :value => "Argh"
+    }])
+  end
+  
+  it "should be able to use alert and back." do
+    Knj::Web.alert("Trala")
+    
+    begin
+      Knj::Web.back
+      raise "It should have called exit which it didnt."
+    rescue SystemExit
+      #ignore.
+    end
+    
+    begin
+      Knj::Web.redirect("?show=test")
+      raise "It should have called exit which it didnt."
+    rescue SystemExit
+      #ignore.
+    end
+  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 'knjrbfw'
+
+# 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