watobo 0.9.8.677

data/lib/watobo/gui/define_scope_frame.rb

@@ -0,0 +1,380 @@
+# .
+# define_scope_frame.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
+
+module Watobo
+  module Gui
+    
+    
+    class ScopeDetailsFrame < FXVerticalFrame
+      
+      #   def fxMessageBox()
+      #   FXMessageBox.information(self, MBOX_OK, "Wrong Signature Format", "Signature Format is wrong. Must be a valid regular expression, e.g.(<Regex>) <^Location.*action=logout>")  
+      # end
+      
+      def getDetails
+        d = Hash.new
+        d[:root_path] = @rootpath_dt.value
+        path_array = []
+        @expath_list.each do |p|
+          path_array.push p.data
+        end
+        d[:excluded_paths] = path_array
+        d
+      end
+      
+      def removePattern(list_box, pattern)
+        index = list_box.currentItem
+        if  index >= 0
+          list_box.removeItem(index)
+        end
+      end
+      
+      def addPattern(list_box, pattern)   
+        if pattern != "" then
+          pattern_ok, *error = Watobo::Utils.checkRegex(pattern)
+          if pattern_ok == true
+            item = list_box.appendItem("#{pattern}")
+            list_box.setItemData(item, pattern)
+            list_box.sortItems()
+            
+          else
+            FXMessageBox.information(self, MBOX_OK, "Wrong Path Format", "Path must be a Regex!!!\nError: #{error.join('\n')}")
+          end
+        end
+      end
+      
+      def updateFrame(details)
+        @rootpath_dt.value = details[:root_path]
+        @rootpath_field.handle(self, FXSEL(SEL_UPDATE, 0), nil)
+        details[:excluded_paths].each do |p|
+          addPattern(@expath_list, p)
+        end
+      end
+      
+      def initialize(parent, details=nil)
+        
+        @rootpath_dt = FXDataTarget.new('')
+        @expath_dt = FXDataTarget.new('')
+        
+        
+        super(parent, :opts => LAYOUT_FILL_X|LAYOUT_FILL_Y)
+        
+        # main_frame = FXVerticalFrame.new(self, :opts => LAYOUT_FILL_Y|LAYOUT_FILL_X|FRAME_NONE, :padding => 0)
+        title_frame = FXHorizontalFrame.new(self, :opts => LAYOUT_FILL_X|FRAME_GROOVE)
+        title = FXLabel.new(title_frame, "Site:", :opts => LAYOUT_TOP)
+        title = FXLabel.new(title_frame, "#{details[:site]}")
+        title.setFont(FXFont.new(getApp(), "helvetica", 12, FONTWEIGHT_BOLD, FONTSLANT_ITALIC, FONTENCODING_DEFAULT))
+        #
+        #   ROOT PATH BOX
+        gbframe = FXGroupBox.new(self, "Root Path", LAYOUT_SIDE_RIGHT|FRAME_GROOVE|LAYOUT_FILL_X|LAYOUT_FILL_Y, 0, 0, 0, 0)
+        frame = FXVerticalFrame.new(gbframe, :opts => LAYOUT_FILL_X|LAYOUT_FILL_Y, :padding => 0)
+        #text_frame = FXHorizontalFrame.new(frame, :opts => LAYOUT_FILL_X|LAYOUT_FILL_Y|FRAME_NONE, :padding =>0)
+        fxtext = FXText.new(frame, :opts => LAYOUT_FILL_X|LAYOUT_FILL_Y|TEXT_WORDWRAP)
+        fxtext.backColor = fxtext.parent.backColor
+        fxtext.disable
+        text = "The Root Path defines the application root of the site. " +
+         "Only URLs which include the Root Path will be tested during a scan." +
+         "\nSetting the Root Path to 'myapp', only URLs that begin with http://#{details[:site]}/myapp/ will be tested."
+        fxtext.setText(text)
+        
+        input_frame = FXHorizontalFrame.new(frame, :opts => LAYOUT_FILL_X|FRAME_NONE)
+        FXLabel.new(input_frame,"Root Path (RegEx):")
+        @rootpath_field = FXTextField.new(input_frame, 0, :target => @rootpath_dt, :selector => FXDataTarget::ID_VALUE, :opts => LAYOUT_FILL_X|TEXTFIELD_NORMAL|LAYOUT_SIDE_LEFT)
+        
+        #
+        # EXCLUDED
+        
+        gbframe = FXGroupBox.new(self, "Excluded Path's", 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 = "URLs which match a pattern will not be tested during a scan."
+        fxtext.setText(text)
+        input_frame = FXHorizontalFrame.new(frame, :opts => LAYOUT_FILL_X)
+        @expath_field = FXTextField.new(input_frame, 20, :target => @expath_dt, :selector => FXDataTarget::ID_VALUE, :opts => TEXTFIELD_NORMAL|LAYOUT_SIDE_LEFT|LAYOUT_FILL_X)
+        @remExPath = FXButton.new(input_frame, "Remove" , :opts => BUTTON_NORMAL|LAYOUT_RIGHT)
+        @addExPath = FXButton.new(input_frame, "Add" , :opts => BUTTON_NORMAL|LAYOUT_RIGHT)        
+        
+        list_frame = FXVerticalFrame.new(frame, :opts => LAYOUT_FILL_X|FRAME_SUNKEN, :padding => 0)
+        @expath_list = FXList.new(list_frame, :opts => LIST_EXTENDEDSELECT|LAYOUT_FILL_X|LAYOUT_FILL_Y)
+        @expath_list.numVisible = 5
+        
+        @expath_list.connect(SEL_COMMAND){ |sender, sel, item|
+          @expath_dt.value = sender.getItemText(item)
+          @expath_field.handle(self, FXSEL(SEL_UPDATE, 0), nil)
+        }
+        
+        @remExPath.connect(SEL_COMMAND){ |sender, sel, item|
+          removePattern(@expath_list, @expath_dt.value) if @expath_dt.value != ''
+          @expath_dt.value = ''
+          @expath_field.handle(self, FXSEL(SEL_UPDATE, 0), nil)
+        }
+        @addExPath.connect(SEL_COMMAND){ |sender, sel, item|
+          
+          addPattern(@expath_list, @expath_dt.value) if @expath_dt.value != ''
+          @expath_dt.value = ''
+          @expath_field.handle(self, FXSEL(SEL_UPDATE, 0), nil)
+        }
+        
+        @expath_dt.connect(SEL_COMMAND){ |sender, sel, item|
+          
+          addPattern(@expath_list, @expath_dt.value) if @expath_dt.value != ''
+          @expath_dt.value = ''
+          @expath_field.handle(self, FXSEL(SEL_UPDATE, 0), nil)
+        }
+        
+        updateFrame(details)
+        self.update
+      end
+    end
+    
+    
+    
+    class EditScopeDetailsDialog < FXDialogBox
+      
+      attr :details
+      
+      include Responder
+      
+      def onAccept(sender, sel, event)
+        @details = @scopeDetailsFrame.getDetails()
+        root_path_ok, *error = Watobo::Utils.checkRegex(@details[:root_path])
+        if root_path_ok == true
+          getApp().stopModal(self, 1)
+          self.hide()
+          return 1
+        else
+          FXMessageBox.information(self, MBOX_OK, "Wrong Root Path Format", "Root Path must be a Regex!!!\nError: #{error.join('\n')}")
+        end
+        
+      end
+      
+      def initialize(owner, details)
+        
+        super(owner, "Scope Details", 
+        :opts => DECOR_TITLE|DECOR_BORDER|LAYOUT_FIX_WIDTH|LAYOUT_FIX_HEIGHT, :width => 350, :height => 500)
+        
+        FXMAPFUNC(SEL_COMMAND, ID_ACCEPT, :onAccept)
+        
+        @details = (details.is_a? Hash) ? details : Hash.new
+        
+        @root_path = FXDataTarget.new('')
+        main_frame = FXVerticalFrame.new(self, :opts => LAYOUT_FILL_Y|LAYOUT_FILL_X|FRAME_NONE, :padding => 0)
+        @scopeDetailsFrame = ScopeDetailsFrame.new(main_frame, details)
+        
+        button_frame = FXHorizontalFrame.new(main_frame, :opts => LAYOUT_FILL_X)
+        accept = FXButton.new(button_frame, "&Accept", nil, self, ID_ACCEPT,
+        FRAME_RAISED|FRAME_THICK|LAYOUT_RIGHT|LAYOUT_CENTER_Y)
+        accept.enable
+        # Cancel
+        FXButton.new(button_frame, "&Cancel", nil, self, ID_CANCEL,
+        FRAME_RAISED|FRAME_THICK|LAYOUT_RIGHT|LAYOUT_CENTER_Y)
+      end
+    end
+    
+    class DefineScopeFrame < FXVerticalFrame
+      
+      def onDeselectAll(sender, sel, item)        
+        @dummy_scope.each do |site, val|        
+          @cb_sites[site].setCheck(false)  
+          @edit_btns[site].disable
+        end
+        @sel_all_btn.setFocus()
+        @sel_all_btn.setDefault()
+        
+      end
+      
+      def onSelectAll(sender, sel, item)
+        sites = []
+        @dummy_scope.each do |site, scope|
+          @cb_sites[site].setCheck(true)
+          @edit_btns[site].enable
+        end
+        @desel_all_btn.setFocus()
+        @desel_all_btn.setDefault()
+      end
+      
+      def editSiteDetails(site)
+        dlg = EditScopeDetailsDialog.new(self, @dummy_scope[site])
+        
+        if dlg.execute != 0
+          @dummy_scope[site].update dlg.details
+          puts dlg.details.to_yaml
+        end
+      end
+      
+      def getScope()
+        scope = Hash.new
+        @cb_sites.keys.each do |site|
+          @dummy_scope.delete(site) if !@cb_sites[site].checked?
+          # scope[site] = @dummy_scope[site] if @cb_sites[site].checked?
+        end
+        return @dummy_scope
+      end
+      
+      def updateFrame()
+        @dummy_scope.each do |site, scope|
+          next if @cb_sites[site].nil? 
+          @cb_sites[site].setCheck(scope[:enabled])
+          @cb_sites[site].checked? ? @edit_btns[site].enable : @edit_btns[site].disable
+        end
+        
+      end
+      
+      def setScope(scope)
+        @scope = scope
+        @dummy_scope.keys.each do |site|         
+          @dummy_scope[site].update @scope[site] if !@scope[site].nil?         
+        end
+        updateFrame()
+      end
+      
+      def initialize(owner, sites, scope, opts)
+        super(owner, :opts => opts, :padding => 0)
+        
+        @dummy_scope = Hash.new
+        @dummy_scope = YAML.load(YAML.dump(scope)) if scope.is_a? Hash
+        
+        @cb_sites = Hash.new
+        @edit_btns = Hash.new
+        
+        title = FXLabel.new(self, "Target Scope")
+        info_frame = FXVerticalFrame.new(self, :opts => LAYOUT_FILL_X|FRAME_GROOVE)
+        title.setFont(FXFont.new(getApp(), "helvetica", 12, FONTWEIGHT_BOLD, FONTSLANT_ITALIC, FONTENCODING_DEFAULT))
+        
+        scope_text =<<'EOF'
+The target scopes affects primarly the 
+behaviour all WATOBO scanner tools. 
+Click the appropriate edit-button for more 
+ detailed settings.
+EOF
+        btn = FXButton.new(info_frame, scope_text,
+                           :opts => LAYOUT_FILL_X|LAYOUT_FIX_HEIGHT, :height => 90)
+        #btn.font = @font
+        #btn.backColor = FXColor::White
+        btn.justify = JUSTIFY_LEFT
+        quickSelectFrame = FXHorizontalFrame.new(self, LAYOUT_FILL_X)
+        @sel_all_btn = FXButton.new(quickSelectFrame, "Select All", nil, nil, 0, FRAME_RAISED|FRAME_THICK|LAYOUT_FILL_X)
+        @sel_all_btn.connect(SEL_COMMAND, method(:onSelectAll))
+        
+        @sel_all_btn.setFocus()
+        @sel_all_btn.setDefault()
+        
+        @desel_all_btn = FXButton.new(quickSelectFrame, "Deselect All", nil, nil, 0, FRAME_RAISED|FRAME_THICK|LAYOUT_FILL_X)
+        @desel_all_btn.connect(SEL_COMMAND, method(:onDeselectAll)) 
+          frame = FXVerticalFrame.new(self, :opts => LAYOUT_FILL_X|LAYOUT_FILL_Y|FRAME_GROOVE, :padding => 0)
+        sitesArea = FXScrollWindow.new(frame, SCROLLERS_NORMAL|LAYOUT_FILL_X|LAYOUT_FILL_Y)
+        sitesFrame = FXVerticalFrame.new(sitesArea, :opts => LAYOUT_FILL_X|LAYOUT_FILL_Y, :padding => 0)
+        
+        sites.sort.each do |site|         
+          site_frame = FXHorizontalFrame.new(sitesFrame, :opts => LAYOUT_FILL_X)
+          b = FXCheckButton.new(site_frame, site, nil, 0, ICON_BEFORE_TEXT|LAYOUT_SIDE_LEFT)
+          eb = FXButton.new(site_frame, "edit..", nil, nil, 0, FRAME_RAISED|FRAME_THICK|LAYOUT_RIGHT)
+          @edit_btns[site] = eb
+          
+          b.connect(SEL_COMMAND){
+            b.checked? ? @edit_btns[site].enable : @edit_btns[site].disable
+            @dummy_scope[site][:enabled] = true
+          }
+          
+          
+          @cb_sites[site] = b  
+          b.setCheck(false)
+          scope_details = {
+            :site => site,
+            :enabled => false,
+            :root_path => '',
+            :excluded_paths => [],
+            #:exclude_pattern => []
+          }
+          
+          if !@dummy_scope[site]
+          @dummy_scope[site] = scope_details 
+        else
+          @dummy_scope[site][:enabled] = true
+          end
+          
+          
+          eb.connect(SEL_COMMAND){
+            editSiteDetails(site)            
+          }
+          
+        end
+        updateFrame()
+      end
+      
+      
+      
+    end #EOC
+    #--
+  end
+end
+
+
+if __FILE__ == $0
+  require '../utils/check_regex'
+  
+  class TestGui < FXMainWindow
+    
+    def initialize(app)
+      # Call base class initializer first
+      super(app, "Test Application", :width => 800, :height => 600)
+      frame = FXVerticalFrame.new(self, LAYOUT_FILL_X|LAYOUT_FILL_Y|FRAME_GROOVE)
+      
+      pbButton = FXButton.new(frame, "create FXProgressBar",:opts => FRAME_THICK|FRAME_RAISED|LAYOUT_FILL_X|LAYOUT_TOP|LAYOUT_LEFT,:padLeft => 10, :padRight => 10, :padTop => 5, :padBottom => 5)
+      
+      @scope_details = {
+        :site => "127.0.0.1",
+        :enabled => false,
+        :root_path => '',
+        :excluded_paths => [],
+        #:exclude_pattern => []
+      }
+      pbButton.connect(SEL_COMMAND) {
+        
+        dlg = Watobo::Gui::EditScopeDetailsDialog.new(self,scope_details)
+        
+        if dlg.execute != 0
+          puts dlg.details.to_yaml
+        end  
+      }
+    end
+    # Create and show the main window
+    def create
+      super                  # Create the windows
+      show(PLACEMENT_SCREEN) # Make the main window appear
+      dlg = Watobo::Gui::EditScopeDetailsDialog.new(self, @scope_details)
+      
+      if dlg.execute != 0
+        puts dlg.details.to_yaml
+      end  
+    end
+  end
+  application = FXApp.new('LayoutTester', 'FoxTest')  
+  TestGui.new(application)
+  application.create
+  application.run
+end

data/lib/watobo/gui/edit_comment.rb

@@ -0,0 +1,70 @@
+# .
+# edit_comment.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 EditCommentDialog < FXDialogBox
+      def comment()
+        @textbox.to_s
+      end
+
+      def initialize(owner, chat)
+        #super(owner, "Edit Target Scope", DECOR_TITLE|DECOR_BORDER, :width => 300, :height => 425)
+        super(owner, "Edit Comment", DECOR_ALL, :width => 300, :height => 150)
+
+        base_frame = FXVerticalFrame.new(self, :opts => LAYOUT_FILL_X|LAYOUT_FILL_Y)
+
+        #  puts "create scopeframe with scope:"
+        # @project.scope
+        text_frame = FXVerticalFrame.new(base_frame, LAYOUT_FILL_X|LAYOUT_FILL_Y|FRAME_SUNKEN|FRAME_THICK, :padding => 0)
+        @textbox = FXText.new(text_frame, :opts => LAYOUT_FILL_X|LAYOUT_FILL_Y|TEXT_WORDWRAP)
+        @textbox.setText(chat.comment)
+        @textbox.setFocus()
+        @textbox.setDefault()
+
+        @textbox.connect(SEL_KEYPRESS) { |sender, sel, event|
+          if event.code == KEY_Tab
+          @finishButton.setFocus()
+          @finishButton.setDefault()
+          true
+          else
+          false
+          end
+
+        }
+        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

data/lib/watobo/gui/edit_scope_dialog.rb

@@ -0,0 +1,69 @@
+# .
+# edit_scope_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 EditScopeDialog < FXDialogBox
+
+      include Responder
+
+      attr :scope
+      def onAccept(sender, sel, event)
+
+        @scope = @defineScopeFrame.getScope()
+
+        getApp().stopModal(self, 1)
+        self.hide()
+        return 1
+      end
+
+      def initialize(owner, project, prefs)
+        #super(owner, "Edit Target Scope", DECOR_TITLE|DECOR_BORDER, :width => 300, :height => 425)
+        super(owner, "Edit Target Scope", DECOR_ALL, :width => 300, :height => 425)
+        @project = project
+        @scope = Hash.new
+
+        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)
+
+        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