ClickSpotter 0.1.1

data/lib/VisitorRecord.rb

@@ -0,0 +1,94 @@
+#
+# VisitorRecord.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: VisitorRecord.rb 8 2006-01-22 15:19:51Z cs $
+#
+
+require 'HitRecord'
+require 'DNSResolver'
+
+class VisitorRecord
+
+  attr_reader :ip, :browser, :pageCount, :firstHit, :lastHit, :firstPage,
+              :lastPage, :robot, :hits
+  attr_writer :robot
+
+  def initialize(ip, browser)
+    @hits = []
+    @ip = ip
+    @firstHit = nil
+    @lastHit = nil
+    @firstPage = nil
+    @lastPage = nil
+    @browser = browser
+    @pageCount = 0
+    @robot = nil
+  end
+
+  def addHit(hit)
+    @firstHit = hit if @firstHit == nil
+    @lastHit = hit
+    @hits.push(hit)
+    hit.visitor = self
+
+    if hit.page.isPage
+      # Remove old exit page flag from previous last page
+      @lastPage.exit = false if @lastPage
+      hit.exit = true
+      @pageCount += 1
+      if @firstPage == nil
+        @firstPage = hit
+        hit.entry = true
+      end
+      @lastPage = hit
+    end
+  end
+
+  def purge(deadline)
+    @hits.each do |h|
+      if h.timeStamp < deadline
+        @hits.delete(h)
+      else
+        return false
+      end
+    end
+    @hits.empty?
+  end
+
+  def host
+    return $resolver.hostName(@ip)
+  end
+
+  def hitCount
+    return @hits.length()
+  end
+
+  def bytes
+    bytes = 0
+    @hits.each do |h|
+      bytes += h.bytes
+    end
+    return bytes
+  end
+
+  def referer
+    @hits.each do |h|
+      return h.referer if h.referer != nil && h.referer.external?
+    end
+    return nil
+  end
+
+  def country
+    $geoLocator.country(ip)
+  end
+
+  def city
+    $geoLocator.city(ip)
+  end
+
+end

data/lib/WorldMap.rb

@@ -0,0 +1,93 @@
+#
+# WorldMap.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: WorldMap.rb 8 2006-01-22 15:19:51Z cs $
+#
+
+require 'WorldMapDlg'
+
+class WorldMap < WorldMapDlg
+
+  def initialize(masterWindow)
+    super(nil)
+
+    @masterWindow = masterWindow
+    @gdv = GeoDistView.new(mapFrame, nil, nil, true)
+
+    if $globals.getSetting('LargeMapW') > 0 &&
+       $globals.getSetting('LargeMapH') > 0
+      resize($globals.getSetting('LargeMapW'),
+             $globals.getSetting('LargeMapH'))
+    end
+
+    @showIPsCB.checked = $globals.getSetting("WMShowIPs")
+    @showCitiesCB.checked = $globals.getSetting("WMShowCityNames")
+    @showHostNamesCB.checked = $globals.getSetting("WMShowHostNames")
+    @showRoutersCB.checked = $globals.getSetting("WMShowRouters")
+    @showRoutesCB.checked = $globals.getSetting("WMShowRoutes")
+    @showLastCB.checked = $globals.getSetting("WMShowLast")
+    @lastMinutes.value = $globals.getSetting("WMLastMinutes")
+
+    show
+  end
+
+  def update(visitors)
+    @gdv.update(visitors)
+  end
+
+  def close(dummy)
+    $globals.setSetting('LargeMapW', width)
+    $globals.setSetting('LargeMapH', height)
+    $globals.setSetting('WMShowIPs', @showIPsCB.isChecked)
+    $globals.setSetting('WMShowHostNames', @showHostNamesCB.isChecked)
+    $globals.setSetting('WMShowCityNames', @showCitiesCB.isChecked)
+    $globals.setSetting('WMShowRouters', @showRoutersCB.isChecked)
+    $globals.setSetting('WMShowRoutes', @showRoutesCB.isChecked)
+    $globals.setSetting('WMShowLast', @showLastCB.isChecked)
+    $globals.setSetting('WMLastMinutes', @lastMinutes.value)
+    # Enabling showRoutes can pump a whole lot of requests into these queues.
+    # So we flush them. All still needed requests will quickly be done again.
+    $traceRouter.flushQueue
+    $geoLocator.flushQueue
+
+    @masterWindow.worldMapClosed
+
+    super(true)
+  end
+
+  def showRoutersCBToggled(newVal)
+    @gdv.showRouters = newVal
+  end
+
+  def showRoutesCBToggled(newVal)
+    @gdv.showRoutes = newVal
+  end
+
+  def showIPsCBToggled(newVal)
+    @gdv.showIPs = newVal
+  end
+
+  def showHostNamesCBToggled(newVal)
+    @gdv.showHostNames = newVal
+  end
+
+  def showCitiesCBToggled(newVal)
+    @gdv.showCities = newVal
+  end
+
+  def showLastCBToggled(newVal)
+    @gdv.showLast = newVal
+    @lastMinutes.enabled = newVal
+  end
+
+  def lastMinutesValueChanged(val)
+    @gdv.lastMinutes = val
+  end
+
+end
+

