knjrbfw 0.0.3

data/lib/knj/datet.rb

@@ -0,0 +1,448 @@
+class Knj::Datet
+	attr_accessor :time
+	
+	def initialize(time = Time.now)
+		@time = time
+	end
+	
+	def find(incr, args)
+		count = 0
+		while true
+			if args[:day_in_week] and self.day_in_week == args[:day_in_week]
+				return self
+			elsif args[:wday] and self.time.wday == args[:wday].to_i
+				return self
+			end
+			
+			if incr == :day
+				self.add_days(1)
+			elsif incr == :month
+				self.add_months(1)
+			else
+				raise "Invalid increment: #{incr}."
+			end
+			
+			count += 1
+			raise "Endless loop?" if count > 999
+		end
+	end
+	
+	def add_mins(mins = 1)
+		mins = mins.to_i
+		cur_mins = @time.min
+		next_min  = cur_mins + mins
+		
+		if next_min >= 60
+			@time = self.add_hours(1).stamp(:datet => false, :min => 0)
+			mins_left = (mins - 1) - (60 - cur_mins)
+			return self.add_mins(mins_left) if mins_left > 0
+		elsif next_min < 0
+			@time = self.add_hours(-1).stamp(:datet => false, :min => 59)
+			mins_left = mins + cur_mins + 1
+			self.add_mins(mins_left) if mins_left > 0
+		else
+			@time = self.stamp(:datet => false, :min => next_min)
+		end
+		
+		return self
+	end
+	
+	def add_hours(hours = 1)
+		hours = hours.to_i
+		cur_hour = @time.hour
+		next_hour = cur_hour + hours
+		
+		if next_hour >= 24
+			@time = self.add_days(1).stamp(:datet => false, :hour => 0)
+			hours_left = (hours - 1) - (24 - cur_hour)
+			return self.add_hours(hours_left) if hours_left > 0
+		elsif next_hour < 0
+			@time = self.add_days(-1).stamp(:datet => false, :hour => 23)
+			hours_left = hours + cur_hour + 1
+			self.add_hours(hours_left) if hours_left < 0
+		else
+			@time = self.stamp(:datet => false, :hour => next_hour)
+		end
+		
+		return self
+	end
+	
+	def add_days(days = 1)
+		days = days.to_i
+		return self if days == 0
+		dim = self.days_in_month
+		cur_day = @time.day
+		next_day = cur_day + days
+		
+		if next_day > dim
+			@time = self.add_months(1).stamp(:datet => false, :day => 1)
+			days_left = (days - 1) - (dim - cur_day)
+			self.add_days(days_left) if days_left > 0
+		elsif next_day <= 0
+			self.date = 1
+			self.add_months(-1)
+			@time = self.stamp(:datet => false, :day => self.days_in_month)
+			days_left = days + 1
+			self.add_days(days_left) if days_left != 0
+		else
+			@time = self.stamp(:datet => false, :day => next_day)
+		end
+		
+		return self
+	end
+	
+	def add_months(months = 1)
+		months = months.to_i
+		cur_month = @time.month
+		cur_day = @time.day
+		next_month = cur_month + months.to_i
+		
+		if next_month > 12
+			@time = self.add_years(1).stamp(:datet => false, :month => 1, :day => 1)
+			months_left = (months - 1) - (12 - cur_month)
+			return self.add_months(months_left) if months_left > 0
+		elsif next_month < 1
+			@time = self.add_years(-1).stamp(:datet => false, :month => 12)
+		else
+			@time = self.stamp(:datet => false, :month => next_month, :day => 1)
+		end
+		
+		dim = self.days_in_month
+		
+		if dim < cur_day
+			@time = self.stamp(:datet => false, :day => dim)
+		else
+			@time = self.stamp(:datet => false, :day => cur_day)
+		end
+		
+		return self
+	end
+	
+	def add_years(years = 1)
+		next_year = @time.year + years.to_i
+		@time = self.stamp(:datet => false, :year => next_year)
+		return self
+	end
+	
+	#Returns the number of days in the current month.
+	def days_in_month
+		#Thanks to ActiveSupport: http://rubydoc.info/docs/rails/2.3.8/ActiveSupport/CoreExtensions/Time/Calculations
+		days_in_months = [nil, 31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31]
+		return days_in_months[@time.month]
+	end
+	
+	def day_in_week
+		diw = @time.strftime("%w").to_i
+		if diw == 0
+			diw = 6
+		else
+			diw -= 1
+		end
+		
+		return diw
+	end
+	
+	def day_name
+		return @time.strftime("%A")
+	end
+	
+	def month_name
+		return @time.strftime("%B")
+	end
+	
+	def year
+		return @time.year
+	end
+	
+	def hour
+		return @time.hour
+	end
+	
+	def min
+		return @time.min
+	end
+	
+	def year=(newyear)
+		@time = self.stamp(:datet => false, :year => newyear)
+	end
+	
+	def month
+		@mode = :months
+		return @time.month
+	end
+	
+	def date
+		@mode = :days
+		return @time.day
+	end
+	
+	def wday_mon
+		wday = @time.wday
+		return 0 if wday == 6
+		return wday - 1
+	end
+	
+	def date=(newday)
+		newday = newday.to_i
+		
+		if newday <= 0
+			self.add_days(newday - 1)
+		else
+			@time = self.stamp(:datet => false, :day => newday)
+		end
+		
+		return self
+	end
+	
+	def hour=(newhour)
+		newhour = newhour.to_i
+		day = @time.day
+		
+		loop do
+			break if newhour >= 0
+			day += -1
+			newhour += 24
+		end
+		
+		loop do
+			break if newhour < 24
+			day += 1
+			newhour += -24
+		end
+		
+		@time = self.stamp(:datet => false, :hour => newhour)
+		
+		self.date = day if day != @time.day
+		return self
+	end
+	
+	def min=(newmin)
+		@time = self.stamp(:datet => false, :min => newmin.to_i)
+	end
+	
+	def sec=(newsec)
+		@time = self.stamp(:datet => false, :sec => newsec.to_i)
+	end
+	
+	alias :day :date
+	
+	def month=(newmonth)
+		@time = self.stamp(:datet => false, :month => newmonth)
+	end
+	
+	def arg_to_time(datet)
+		if datet.is_a?(Knj::Datet)
+			return datet.time
+		elsif datet.is_a?(Time)
+			return datet
+		else
+			raise "Could not handle object of class: '#{datet.class.name}'."
+		end
+	end
+	
+	include Comparable
+	def <=>(timeobj)
+		secs = arg_to_time(timeobj).to_i
+		
+		if secs > @time.to_i
+			return 1
+		elsif secs < @time.to_i
+			return -1
+		else
+			return 0
+		end
+	end
+	
+	def add_something(val)
+		val = -val if @addmode == "-"
+		return self.add_hours(val) if @mode == :hours
+		return self.add_days(val) if @mode == :days
+		return self.add_months(val) if @mode == :months
+		return self.add_mins(val) if @mode == :mins
+		raise "No such mode: #{@mode}"
+	end
+	
+	def -(val)
+		@addmode = "-"
+		self.add_something(val)
+	end
+	
+	def +(val)
+		@addmode = "+"
+		self.add_something(val)
+	end
+	
+	def hours
+		@mode = :hours
+		return self
+	end
+	
+	def mins
+		@mode = :mins
+		return self
+	end
+	
+	def days
+		@mode = :days
+		return self
+	end
+	
+	def months
+		@mode = :months
+		return self
+	end
+	
+	def stamp(args)
+		vars = {:year => @time.year, :month => @time.month, :day => @time.day, :hour => @time.hour, :min => @time.min, :sec => @time.sec}
+		
+		args.each do |key, value|
+			vars[key.to_sym] = value.to_i if key != :datet
+		end
+		
+		time = Time.gm(vars[:year], vars[:month], vars[:day], vars[:hour], vars[:min], vars[:sec])
+		
+		if !args.has_key?(:datet) or args[:datet]
+			return Knj::Datet.new(time)
+		end
+		
+		return time
+	end
+	
+	def dbstr
+		return "%04d" % @time.year.to_s + "-" + "%02d" % @time.month.to_s + "-" + "%02d" % @time.day.to_s + " " + "%02d" % @time.hour.to_s + ":" + "%02d" % @time.min.to_s + ":" + "%02d" % @time.sec.to_s
+	end
+	
+	def self.from_dbstr(date_string)
+		if date_string.is_a?(Time)
+			return Knj::Datet.new(date_string)
+		elsif date_string.is_a?(Date)
+			return Knj::Datet.new(date_string.to_time)
+		end
+		
+		return false if Knj::Datestamp.is_nullstamp?(date_string)
+		return Knj::Datet.new(Time.local(*ParseDate.parsedate(date_string.to_s)))
+	end
+	
+	def self.parse(str)
+		return Knj::Datet.from_dbstr(str)
+	end
+	
+	def self.is_nullstamp?(stamp)
+    return true if !stamp or stamp == "0000-00-00" or stamp == "0000-00-00 00:00:00"
+    return false
+	end
+	
+	def out(args = {})
+		str = ""
+		date_shown = false
+		time_shown = false
+		
+		if !args.has_key?(:date) or args[:date]
+			date_shown = true
+			str += "%02d" % @time.day.to_s + "/" + "%02d" % @time.month.to_s
+			
+			if !args.has_key?(:year) or args[:year]
+				str += " " + "%04d" % @time.year.to_s
+			end
+		end
+		
+		if !args.has_key?(:time) or args[:time]
+			time_shown = true
+			str += " - " if date_shown
+			str += "%02d" % @time.hour.to_s + ":" + "%02d" % @time.min.to_s
+		end
+		
+		return str
+	end
+	
+	def self.in(timestr)
+		if timestr.is_a?(Time)
+			return Knj::Datet.new(timestr)
+		elsif timestr.is_a?(Date)
+			return Knj::Datet.new(timestr.to_time)
+		elsif timestr.is_a?(Knj::Datet)
+			return timestr
+		elsif timestr == nil
+			return Knj::Datet.in("1970-01-01")
+		end
+		
+		if match = timestr.to_s.match(/^(\d+)\/(\d+) (\d+)/)
+			#MySQL date format
+			timestr = timestr.gsub(match[0], "")
+			date = match[1]
+			month = match[2]
+			year = match[3]
+			
+			if match = timestr.match(/\s*(\d+):(\d+)/)
+				#MySQL datetime format
+				timestr = timestr.gsub(match[0], "")
+				hour = match[1]
+				minute = match[2]
+			end
+			
+			return Knj::Datet.new(Time.gm(year, month, date, hour, minute))
+    elsif match = timestr.to_s.match(/^(\d{1,2})\/(\d{1,2})\/(\d{4})$/)
+      return Knj::Datet.new(Time.gm(match[3], match[2], match[1]))
+		elsif match = timestr.to_s.match(/^(\d{4})(\d{2})(\d{2})(\d{2})(\d{2})(\d{2})(\d{5})$/)
+			#Datet.code format
+			return Knj::Datet.new(Time.gm(match[1], match[2], match[3], match[4], match[5], match[6], match[7]))
+		elsif match = timestr.to_s.match(/^\s*(\d{4})-(\d{1,2})-(\d{1,2})(|\s+(\d{2}):(\d{2}):(\d{2})(|\.\d+)\s*)(|\s+(UTC))(|\s+(\+|\-)(\d{2})(\d{2}))$/)
+			#Database date format (with possibility of .0 in the end - miliseconds? -knj.
+			
+			if match[11]
+        utc_str = "+#{match[13]}:#{match[14]}"
+      elsif match[8]
+        utc_str = match[8].to_i
+      else
+        utc_str = nil
+      end
+			
+			return Knj::Datet.new(Time.gm(match[1].to_i, match[2].to_i, match[3].to_i, match[5].to_i, match[6].to_i, match[7].to_i,utc_str))
+		end
+		
+		raise Knj::Errors::InvalidData.new("Wrong format: '#{timestr}', class: '#{timestr.class.name}'")
+	end
+	
+	def self.months_arr
+		return Dictionary[
+			1, _("January"),
+			2, _("February"),
+			3, _("March"),
+			4, _("April"),
+			5, _("May"),
+			6, _("June"),
+			7, _("July"),
+			8, _("August"),
+			9, _("September"),
+			10, _("October"),
+			11, _("November"),
+			12, _("December")
+		]
+	end
+	
+	def loc_wday
+		return _(@time.strftime("%A"))
+	end
+	
+	def loc_wday_small
+		return _(@time.strftime("%a"))
+	end
+	
+	def loc_month
+		return _(@time.strftime("%B"))
+	end
+	
+	def to_s
+		return @time.to_s
+	end
+	
+	def code
+		return "#{"%04d" % @time.year}#{"%02d" % @time.month}#{"%02d" % @time.day}#{"%02d" % @time.hour}#{"%02d" % @time.min}#{"%02d" % @time.sec}#{"%05d" % @time.usec}"
+	end
+	
+	def unixt
+		return @time.to_i
+	end
+	
+	alias :to_i :unixt
+end

