ClickSpotter 0.1.1

data/lib/RefererInformation.rb

@@ -0,0 +1,114 @@
+#
+# RefererInformation.rb - ClickSpotter
+#
+# Copyright (c) 2005, 2006 by Chris Schlaeger <cs@kde.org>
+# This program is free software; you can redistribute it and/or modify
+# it under the terms of version 2 of the GNU General Public License as
+# published by the Free Software Foundation.
+#
+# $Id: RefererInformation.rb 8 2006-01-22 15:19:51Z cs $
+#
+
+require 'RefererInformationDlg'
+require 'BrowserLauncher'
+
+class RefererInformation < RefererInformationDlg
+
+  include BrowserLauncher
+
+  slots 'hostClicked(QListViewItem*)',
+        'hitClicked(QListViewItem*)',
+        'openPage()'
+
+  def initialize(referer, parent = nil, name = nil)
+    super(parent, name)
+
+    @referer = referer
+
+    $windowList.push(self)
+
+    setCaption("Referer Information - %s" % referer.url)
+
+    @hostListCSLV = CSListView.new(@hostList)
+    @hostListCSLV.setColumnWidth(0, 400)
+    @hostList.setSorting(1, false)
+
+    @hitListCSLV = CSListView.new(@hitList)
+    @hitListCSLV.setColumnWidth(0, 400)
+    @hitList.setSorting(1, false)
+
+    connect(@hostList, SIGNAL('clicked(QListViewItem*)'),
+            SLOT('hostClicked(QListViewItem*)'))
+    connect(@hitList, SIGNAL('clicked(QListViewItem*)'),
+            SLOT('hitClicked(QListViewItem*)'))
+    connect(@openButton, SIGNAL('clicked()'), SLOT('openPage()'))
+
+    if $globals.getSetting("RefererWindowW") > 0 &&
+       $globals.getSetting("RefererWindowH") > 0
+      resize($globals.getSetting("RefererWindowW"),
+             $globals.getSetting("RefererWindowH"))
+    end
+
+    updateWindow
+    show
+  end
+
+  def updateWindow
+    unless $referers.values.include?(@referer)
+      close(true)
+      return
+    end
+
+    @url.setText(@referer.url)
+
+    visitors = {}
+    hits = {}
+    @referer.hits.each do |h|
+      visitors[h.visitor] = true
+      if not hits.has_key?(h.url)
+        hits[h.url] = 1
+      else
+        hits[h.url] += 1
+      end
+    end
+
+    # Update host list
+    @hostListCSLV.startUpdate
+    visitors.each_key do |v|
+      @hostListCSLV.insertItem(v, v.host, v.pageCount, v.ip, v.browser)
+    end
+    @hostListCSLV.finishUpdate
+
+    # Update hit list
+    @hitListCSLV.startUpdate
+    hits.each do |url, count|
+      @hitListCSLV.insertItem(url, url, count)
+    end
+    @hitListCSLV.finishUpdate
+
+  end
+
+  def close(dummy)
+    $globals.setSetting("RefererWindowW", width())
+    $globals.setSetting("RefererWindowH", height())
+    $windowList.delete(self)
+    super(true)
+  end
+
+  def hostClicked(item)
+    return if item == nil
+    VisitorInformation.new($visitors[item.text(2) + "|" + item.text(3)])
+  end
+
+  def hitClicked(item)
+    return if item == nil
+    return if !$pages.has_key?(item.text(0))
+    PageInformation.new($pages[item.text(0)])
+  end
+
+  def openPage
+    browseURL(@referer.url)
+  end
+
+end
+

data/lib/RefererInformationDlg.rb

