watobo 0.9.8.677

data/lib/watobo/gui/interceptor_settings_dialog.rb

@@ -0,0 +1,201 @@
+# .
+# interceptor_settings_dialog.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 InterceptorSettingsFrame < FXVerticalFrame
+      
+      def getSettings()
+        settings = Hash.new
+        settings[:port] = @port_dt.value
+       
+        
+        
+        dummy = []
+        @ct_list.each do |nup|
+          dummy.push nup.data
+        end
+        settings[:pass_through] = {
+        :content_types => dummy,
+        :content_length => @content_length_dt.value
+        }
+        
+        return settings
+      end
+      
+      def addItem(list_box, item)   
+        if item != "" then
+          list_item = list_box.appendItem("#{item}")
+          list_box.setItemData(list_item, item)
+          list_box.sortItems()        
+        end
+      end
+      
+      def removePattern(list_box)
+        index = list_box.currentItem
+        if  index >= 0
+          list_box.removeItem(index)
+        end
+      end
+      
+      def initialize(owner, opts)        
+        super(owner, opts)
+        
+        #@settings = interceptor_settings
+        scroller = FXScrollWindow.new(self, :opts => SCROLLERS_NORMAL|LAYOUT_FILL_X|LAYOUT_FILL_Y)
+        scroll_area = FXVerticalFrame.new(scroller, :opts => LAYOUT_FILL_X|LAYOUT_FILL_Y, :padding => 0)
+        
+        gbox = FXGroupBox.new(scroll_area, "Listening Port", LAYOUT_SIDE_RIGHT|FRAME_GROOVE|LAYOUT_FILL_X, 0, 0, 0, 0)
+        gbox_frame = FXVerticalFrame.new(gbox, :opts => LAYOUT_SIDE_TOP|PACK_UNIFORM_WIDTH)
+       
+        frame = FXHorizontalFrame.new(gbox_frame, :opts => LAYOUT_FILL_X)
+        FXLabel.new(frame, "Listen Port:")
+        @port_dt = FXDataTarget.new(0)
+        #@port_dt.value = @settings[:port]
+        @port_dt.value = Watobo::Conf::Interceptor.port
+        lport = FXTextField.new(frame, 5, @port_dt, FXDataTarget::ID_VALUE, :opts => JUSTIFY_RIGHT|FRAME_GROOVE|FRAME_SUNKEN)
+        lport.handle(self, FXSEL(SEL_UPDATE, 0), nil)
+       
+       
+        gbframe = FXGroupBox.new(scroll_area, "Pass-Through Content-Length", LAYOUT_SIDE_RIGHT|FRAME_GROOVE|LAYOUT_FILL_X, 0, 0, 0, 0)
+        frame = FXVerticalFrame.new(gbframe, :opts => LAYOUT_FILL_X, :padding => 0)
+        fxtext = FXText.new(frame, :opts => LAYOUT_FILL_X|LAYOUT_FILL_Y|TEXT_WORDWRAP)
+        fxtext.backColor = fxtext.parent.backColor
+        fxtext.disable
+        text = "Define Content-Length threshold for Pass-Through. Responses which Content-Length exceed this size will be forwarded."
+        fxtext.setText(text)
+        input_frame = FXHorizontalFrame.new(frame, :opts => LAYOUT_FILL_X)
+        FXLabel.new(input_frame, "Max. Content-Length:")
+        @content_length_dt = FXDataTarget.new('')
+        #@content_length_dt.value = @settings[:pass_through][:content_length]
+        @content_length_dt.value = Watobo::Conf::Interceptor.pass_through[:content_length]
+        content_length_field = FXTextField.new(input_frame, 7, :target => @content_length_dt, :selector => FXDataTarget::ID_VALUE, :opts => TEXTFIELD_NORMAL|LAYOUT_SIDE_LEFT)
+      content_length_field.handle(self, FXSEL(SEL_UPDATE, 0), nil)
+       
+       
+        
+        gbframe = FXGroupBox.new(scroll_area, "Pass-Through Content-Types", LAYOUT_SIDE_RIGHT|FRAME_GROOVE|LAYOUT_FILL_X, 0, 0, 0, 0)
+        frame = FXVerticalFrame.new(gbframe, :opts => LAYOUT_FILL_X, :padding => 0)
+        fxtext = FXText.new(frame, :opts => LAYOUT_FILL_X|LAYOUT_FILL_Y|TEXT_WORDWRAP)
+        fxtext.backColor = fxtext.parent.backColor
+        fxtext.disable
+        text = "Define Content-Types for Pass-Through. Responses which are forwarded will not be inspected by Passive-Checks. So you only should define Content-Types which in general contain binary data."
+        fxtext.setText(text)
+        input_frame = FXHorizontalFrame.new(frame, :opts => LAYOUT_FILL_X)
+        @ct_dt = FXDataTarget.new('')
+        @ct_field = FXTextField.new(input_frame, 20, :target => @ct_dt, :selector => FXDataTarget::ID_VALUE, :opts => TEXTFIELD_NORMAL|LAYOUT_SIDE_LEFT|LAYOUT_FILL_X)
+        @rem_ct_btn = FXButton.new(input_frame, "Remove" , :opts => BUTTON_NORMAL|LAYOUT_RIGHT)
+        @add_ct_btn = FXButton.new(input_frame, "Add" , :opts => BUTTON_NORMAL|LAYOUT_RIGHT)        
+        
+        list_frame = FXVerticalFrame.new(frame, :opts => LAYOUT_FILL_X|FRAME_SUNKEN, :padding => 0)
+        @ct_list = FXList.new(list_frame, :opts => LIST_EXTENDEDSELECT|LAYOUT_FILL_X|LAYOUT_FILL_Y)
+        @ct_list.numVisible = 5
+        
+        @ct_list.connect(SEL_COMMAND){ |sender, sel, item|
+          @ct_dt.value = sender.getItemText(item)
+          @ct_field.handle(self, FXSEL(SEL_UPDATE, 0), nil)
+        }
+        
+       # @settings[:pass_through][:content_types].each do |nup|
+        Watobo::Conf::Interceptor.pass_through[:content_types].each do |nup|
+          addItem(@ct_list, nup)
+        end
+        
+        @rem_ct_btn.connect(SEL_COMMAND){ |sender, sel, item|
+          removePattern(@ct_list) if @ct_dt.value != ''
+          @ct_dt.value = ''
+          @ct_field.handle(self, FXSEL(SEL_UPDATE, 0), nil)
+        }
+        @add_ct_btn.connect(SEL_COMMAND){ |sender, sel, item|
+          
+          addItem(@ct_list, @ct_dt.value) if @ct_dt.value != ''
+          @ct_dt.value = ''
+          @ct_field.handle(self, FXSEL(SEL_UPDATE, 0), nil)
+        }
+        
+        @ct_dt.connect(SEL_COMMAND){ |sender, sel, item|
+          
+          addItem(@ct_list, @ct_dt.value) if @ct_dt.value != ''
+          @ct_dt.value = ''
+          @ct_field.handle(self, FXSEL(SEL_UPDATE, 0), nil)
+        }
+        
+      end
+      
+    end
+    
+    #
+    # Class: SelectNonUniqueParmsDialog
+    #
+    class InterceptorSettingsDialog < FXDialogBox
+      
+      include Responder
+      attr :interceptor_settings
+      
+      
+      def onAccept(sender, sel, event)
+        
+        @interceptor_settings = @interceptorSettingsFrame.getSettings()
+        
+        getApp().stopModal(self, 1)
+        self.hide()
+        return 1
+      end
+      
+      
+      def initialize(owner)
+        super(owner, "Interceptor Settings", DECOR_TITLE|DECOR_BORDER, :width => 400, :height => 500)
+        #@interceptor_settings = interceptor_settings
+        FXMAPFUNC(SEL_COMMAND, ID_ACCEPT, :onAccept)
+        
+        
+        base_frame = FXVerticalFrame.new(self, :opts => LAYOUT_FILL_X|LAYOUT_FILL_Y)
+        
+        #  puts "create scopeframe with scope:"
+        # @project.scope
+        # @defineScopeFrame = DefineScopeFrame.new(base_frame, @project.listSites(), YAML.load(YAML.dump(@project.scope)), prefs)
+        @interceptorSettingsFrame = InterceptorSettingsFrame.new(base_frame, :opts => SCROLLERS_NORMAL|LAYOUT_FILL_X|LAYOUT_FILL_Y)
+        
+        buttons_frame = FXHorizontalFrame.new(base_frame,
+                                              :opts => LAYOUT_FILL_X|LAYOUT_SIDE_TOP)
+        
+        @finishButton = FXButton.new(buttons_frame, "Accept" ,  nil, nil, :opts => BUTTON_NORMAL|LAYOUT_RIGHT)  
+        @finishButton.enable
+        @finishButton.connect(SEL_COMMAND) do |sender, sel, item|
+          #self.handle(self, FXSEL(SEL_COMMAND, ID_CANCEL), nil)
+          self.handle(self, FXSEL(SEL_COMMAND, ID_ACCEPT), nil)
+        end 
+        
+        @cancelButton = FXButton.new(buttons_frame, "Cancel" ,
+        :target => self, :selector => FXDialogBox::ID_CANCEL,
+        :opts => BUTTON_NORMAL|LAYOUT_RIGHT)  
+        
+        
+      end
+    end
+  end
+end
+
+
+if __FILE__ == $0
+  # TODO Generated stub
+end

