ClickSpotter 0.1.1

data/lib/OccurenceCounter.rb

@@ -0,0 +1,65 @@
+#
+# OccurenceCounter.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: OccurenceCounter.rb 8 2006-01-22 15:19:51Z cs $
+#
+
+# This OccurenceCounter class can be used to count the occurence of entries.
+# Optionally the number of different entries that are tracked can be
+# limited. In case the limit is reached, the oldest entered or
+# incremented entry will be dropped for each new entry.
+class OccurenceCounter
+
+  # Optionally you can limit the number of different tracked entries.
+  def initialize(size = 0)
+    @max = size
+    @buffer = []
+  end
+
+  # This is the main function to track entries. Whenever it's called,
+  # the function tries to lookup the entry in the buffer. In case it
+  # already in there, the counter is increased. New entries are
+  # inserted with a count of 1.
+  def push(entry)
+    return if entry == nil
+
+    for i in 0 ... @buffer.length
+      if @buffer[i][0] == entry
+        if i == 0
+          # If the new entry is the same as the last one, we just
+          # increase the counter.
+          @buffer[0] = [entry, @buffer[0][1]]
+          return
+        end
+        # Move entry to buffer position 0 and shift down all entries
+        # between position 0 and i - 1
+        count = @buffer[i][1]
+        i.downto(1) { |j| @buffer[j] = @buffer[j - 1] }
+         @buffer[0] = [entry, count + 1]
+        return
+      end
+    end
+    # Insert new entry at front and drop the last one if the buffer
+    # became too big.
+    @buffer.insert(0, [entry, 1])
+    @buffer.pop if @max > 0 && @buffer.length > @max
+    return
+  end
+
+  def delete(entry)
+    @buffer.delete(entry)
+  end
+
+  # This is the iterator to read out the list of entries with their
+  # counters. Each call of yield retrieves an entry-counter pair.
+  def each
+    @buffer.each { |entry, count| yield(entry, count) }
+  end
+
+end
+

data/lib/PageInformation.rb

@@ -0,0 +1,147 @@
+#
+# PageInformation.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: PageInformation.rb 8 2006-01-22 15:19:51Z cs $
+#
+
+require 'PageInformationDlg'
+require 'VisitorInformation'
+require 'RefererInformation'
+require 'BrowserLauncher'
+
+class PageInformation < PageInformationDlg
+
+  include BrowserLauncher
+
+  slots 'hostClicked(QListViewItem*)',
+        'refererClicked(QListViewItem*)',
+  'nextPageClicked(QListViewItem*)',
+  'openPage()'
+
+  def initialize(page, parent = nil, name = nil)
+    super(parent, name)
+    $windowList.push(self)
+
+    @page = page
+
+    setCaption("Page Information - %s" % page.url)
+
+    @visitorListCSLV = CSListView.new(@visitorList)
+    @visitorList.setSorting(1, false)
+    @visitorListCSLV.setColumnWidth(0, 400)
+
+    @refererListCSLV = CSListView.new(@refererList)
+    @refererList.setSorting(1, false)
+    @refererListCSLV.setColumnWidth(0, 400)
+
+    @nextPageListCSLV = CSListView.new(@nextPageList)
+    @nextPageList.setSorting(1, false)
+    @nextPageListCSLV.setColumnWidth(0, 400)
+
+    connect(@visitorList, SIGNAL('clicked(QListViewItem*)'),
+            SLOT('hostClicked(QListViewItem*)'))
+    connect(@refererList, SIGNAL('clicked(QListViewItem*)'),
+            SLOT('refererClicked(QListViewItem*)'))
+    connect(@nextPageList, SIGNAL('clicked(QListViewItem*)'),
+            SLOT('nextPageClicked(QListViewItem*)'))
+    connect(@openButton, SIGNAL('clicked()'), SLOT('openPage()'))
+
+    if $globals.getSetting("PageWindowW") > 0 &&
+       $globals.getSetting("PageWindowH") > 0
+      resize($globals.getSetting("PageWindowW"),
+             $globals.getSetting("PageWindowH"))
+    end
+
+    updateWindow
+    show
+  end
+
+  def updateWindow
+    # Close window if page has been purged
+    if !$pages[@page.url]
+      close(true)
+      return
+    end
+
+    @pageURL.setText(@page.url)
+    @hits.setText(@page.hitCount().to_s)
+    @entries.setText(@page.entryCount().to_s)
+    @exits.setText(@page.exitCount().to_s)
+    visitors = {}
+    referers = Hash.new(0)
+    @page.hits.each do |h|
+      visitors[h.visitor] = true
+      next if h.referer == nil
+      referers[h.referer] += 1
+    end
+    # Update visitor list
+    @visitorListCSLV.startUpdate
+    showRobots = $globals.getSetting("ShowRobots") != 0
+    showSurfers = $globals.getSetting("ShowSurfers") != 0
+    visitors.each_key do |v|
+      if (v.robot && !showRobots) || (!v.robot && !showSurfers)
+        next
+      end
+      @visitorListCSLV.insertItem(v, v.host, v.pageCount, v.ip, v.browser)
+    end
+    @visitorListCSLV.finishUpdate
+
+    # Update referer list
+    @refererListCSLV.startUpdate
+    referers.each do |r, count|
+      @refererListCSLV.insertItem(r, r.url, count)
+    end
+    @refererListCSLV.finishUpdate
+
+    # Update nextPages list
+    showRegularPages = $globals.getSetting("ShowRegularPages") != 0
+    showAuxPages = $globals.getSetting("ShowAuxPages") != 0
+    @nextPageListCSLV.startUpdate
+    @page.nextPages.each do |p, count|
+      if ($pages[p].isPage && !showRegularPages) ||
+         (!$pages[p].isPage && !showAuxPages)
+        next
+      end
+      @nextPageListCSLV.insertItem(p, p, count)
+    end
+    @nextPageListCSLV.finishUpdate
+  end
+
+  def hostClicked(item)
+    return if item == nil
+    VisitorInformation.new($visitors[item.text(2) + "|" + item.text(3)])
+  end
+
+  def refererClicked(item)
+    return if item == nil
+    referer = $referers[item.text(0)]
+    if referer.external?
+      RefererInformation.new(referer)
+    else
+      PageInformation.new($pages[item.text(0)])
+    end
+  end
+
+  def nextPageClicked(item)
+    return if item == nil || !$pages.has_key?(item.text(0))
+    PageInformation.new($pages[item.text(0)])
+  end
+
+  def openPage
+    browseURL(@page.url)
+  end
+
+  def close(dummy)
+    $globals.setSetting("PageWindowW", width())
+    $globals.setSetting("PageWindowH", height())
+    $windowList.delete(self)
+    super(true)
+  end
+
+end
+

