mod_spox 0.1.0.1 → 0.2.0

data/data/mod_spox/extras/NickServ.rb

@@ -0,0 +1,83 @@
+class NickServ < ModSpox::Plugin
+
+    #TODO: Add support for things like RECOVERY and GHOST
+
+    def initialize(pipeline)
+        super
+        admin = Models::Group.find_or_create(:name => 'admin')
+        add_sig(:sig => 'nickserv address( \S+)?', :method => :set_address, :group => admin,
+            :desc => 'Set/view address to send nickserv info to', :params => [:address])
+        add_sig(:sig => 'nickserv combo (\S+) (\S+)', :method => :set_combo, :group => admin,
+            :desc => 'Set nick/pass combo', :params => [:nick, :password], :req => 'private')
+        add_sig(:sig => 'nickserv show', :method => :output_info, :group => admin,
+            :desc => 'Show nickserv info', :req => 'private')
+        add_sig(:sig => 'nickserv send', :method => :send_combo, :group => admin,
+            :desc => 'Send nickserv info')
+        @nickserv = Models::Setting.find_or_create(:name => 'nickserv').value
+        unless(@nickserv.is_a?(Hash) && @nickserv.has_key?(:address) && @nickserv.has_key?(:combos))
+            @nickserv = {:address => nil, :combos => {}}
+        end
+        @pipeline.hook(self, :send_nickserv, :Incoming_Welcome)
+    end
+    
+    # @nickserv = {:address => 'nickserv@blah', :combos => {'nick' => 'pass'}}
+    
+    def set_address(message, params)
+        if(params[:address])
+            params[:address].strip!
+            @nickserv[:address] = params[:address]
+            save_info
+            reply message.replyto, "Nickserv address updated to: #{params[:address]}"
+        else
+            unless(@nickserv[:address].nil?)
+                reply message.replyto, "Nickserv address set to: #{@nickserv[:address]}"
+            else
+                reply message.replyto, "\2Error:\2 Nickserv address has not been set"
+            end
+        end 
+    end
+    
+    def set_combo(message, params)
+        @nickserv[:combos][params[:nick].to_sym] = params[:password]
+        save_info
+        reply message.replyto, "Nickserv password saved for nick: \2#{params[:nick]}\2"
+    end
+    
+    def output_info(message, params)
+        output = ["\2Nickserv information dump:\2"]
+        output << "Address used to send identification: #{@nickserv[:address].nil? ? 'unset' : @nickserv[:address]}"
+        @nickserv[:combos].each_pair{|k,v| output << "#{k} -> #{v}"}
+        reply message.replyto, output
+    end
+    
+    def send_combo(message, params)
+        output = 'Identification sent to nickserv'
+        begin
+            identify
+        rescue Object => boom
+            output = boom.to_s
+        ensure
+            reply message.replyto, output
+        end
+    end
+    
+    def send_nickserv(m)
+        identify
+    end
+    
+    private
+    
+    def save_info
+        s = Models::Setting.filter(:name => 'nickserv').first.update(:value => @nickserv)
+    end
+    
+    def identify
+        raise Exceptions::BotException.new('No address set for nickserv') if @nickserv[:address].nil?
+        if(@nickserv[:combos].has_key?(me.nick.to_sym))
+            @pipeline << Messages::Outgoing::Privmsg.new(@nickserv[:address], "IDENTIFY #{@nickserv[:combos][me.nick.to_sym]}")
+        else
+            raise Exceptions::BotException.new("No nickserv password available for: #{me.nick.nick}")
+        end
+    end
+
+end

data/data/mod_spox/extras/PhpCli.rb

@@ -9,7 +9,7 @@ class PhpCli < ModSpox::Plugin
         @path = Config[:plugin_directory] + '/phpcli'
         @botini = @path + '/bot.ini'
         unless(File.directory?(@path))
-            FileUtils.mkdir_p(@path) 
+            FileUtils.mkdir_p(@path)
         end
         result = Helpers.safe_exec('which php')
         raise NoInterpreter.new if result.empty?
@@ -18,21 +18,16 @@ class PhpCli < ModSpox::Plugin
             ini.write($ini)
             ini.close
         end
-        php = Group.find_or_create(:name => 'PHP')
+        php = Group.find_or_create(:name => 'php')
         admin = Group.filter(:name => 'admin').first
         Signature.find_or_create(:signature => 'php (on|off)', :plugin => name, :method => 'set_channel', :group_id => admin.pk,
             :description => 'Add or remove channel from allowing PHP command').params = [:action]
         Signature.find_or_create(:signature => 'php (?!on|off)(.+)', :plugin => name, :method => 'execute_php', :group_id => php.pk,
             :description => 'Execute PHP code').params = [:code]