data/lib/WorldMapDlg.rb

@@ -0,0 +1,166 @@
+# Form implementation generated from reading ui file 'WorldMapDlg.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 WorldMapDlg < Qt::Widget
+
+    slots 'languageChange()',
+    'showCitiesCBToggled(bool)',
+    'showIPsCBToggled(bool)',
+    'showRoutesCBToggled(bool)',
+    'showHostNamesCBToggled(bool)',
+    'showLastCBToggled(bool)',
+    'lastMinutesValueChanged(int)',
+    'showRoutersCBToggled(bool)'
+
+    attr_reader :mapFrame
+    attr_reader :textLabel2
+    attr_reader :lastMinutes
+    attr_reader :showRoutersCB
+    attr_reader :showIPsCB
+    attr_reader :showHostNamesCB
+    attr_reader :showCitiesCB
+    attr_reader :showRoutesCB
+    attr_reader :showLastCB
+    attr_reader :closeBtn
+
+
+    def initialize(parent = nil, name = nil, fl = 0)
+        super
+
+        if name.nil?
+        	setName("WorldMapDlg")
+        end
+        setSizePolicy(Qt::SizePolicy.new(5, 5, 0, 0, self.sizePolicy().hasHeightForWidth()))
+
+        @WorldMapDlgLayout = Qt::GridLayout.new(self, 1, 1, 11, 6, 'WorldMapDlgLayout')
+
+        @mapFrame = Qt::GroupBox.new(self, "mapFrame")
+
+        @WorldMapDlgLayout.addMultiCellWidget(@mapFrame, 0, 0, 0, 10)
+        @spacer4 = Qt::SpacerItem.new(30, 20, Qt::SizePolicy::Expanding, Qt::SizePolicy::Minimum)
+        @WorldMapDlgLayout.addItem(@spacer4, 1, 9)
+
+        @textLabel2 = Qt::Label.new(self, "textLabel2")
+
+        @WorldMapDlgLayout.addWidget(@textLabel2, 1, 8)
+
+        @lastMinutes = Qt::SpinBox.new(self, "lastMinutes")
+        @lastMinutes.setEnabled( false )
+        @lastMinutes.setMaxValue( 32767 )
+        @lastMinutes.setMinValue( 1 )
+
+        @WorldMapDlgLayout.addWidget(@lastMinutes, 1, 7)
+        @spacer7 = Qt::SpacerItem.new(20, 21, Qt::SizePolicy::Expanding, Qt::SizePolicy::Minimum)
+        @WorldMapDlgLayout.addItem(@spacer7, 1, 5)
+
+        @showRoutersCB = Qt::CheckBox.new(self, "showRoutersCB")
+
+        @WorldMapDlgLayout.addWidget(@showRoutersCB, 1, 3)
+
+        @showIPsCB = Qt::CheckBox.new(self, "showIPsCB")
+
+        @WorldMapDlgLayout.addWidget(@showIPsCB, 1, 0)
+
+        @showHostNamesCB = Qt::CheckBox.new(self, "showHostNamesCB")
+
+        @WorldMapDlgLayout.addWidget(@showHostNamesCB, 1, 1)
+
+        @showCitiesCB = Qt::CheckBox.new(self, "showCitiesCB")
+
+        @WorldMapDlgLayout.addWidget(@showCitiesCB, 1, 2)
+
+        @showRoutesCB = Qt::CheckBox.new(self, "showRoutesCB")
+
+        @WorldMapDlgLayout.addWidget(@showRoutesCB, 1, 4)
+
+        @showLastCB = Qt::CheckBox.new(self, "showLastCB")
+
+        @WorldMapDlgLayout.addWidget(@showLastCB, 1, 6)
+
+        @closeBtn = Qt::PushButton.new(self, "closeBtn")
+
+        @WorldMapDlgLayout.addWidget(@closeBtn, 1, 10)
+        languageChange()
+        resize( Qt::Size.new(1033, 878).expandedTo(minimumSizeHint()) )
+        clearWState( WState_Polished )
+
+        Qt::Object.connect(@showCitiesCB, SIGNAL("toggled(bool)"), self, SLOT("showCitiesCBToggled(bool)") )
+        Qt::Object.connect(@showIPsCB, SIGNAL("toggled(bool)"), self, SLOT("showIPsCBToggled(bool)") )
+        Qt::Object.connect(@showRoutesCB, SIGNAL("toggled(bool)"), self, SLOT("showRoutesCBToggled(bool)") )
+        Qt::Object.connect(@closeBtn, SIGNAL("clicked()"), self, SLOT("close()") )
+        Qt::Object.connect(@showHostNamesCB, SIGNAL("toggled(bool)"), self, SLOT("showHostNamesCBToggled(bool)") )
+        Qt::Object.connect(@showLastCB, SIGNAL("toggled(bool)"), self, SLOT("showLastCBToggled(bool)") )
+        Qt::Object.connect(@lastMinutes, SIGNAL("valueChanged(int)"), self, SLOT("lastMinutesValueChanged(int)") )
+        Qt::Object.connect(@showRoutersCB, SIGNAL("toggled(bool)"), self, SLOT("showRoutersCBToggled(bool)") )
+
+        setTabOrder(@showIPsCB, @showHostNamesCB)
+        setTabOrder(@showHostNamesCB, @showCitiesCB)
+        setTabOrder(@showCitiesCB, @showRoutersCB)
+        setTabOrder(@showRoutersCB, @showRoutesCB)
+        setTabOrder(@showRoutesCB, @showLastCB)
+        setTabOrder(@showLastCB, @lastMinutes)
+        setTabOrder(@lastMinutes, @closeBtn)
+    end
+
+    #
+    #  Sets the strings of the subwidgets using the current
+    #  language.
+    #
+    def languageChange()
+        setCaption(trUtf8("Woldmap"))
+        @mapFrame.setTitle( trUtf8("Worldmap") )
+        @textLabel2.setText( trUtf8("minutes") )
+        @showRoutersCB.setText( trUtf8("Show &Routers") )
+        @showRoutersCB.setAccel( Qt::KeySequence.new(trUtf8("Alt+R")) )
+        @showIPsCB.setText( trUtf8("Show &IPs") )
+        @showIPsCB.setAccel( Qt::KeySequence.new(trUtf8("Alt+I")) )
+        @showHostNamesCB.setText( trUtf8("Show &Host Names") )
+        @showHostNamesCB.setAccel( Qt::KeySequence.new(trUtf8("Alt+H")) )
+        @showCitiesCB.setText( trUtf8("Show &City Names") )
+        @showCitiesCB.setAccel( Qt::KeySequence.new(trUtf8("Alt+C")) )
+        @showRoutesCB.setText( trUtf8("Show R&outes") )
+        @showRoutesCB.setAccel( Qt::KeySequence.new(trUtf8("Alt+O")) )
+        @showLastCB.setText( trUtf8("Show only &last") )
+        @showLastCB.setAccel( Qt::KeySequence.new(trUtf8("Alt+L")) )
+        @closeBtn.setText( trUtf8("Close &Window") )
+        @closeBtn.setAccel( Qt::KeySequence.new(trUtf8("Alt+W")) )
+    end
+    protected :languageChange
+
+
+    def showCitiesCBToggled(*k)
+        print("WorldMapDlg.showCitiesCBToggled(bool): Not implemented yet.\n")
+    end
+
+    def showIPsCBToggled(*k)
+        print("WorldMapDlg.showIPsCBToggled(bool): Not implemented yet.\n")
+    end
+
+    def showRoutesCBToggled(*k)
+        print("WorldMapDlg.showRoutesCBToggled(bool): Not implemented yet.\n")
+    end
+
+    def showHostNamesCBToggled(*k)
+        print("WorldMapDlg.showHostNamesCBToggled(bool): Not implemented yet.\n")
+    end
+
+    def showLastCBToggled(*k)
+        print("WorldMapDlg.showLastCBToggled(bool): Not implemented yet.\n")
+    end
+
+    def lastMinutesValueChanged(*k)
+        print("WorldMapDlg.lastMinutesValueChanged(int): Not implemented yet.\n")
+    end
+
+    def showRoutersCBToggled(*k)
+        print("WorldMapDlg.showRoutersCBToggled(bool): Not implemented yet.\n")
+    end
+
+end