data/lib/watobo/gui/log_viewer.rb

@@ -0,0 +1,97 @@
+# .
+# log_viewer.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 LogViewer < FXVerticalFrame
+     
+      include Watobo::Constants
+      
+      def purge
+        @lock.synchronize do
+           @log_viewer.text = ''
+        end
+      end
+
+      def log(sender=nil, log_level, msg )
+        puts "#{sender.class} => #{msg}" if $DEBUG
+        begin
+        t = Time.now
+        now = t.strftime("%m/%d/%Y @ %H:%M:%S")
+
+        begin
+          log_text = case log_level
+          when LOG_INFO
+            "#{now}: #{msg}\n"
+          else
+            ""
+          end
+        rescue => bang
+        puts bang
+        puts bang.backtrace if $DEBUG
+        end
+       @lock.synchronize do
+         log_text << @log_message unless @log_message.nil?          
+          @log_message = log_text
+       end
+         rescue => bang
+           puts bang
+           puts bang.backtrace
+         end
+        
+      end
+
+      def start_update_timer
+         @timer = FXApp.instance.addTimeout( 50, :repeat => true) {
+           @lock.synchronize do
+             unless @log_message.nil?
+             @log_viewer.insertText(0,@log_message) unless @log_message.empty? 
+             @log_message = nil
+             end
+            end
+          }
+      end
+      
+      def destroy
+        getApp().removeTimeout(@timer) unless @timer.nil?
+        super
+        1
+      end
+      
+      def initialize(parent, opts)
+        opts[:padding] = 0
+        super(parent, opts)
+
+        @log_message = nil
+        @lock = Mutex.new
+        @timer = nil
+        
+        #self.connect(SEL_CLOSE, method(:onClose))
+
+        @log_viewer = FXText.new(self,  nil, 0, :opts => LAYOUT_FILL_X|LAYOUT_FILL_Y)
+        @log_viewer.editable = false
+        start_update_timer
+      end
+      
+    end
+
+  end
+end