-        @channels = Setting.find(:name => 'phpcli')
-        if(@channels.nil?)
-            Logger.log("WE ARE NIL PEOPLE")
-            @channels = []
-        else
-            @channels = @channels.value
-        end
+        @channels = Setting.filter(:name => 'phpcli').first
+        @channels = @channels.nil? ? [] : @channels.value
     end
-    
+
     def set_channel(message, params)
         return unless message.is_public?
         if(params[:action] == 'on')
@@ -55,7 +50,7 @@ class PhpCli < ModSpox::Plugin
             end
         end
     end
-    
+
     def execute_php(message, params)
         return unless @channels.include?(message.target.pk)
         filepath = @path + "/#{rand(99999)}.bot.php"
@@ -83,12 +78,14 @@ class PhpCli < ModSpox::Plugin
                 reply message.replyto, "Result: "+output
             end
             File.delete(filepath)
-        rescue
-            reply message.replyto, "\2Error:\2 Timeout reached. Script execution terminated"
+        rescue Timeout::Error => boom
+            reply message.replyto, "\2Error:\2 Timeout reached: #{boom}"
+        rescue Object => boom
+            reply message.replyto, "\2Error:\2 Script execution terminated. (#{boom})"
             File.delete(filepath)
         end
     end
-    
+
     class NoInterpreter < Exceptions::BotException
     end
 
@@ -115,7 +112,7 @@ safe_mode_exec_dir = /tmp/mod_spox/php
 safe_mode_allowed_env_vars = PHP_
 safe_mode_protected_env_vars = LD_LIBRARY_PATH
 open_basedir = /tmp/mod_spox