data/lib/knj/degulesider.rb

@@ -0,0 +1,46 @@
+class Knj::Degulesider
+	include Knj
+	
+	def initialize(args = {})
+		@args = args
+		@http = Http.new(
+			"host" => "www.degulesider.dk"
+		)
+	end
+	
+	def search(sargs)
+		url = "/search/#{Php.urlencode(sargs[:where])}/-/1/"
+		
+		html = @http.get(url)
+		ret = []
+		
+		tbody_match = html["data"].match(/<tbody class='resultBody([\s\S]+?)<\/tbody>/)
+		tbody_match[1].scan(/<tr id='res(\d+)'([\s\S]+?)<\/tr>/) do |match|
+			res = {}
+			
+			if title_match = match[1].match(/<h2><a\s+class="fn".*>(.+)<\/a><\/h2>/)
+				res[:name] = title_match[1]
+			end
+			
+			if phone_match = match[1].match(/<div class="phones"><ul class="linkList"><li>(Mob.|)\s*([\d\s]+)<\/li><\/ul><\/div>/)
+				if phone_match[1] == "Mob."
+					res[:mobile] = phone_match[2].gsub(/\s+/, "")
+				else
+					raise "No such phone-mode: #{phone_match[1]}"
+				end
+			end
+			
+			if city_match = match[1].match(/'locality'>(.+)<\/span>/)
+				res[:city] = city_match[1]
+			end
+			
+			if category_match = match[1].match(/class='categoryLink'>(.+)<\/a>/)
+				res[:category] = category_match[1]
+			end
+			
+			ret << res
+		end
+		
+		return ret
+	end
+end

data/lib/knj/erb/apache_knjerb.conf

@@ -0,0 +1,8 @@
+AddType text/html .rhtml
+
+ScriptAlias /cgi-bin/ /usr/lib/cgi-bin/
+
+<Files *.rhtml>
+	AddType application/x-httpd-knj .rhtml
+	Action application/x-httpd-knj "/cgi-bin/knjerb"
+</Files>

data/lib/knj/erb/cache/README

@@ -0,0 +1 @@
+This is where cache-files are stored for fast execution.

data/lib/knj/erb/erb.rb

@@ -0,0 +1,21 @@
+#!/usr/bin/env ruby
+
+def File::realpath(path)
+	if File.symlink?(path)
+		return self.realpath(File.readlink(path))
+	end
+	
+	return path
+end
+
+knjdir = File.dirname(File.realpath(__FILE__)) + "/../"
+
+require knjdir + "autoload"
+require knjdir + "erb/include"
+
+$knj_eruby = KnjEruby
+
+filename = ENV["PATH_TRANSLATED"] if ENV and ENV["PATH_TRANSLATED"]
+filename = ARGV[0] if ARGV and ARGV[0]
+
+KnjEruby.load(filename)

data/lib/knj/erb/erb_1.9.rb

@@ -0,0 +1,13 @@
+#!/usr/bin/env ruby1.9
+
+knjdir = File.dirname(File.realpath(__FILE__)) + "/../"
+
+require knjdir + "autoload"
+require knjdir + "/erb/include"
+
+$knj_eruby = KnjEruby
+
+filename = ENV["PATH_TRANSLATED"] if ENV and ENV["PATH_TRANSLATED"]
+filename = ARGV[0] if ARGV and ARGV[0]
+
+KnjEruby.load(filename)

data/lib/knj/erb/erb_cache_clean.rb

@@ -0,0 +1,20 @@
+#!/usr/bin/env ruby
+
+require "knj/autoload"
+include Knj
+Os.chdir_file(__FILE__)
+
+curtime = Time.new.to_i
+
+Dir.new("cache").each do |filename|
+	if filename != "." and filename != ".." and filename != "README"
+		fn = "cache/#{filename}"
+		file = File.new(fn)
+		mtime = file.mtime.to_i
+		diftime = curtime - mtime
+		
+		if diftime >= (3600 * 48)
+			File.delete(fn)
+		end
+	end
+end

data/lib/knj/erb/erb_fcgi.rb

@@ -0,0 +1,44 @@
+#!/usr/bin/env ruby
+
+def File::realpath(path)
+	if File.symlink?(path)
+		return self.realpath(File.readlink(path))
+	end
+	
+	return path
+end
+
+require File.dirname(File.realpath(__FILE__)) + "/../autoload"
+
+$_FCGI_COUNT = 0
+require File.dirname(File.realpath(__FILE__)) + "/include"
+$knj_eruby = KnjEruby
+FCGI.each_cgi do |fcgi|
+	$_FCGI_COUNT += 1
+	$_CGI = fcgi
+	$_FCGI = fcgi
+	
+	loadfp = File.dirname(__FILE__) + "/" + File.basename(__FILE__).slice(0..-6) + ".rhtml"
+	
+	begin
+		KnjEruby.fcgi = fcgi
+		KnjEruby.load(loadfp)
+		
+		if KnjEruby.connects["exit"]
+			KnjEruby.connects["exit"].each do |block|
+				block.call
+			end
+		end
+		
+		if $_FCGI_EXIT
+			#Kill self! Need to start a new thread because the app as to finish. Give it 0.1 second to do that before killing it.
+			Thread.new do
+				sleep 0.5
+				Process.kill(9, Process.pid)
+			end
+		end
+	rescue Exception => e
+		puts e.inspect
+		puts e.backtrace
+	end
+end

data/lib/knj/erb/erb_fcgi_1.9.rb

@@ -0,0 +1,44 @@
+#!/usr/bin/env ruby1.9
+
+def File::realpath(path)
+	if File.symlink?(path)
+		return self.realpath(File.readlink(path))
+	end
+	
+	return path
+end
+
+require File.dirname(File.realpath(__FILE__)) + "/../autoload"
+
+$_FCGI_COUNT = 0
+require File.dirname(File.realpath(__FILE__)) + "/include"
+$knj_eruby = KnjEruby
+FCGI.each_cgi do |fcgi|
+	$_FCGI_COUNT += 1
+	$_CGI = fcgi
+	$_FCGI = fcgi
+	
+	loadfp = File.dirname(__FILE__) + "/" + File.basename(__FILE__).slice(0..-6) + ".rhtml"
+	
+	begin
+		KnjEruby.fcgi = fcgi
+		KnjEruby.load(loadfp)
+		
+		if KnjEruby.connects["exit"]
+			KnjEruby.connects["exit"].each do |block|
+				block.call
+			end
+		end
+		
+		if $_FCGI_EXIT
+			#Kill self! Need to start a new thread because the app as to finish. Give it 0.1 second to do that before killing it.
+			Thread.new do
+				sleep 0.5
+				Process.kill(9, Process.pid)
+			end
+		end
+	rescue Exception => e
+		puts e.inspect
+		puts e.backtrace
+	end
+end

data/lib/knj/erb/erb_fcgi_jruby.rb

@@ -0,0 +1,7 @@
+#!/usr/bin/jruby
+
+require "fcgi"
+FCGI.each_cgi do |fcgi|
+	print "Content-Type: text/html\n\n"
+	print "Hello world."
+end

data/lib/knj/erb/erb_jruby.rb

@@ -0,0 +1,22 @@
+#!/usr/bin/jruby
+
+def File::realpath(path)
+	if File.symlink?(path)
+		return self.realpath(File.readlink(path))
+	end
+	
+	return path
+end
+
+knjdir = File.dirname(File.realpath(__FILE__)) + "/../"
+
+require knjdir + "autoload"
+require "erubis"
+require knjdir + "/erb/include"
+
+$knj_eruby = KnjEruby
+
+filename = ENV["PATH_TRANSLATED"] if ENV and ENV["PATH_TRANSLATED"]
+filename = ARGV[0] if ARGV and ARGV[0]
+
+KnjEruby.load(filename)