data/lib/clickspotter.rb

@@ -0,0 +1,38 @@
+#
+# clickspotter.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: clickspotter.rb 10 2006-01-23 14:29:58Z cs $
+#
+
+# :main: README
+
+require 'AppConfig'
+require 'Qt'
+require 'GlobalSettings'
+require 'MainWindow'
+require 'DNSResolver'
+require 'GeoLocator'
+require 'TraceRouter'
+
+# Configure the application
+AppConfig.version = "0.1.1"
+AppConfig.name = "ClickSpotter"
+
+# Create global settings class and read persistent settings
+$globals = GlobalSettings.new(ARGV[0])
+
+# Create asynchronos resolvers
+$resolver = DNSResolver.new
+$geoLocator = GeoLocator.new
+$traceRouter = TraceRouter.new
+
+# Create main widget and enter mail loop
+qApp = Qt::Application.new(ARGV)
+qApp.setMainWidget(MainWindow.new)
+qApp.exec
+

metadata

@@ -0,0 +1,87 @@
+--- !ruby/object:Gem::Specification 
+rubygems_version: 0.8.11
+specification_version: 1
+name: ClickSpotter
+version: !ruby/object:Gem::Version 
+  version: 0.1.1
+date: 2006-01-23 00:00:00 +01:00
+summary: Real-Time webserver usage monitor with IP Geolocation
+require_paths: 
+- lib
+email: cs@kde.org
+homepage: http://clickspotter.ath.cx
+rubyforge_project: 
+description: 
+autorequire: clickspotter
+default_executable: 
+bindir: bin
+has_rdoc: true
+required_ruby_version: !ruby/object:Gem::Version::Requirement 
+  requirements: 
+  - - ">="
+    - !ruby/object:Gem::Version 
+      version: 1.8.4
+  version: 
+platform: ruby
+signing_key: 
+cert_chain: 
+authors: 
+- Chris Schlaeger
+files: 
+- lib/RefererRecord.rb
+- lib/CSListView.rb
+- lib/AppConfig.rb
+- lib/OccurenceCounter.rb
+- lib/TraceRouter.rb
+- lib/About.rb
+- lib/BrowserLauncher.rb
+- lib/HostNameDlg.rb
+- lib/GSServerLogSettings.rb
+- lib/Configuration.rb
+- lib/LogParser.rb
+- lib/MainWindowDlg.rb
+- lib/PageInformation.rb
+- lib/GlobalSettings.rb
+- lib/AboutDlg.rb
+- lib/LogFileSelector.rb
+- lib/StatusCode.rb
+- lib/CSListViewItem.rb
+- lib/ClickableCanvasView.rb
+- lib/LogFileSelectorDlg.rb
+- lib/VisitorInformationDlg.rb
+- lib/PageInformationDlg.rb
+- lib/ServerLogSettings.rb
+- lib/MainWindow.rb
+- lib/clickspotter.rb
+- lib/AsyncResolverWithCache.rb
+- lib/RefererInformationDlg.rb
+- lib/RefererInformation.rb
+- lib/VisitorRecord.rb
+- lib/WorldMapDlg.rb
+- lib/WorldMap.rb
+- lib/GeoLocator.rb
+- lib/PageRecord.rb
+- lib/VisitorInformation.rb
+- lib/GeoDistView.rb
+- lib/ConfigurationDlg.rb
+- lib/ServerLogSettingsDlg.rb
+- lib/DNSResolver.rb
+- lib/HitRecord.rb
+- data/worldmap.png
+- data/worldmap-large.jpg
+- bin/clickspotter
+- README
+test_files: []
+
+rdoc_options: []
+
+extra_rdoc_files: 
+- README
+executables: 
+- clickspotter
+extensions: []
+
+requirements: 
+- qtruby
+dependencies: []
+