-disable_functions = fscanf fputs chown chmod copy delete fflush file flock ftell glob link fseek lstat move_uploaded_file rename realpath set_file_buffer touch fprintf chgrp fgetss readfile dio_close dio_fnctl dio_open dio_read dio_seek dio_stat dio_tcsetattr dio_truncate dio_write chdir chroot dir closedir getcwd opendir readdir rewinddir scandir posix_kill posix_access posix_ctermid posix_get_last_error posix_getcwd posix_getegid posix_geteuid posix_getgid posix_getgrgid posix_getgrnam posix_getgroups posix_getlogin posix_getpgid posix_getpgrp posix_getpid posix_getppid posix_getpwnam posix_getpwuid posix_getwuid posix_getrlimit posix_getsid posix_getuid posix_isatty posix_mkfifo posix_mknod posix_setegid posix_setgid posix_setpgid posix_setsid posix_setuid posix_strerror posix_times posix_ttyname posix_uname expect_expectl expect_popen sleep time_sleep_until usleep pfsockopen fsockopen openlog debugger_on proc_open pclose popen fsockopen fread set_time_limit ini_set ini_alter ini_restore exec system passthru proc_close proc_nice proc_open proc_terminiate shell_exec sleep usleep pcntl_fork pcntl_exec pcntl_alarm pcntl_getpriority pcntl_setpriority pcntl_waitpid pcntl_wexitstatus pcntl_wifexited pcntl_wifsignaled pcntl_wifstopped pcntl_wstopsig pcntl_wtermsig readline_add_history readline_callback_handler_install readline_callback_handler_remove readline_callback_read_char readline_clear_history readline_completion_function readline_info readline_list_history readline_on_new_line readline_read_history readline_redisplay readline_write_history readline dl set_include_path set_magic_quotes_runtime file_put_contents fwrite fputs copy fputcsv tmpfile symlink tempnam mysql_connect unlink putenv ftp_connect socket_create socket_create socket_close socket_accept socket_bind socket_close socket_connect socket_create_listen socket_create_pair socket_get_option socket_listen socket_read socket_recv socket_select socket_send socket_sendto shmop_close shmop_open shmop_delete shmop_read shmop_size shmop_write msg_get_queue msg_receive msg_remove_queue msg_send msg_set_queue msg_stat_queue msg_acquire sem_aquire sem_release sem_get sem_remove mail time_nanosleep usleep
+disable_functions = fscanf fputs chown chmod copy delete fflush file flock ftell glob link fseek lstat move_uploaded_file rename realpath set_file_buffer touch fprintf chgrp fgetss readfile dio_close dio_fnctl dio_open dio_read dio_seek dio_stat dio_tcsetattr dio_truncate dio_write chdir chroot dir closedir getcwd opendir readdir rewinddir scandir posix_kill posix_access posix_ctermid posix_get_last_error posix_getcwd posix_getegid posix_geteuid posix_getgid posix_getgrgid posix_getgrnam posix_getgroups posix_getlogin posix_getpgid posix_getpgrp posix_getpid posix_getppid posix_getpwnam posix_getpwuid posix_getwuid posix_getrlimit posix_getsid posix_getuid posix_isatty posix_mkfifo posix_mknod posix_setegid posix_setgid posix_setpgid posix_setsid posix_setuid posix_strerror posix_times posix_ttyname posix_uname expect_expectl expect_popen sleep time_sleep_until usleep pfsockopen fsockopen openlog debugger_on proc_open pclose popen fsockopen fread set_time_limit ini_set ini_alter ini_restore exec system passthru proc_close proc_nice proc_open proc_terminiate shell_exec sleep usleep pcntl_fork pcntl_exec pcntl_alarm pcntl_getpriority pcntl_setpriority pcntl_waitpid pcntl_wexitstatus pcntl_wifexited pcntl_wifsignaled pcntl_wifstopped pcntl_wstopsig pcntl_wtermsig readline_add_history readline_callback_handler_install readline_callback_handler_remove readline_callback_read_char readline_clear_history readline_completion_function readline_info readline_list_history readline_on_new_line readline_read_history readline_redisplay readline_write_history readline dl set_include_path set_magic_quotes_runtime file_put_contents fwrite fputs copy fputcsv tmpfile symlink tempnam mysql_connect unlink putenv ftp_connect socket_create socket_create socket_close socket_accept socket_bind socket_close socket_connect socket_create_listen socket_create_pair socket_get_option socket_listen socket_read socket_recv socket_select socket_send socket_sendto shmop_close shmop_open shmop_delete shmop_read shmop_size shmop_write msg_get_queue msg_receive msg_remove_queue msg_send msg_set_queue msg_stat_queue msg_acquire sem_aquire sem_release sem_get sem_remove mail time_nanosleep usleep include include_once require require_once ftp_alloc ftp_cdup ftp_chdir ftp_chmod ftp_close ftp_connect ftp_delete ftp_exec ftp_fget ftp_fput ftp_get ftp_get_option ftp_login ftp_mdtm ftp_mkdir ftp_nb_continue ftp_nb_fget ftp_nb_fput ftp_nb_get ftp_nb_put
 disable_classes = dir
 expose_php = On
 max_execution_time = 10

data/data/mod_spox/extras/PhpFuncLookup.rb

@@ -1,4 +1,5 @@
 require 'cgi'
+require 'open-uri'
 
 # Inspired from an old plugin for the original mod_spox
 # Original development: spox & Ryan "pizza_milkshake" Flynn
@@ -79,12 +80,14 @@ class PhpFuncLookup < ModSpox::Plugin
         
     def phpfunc(m, params)
         name = params[:name].downcase
-        Logger.log "phpfunc name=#{name}"
+        Logger.info "phpfunc name=#{name}"
         if name =~ /^\S+$/ && name =~ /\*/
             parse_wildcard(m, name) 
         elsif name =~ /^\$/
-            parse_predefined(m, name) 
-        elsif name =~ /^\S+$/ && filename = find_file(name)
+            parse_predefined(m, name)
+        elsif name =~ /^\S+$/ && filename = find_control_file(name)
+            parse_control(m, name, filename)
+        elsif name =~ /^\S+$/ && filename = find_function_file(name)
             parse_function(m, name, filename) 
         elsif @ops.has_key?(name)
             parse_operator(m, name) 
@@ -93,7 +96,7 @@ class PhpFuncLookup < ModSpox::Plugin
     
     def fetch(m, params)
         reply m.replyto, "Fetching PHP manual (This could take a few minutes)"
-        fetch_manual
+        fetch_manual(m)
     end
     
     def listen(m)
@@ -147,26 +150,27 @@ class PhpFuncLookup < ModSpox::Plugin
     
     private
 
-    def find_file(name)
+    def find_function_file(name)
         Dir.new(@manual).each do |filename|
             return filename if filename.downcase == "function.#{name.gsub(/(_|->)/, '-').downcase}.html"
         end
         return nil
     end