data/lib/PageInformationDlg.rb

@@ -0,0 +1,159 @@
+# Form implementation generated from reading ui file 'PageInformationDlg.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 PageInformationDlg < Qt::Widget
+
+    attr_reader :textLabel5
+    attr_reader :textLabel1
+    attr_reader :exits
+    attr_reader :hits
+    attr_reader :textLabel11
+    attr_reader :textLabel8
+    attr_reader :entries
+    attr_reader :splitter5
+    attr_reader :groupBox1
+    attr_reader :visitorList
+    attr_reader :groupBox2
+    attr_reader :refererList
+    attr_reader :groupBox3
+    attr_reader :nextPageList
+    attr_reader :pageURL
+    attr_reader :openButton
+
+
+    def initialize(parent = nil, name = nil, fl = 0)
+        super
+
+        if name.nil?
+        	setName("PageInformationDlg")
+        end
+
+        @PageInformationDlgLayout = Qt::GridLayout.new(self, 1, 1, 11, 6, 'PageInformationDlgLayout')
+
+        @textLabel5 = Qt::Label.new(self, "textLabel5")
+
+        @PageInformationDlgLayout.addWidget(@textLabel5, 1, 0)
+
+        @textLabel1 = Qt::Label.new(self, "textLabel1")
+
+        @PageInformationDlgLayout.addWidget(@textLabel1, 0, 0)
+
+        @exits = Qt::LineEdit.new(self, "exits")
+        @exits.setAlignment( Qt::LineEdit::AlignRight )
+        @exits.setReadOnly( true )
+
+        @PageInformationDlgLayout.addMultiCellWidget(@exits, 1, 1, 5, 6)
+
+        @hits = Qt::LineEdit.new(self, "hits")
+        @hits.setAlignment( Qt::LineEdit::AlignRight )
+        @hits.setReadOnly( true )
+
+        @PageInformationDlgLayout.addWidget(@hits, 1, 1)
+
+        @textLabel11 = Qt::Label.new(self, "textLabel11")
+
+        @PageInformationDlgLayout.addWidget(@textLabel11, 1, 4)
+
+        @textLabel8 = Qt::Label.new(self, "textLabel8")
+
+        @PageInformationDlgLayout.addWidget(@textLabel8, 1, 2)
+
+        @entries = Qt::LineEdit.new(self, "entries")
+        @entries.setAlignment( Qt::LineEdit::AlignRight )
+        @entries.setReadOnly( true )
+
+        @PageInformationDlgLayout.addWidget(@entries, 1, 3)
+
+        @splitter5 = Qt::Splitter.new(self, "splitter5")
+        @splitter5.setOrientation( Qt::Splitter::Vertical )
+
+        @groupBox1 = Qt::GroupBox.new(@splitter5, "groupBox1")
+        @groupBox1.setColumnLayout( 0, Qt::Vertical )
+        @groupBox1.layout().setSpacing(6)
+        @groupBox1.layout().setMargin(11)
+        @groupBox1Layout = Qt::GridLayout.new(@groupBox1.layout() )
+        @groupBox1Layout.setAlignment( AlignTop )
+
+        @visitorList = Qt::ListView.new(@groupBox1, "visitorList")
+        @visitorList.addColumn(trUtf8("Host"))
+        @visitorList.addColumn(trUtf8("Pages"))
+        @visitorList.addColumn(trUtf8("IP"))
+        @visitorList.addColumn(trUtf8("Browser"))
+
+        @groupBox1Layout.addWidget(@visitorList, 0, 0)
+
+        @groupBox2 = Qt::GroupBox.new(@splitter5, "groupBox2")
+        @groupBox2.setColumnLayout( 0, Qt::Vertical )
+        @groupBox2.layout().setSpacing(6)
+        @groupBox2.layout().setMargin(11)
+        @groupBox2Layout = Qt::GridLayout.new(@groupBox2.layout() )
+        @groupBox2Layout.setAlignment( AlignTop )
+
+        @refererList = Qt::ListView.new(@groupBox2, "refererList")
+        @refererList.addColumn(trUtf8("URL"))
+        @refererList.addColumn(trUtf8("Count"))
+
+        @groupBox2Layout.addWidget(@refererList, 0, 0)
+
+        @groupBox3 = Qt::GroupBox.new(@splitter5, "groupBox3")
+        @groupBox3.setColumnLayout( 0, Qt::Vertical )
+        @groupBox3.layout().setSpacing(6)
+        @groupBox3.layout().setMargin(11)
+        @groupBox3Layout = Qt::GridLayout.new(@groupBox3.layout() )
+        @groupBox3Layout.setAlignment( AlignTop )
+
+        @nextPageList = Qt::ListView.new(@groupBox3, "nextPageList")
+        @nextPageList.addColumn(trUtf8("Page"))
+        @nextPageList.addColumn(trUtf8("Count"))
+
+        @groupBox3Layout.addWidget(@nextPageList, 0, 0)
+
+        @PageInformationDlgLayout.addMultiCellWidget(@splitter5, 2, 2, 0, 6)
+
+        @pageURL = Qt::LineEdit.new(self, "pageURL")
+        @pageURL.setReadOnly( true )
+
+        @PageInformationDlgLayout.addMultiCellWidget(@pageURL, 0, 0, 1, 5)
+
+        @openButton = Qt::PushButton.new(self, "openButton")
+
+        @PageInformationDlgLayout.addWidget(@openButton, 0, 6)
+        languageChange()
+        resize( Qt::Size.new(661, 625).expandedTo(minimumSizeHint()) )
+        clearWState( WState_Polished )
+    end
+
+    #
+    #  Sets the strings of the subwidgets using the current
+    #  language.
+    #
+    def languageChange()
+        setCaption(trUtf8("Page Information"))
+        @textLabel5.setText( trUtf8("<b>Hits:</b>") )
+        @textLabel1.setText( trUtf8("<b>Page:</b>") )
+        @textLabel11.setText( trUtf8("<b>Exists:</b>") )
+        @textLabel8.setText( trUtf8("<b>Entries:</b>") )
+        @groupBox1.setTitle( trUtf8("Visitors") )
+        @visitorList.header().setLabel( 0, trUtf8("Host") )
+        @visitorList.header().setLabel( 1, trUtf8("Pages") )
+        @visitorList.header().setLabel( 2, trUtf8("IP") )
+        @visitorList.header().setLabel( 3, trUtf8("Browser") )
+        @groupBox2.setTitle( trUtf8("Referers") )
+        @refererList.header().setLabel( 0, trUtf8("URL") )
+        @refererList.header().setLabel( 1, trUtf8("Count") )
+        @groupBox3.setTitle( trUtf8("Next Pages") )
+        @nextPageList.header().setLabel( 0, trUtf8("Page") )
+        @nextPageList.header().setLabel( 1, trUtf8("Count") )
+        @openButton.setText( trUtf8("Open") )
+    end
+    protected :languageChange
+
+
+end

data/lib/PageRecord.rb

@@ -0,0 +1,77 @@
+#
+# PageRecord.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: PageRecord.rb 8 2006-01-22 15:19:51Z cs $
+#
+
+require 'HitRecord'
+
+class PageRecord
+
+  attr_reader :url, :nextPages, :hits, :isPage
+
+  def initialize(url, isPage)
+    @hits = []
+    @nextPages = {}
+    @url = url
+    @isPage = isPage
+  end
+
+  def addHit(hit)
+    @hits.push(hit)
+    hit.page = 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 purgeNextPages(pages)
+    pages.each { |p| @nextPages.delete(p) }
+  end
+
+  def hitCount
+    return @hits.length()
+  end
+
+  def addReferral(nextPage)
+    if nextPages.has_key?(nextPage)
+      nextPages[nextPage] += 1
+    else
+      nextPages[nextPage] = 1
+    end
+  end
+
+  def entryCount
+    count = 0
+    @hits.each do |h|
+      count += 1 if h.entry
+    end
+    return count
+  end
+
+  def exitCount
+    count = 0
+    @hits.each do |h|
+      count+= 1 if h.exit
+    end
+    return count
+  end
+
+  def lastHit
+    return @hits[-1]
+  end
+
+end