data/lib/watobo/gui/login_wizzard.rb

@@ -0,0 +1,301 @@
+# .
+# login_wizzard.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
+# .
+require 'fox16'
+
+include Fox
+
+
+class FXLoginWizzard < FXDialogBox
+  
+  attr_accessor :sid_patterns
+  attr_accessor :requestids
+  attr_accessor :project
+  
+  private
+    
+  def onPatternClick(sender,sel,item)
+    @lastpattern=item
+    highlight_pattern(@pattern_list.getItemText(item))  
+    @pattern.value = @pattern_list.getItemText(item)
+    @pattern.handle(self, FXSEL(SEL_UPDATE, 0), nil)
+  end
+  
+  def onRequestClick(sender,sel,item)
+    @lastid=item
+    chat = @project.getChat(@request_list.getItemText(@lastid))
+    if chat then
+      show_chat(chat)
+    end
+    
+  end
+  
+  def show_chat(chat)
+    @requestView.setText('')
+    # Enable the style buffer for this text widget
+    @requestView.styled = true
+    
+    atext=chat.request.join
+    atext.gsub!(/\r/, "")
+    @requestView.appendStyledText("#{atext}")
+    
+    @responseView.setText('')
+    # Enable the style buffer for this text widget
+    @responseView.styled = true
+    
+    atext=chat.response.join
+    atext.gsub!(/\r/, "")
+    @responseView.appendStyledText("#{atext}")
+  end
+  
+  def update_request_list(idlist)
+    @request_list.clearItems
+    idlist.each do |chatid|
+      
+      chat = @project.getChat(chatid)
+      puts chat.id
+      if chat then
+        #puts chatid
+        @lastid = @request_list.appendItem("#{chatid}")
+        @request_list.setItemData(@lastid, chat)
+      end
+    end
+  end
+  
+  
+  
+  
+  def highlight_pattern(pattern)
+    return if @lastpattern < 0
+    return if @lastid < 0
+    
+    chat = @request_list.getItemData(@lastid)
+    req_text=chat.request.join
+    req_text.gsub!(/\r/, "")
+    
+    @requestView.setText("")
+    @requestView.appendStyledText("#{req_text}")
+    
+    resp_text=chat.response.join
+    resp_text.gsub!(/\r/, "")
+    @responseView.setText("")
+    @responseView.appendStyledText("#{resp_text}")
+    begin
+      if req_text =~ /#{pattern}/ then
+        if $1 and $2 then
+          string1 = $1
+          string2 = $2
+        else
+          string1 = pattern
+          string2 = pattern
+        end
+        if req_text.index(string1) then
+          @requestView.changeStyle(req_text.index(string1),string1.length,1)
+          @requestView.changeStyle(req_text.index(string2),string2.length,1)
+        end      
+      end
+      
+      if resp_text =~ /#{pattern}/ then
+        if $1 and $2 then
+          string1 = $1
+          string2 = $2
+        else
+          string1 = pattern
+          string2 = pattern
+        end
+        if resp_text.index(string1) then
+          @responseView.changeStyle(resp_text.index(string1),string1.length,1)
+          @responseView.changeStyle(resp_text.index(string2),string2.length,1)
+        end       
+      end  
+    rescue
+      puts "+ no valid regex"
+    end
+    
+  end
+  
+  def addPattern(sender,sel,id)
+    if @pattern != "" then
+      @sid_patterns.push @pattern.value
+      update_pattern_list
+    end
+  end
+  
+  def remPattern(sender,sel,id)
+    if @lastpattern >= 0 then
+      pattern = @pattern_list.getItemText(@lastpattern)
+      #@pattern_list.removeItem(@lastpattern)
+      @sid_patterns.delete(pattern)
+      @lastpattern = -1
+      update_pattern_list
+    end
+  end
+  
+  def remRequest(sender,sel,id)
+    if @lastid >= 0 then
+      id = @request_list.getItemText(@lastid)
+      
+      #@pattern_list.removeItem(@lastpattern)
+      @requestids.delete(id)
+      @lastid = -1
+      update_request_list(@requestids)
+    end
+  end
+  
+  def updatePatternList
+    @pattern_list.clearItems
+    @sid_patterns.each do |pat|
+      @pattern_list.appendItem("#{pat}")
+    end
+  end
+  
+  public
+  
+  def add_request(chatid)
+    
+    @requestids.push "#{chatid}"
+    chat = nil
+    
+    
+    @project.chat_list.each do |c|
+      chat = c
+      # puts "#{chat.id} : #{chatid}"
+      break if c.id == chatid
+    end
+    
+    
+    show_chat(chat)
+    update_request_list(@requestids)
+    
+  end
+  
+  
+  
+  
+  def initialize(owner, project)
+    @project = project
+    # Invoke base class initialize function first
+  #  super(owner, "LoginScript Wizzard", DECOR_TITLE|DECOR_BORDER,:width=>800, :height=>600)
+    super(owner, "LoginScript Wizzard", DECOR_ALL,:width=>800, :height=>600)
+    
+    #self.icon = icon
+  #  @project = nil
+    @sid_patterns = []
+    @requestids = []
+    @pattern = FXDataTarget.new("")
+    
+    @sid_patterns = @project.settings[:sid_patterns].clone
+    @requestids = @project.loginscript_ids.clone 
+    
+    
+    @lastid=-1
+    @lastpattern=-1
+    
+    lw_main = FXPacker.new(self, :opts => LAYOUT_FILL)
+    lw_bottom = FXHorizontalFrame.new(lw_main, :opts => LAYOUT_FILL_X|LAYOUT_SIDE_BOTTOM)
+    lw_body = FXHorizontalFrame.new(lw_main, :opts => LAYOUT_FILL_X|LAYOUT_FILL_Y|LAYOUT_SIDE_TOP)
+    
+    
+    #=============================================================================================
+    # body
+    
+    lw_left = FXVerticalFrame.new(lw_body, :opts => LAYOUT_FILL_Y|LAYOUT_SIDE_LEFT)
+    lw_right = FXVerticalFrame.new(lw_body, :opts => LAYOUT_FILL_Y|LAYOUT_SIDE_RIGHT|LAYOUT_FILL_X)
+    
+    
+    #=============================================================================================
+    # lw_right
+    
+    req_frame = FXVerticalFrame.new(lw_right, :opts => LAYOUT_FILL_X| LAYOUT_FILL_Y|FRAME_GROOVE)
+    resp_frame = FXVerticalFrame.new(lw_right, :opts => LAYOUT_FILL_X| LAYOUT_FILL_Y|FRAME_GROOVE)
+    
+    FXLabel.new(req_frame, "Requests:" )                      
+    @requestView = FXText.new(req_frame, :opts => LAYOUT_FILL_X|LAYOUT_FILL_Y)
+    
+    # Construct some hilite styles
+    hs_red = FXHiliteStyle.new
+    hs_red.normalForeColor = FXRGBA(255,255,255,255) #FXColor::Red
+    hs_red.normalBackColor = FXRGBA(255,0,0,1)   # FXColor::White
+    hs_red.style = FXText::STYLE_BOLD
+    # Enable the style buffer for this text widget
+    @requestView.styled = true
+    # Set the styles
+    @requestView.hiliteStyles = [hs_red]
+    
+    
+    
+    FXLabel.new(resp_frame, "Response:" )                      
+    @responseView = FXText.new(resp_frame, :opts => LAYOUT_FILL_X|LAYOUT_FILL_Y)
+    @responseView.styled = true
+    # Set the styles
+    @responseView.hiliteStyles = [hs_red]
+    
+    #=============================================================================================
+    # sid-pattern
+    sid_frame = FXVerticalFrame.new(lw_left, :opts => LAYOUT_FILL_X|FRAME_GROOVE)
+    lw_sid = FXHorizontalFrame.new(sid_frame, :opts => LAYOUT_FILL_X)
+    FXLabel.new(lw_sid, "Pattern:" )
+    FXTextField.new(lw_sid, 20,
+                    :target => @pattern, :selector => FXDataTarget::ID_VALUE,
+                    :opts => TEXTFIELD_NORMAL|LAYOUT_SIDE_LEFT)
+    
+    addPattern=FXButton.new(lw_sid, " + " , :opts => BUTTON_NORMAL|LAYOUT_LEFT)
+    addPattern.connect(SEL_COMMAND, method(:addPattern))
+    
+    remPattern=FXButton.new(lw_sid, " - " , :opts => BUTTON_NORMAL|LAYOUT_LEFT)
+    remPattern.connect(SEL_COMMAND, method(:remPattern))
+    
+    @pattern_list = FXList.new(sid_frame, :opts => LIST_EXTENDEDSELECT|LAYOUT_FILL_X|LAYOUT_FILL_Y)
+    @pattern_list.numVisible = 8
+    
+    @pattern_list.connect(SEL_COMMAND,method(:onPatternClick))
+    
+    updatePatternList
+    
+    
+    
+    #=============================================================================================
+    # request-list
+    
+    lw_req_list = FXVerticalFrame.new(lw_left, :opts => LAYOUT_FILL_X|LAYOUT_FILL_Y|FRAME_GROOVE)
+    lw_request_list_header = FXHorizontalFrame.new(lw_req_list, :opts => LAYOUT_FILL_X)
+    FXLabel.new(lw_request_list_header, "Login-Requests:" )
+    
+    @request_list = FXList.new(lw_req_list, :opts => LIST_EXTENDEDSELECT|LAYOUT_FILL_X|LAYOUT_FILL_Y)
+    @request_list.connect(SEL_COMMAND,method(:onRequestClick))
+    
+    remRequest=FXButton.new(lw_request_list_header, " - " , :opts => BUTTON_NORMAL|LAYOUT_RIGHT)
+    remRequest.connect(SEL_COMMAND, method(:remRequest))
+    #=============================================================================================
+    
+    
+    
+    #=============================================================================================
+    # lw_bottom    
+    
+    FXButton.new(lw_bottom, "OK" ,
+    :target => self, :selector => FXDialogBox::ID_ACCEPT,
+    :opts => BUTTON_NORMAL|LAYOUT_RIGHT)
+    FXButton.new(lw_bottom, "Cancel" ,
+    :target => self, :selector => FXDialogBox::ID_CANCEL,
+    :opts => BUTTON_NORMAL|LAYOUT_RIGHT)    
+  end 
+end