+    
+    def find_control_file(name)
+        Dir.new(@manual).each do |filename|
+            return filename if filename.downcase == "control-structures.#{name}.html"
+        end
+        return nil
+    end
 
     def fetch_manual(message=nil, params=nil)
         Thread.new do
-            manual_site = 'http://us.php.net/'
-            Logger.log "Fetching PHP manual from #{manual_site}"
-            connection = Net::HTTP.new("us.php.net", 80)
-            File.open("#{@path}/manual.tar.gz", 'w'){ |manual|
-                connection.get('/distributions/manual/php_manual_en.tar.gz', nil){ |line|
-                    manual.write(line)
-                }
-            }
+            Logger.info 'Fetching PHP manual from http://us.php.net'
+            open("#{@path}/manual.tar.gz", 'w').write(open('http://us.php.net/distributions/manual/php_manual_en.tar.gz').read)
             Dir.chdir(@path)
             Helpers.safe_exec("tar -xzf #{@path}/manual.tar.gz", 60)
-            Logger.log "PHP manual fetching complete."
+            Logger.info "PHP manual fetching complete."
             reply message.replyto, "PHP manual fetch is now complete" unless message.nil?
         end
     end
@@ -200,9 +204,9 @@ class PhpFuncLookup < ModSpox::Plugin
     
     def parse_wildcard(m, name)
         matches = []
-        pattern = name.gsub(/\*/, '.*?')
+        pattern = name.gsub(/\*/, '.*?').gsub(/_/, '-')
         Dir.open(@manual).each do |file|
