watobo 0.9.8.677

data/lib/watobo/gui/conversation_table.rb

@@ -0,0 +1,386 @@
+# .
+# conversation_table.rb
+# 
+# Copyright 2012 by siberas, http://www.siberas.de
+# 
+# This file is part of WATOBO (Web Application Tool Box)
+#        http://watobo.sourceforge.com
+# 
+# WATOBO is free software; you can redistribute it and/or modify
+# it under the terms of the GNU General Public License as published by
+# the Free Software Foundation version 2 of the License.
+# 
+# WATOBO is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+# GNU General Public License for more details.
+# 
+# You should have received a copy of the GNU General Public License
+# along with WATOBO; if not, write to the Free Software
+# Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA  02110-1301  USA
+# .
+module Watobo
+  module Gui
+    TABLE_COL_METHOD = 0x0001
+    TABLE_COL_HOST = 0x0002
+    TABLE_COL_PATH = 0x0004
+    TABLE_COL_PARMS = 0x0008
+    TABLE_COL_STATUS = 0x0010
+    TABLE_COL_COOKIE = 0x0020
+    TABLE_COL_COMMENT = 0x0040
+    TABLE_COL_SSL = 0x0100
+    class ConversationTable < FXTable
+
+      attr_accessor :autoscroll
+      
+      include Watobo::Gui::Icons
+      
+       def subscribe(event, &callback)
+        (@event_dispatcher_listeners[event] ||= []) << callback
+        #puts callback.class_
+        puts callback.object_id
+      end
+
+      def clearEvents(event)
+        @event_dispatcher_listeners[event] ||= []
+        @event_dispatcher_listeners[event].clear
+      end
+
+      def notify(event, *args)
+        if @event_dispatcher_listeners[event]
+           puts "NOTIFY: #{self}(:#{event}) [#{@event_dispatcher_listeners[event].length}]" if $DEBUG
+          @event_dispatcher_listeners[event].each do |m|           
+            m.call(*args) if m.respond_to? :call
+          end
+        end
+      end
+      
+      def num_total
+        @current_chat_list.length
+      end
+      
+      def num_visible
+        self.numRows
+      end
+      
+      def reset_filter
+        @filter = {
+          :show_scope_only => false,
+          :text => '',
+          :url => false,
+          :request => false,
+          :response => false,
+          :hide_tested => false,
+          :doc_filter => []
+        }
+      end
+      
+      # :show_scope_only => false,
+      # :text => '',
+      # :url => false,
+      # :request => false,
+      # :response => false,
+      # :hide_tested => false
+      def apply_filter(filter={})  
+              
+        @filter.update filter
+        @uniq_chats.clear
+        puts @filter.to_yaml if $DEBUG
+        update_table
+      end
+      
+      def chat_visible?(chat)
+         begin
+        #if @active_project and @active_project.settings[:site_filter]
+        #  #puts chat.request.url
+        #puts @active_project.settings[:site_filter]
+        #  return false if @active_project.settings[:site_filter] != '' and chat.request.url =~ /^http(s)?:\/\/#{Regexp.quote(@active_project.settings[:site_filter])}/
+        #  return true
+        # end
+        
+          if @filter[:unique]
+            unless Watobo::Gui.active_project.nil?
+              uniq_hash = Watobo::Gui.active_project.uniqueRequestHash chat.request
+              return false if @uniq_chats.has_key? uniq_hash
+              @uniq_chats[uniq_hash] = nil
+            end
+          end
+          
+          if @filter[:show_scope_only]           
+            unless Watobo::Gui.active_project.nil?
+              return false unless Watobo::Gui.active_project.siteInScope?(chat.request.site)
+            end
+          end
+          # puts "* passed scope"
+          if @filter[:hide_tested]
+             return false if chat.tested?
+          end
+          # puts "* passed hide tested"
+          unless @filter[:doc_filter].include?(chat.request.doctype)
+            return true if @filter[:text].empty?
+            
+            return true if @filter[:url] and chat.request.first =~ /#{@filter[:text]}/i
+            
+            return true if @filter[:request] and chat.request.join =~ /#{@filter[:text]}/i
+            
+            if chat.response.content_type =~ /(text|javascript)/
+            return true if @filter[:response] and chat.response.join.unpack("C*").pack("C*") =~ /#{@filter[:text]}/i             
+            end
+            
+          end
+        rescue => bang
+        puts "! could not add chat to table !".upcase
+        #  puts chat.id
+        puts bang
+        puts bang.backtrace if $DEBUG
+        end
+        false
+      end
+      
+      def showConversation( chat_list = [] )
+        clearConversation()
+        chat_list.each do |chat|
+          addChat(chat)
+        end
+        adjustCellWidth()
+      end
+
+      def setNewFont(font_type=nil, size=nil)
+        begin
+          new_size = size.nil? ? GUI_REGULAR_FONT_SIZE : size
+          new_font_type = font_type.nil? ? "helvetica" : font_type
+          new_font = FXFont.new(getApp(), new_font_type, new_size)
+          new_font.create
+
+          self.font = new_font
+          self.rowHeader.font = new_font
+          self.defRowHeight = new_size+10
+
+          update_table()
+
+        rescue => bang
+          puts bang
+          puts bang.backtrace if $DEBUG
+        end
+      end
+
+      def updateComment(row, comment)
+        col = @col_order.index(TABLE_COL_COMMENT)
+        self.setItemText(row, col, comment.gsub(/[^[:print:]]/,' '))
+      end
+
+      def addChat(chat, *prefs)
+        if self.getNumRows <= 0 then
+          clearConversation()
+        # initColumns()
+        end
+
+        @current_chat_list.push chat unless chat.nil?
+        add_chat_row(chat) if chat_visible?(chat)
+        
+      end
+
+      def initColumns()
+        self.setTableSize(0, @columns.length)
+        self.visibleRows = 20
+        self.visibleColumns = @columns.length
+
+        @columns.each do |type, name|
+          index = @col_order.index(type)
+          self.setColumnText( index, name )
+          self.setColumnIcon(@col_order.index(TABLE_COL_SSL), TBL_ICON_LOCK)# puts self.getItem(@col_order.index(col), 0  ).class.to_s
+        end
+
+      end
+
+      def initialize( owner, unused = nil )
+        @event_dispatcher_listeners = Hash.new
+        
+        super(owner, :opts => TABLE_COL_SIZABLE|TABLE_ROW_SIZABLE|LAYOUT_FILL_X|LAYOUT_FILL_Y|TABLE_READONLY|LAYOUT_SIDE_TOP, :padding => 2)
+
+        self.setBackColor(FXRGB(255, 255, 255))
+        self.setCellColor(0, 0, FXRGB(255, 255, 255))
+        self.setCellColor(0, 1, FXRGB(255, 240, 240))
+        self.setCellColor(1, 0, FXRGB(240, 255, 240))
+        self.setCellColor(1, 1, FXRGB(240, 240, 255))
+
+        reset_filter
+        #   FXMAPFUNC(SEL_CLICKED, FXTable::ID_SELECT_CELL, :onSelectCell)
+        @current_chat_list = []
+        @uniq_chats = Hash.new
+
+        @columns = Hash.new
+        @cell_width = Hash.new
+        @col_order = []
+        @autoscroll = false
+
+        @columns = Hash.new
+
+        @columns[TABLE_COL_METHOD] = "Method"
+        @columns[TABLE_COL_HOST] = "Host"
+        @columns[TABLE_COL_PATH] = "Path"
+        @columns[TABLE_COL_PARMS] = "Parameters"
+        @columns[TABLE_COL_STATUS] = "Status"
+        @columns[TABLE_COL_COOKIE] = "Set-Cookie"
+        @columns[TABLE_COL_COMMENT] = "Comment"
+        @columns[TABLE_COL_SSL] = ""
+
+        # initialize columns order
+        @col_order = [ TABLE_COL_SSL, TABLE_COL_METHOD, TABLE_COL_HOST, TABLE_COL_PATH, TABLE_COL_PARMS, TABLE_COL_STATUS, TABLE_COL_COOKIE, TABLE_COL_COMMENT ]
+
+        # init cell width
+        @cell_width = Hash.new
+        @cell_width[TABLE_COL_METHOD] = 50
+        @cell_width[TABLE_COL_HOST] = 120
+        @cell_width[TABLE_COL_PATH] = 200
+        @cell_width[TABLE_COL_PARMS] = 150
+        @cell_width[TABLE_COL_STATUS] = 50
+        @cell_width[TABLE_COL_COOKIE] = 70
+        @cell_width[TABLE_COL_COMMENT] = 100
+        @cell_width[TABLE_COL_SSL] = 20
+
+        @cell_width_defaults = Hash.new
+        @cell_width_defaults.update YAML.load(YAML.dump(@cell_width))
+
+        @cell_auto_max = 400
+        @cell_min_width = 30
+
+        initColumns()
+
+        self.columnHeader.connect(SEL_CHANGED) do |sender, sel, index|
+          type = @col_order[index]
+          @cell_width[type] = self.getColumnWidth(index)
+        end
+
+        self.columnHeader.connect(SEL_COMMAND) do |sender, sel, index|
+          type = @col_order[index]
+          column_width = self.getColumnWidth(index)
+
+          new_width = case column_width
+          when column_width > @cell_auto_max
+            @cell_auto_max
+          when ( column_width > @cell_width_defaults[type] )
+            @cell_width_defaults[type]
+          when @cell_width_defaults[type]
+            self.fitColumnsToContents(index)
+            w = self.getColumnWidth(index)
+            w = @cell_auto_max if self.getColumnWidth(index) > @cell_auto_max
+            w = @cell_width_defaults[type] if self.getColumnWidth(index) < @cell_width_defaults[type]
+            w
+          else
+          @cell_width_defaults[type]
+          end
+          self.setColumnWidth(index, new_width)
+          @cell_width[type] = new_width
+
+          adjustCellWidth()
+        end
+        
+        adjustCellWidth()
+      end
+
+      def scrollUp()
+        self.makePositionVisible(0, 0)
+      end
+
+      def scrollDown()
+        self.makePositionVisible(self.numRows-1, 0)
+      end
+
+      def clearConversation()
+        self.clearItems
+        @current_chat_list = []
+        initColumns()
+        adjustCellWidth()
+      end
+
+      private
+
+      def add_chat_row(chat)
+        lastRowIndex = self.getNumRows
+        self.appendRows(1)
+
+        self.rowHeader.setItemJustify(lastRowIndex, FXHeaderItem::RIGHT)
+        self.setRowText(lastRowIndex, chat.id.to_s)
+
+        index = @col_order.index(TABLE_COL_SSL)
+        self.setItemIcon(lastRowIndex, index, TBL_ICON_LOCK) if chat.request.is_ssl?
+
+        index = @col_order.index(TABLE_COL_METHOD)
+
+        self.setItemText(lastRowIndex, index, chat.request.method)
+        self.getItem(lastRowIndex, index).justify = FXTableItem::LEFT
+
+        index = @col_order.index(TABLE_COL_HOST)
+        self.setItemText(lastRowIndex, index, chat.request.host)
+        self.getItem(lastRowIndex,index).justify = FXTableItem::LEFT
+
+        index = @col_order.index(TABLE_COL_PATH)
+        self.setItemText(lastRowIndex, index, chat.request.path)
+        self.getItem(lastRowIndex, index).justify = FXTableItem::LEFT
+
+        index = @col_order.index(TABLE_COL_PARMS)
+        ps = ""
+        if chat.request.method =~ /POST/ then
+          ps = chat.request.post_parms.join("&")
+        else
+        ps = chat.request.urlparms
+        end
+        parms = ""
+        unless ps.nil?
+          #   parms = ps[0..50]
+          #   parms += "..." if ps.length > 50
+          parms = ps
+          parms.gsub!(/[^[:print:]]/,'.')
+        end
+
+        self.setItemText(lastRowIndex, index, parms)
+        self.getItem(lastRowIndex, index).justify = FXTableItem::LEFT
+
+        index = @col_order.index(TABLE_COL_STATUS)
+        self.setItemText(lastRowIndex, index, chat.response.status)
+        self.getItem(lastRowIndex,index).justify = FXTableItem::LEFT
+
+        if chat.response.header_value("set-cookie").first then
+          index = @col_order.index(TABLE_COL_COOKIE)
+          self.setItemText(lastRowIndex, index, chat.response.header_value("set-cookie").first.chomp)
+          self.getItem(lastRowIndex, index).justify = FXTableItem::LEFT
+        end
+
+        if chat.comment then
+          index = @col_order.index(TABLE_COL_COMMENT)
+          comment = chat.comment.split(/\n/).join(" ")
+          cc = comment[0..50]
+          cc += "..." if comment.length > 50
+          self.setItemText(lastRowIndex, index, cc)
+          self.getItem(lastRowIndex, index).justify = FXTableItem::LEFT
+        end
+
+        self.makePositionVisible(self.numRows-1, 0) if @autoscroll == true
+      end
+      
+      def update_table()
+        self.clearItems
+        initColumns()
+        adjustCellWidth()
+        @current_chat_list.each do |chat|
+          add_chat_row(chat) if chat_visible? chat
+        end
+      end
+
+      def adjustCellWidth()
+        begin
+          self.rowHeader.width = 35
+          @cell_width.each do |col, width|
+            pos = @col_order.index(col)
+            self.setColumnWidth(pos, width)
+          end
+        rescue => bang
+          puts "!!!ERROR: adjustCellWidth"
+        end
+
+      end
+
+    end
+  end
+end