@@ -0,0 +1,106 @@
+# Form implementation generated from reading ui file 'RefererInformationDlg.ui'
+#
+# Created: Mon Jan 23 23:21:52 2006
+#      by: The QtRuby User Interface Compiler (rbuic)
+#
+# WARNING! All changes made in this file will be lost!
+
+
+require 'Qt'
+
+class RefererInformationDlg < Qt::Widget
+
+    attr_reader :textLabel1
+    attr_reader :splitter6
+    attr_reader :groupBox7
+    attr_reader :hostList
+    attr_reader :groupBox8
+    attr_reader :hitList
+    attr_reader :url
+    attr_reader :openButton
+
+
+    def initialize(parent = nil, name = nil, fl = 0)
+        super
+
+        if name.nil?
+        	setName("RefererInformationDlg")
+        end
+
+        @RefererInformationDlgLayout = Qt::GridLayout.new(self, 1, 1, 11, 6, 'RefererInformationDlgLayout')
+
+        @textLabel1 = Qt::Label.new(self, "textLabel1")
+
+        @RefererInformationDlgLayout.addWidget(@textLabel1, 0, 0)
+
+        @splitter6 = Qt::Splitter.new(self, "splitter6")
+        @splitter6.setOrientation( Qt::Splitter::Vertical )
+
+        @groupBox7 = Qt::GroupBox.new(@splitter6, "groupBox7")
+        @groupBox7.setSizePolicy( Qt::SizePolicy.new(5, 5, 0, 60, @groupBox7.sizePolicy().hasHeightForWidth()) )
+        @groupBox7.setColumnLayout( 0, Qt::Vertical )
+        @groupBox7.layout().setSpacing(6)
+        @groupBox7.layout().setMargin(11)
+        @groupBox7Layout = Qt::GridLayout.new(@groupBox7.layout() )
+        @groupBox7Layout.setAlignment( AlignTop )
+
+        @hostList = Qt::ListView.new(@groupBox7, "hostList")
+        @hostList.addColumn(trUtf8("Host"))
+        @hostList.addColumn(trUtf8("Count"))
+        @hostList.addColumn(trUtf8("IP"))
+        @hostList.addColumn(trUtf8("Browser"))
+        @hostList.setSizePolicy( Qt::SizePolicy.new(7, 7, 0, 0, @hostList.sizePolicy().hasHeightForWidth()) )
+
+        @groupBox7Layout.addWidget(@hostList, 0, 0)
+
+        @groupBox8 = Qt::GroupBox.new(@splitter6, "groupBox8")
+        @groupBox8.setSizePolicy( Qt::SizePolicy.new(5, 5, 0, 40, @groupBox8.sizePolicy().hasHeightForWidth()) )
+        @groupBox8.setColumnLayout( 0, Qt::Vertical )
+        @groupBox8.layout().setSpacing(6)
+        @groupBox8.layout().setMargin(11)
+        @groupBox8Layout = Qt::GridLayout.new(@groupBox8.layout() )
+        @groupBox8Layout.setAlignment( AlignTop )
+
+        @hitList = Qt::ListView.new(@groupBox8, "hitList")
+        @hitList.addColumn(trUtf8("URL"))
+        @hitList.addColumn(trUtf8("Count"))
+        @hitList.setSizePolicy( Qt::SizePolicy.new(7, 7, 0, 0, @hitList.sizePolicy().hasHeightForWidth()) )
+
+        @groupBox8Layout.addWidget(@hitList, 0, 0)
+
+        @RefererInformationDlgLayout.addMultiCellWidget(@splitter6, 1, 1, 0, 2)
+
+        @url = Qt::LineEdit.new(self, "url")
+        @url.setReadOnly( true )
+
+        @RefererInformationDlgLayout.addWidget(@url, 0, 1)
+
+        @openButton = Qt::PushButton.new(self, "openButton")
+
+        @RefererInformationDlgLayout.addWidget(@openButton, 0, 2)
+        languageChange()
+        resize( Qt::Size.new(600, 480).expandedTo(minimumSizeHint()) )
+        clearWState( WState_Polished )
+    end
+
+    #
+    #  Sets the strings of the subwidgets using the current
+    #  language.
+    #
+    def languageChange()
+        setCaption(trUtf8("Referer Information"))
+        @textLabel1.setText( trUtf8("<b>URL:</b>") )
+        @groupBox7.setTitle( trUtf8("Hosts") )
+        @hostList.header().setLabel( 0, trUtf8("Host") )
+        @hostList.header().setLabel( 1, trUtf8("Count") )
+        @hostList.header().setLabel( 2, trUtf8("IP") )
+        @hostList.header().setLabel( 3, trUtf8("Browser") )
+        @groupBox8.setTitle( trUtf8("Hits") )
+        @hitList.header().setLabel( 0, trUtf8("URL") )
+        @hitList.header().setLabel( 1, trUtf8("Count") )
+        @openButton.setText( trUtf8("Open") )
+    end
+    protected :languageChange
+
+
+end

