knjrbfw 0.0.3

data/lib/knj/php_parser/functions.rb

@@ -0,0 +1,97 @@
+class Knj::Php_parser
+	def func_args(func_name)
+		func_arg_count = 0
+		args = []
+		
+		loop do
+			if match = self.matchclear(/\A\$#{@regex_varname}\s*(,\s*|)/)
+				args << {
+					"varname" => match[1],
+					"newname" => "phpvar_#{match[1]}"
+				}
+			elsif match = self.matchclear(/\A\)\s*\{/)
+				break
+			else
+				raise "Could not match function arguments."
+			end
+		end
+		
+		@retcont += "#{self.tabs}module Knj::Php_parser::Functions\n"
+		@tabs += 1
+		@retcont += "#{self.tabs}def self.#{func_name}("
+		
+		first = true
+		args.each do |arg|
+			@retcont += ", " if !first
+			first = false if first
+			@retcont += arg["newname"]
+		end
+		
+		@retcont += ")\n"
+		@tabs += 1
+		@funcs_started += 1
+		
+		self.search_newstuff
+	end
+	
+	def func_args_single_given
+		arg_found = false
+		
+		loop do
+			if !arg_found and match = self.matchclear(/\A\"/)
+				@retcont += "\""
+				self.match_semi
+				@retcont += ")"
+				arg_found = true
+			elsif !arg_found and match = self.matchclear(/\A\$(#{@regex_varname})/)
+				@retcont += "phpvar_#{match[1]}"
+				arg_found = true
+			elsif arg_found and match = self.matchclear(/\A\.\s*/)
+				@retcont += " + "
+				arg_found = false
+			elsif arg_found and match = self.matchclear(/\A;/)
+				@retcont += "\n"
+				break
+			else
+				raise "Could not figure out what to do."
+			end
+		end
+	end
+	
+	def func_args_given
+		arg_found = false
+		
+		loop do
+			if !arg_found and match = self.matchclear(/\A\"/)
+				@retcont += "\""
+				self.match_semi
+				@retcont += ")"
+				arg_found = true
+			elsif !arg_found and match = self.matchclear(/\A\$(#{@regex_varname})/)
+				@retcont += "phpvar_#{match[1]}"
+				arg_found = true
+			elsif arg_found and match = self.matchclear(/\A\.\s*/)
+				@retcont += " + "
+				arg_found = false
+			elsif arg_found and match = self.matchclear(/\A\)\s*;/)
+				@retcont += "\n"
+				break
+			else
+				raise "Could not figure out what to do."
+			end
+		end
+	end
+	
+	def match_semi
+		loop do
+			if match = self.matchclear(/\A[A-z\d_\.]+/)
+				@retcont += match[0]
+			elsif match = self.matchclear(/\A\"/)
+				@retcont += "\""
+				break
+			else
+				raise "Could not figure out what to do."
+			end
+		end
+	end
+end

data/lib/knj/php_parser/php_parser.rb

@@ -0,0 +1,99 @@
+class Knj::Php_parser
+	attr_reader :cont, :retcont
+	
+	def initialize(args)
+		@args = args
+		@cont = File.read(@args["file"])
+		
+		if !args.has_key?("require_requirements") or args["require_requirements"]
+			@retcont = "require \"knj/autoload\"\n"
+			@retcont += "require \"knj/php\"\n"
+			@retcont += "require \"knj/php_parser/php_parser\"\n"
+			@retcont += "\n"
+		else
+			@retcont = ""
+		end
+		
+		@regex_funcname = "([A-z][A-z\d_]*)"
+		@regex_varname = "([A-z][A-z\d]*)"
+		
+		@tabs = 0
+		@funcs_started = 0
+	end
+	
+	def parse
+		self.search_starttag
+		return @retcont
+	end
+	
+	def search_starttag
+		match = self.matchclear(/\A([\s\S]*?<\?(php|))/)
+		if !match
+			return nil
+		end
+		
+		self.clear_whitespace
+		self.search_newstuff
+	end
+	
+	def tabs
+		cont = ""
+		0.upto(@tabs - 1) do |count|
+			cont += "\t"
+		end
+		
+		return cont
+	end
+	
+	def clear_regex(regex)
+		@cont = @cont.gsub(regex, "")
+	end
+	
+	def clear_whitespace
+		@cont = @cont.gsub(/\A\s+/, "")
+	end
+	
+	def matchclear(regex, debug = false)
+		if match = @cont.match(regex)
+			print "Before (#{debug}):\n#{@cont}\n\n" if debug
+			@cont = @cont.gsub(regex, "")
+			self.clear_whitespace
+			print "After (#{debug}):\n#{@cont}\n\n\n" if debug
+			
+			return match
+		end
+		
+		return false
+	end
+	
+	def search_newstuff
+		loop do
+			if match = self.matchclear(/\Afunction\s+#{@regex_funcname}\(/)
+				self.func_args(match[1])
+			elsif match = self.matchclear(/\A(print|echo)\s+/)
+				@retcont += "#{self.tabs}Knj::Php.#{match[1]}("
+				self.func_args_single_given
+			elsif match = self.matchclear(/\A\}/)
+				@tabs -= 1
+				@retcont += "#{self.tabs}end\n"
+				@tabs -= 1
+				@retcont += "#{self.tabs}end\n"
+			elsif match = self.matchclear(/\A([A-z][A-z\d_]*)\(/)
+				@retcont += "#{self.tabs}Knj::Php_parser::Functions.#{match[1]}("
+				self.func_args_given
+			elsif match = self.matchclear(/\A\?>/)
+				self.search_starttag
+			elsif cont.length <= 0
+				break
+			else
+				raise "Could not find out whats next."
+			end
+		end
+	end
+end
+
+require File.dirname(__FILE__) + "/functions.rb"
+
+module Knj::Php_parser::Functions
+	#nothing here.
+end

data/lib/knj/php_parser/tests/test.rb

@@ -0,0 +1,12 @@
+require "knj/autoload"
+require "knj/php"
+require "knj/php_parser/php_parser"
+
+module Knj::Php_parser::Functions
+	def self.my_function(phpvar_arg)
+		Knj::Php.print("Hejsa.\n")
+		Knj::Php.print(phpvar_arg + "\n")
+	end
+end
+Knj::Php_parser::Functions.my_function("Helloworld.")
+

data/lib/knj/php_parser/tests/test_function.php

@@ -0,0 +1,8 @@
+<?
+	function my_function($arg){
+		print "Hejsa.\n";
+		print $arg . "\n";
+	}
+	
+	my_function("Hello world.");
+?>

data/lib/knj/php_parser/tests/test_function_run.rb

@@ -0,0 +1,19 @@
+#!/usr/bin/env ruby
+
+require "knj/autoload"
+include Knj
+
+parser = Php_parser.new(
+	"file" => File.dirname(__FILE__) + "/test_function.php"
+)
+
+begin
+	cont = parser.parse
+rescue RuntimeError => e
+	print "Retcont:\n#{parser.retcont}\n\n"
+	print "Cont:\n#{parser.cont}\n\n"
+	
+	raise e
+end
+
+print cont + "\n"

data/lib/knj/power_manager.rb

@@ -0,0 +1,31 @@
+class Knj::Power_manager
+	def initialize(args = {})
+		@args = args
+		
+		if !File.exists?("/proc/acpi/ac_adapter")
+			raise "Could not find the proc-acpi folder."
+		end
+		
+		Dir.new("/proc/acpi/ac_adapter").each do |file|
+			next if file == "." or file == ".."
+			fn = "/proc/acpi/ac_adapter/#{file}"
+			
+			if File.directory?(fn)
+				@ac_folder = Knj::Php.realpath(fn)
+				break
+			end
+		end
+		
+		raise "Could not register ac-folder." if !@ac_folder
+	end
+	
+	def state
+		cont = File.read("#{@ac_folder}/state")
+		
+		if match = cont.match(/state:\s*(.+)\s*/)
+			return match[1]
+		end
+		
+		raise "Could not figure out state."
+	end
+end

data/lib/knj/rand.rb

@@ -0,0 +1,10 @@
+module Knj::Rand
+	def self.range(first, last)
+		return first.to_i + rand(last.to_i - first.to_i)
+	end
+	
+	def self.array(arr)
+		key = rand(arr.length)
+		return arr[key]
+	end
+end

data/lib/knj/retry.rb

@@ -0,0 +1,71 @@
+class Knj::Retry
+	def self.try(args = {}, &block)
+		raise "No block was given." if !block_given?
+		
+		args[:tries] = 3 if !args[:tries]
+		tries = []
+		error = nil
+		
+		args[:tries].to_i.downto(1) do |count|
+			error = nil
+			dobreak = false
+			
+			begin
+				if args[:timeout]
+					begin
+						Timeout.timeout(args[:timeout]) do
+							block.call
+							dobreak = true
+							break
+						end
+					rescue Timeout::Error => e
+						doraise = e if count <= 1
+						error = e
+						sleep(args[:wait]) if args[:wait] and !doraise
+					end
+				else
+					block.call
+					dobreak = true
+					break
+				end
+			rescue Exception => e
+				if e.class == Interrupt
+					raise e if !args.has_key?(:interrupt) or args[:interrupt]
+				elsif e.class == SystemExit
+					raise e if !args.has_key?(:exit) or args[:exit]
+				elsif count <= 1 or (args.has_key?(:errors) and args[:errors].index(e.class) == nil)
+					doraise = e
+				elsif args.has_key?(:errors) and args[:errors].index(e.class) != nil
+					#given error was in the :errors-array - do nothing. Maybe later it should be logged and returned in a stats-hash or something? - knj
+				end
+				
+				error = e
+				sleep(args[:wait]) if args[:wait] and !doraise
+			end
+			
+			if doraise
+				if args[:return_error]
+					tries << {:error => error}
+					return {
+						:tries => tries,
+						:result => false
+					}
+				else
+					raise e
+				end
+			elsif error
+				tries << {:error => error}
+			end
+			
+			break if dobreak
+		end
+		
+		res = true
+		res = false if error
+		
+		return {
+			:tries => tries,
+			:result => res
+		}
+	end
+end

data/lib/knj/rhodes/mutex.rb

@@ -0,0 +1,11 @@
+class Mutex
+  def synchronize
+    sleep 0.1 if @working
+    @working = true
+    begin
+      yield
+    ensure
+      @working = false
+    end
+  end
+end

data/lib/knj/rhodes/rhodes.js

@@ -0,0 +1,3 @@
+function knj_rhodes_html_links(args){
+	$.ajax({type: "POST", data: {"url": args["url"]}, url: "/app/Knj/html_links"});
+}

data/lib/knj/rhodes/rhodes.rb

@@ -0,0 +1,11 @@
+class Knj::Rhodes
+	def self.html_links(args)
+		html_cont = "#{args[:html]}"
+		
+		html_cont.scan(/(<a([^>]+)href=\"(http.+?)\")/) do |match|
+			html_cont = html_cont.gsub(match[0], "<a#{match[1]}href=\"javascript: knj_rhodes_html_links({url: '#{match[2]}'});\"")
+		end
+		
+		return html_cont
+	end
+end

data/lib/knj/rsvgbin.rb

@@ -0,0 +1,20 @@
+class Knj::RSVGBIN
+	def self.test_version
+		test_version = %x[rsvg-convert -v]
+		if !test_version.match(/^rsvg-convert version [0-9\.]+$/)
+			raise "No valid version of rsvg-bin was found."
+		end
+	end
+	
+	def self.png_content_from_file(file_from)
+		RSVGBIN.test_version
+		return %x[rsvg-convert #{Strings.unixsafe(file_from)}]
+	end
+	
+	def self.convert_file(file_from, file_to)
+		RSVGBIN.test_version
+		
+		png_content = RSVGBIN.png_content_from_file(file_from)
+		Php.file_put_contents(file_to, png_content)
+	end
+end

data/lib/knj/scripts/degulesider.rb

@@ -0,0 +1,12 @@
+#!/usr/bin/env ruby
+
+require "knj/autoload"
+include Knj
+
+dgs = Degulesider.new
+res = dgs.search(
+	:where => ARGV[0],
+	:what => ARGV[1]
+)
+
+print JSON.generate(res)

data/lib/knj/scripts/filesearch.rb

@@ -0,0 +1,51 @@
+#!/usr/bin/env ruby
+
+require "knj/autoload"
+include Knj
+
+begin
+	options = {}
+	OptionParser.new do |opts|
+		opts.banner = "Usage: example.rb [options]"
+		
+		opts.on("-f FINDTHIS", "--find", "Search for this string.") do |f|
+			options[:find] = f
+		end
+		
+		opts.on("-b BYTES", "--bytes BYTES", "Return this number of bytes and finding the string.") do |b|
+			options[:bytes] = b.to_i
+		end
+		
+		opts.on("--filepath FILEPATH", "The file that should be searched.") do |fp|
+			options[:filepath] = fp
+		end
+	end.parse!
+rescue OptionParser::InvalidOption => e
+	Php.die(e.message + "\n")
+end
+
+cont = ""
+readstr = ""
+retcont = ""
+File.open(options[:filepath], "r") do |fp|
+	loop do
+		break if fp.eof
+		
+		prevcont = String.new(readstr)
+		readstr = fp.read(1024)
+		cont = prevcont + readstr
+		
+		if ind = cont.index(options[:find])
+			read_size = options[:bytes] - (cont.length - ind)
+			
+			if read_size > 0
+				cont += fp.read(read_size)
+			end
+			
+			retcont = cont.slice(ind, options[:bytes])
+			break
+		end
+	end
+end
+
+print retcont + "\n"

data/lib/knj/scripts/ip2location.rb

@@ -0,0 +1,12 @@
+#!/usr/bin/env ruby
+
+require "knj/autoload"
+ip2loc = Knj::Ip2location.new
+
+data = ip2loc.lookup(ARGV[0])
+
+if ARGV[1] == "json"
+	print Knj::Php.json_encode(data)
+else
+	Knj::Php.print_r(data)
+end

data/lib/knj/scripts/keepalive.rb

@@ -0,0 +1,6 @@
+#!/usr/bin/env ruby
+
+while true
+	print "Keel-alive\n"
+	sleep 1
+end

data/lib/knj/scripts/svn_merge.rb

@@ -0,0 +1,29 @@
+#!/usr/bin/ruby
+
+require "knj/autoload"
+
+path_to = ARGV[0]
+
+Dir.glob(File.join("**", ".svn")).each do |dir|
+	newdir = path_to + "/" + dir
+	
+	#print dir + "\n"
+	#print newdir + "\n"
+	
+	if File.exists?(newdir)
+		print "Remove: " + newdir.to_s + "\n"
+		FileUtils.rm_r(newdir)
+	end
+	
+	begin
+		#print "Move: " + dir + "\n"
+		#FileUtils.mv(dir, newdir)
+		
+		print "Copy: " + dir + "\n"
+		FileUtils.cp_r(dir, newdir)
+	rescue => e
+		print "Failed: " + e.message + "\n"
+	end
+	
+	#print "\n"
+end

data/lib/knj/scripts/upgrade_knjrbfw_checker.rb

@@ -0,0 +1,41 @@
+#!/usr/bin/env ruby
+
+require "knj/autoload"
+
+mode = ARGV[0]
+
+if mode.to_s.length <= 0
+	print "No mode was given.\n"
+	exit
+elsif mode != "dev" and mode != "original"
+	print "Invalid mode: #{mode}\n"
+	exit
+end
+
+checks = [
+	"/usr/share/php/knjphpframework",
+	"/usr/lib/ruby/1.8/knjrbfw"
+]
+
+checks.each do |dir|
+	dev_name = dir + "_dev"
+	original_name = dir + "_original"
+	
+	if mode == "dev"
+		if File.exists?(dir) and File.symlink?(dir)
+			#do nothing.
+		elsif File.exists?(dir) and !File.exists?(original_name)
+			File.rename(dir, original_name)
+			File.rename(dev_name, dir)
+		end
+	elsif mode == "original"
+		if File.exists?(dir) and File.exists?(original_name) and File.symlink?(dir)
+			File.rename(dir, dev_name)
+			File.rename(original_name, dir)
+		else
+			#do nothing.
+		end
+	else
+		raise "No such mode: #{mode}"
+	end
+end

data/lib/knj/sms.rb

@@ -0,0 +1,54 @@
+class Knj::Sms
+	def initialize(opts)
+		@opts = Knj::ArrayExt.hash_sym(opts)
+		
+		@opts.each do |key, value|
+			if key == :type
+				if value == "bibob" or value == "cbb" or value == "smsd_db"
+					@type = value
+					
+					if @type == "smsd_db"
+						@db = Knj::Db.new(@opts[:knjdb_args])
+						Knj::Thread.new(@db) do |db|
+							db.query("SELECT * FROM outbox WHERE id = 0") #ping!
+							sleep 15
+						end
+					end
+				else
+					raise "Not supported: " + value.to_s
+				end
+			end
+		end
+	end
+	
+	def send_sms(number, msg)
+		if @type == "bibob"
+			if !@soap
+				require "webrick/https"
+				@soap = SOAP::WSDLDriverFactory.new("https://www.bibob.dk/SmsSender.asmx?WSDL").create_rpc_driver
+			end
+			
+			result = @soap.SendMessage({
+				"cellphone" => @opts[:user],
+				"password" => Knj::Php.md5(@opts[:pass]),
+				"smsTo" => {"string" => number},
+				"smscontents" => msg,
+				"sendDate" => Knj::Php.date("Y-m-d"),
+				"deliveryReport" => "0",
+				"fromNumber" => @opts[:user]
+			})
+			
+			if result.sendMessageResult.errorString.to_s != "Ingen fejl."
+				raise "Could not send SMS: (" + result.sendMessageResult.errorCode.to_s + "): " + result.sendMessageResult.errorString.to_s
+			end
+		elsif @type == "smsd_db"
+			@db.insert("outbox", {
+				"number" => number,
+				"text" => msg,
+				"insertdate" => Knj::Php.date("Y-m-d H:i:s")
+			})
+		else
+			raise "Not supported: " + @type
+		end
+	end
+end