data/lib/watobo/gui/conversation_table_ctrl.rb

@@ -0,0 +1,175 @@
+# .
+# conversation_table_ctrl.rb
+# 
+# Copyright 2012 by siberas, http://www.siberas.de
+# 
+# This file is part of WATOBO (Web Application Tool Box)
+#        http://watobo.sourceforge.com
+# 
+# WATOBO is free software; you can redistribute it and/or modify
+# it under the terms of the GNU General Public License as published by
+# the Free Software Foundation version 2 of the License.
+# 
+# WATOBO is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+# GNU General Public License for more details.
+# 
+# You should have received a copy of the GNU General Public License
+# along with WATOBO; if not, write to the Free Software
+# Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA  02110-1301  USA
+# .
+module Watobo
+  module Gui
+    
+    class ConversationTableCtrl < FXVerticalFrame
+      
+      include Watobo::Constants
+      include Watobo::Gui::Icons
+      
+      def table=(table)
+        @table = table
+        @table.subscribe(:table_changed) { update_info }
+      end
+      
+      def initialize(owner, opts)
+        super(owner, opts )
+        @table = nil
+        @tabBook = FXTabBook.new(self, nil, 0, :opts => LAYOUT_FILL_X|LAYOUT_RIGHT, :padding => 0)
+        
+        docfilter_tab = FXTabItem.new(@tabBook, "Doc Filter", nil)
+
+        docfilter_frame = FXHorizontalFrame.new(@tabBook, :opts => LAYOUT_FILL_X|LAYOUT_FILL_Y|FRAME_RAISED)
+
+        @foption_nopix = FXCheckButton.new(docfilter_frame, "excl. pics", nil, 0, ICON_BEFORE_TEXT|LAYOUT_SIDE_LEFT)
+        @foption_nopix.setCheck(true)
+        @foption_nodocs = FXCheckButton.new(docfilter_frame, "excl. docs", nil, 0, ICON_BEFORE_TEXT|LAYOUT_SIDE_LEFT)
+        @foption_nodocs.setCheck(true)
+        @foption_nojs = FXCheckButton.new(docfilter_frame, "excl. javascript", nil, 0, ICON_BEFORE_TEXT|LAYOUT_SIDE_LEFT)
+        @foption_nojs.setCheck(true)
+        @foption_nocss = FXCheckButton.new(docfilter_frame, "excl. style sheets", nil, 0, ICON_BEFORE_TEXT|LAYOUT_SIDE_LEFT)
+        @foption_nocss.setCheck(true)
+
+        search_tab = FXTabItem.new(@tabBook, "Text Filter", nil)
+
+        search_frame = FXHorizontalFrame.new(@tabBook, :opts => LAYOUT_FILL_X|LAYOUT_FILL_Y|FRAME_RAISED)
+
+        FXButton.new(search_frame, "Clear", nil, nil, 0, FRAME_RAISED|FRAME_THICK).connect(SEL_COMMAND) { clear_text_filter }
+
+        @text_filter = FXTextField.new(search_frame, 20, nil, 0, FRAME_SUNKEN|FRAME_THICK|LAYOUT_FILL_X)
+        # filterOptionsFrame =FXHorizontalFrame.new(fbox, LAYOUT_FILL_X)
+        @foption_url = FXCheckButton.new(search_frame, "URL", nil, 0, ICON_BEFORE_TEXT|LAYOUT_SIDE_LEFT)
+        @foption_url.setCheck(true)
+        @foption_url.connect(SEL_COMMAND){ update_text_filter }
+        @foption_req = FXCheckButton.new(search_frame, "Full Request", nil, 0, ICON_BEFORE_TEXT|LAYOUT_SIDE_LEFT)
+        @foption_req .connect(SEL_COMMAND){ update_text_filter }
+        @foption_res = FXCheckButton.new(search_frame, "Full Response", nil, 0, ICON_BEFORE_TEXT|LAYOUT_SIDE_LEFT)
+        @foption_res.connect(SEL_COMMAND){ update_text_filter }
+
+        options_tab = FXTabItem.new(@tabBook, "Options", nil)
+        options_frame = FXHorizontalFrame.new(@tabBook, :opts => LAYOUT_FILL_X|LAYOUT_FILL_Y|FRAME_RAISED)
+        @table_option_autoscroll = FXCheckButton.new(options_frame, "autoscroll", nil, 0, ICON_BEFORE_TEXT|LAYOUT_SIDE_LEFT)
+        @table_option_autoscroll.setCheck(true)
+
+        @table_option_unique = FXCheckButton.new(options_frame, "unique chats", nil, 0, ICON_BEFORE_TEXT|LAYOUT_SIDE_LEFT)
+        @table_option_unique.setCheck(false)
+
+        @table_option_scope = FXCheckButton.new(options_frame, "scope only", nil, 0, ICON_BEFORE_TEXT|LAYOUT_SIDE_LEFT)
+        @table_option_scope.setCheck(false)
+
+        @table_option_hidetested_cb = FXCheckButton.new(options_frame, "hide tested", nil, 0, ICON_BEFORE_TEXT|LAYOUT_SIDE_LEFT)
+        @table_option_hidetested_cb.setCheck(false)
+        
+          @table_option_autoscroll.connect(SEL_COMMAND) {
+            @table.autoscroll = @table_option_autoscroll.checked? unless @table.nil?        
+        }
+       
+        #applyFilterButton = FXButton.new(conversation_frame, "Apply", nil, nil, 0, FRAME_RAISED|FRAME_THICK)
+        button_frame = FXHorizontalFrame.new(self, :opts => LAYOUT_FILL_X, :padding => 0)
+        FXButton.new(button_frame, "Apply", nil, nil, 0, FRAME_RAISED|FRAME_THICK).connect(SEL_COMMAND) { apply_filter }
+        #FXButton.new(docfilter_button_frame, "Clear", nil, nil, 0, FRAME_RAISED|FRAME_THICK).connect(SEL_COMMAND, method(:onClear))
+
+        @text_filter.connect(SEL_COMMAND){ 
+          apply_filter
+          }
+
+        FXButton.new(button_frame, "", ICON_BTN_UP, nil, 0, FRAME_RAISED|FRAME_THICK).connect(SEL_COMMAND) {
+          @table.scrollUp() unless @table.nil?
+        }
+
+        FXButton.new(button_frame, "", ICON_BTN_DOWN, nil, 0, FRAME_RAISED|FRAME_THICK).connect(SEL_COMMAND) {
+          @table.scrollDown() unless @table.nil?
+        }
+        
+         @info_txt = FXLabel.new( button_frame, "0/0", :opts => LAYOUT_RIGHT)
+      end
+
+      def subscribe(event, &callback)
+        (@event_dispatcher_listeners[event] ||= []) << callback
+      end
+
+      private
+      
+      def update_info
+        if @table.respond_to? :num_total
+          @info_txt.text = "#{@table.num_visible}/#{@table.num_total}"
+        end
+      end
+
+      def clearEvents(event)
+        @event_dispatcher_listener[event].clear
+      end
+
+      def notify(event, *args)
+        if @event_dispatcher_listeners[event]
+          @event_dispatcher_listeners[event].each do |m|
+            m.call(*args) if m.respond_to? :call
+          end
+        end
+      end
+
+      def clear_text_filter
+         @text_filter.text = ''
+         apply_filter         
+      end
+
+      def apply_filter
+          unless @table.nil?
+            @table.apply_filter(filter_settings)
+            update_info
+          end
+      end
+      
+      def update_text_filter
+        if @foption_url.checked? or @foption_req.checked? or @foption_res.checked?
+        @text_filter.enable
+        else
+          @text_filter.disable
+        end
+      end
+      
+      def filter_settings
+        doctype_filter = []
+        doctype_filter.concat(Watobo::Conf::Gui.fext_img) if @foption_nopix.checked?  
+        doctype_filter.concat(Watobo::Conf::Gui.fext_docs) if @foption_nodocs.checked? 
+        doctype_filter.concat(Watobo::Conf::Gui.fext_javascript) if @foption_nojs.checked?
+        doctype_filter.concat(Watobo::Conf::Gui.fext_style) if @foption_nocss.checked?
+        
+        text = @text_filter.enabled? ? @text_filter.text : ""
+        
+        fs = {
+          :show_scope_only => @table_option_scope.checked?,
+          :text => text,
+          :url => @foption_url.checked?,
+          :request => @foption_req.checked?,
+          :response => @foption_res.checked?,
+          :hide_tested => @table_option_hidetested_cb.checked?,
+          :doc_filter => doctype_filter,
+          :unique => @table_option_unique.checked?
+          }  
+        fs   
+      end
+
+    end
+  end
+end