data/lib/RefererRecord.rb

@@ -0,0 +1,51 @@
+#
+# RefererRecord.rb - ClickSpotter
+#
+# Copyright (c) 2005, 2006 by Chris Schlaeger <cs@kde.org>
+# This program is free software; you can redistribute it and/or modify
+# it under the terms of version 2 of the GNU General Public License as
+# published by the Free Software Foundation.
+#
+# $Id: RefererRecord.rb 8 2006-01-22 15:19:51Z cs $
+#
+
+require 'HitRecord'
+
+class RefererRecord
+
+  attr_reader :hits, :url
+
+  def initialize(url)
+    @hits = []
+    @url = url
+  end
+
+  def addHit(hit)
+    @hits.push(hit)
+    hit.referer = self
+  end
+
+  def purge(deadline)
+    @hits.each do |h|
+      if h.timeStamp < deadline
+        @hits.delete(h)
+      else
+        return false
+      end
+    end
+    @hits.empty?
+  end
+
+  def hitCount
+    return @hits.length()
+  end
+
+  def external?
+    return @url[0, 1] != '/'
+  end
+
+  def lastHit
+    return @hits[-1]
+  end
+
+end

data/lib/ServerLogSettings.rb

@@ -0,0 +1,152 @@
+#
+# ServerLogSettings.rb - ClickSpotter
+#
+# Copyright (c) 2005, 2006 by Chris Schlaeger <cs@kde.org>
+# This program is free software; you can redistribute it and/or modify
+# it under the terms of version 2 of the GNU General Public License as
+# published by the Free Software Foundation.
+#
+# $Id: ServerLogSettings.rb 8 2006-01-22 15:19:51Z cs $
+#
+
+require 'ServerLogSettingsDlg'
+require 'HostNameDlg'
+
+class ServerLogSettings < ServerLogSettingsDlg
+
+  slots 'selectionChanged(QListViewItem*)'
+  slots 'itemClicked(QListViewItem*)'
+
+  def initialize(settings, parent = nil, name = nil)
+    super(parent, name)
+
+    connect(@hostNameList, SIGNAL('selectionChanged(QListViewItem*)'),
+        SLOT('selectionChanged(QListViewItem*)'))
+    connect(@hostNameList, SIGNAL('clicked(QListViewItem*)'),
+        SLOT('itemClicked(QListViewItem*)'))
+
+    @settings = settings
+    @name.text = settings.name
+    @logFile.text = settings.logFile
+    settings.hostNames.each do |hostName|
+      item = Qt::ListViewItem.new(@hostNameList)
+      item.setText(0, hostName)
+      item.setText(1, settings.default == hostName ? '<-' : '')
+    end
+
+    enableListEditButtons(false)
+
+    show
+  end
+
+  def askForHostName(oldName = nil)
+    dlg = HostNameDlg.new(self)
+    dlg.hostName.text = oldName if oldName
+    dlg.show
+    dlg.exec == Qt::Dialog.Accepted ? dlg.hostName.text : nil
+  end
+
+  def searchBtnClicked
+    fileName = Qt::FileDialog.getOpenFileName("", "", self, "Select Log File",
+                                              "Choose an Apache Log File");
+    @logFile.setText(fileName)
+  end
+
+  def newBtnClicked
+    if hostName = askForHostName
+      noDefaultYet = hostNameList.firstChild == nil
+      item = Qt::ListViewItem.new(@hostNameList)
+      item.setText(0, hostName)
+      item.setText(1, noDefaultYet ? '<-' : '')
+    end
+  end
+
+  def editBtnClicked
+    return if !@hostNameList.selectedItem
+    if hostName = askForHostName(@hostNameList.selectedItem.text(0))
+      @hostNameList.selectedItem.setText(0, hostName)
+    end
+  end
+
+  def removeBtnClicked
+    @hostNameList.selectedItem.dispose if @hostNameList.selectedItem
+    enableListEditButtons(false) unless hostNameList.selectedItem
+  end
+
+  def setAsDefaultBtnClicked
+    return if !@hostNameList.selectedItem
+    it = Qt::ListViewItemIterator.new(@hostNameList)
+    while (it.current)
+      it.current.setText(1, it.current == @hostNameList.selectedItem ?
+          '<-' : '')
+      it += 1
+    end
+  end
+
+  def okBtnClicked
+    # Make sure the selected name is ok
+    if @name.text.empty?
+      Qt::MessageBox.warning(self, "No name set",
+          "You must specify a name.", Qt::MessageBox.Ok, 0)
+      return
+    end
+    $globals.serverLogFiles.each do |slf|
+      if slf.name == @name.text && slf != @settings
+        Qt::MessageBox.warning(self, "Name Conflict",
+            "There is already another log with this name\n" +
+            "Please choose a different name.", Qt::MessageBox.Ok, 0)
+        return
+      end
+    end
+
+    # Check the log file
+    if @logFile.text.empty?
+      Qt::MessageBox.warning(self, "No file set",
+          "You must specify a log file.", Qt::MessageBox.Ok, 0)
+      return
+    end
+    unless File.exist?(@logFile.text)
+      Qt::MessageBox.warning(self, "Invalid log file",
+          "The specified log file does not exist.", Qt::MessageBox.Ok, 0)
+      return
+    end
+
+    # There must be at least one server URL
+    unless @hostNameList.firstChild
+      Qt::MessageBox.warning(self, "No URL defined",
+          "You must specify at least one base URL of the server.",
+          Qt::MessageBox.Ok, 0)
+      return
+    end
+
+    @settings.name = @name.text
+    @settings.logFile = @logFile.text
+    hostNames = []
+    it = Qt::ListViewItemIterator.new(@hostNameList)
+    while (it.current)
+      hostNames << it.current.text(0)
+      @settings.default = it.current.text(0) if it.current.text(1) == '<-'
+      it += 1
+    end
+    @settings.hostNames = hostNames
+    accept
+  end
+
+  def selectionChanged(item)
+    enableListEditButtons(true)
+  end
+
+  def itemClicked(item)
+    enableListEditButtons(false) unless item
+  end
+
+private
+
+  def enableListEditButtons(enable)
+    @editBtn.setEnabled(enable)
+    @removeBtn.setEnabled(enable)
+    @setAsDefaultBtn.setEnabled(enable)
+  end
+
+end
+