-            if(file =~ /^(.+?#{pattern}.+?)\.html/)
+            if(file =~ /^(function\.#{pattern})\.html/)
                 match = $1
                 if(match =~ /^function\.(.+?)\-/)
                     if(@classlist.include?($1.downcase))
@@ -211,11 +215,9 @@ class PhpFuncLookup < ModSpox::Plugin
                     else
                         match.gsub!(/[-]/, '_')
                     end
-                    match.gsub!(/^function\./, '')
-                else
-                    match = nil
                 end
-                matches << match unless match.nil?
+                match.gsub!(/^function\./, '')
+                matches << match unless match.empty?
             end
         end
         matches.sort!
@@ -223,6 +225,7 @@ class PhpFuncLookup < ModSpox::Plugin
         if(matches.empty?)
             output = "\2Error:\2 No matches found"
         else
+            output << "Matches against term: \2#{name}:\2"
             output << matches.values_at(0..19).join(', ')
         end
         reply m.replyto, output
@@ -233,7 +236,7 @@ class PhpFuncLookup < ModSpox::Plugin
         page.gsub!(/[\r\n]/, '')
         versions = page =~ /<p class="verinfo">(.+?)<\/p>/i ? $1 : '(UNKNOWN)'
         proto = page =~ /<div class="methodsynopsis dc-description">(.+?)<\/div>/i ? $1 : name
-        desc = page =~ /<p class="refpurpose dc-title">.+? — (.+?)<\/p>/i ? $1 : '(UNKNOWN)'
+        desc = page =~ /<p class="(para rdfs-comment|simpara)">(.+?)<\/p>/i ? $2.strip : '(UNKNOWN)'
         versions = CGI::unescapeHTML(versions)
         proto = CGI::unescapeHTML(proto.gsub(/<.+?>/, ' ').gsub(/[\s]+/, ' '))
         desc = CGI::unescapeHTML(desc.gsub(/<.+?>/, ' ').gsub(/[\s]+/, ' '))
@@ -245,13 +248,42 @@ class PhpFuncLookup < ModSpox::Plugin
     end
 
     def parse_operator(m, name)
-        Logger.log "parse_operator name=#{name}"
+        Logger.info "parse_operator name=#{name}"
         name.downcase!
         type, title, ejemplo = @ops[name]
-        output = ["\2#{name}\2 is the \2#{title.to_a.join("\2 or \2")}\2 operator"]
-        type.to_a.each do |t|
-            output << "http://php.net/manual/en/language.operators.#{t}.php"
+        if(title.is_a?(Array))
+            output = ["\2#{name}\2 is the \2#{title.join("\2 or \2")}\2 operator"]
+            if(ejemplo.is_a?(Array))
+                (0..(ejemplo.size - 1)).each do |i|
+                    output << "\2Example (#{type[i]}):\2 #{ejemplo[i]}"
+                end
+            elsif(!ejemplo.nil?)
+                output << "\2Example (#{type}):\2 #{ejemplo}"
+            end
+            type.each do |t|
+                output << "http://php.net/manual/en/language.operators.#{t}.php"
+            end
+        else
+            output = ["\2#{name}\2 is the \2#{title}\2 operator"]
+            output << "\2Example usage:\2 #{ejemplo}" unless ejemplo.nil? || ejemplo.empty?
+            output << "http://php.net/manual/en/language.operators.#{type}.php"
         end
+        reply m.replyto, output
+    end
+    
+    def parse_control(m, name, filename)
+        page = File.open("#{@manual}/#{filename}", 'r').readlines.join('')
+        page.gsub!(/[\r\n]/, '')
+        con = page =~ /<h2 class="title"><i>([^<]+)</ ? $1 : '(UNKNOWN)'
+        par = page =~ /^.+?<p class="para">(.+?)<div/ ? $1.strip : '(UNKNOWN)'
+        Logger.info("Match: #{par}")
+        par = par.gsub(/<.+?>/, ' ').gsub(/\s{2,}/, ' ')
+        par.gsub!(/\.[^\.]+:$/, '.')
+        #par.slice!(0..199) if par.size > 200
+        output = ["\2Control structure: #{con}\2"]
+        output << par
+        output << "http://www.php.net/manual/en/#{filename.gsub(/\.html$/, '.php')}"
+        reply m.replyto, output
     end
     
     def populate_classes

data/data/mod_spox/extras/Quotes.rb

@@ -23,15 +23,16 @@ class Quotes < ModSpox::Plugin
             if(params[:term] =~ /^\d+$/)
                 quote = Quote[params[:term].to_i]
             else
-                quote = Quote.filter(:quote => Regexp.new(params[:term])).first
+                ids = Quote.filter(:quote => Regexp.new(params[:term], Regexp::IGNORECASE)).map(:id) 
+                quote = Quote[ids[rand(ids.size)].to_i]
                 reg = true
             end
         else
             ids = Quote.select(:id).map(:id)
-            quote = Quote[ids[rand(ids.size - 1)].to_i]
+            quote = Quote[ids[rand(ids.size)].to_i]
         end
         if(quote)
-            reply message.replyto, "\2[\2#{quote.pk}\2|\2#{quote.added.year}/#{sprintf('%02d', quote.added.month)}/#{sprintf('%02d', quote.added.day)}\2]:\2 #{reg ? quote.quote.gsub(/(#{params[:term]})/, "\2\\1\2") : quote.quote}"
+            reply message.replyto, "\2[\2#{quote.pk}\2|\2#{quote.added.year}/#{sprintf('%02d', quote.added.month)}/#{sprintf('%02d', quote.added.day)}\2]:\2 #{reg ? quote.quote.gsub(/(#{params[:term]})/i, "\2\\1\2") : quote.quote}"
         else
             reply message.replyto, "\2Error:\2 Failed to find quote"
         end
@@ -46,7 +47,7 @@ class Quotes < ModSpox::Plugin
     end
     
     def searchquote(message, params)
-        result = Quote.filter(:quote => Regexp.new(params[:term]))
+        result = Quote.filter(:quote => Regexp.new(params[:term], Regexp::IGNORECASE))
         if(result.size > 0)
             ids = result.map(:id)
             ids.sort!

data/data/mod_spox/extras/RegexTracker.rb

@@ -0,0 +1,160 @@
+class RegexTracker < ModSpox::Plugin
+
+    include Models
+    def initialize(pipeline)
+        super
+        track = Group.find_or_create(:name => 'track')
+        add_sig(:sig => 'track info (\d+)', :method => :score, :desc => 'Show info on regex tracking',
+                :params => [:id])
+        add_sig(:sig => 'track list(\s\S+)?', :method => :list, :desc => 'List currently tracked regex', :params => [:channel])
+        add_sig(:sig => 'track add (.+)', :method => :add, :desc => 'Add new regex for tracking',
+                :params => [:regex], :group => track)
+        add_sig(:sig => 'track remove (\d+)', :method => :remove, :desc => 'Remove regex from tracking',
+                :params => [:id], :group => track)
+        add_sig(:sig => 'track modify (\d+) (.+)', :method => :modify, :desc => 'Modify regex',
+                :params => [:id, :regex], :group => track)
+        @pipeline.hook(self, :check, :Incoming_Privmsg)
+        TrackInfo.create_table unless TrackInfo.table_exists?
+        @cache = {}
+        build_cache
+    end
+    
+    def check(message)
+        return unless @cache.has_key?(message.target.pk.to_i)
+        time = Time.now
+        @cache[message.target.pk.to_i].each do |t|
+            if(message.message =~ /#{t[:regex]}/)
+                ti = TrackInfo[t[:id]]
+                if(ti.last_score.year != time.year || ti.last_score.yday != time.yday)
+                    ti.score_today = 0
+                end
+                ti.last_score = Time.now
+                ti.score_today += 1
+                ti.score_total += 1
+                ti.save
+            end
+        end
+    end
+    
+    def list(message, params)
+        output = ''
+        begin
+            raise 'No channel given for list' if message.is_private? && !params[:channel]
+            channel = params[:channel] ? Helpers.find_model(params[:channel].strip, false) : message.target
+            if(TrackInfo.filter(:channel_id => channel.pk).count > 0)
+                output = []
+                output << "\2Currently tracked regexs in #{channel.name}"
+                TrackInfo.filter(:channel_id => channel.pk).each do |t|
+                    output << "\2ID:\2 #{t.pk} --- \2REGEX:\2 #{t.regex}"
+                end
+            else
+                output = 'Error: Nothing is currently being tracked'
+            end
+        rescue Object => boom
+            output = "Error: #{boom}"
+        ensure
+            reply message.replyto, output
+        end
+    end
+    
+    def add(message, params)
+        output = ''
+        begin
+            r = Regexp.new(params[:regex])
+            t = TrackInfo.new
+            t.regex = params[:regex]
+            t.channel = message.target
+            t.last_score = Time.now
+            t.save
+            build_cache
+            output = "New regex has been added for tracking (ID: #{t.pk})"
+        rescue Object => boom
+            output = "Failed to save regex: #{boom}"
+        ensure
+            reply message.replyto, output
+        end
+    end
+    
+    def remove(message, params)
+        id = params[:id].to_i
+        tis = TrackInfo.filter(:id => id)
+        if(tis.count > 0)
+            tis.destroy
+            build_cache
+            reply message.replyto, "Regex has been removed (ID: #{id})"
+        else
+            reply message.replyto, "Failed to find regex being tracked with ID: #{id}"
+        end
+    end
+    
+    def modify(message, params)
+        id = params[:id].to_i
+        tis = TrackInfo.filter(:id => id)
+        output = ''
+        begin
+            r = Regexp.new(params[:regex])
+            if(tis.count > 0)
+                t = tis.first
+                t.regex = params[:regex]
+                t.save
+                build_cache
+                output = "Regex has been update (ID: #{t.pk})"
+            else
+                output = "Failed to locate tracking regex (ID: #{id})"
+            end
+        rescue Object => boom
+            output = "Failed to save regex. #{boom}"
+        ensure
+            reply message.replyto, output
+        end
+    end
+    
+    def score(message, params)
+        id = params[:id].to_i
+        t = TrackInfo.filter(:id => id).first
+        if(t)
+            reply message.replyto, "\2(#{id})\2: Regex: #{t.regex}, Today: #{t.score_today}, Total: #{t.score_total}, Last occurance: #{t.last_score}"
+        else
+            reply message.replyto, "Failed to find tracking regex with ID: #{id}"
+        end
+    end
+    
+    def build_cache
+        @cache = {}
+        TrackInfo.all.each do |t|
+            @cache[t.channel_id.to_i] = [] unless @cache.has_key?(t.channel_id.to_i)
+            @cache[t.channel_id.to_i] << {:id => t.pk, :regex => t.regex}
+        end
+    end
+    
+    class TrackInfo < Sequel::Model
+        set_schema do
+            primary_key :id, :null => false
+            varchar :regex, :null => false
+            integer :score_total, :null => false, :default => 0
+            integer :score_today, :null => false, :default => 0
+            timestamp :last_score, :null => false
+            foreign_key :channel_id, :table => :channels, :null => false
+            index [:regex, :channel_id], :unique => true
+        end
+        
+        def channel
+            Channel[channel_id]
+        end
+        
+        def channel=(chan)
+            raise Exceptions::InvalidType.new('Channel model was expected') unless chan.is_a?(Models::Channel)
+            values[:channel_id] = chan.pk
+        end
+        
+        def regex=(r)
+            r = [Marshal.dump(r)].pack('m')
+            super(r)
+        end
+        
+        def regex
+            values[:regex] ? Marshal.load(values[:regex].unpack('m')[0]) : nil
+        end
+    end
+
+end