data/lib/ServerLogSettingsDlg.rb

@@ -0,0 +1,202 @@
+# Form implementation generated from reading ui file 'ServerLogSettingsDlg.ui'
+#
+# Created: Mon Jan 23 23:21:52 2006
+#      by: The QtRuby User Interface Compiler (rbuic)
+#
+# WARNING! All changes made in this file will be lost!
+
+
+require 'Qt'
+
+class ServerLogSettingsDlg < Qt::Dialog
+
+    slots 'languageChange()',
+    'okBtnClicked()',
+    'cancelBtnClicked()',
+    'newBtnClicked()',
+    'editBtnClicked()',
+    'removeBtnClicked()',
+    'searchBtnClicked()',
+    'setAsDefaultBtnClicked()'
+
+    attr_reader :okBtn
+    attr_reader :cancelBtn
+    attr_reader :groupBox3
+    attr_reader :hostNameList
+    attr_reader :textLabel4
+    attr_reader :removeBtn
+    attr_reader :editBtn
+    attr_reader :newBtn
+    attr_reader :setAsDefaultBtn
+    attr_reader :textLabel1
+    attr_reader :logFile
+    attr_reader :searchBtn
+    attr_reader :name
+    attr_reader :textLabel2
+
+
+    def initialize(parent = nil, name = nil, modal = false, fl = 0)
+        super
+
+        if name.nil?
+        	setName("ServerLogSettingsDlg")
+        end
+        setSizeGripEnabled(true)
+
+        @ServerLogSettingsDlgLayout = Qt::GridLayout.new(self, 1, 1, 11, 6, 'ServerLogSettingsDlgLayout')
+
+        @Layout1 = Qt::HBoxLayout.new(nil, 0, 6, 'Layout1')
+        @Horizontal_Spacing2 = Qt::SpacerItem.new(20, 20, Qt::SizePolicy::Expanding, Qt::SizePolicy::Minimum)
+        @Layout1.addItem(@Horizontal_Spacing2)
+
+        @okBtn = Qt::PushButton.new(self, "okBtn")
+        @okBtn.setAutoDefault( true )
+        @okBtn.setDefault( true )
+        @Layout1.addWidget(@okBtn)
+
+        @cancelBtn = Qt::PushButton.new(self, "cancelBtn")
+        @cancelBtn.setAutoDefault( true )
+        @Layout1.addWidget(@cancelBtn)
+
+        @ServerLogSettingsDlgLayout.addMultiCellLayout(@Layout1, 3, 3, 0, 2)
+
+        @groupBox3 = Qt::GroupBox.new(self, "groupBox3")
+        @groupBox3.setSizePolicy( Qt::SizePolicy.new(5, 3, 0, 0, @groupBox3.sizePolicy().hasHeightForWidth()) )
+        @groupBox3.setColumnLayout( 0, Qt::Vertical )
+        @groupBox3.layout().setSpacing(6)
+        @groupBox3.layout().setMargin(11)
+        @groupBox3Layout = Qt::GridLayout.new(@groupBox3.layout() )
+        @groupBox3Layout.setAlignment( AlignTop )
+
+        @hostNameList = Qt::ListView.new(@groupBox3, "hostNameList")
+        @hostNameList.addColumn(trUtf8("Base URL"))
+        @hostNameList.addColumn(trUtf8("Default"))
+        @hostNameList.setSizePolicy( Qt::SizePolicy.new(7, 7, 0, 100, @hostNameList.sizePolicy().hasHeightForWidth()) )
+
+        @groupBox3Layout.addMultiCellWidget(@hostNameList, 1, 5, 0, 0)
+
+        @textLabel4 = Qt::Label.new(@groupBox3, "textLabel4")
+
+        @groupBox3Layout.addMultiCellWidget(@textLabel4, 0, 0, 0, 1)
+        @spacer4 = Qt::SpacerItem.new(31, 60, Qt::SizePolicy::Minimum, Qt::SizePolicy::Expanding)
+        @groupBox3Layout.addItem(@spacer4, 5, 1)
+
+        @removeBtn = Qt::PushButton.new(@groupBox3, "removeBtn")
+
+        @groupBox3Layout.addWidget(@removeBtn, 3, 1)
+
+        @editBtn = Qt::PushButton.new(@groupBox3, "editBtn")
+
+        @groupBox3Layout.addWidget(@editBtn, 2, 1)
+
+        @newBtn = Qt::PushButton.new(@groupBox3, "newBtn")
+
+        @groupBox3Layout.addWidget(@newBtn, 1, 1)
+
+        @setAsDefaultBtn = Qt::PushButton.new(@groupBox3, "setAsDefaultBtn")
+
+        @groupBox3Layout.addWidget(@setAsDefaultBtn, 4, 1)
+
+        @ServerLogSettingsDlgLayout.addMultiCellWidget(@groupBox3, 2, 2, 0, 2)
+
+        @textLabel1 = Qt::Label.new(self, "textLabel1")
+
+        @ServerLogSettingsDlgLayout.addWidget(@textLabel1, 0, 0)
+
+        @logFile = Qt::LineEdit.new(self, "logFile")
+
+        @ServerLogSettingsDlgLayout.addWidget(@logFile, 1, 1)
+
+        @searchBtn = Qt::ToolButton.new(self, "searchBtn")
+
+        @ServerLogSettingsDlgLayout.addWidget(@searchBtn, 1, 2)
+
+        @name = Qt::LineEdit.new(self, "name")
+
+        @ServerLogSettingsDlgLayout.addWidget(@name, 0, 1)
+
+        @textLabel2 = Qt::Label.new(self, "textLabel2")
+
+        @ServerLogSettingsDlgLayout.addWidget(@textLabel2, 1, 0)
+        languageChange()
+        resize( Qt::Size.new(582, 413).expandedTo(minimumSizeHint()) )
+        clearWState( WState_Polished )
+
+        Qt::Object.connect(@okBtn, SIGNAL("clicked()"), self, SLOT("okBtnClicked()") )
+        Qt::Object.connect(@newBtn, SIGNAL("clicked()"), self, SLOT("newBtnClicked()") )
+        Qt::Object.connect(@editBtn, SIGNAL("clicked()"), self, SLOT("editBtnClicked()") )
+        Qt::Object.connect(@removeBtn, SIGNAL("clicked()"), self, SLOT("removeBtnClicked()") )
+        Qt::Object.connect(@searchBtn, SIGNAL("clicked()"), self, SLOT("searchBtnClicked()") )
+        Qt::Object.connect(@setAsDefaultBtn, SIGNAL("clicked()"), self, SLOT("setAsDefaultBtnClicked()") )
+        Qt::Object.connect(@cancelBtn, SIGNAL("clicked()"), self, SLOT("reject()") )
+
+        setTabOrder(@name, @logFile)
+        setTabOrder(@logFile, @hostNameList)
+        setTabOrder(@hostNameList, @newBtn)
+        setTabOrder(@newBtn, @editBtn)
+        setTabOrder(@editBtn, @removeBtn)
+        setTabOrder(@removeBtn, @okBtn)
+        setTabOrder(@okBtn, @cancelBtn)
+    end
+
+    #
+    #  Sets the strings of the subwidgets using the current
+    #  language.
+    #
+    def languageChange()
+        setCaption(trUtf8("Server Log Settings"))
+        @okBtn.setText( trUtf8("&OK") )
+        @okBtn.setAccel( Qt::KeySequence.new(trUtf8("Alt+O")) )
+        @cancelBtn.setText( trUtf8("&Cancel") )
+        @cancelBtn.setAccel( Qt::KeySequence.new(trUtf8("Alt+C")) )
+        @groupBox3.setTitle( trUtf8("Base URLs") )
+        @hostNameList.header().setLabel( 0, trUtf8("Base URL") )
+        @hostNameList.header().setLabel( 1, trUtf8("Default") )
+        @textLabel4.setText( trUtf8("The log analyzer needs to know all base URLs of your webserver.\n" +
+        "This is used to differentiate between internal and external referrals.") )
+        @removeBtn.setText( trUtf8("&Remove") )
+        @removeBtn.setAccel( Qt::KeySequence.new(trUtf8("Alt+R")) )
+        @editBtn.setText( trUtf8("&Edit ...") )
+        @editBtn.setAccel( Qt::KeySequence.new(trUtf8("Alt+E")) )
+        @newBtn.setText( trUtf8("&New ...") )
+        @newBtn.setAccel( Qt::KeySequence.new(trUtf8("Alt+N")) )
+        @setAsDefaultBtn.setText( trUtf8("Set as Default") )
+        Qt::ToolTip.add( @setAsDefaultBtn, trUtf8("The default URL will be used when you try to open a local page.") )
+        @textLabel1.setText( trUtf8("Name") )
+        @searchBtn.setText( trUtf8("&Search ...") )
+        @searchBtn.setAccel( Qt::KeySequence.new(trUtf8("Alt+S")) )
+        Qt::ToolTip.add( @name, trUtf8("The name is used to identify each server log. Please use only characters and number, no whitespaces or special characters.") )
+        @textLabel2.setText( trUtf8("Log File") )
+    end
+    protected :languageChange
+
+
+    def okBtnClicked(*k)
+        print("ServerLogSettingsDlg.okBtnClicked(): Not implemented yet.\n")
+    end
+
+    def cancelBtnClicked(*k)
+        print("ServerLogSettingsDlg.cancelBtnClicked(): Not implemented yet.\n")
+    end
+
+    def newBtnClicked(*k)
+        print("ServerLogSettingsDlg.newBtnClicked(): Not implemented yet.\n")
+    end
+
+    def editBtnClicked(*k)
+        print("ServerLogSettingsDlg.editBtnClicked(): Not implemented yet.\n")
+    end
+
+    def removeBtnClicked(*k)
+        print("ServerLogSettingsDlg.removeBtnClicked(): Not implemented yet.\n")
+    end
+
+    def searchBtnClicked(*k)
+        print("ServerLogSettingsDlg.searchBtnClicked(): Not implemented yet.\n")
+    end
+
+    def setAsDefaultBtnClicked(*k)
+        print("ServerLogSettingsDlg.setAsDefaultBtnClicked(): Not implemented yet.\n")
+    end
+
+end