ClickSpotter 0.1.1

data/lib/LogParser.rb

@@ -0,0 +1,120 @@
+#
+# LogParser.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: LogParser.rb 9 2006-01-23 08:41:35Z cs $
+#
+
+class LogParser
+
+  def initialize()
+    @fileName = nil
+    @stream = nil
+  end
+
+  def setFileName(fileName)
+    return if fileName == @fileName
+    if @stream != nil
+      @stream.close
+      @progressDlg = nil
+      @stream = nil
+    end
+    @fileName = fileName
+  end
+
+  def getNextEntry(deadline)
+    # Make sure the file is open for reading. If not, open it and setup
+    # a progress dialog in case it's a big file.
+    if @stream == nil
+      @stream = File.new(@fileName, 'r')
+      @progressDlg = Qt::ProgressDialog.new(nil, nil, true)
+      @progressDlg.setLabelText("Loading file #{@fileName} ...")
+      @sizeAtOpen = File.size(@fileName)
+      @progressDlg.setTotalSteps(@sizeAtOpen)
+      @updateCounter = 0
+    end
+
+    # Update the progress dialog (even when it's not shown)
+    if @progressDlg != nil
+      if @stream.pos() >= @sizeAtOpen
+        @progressDlg.setProgress(@sizeAtOpen)
+        @progressDlg = nil
+      else
+        @updateCounter += 1
+        @progressDlg.setProgress(@stream.pos()) if @updateCounter % 100 == 0
+      end
+    end
+
+    # read one line from log and process it. Ignore all lines that are older
+    # than the requested deadline
+    begin
+      line = @stream.gets
+      if line == nil
+        return nil
+      end
+      tokens = line.chomp().split(' ')
+      if tokens.size < 10
+        puts "Discarding corrupted log line: #{line}"
+        next
+      end
+      ip = tokens[0]
+      uid = tokens[1]
+      timeStr = tokens[3].gsub(/[\[]/, '').gsub(/\//, ' ').sub(/:/, ' ')
+      begin
+        timeStamp = Time.parse(timeStr)
+      rescue
+        puts "Broken timestamp: #{line}"
+        timeStamp = 0
+        next
+      end
+    end while timeStamp < deadline
+
+    request = tokens[5] + ' ' + tokens[6] + ' ' + tokens[7]
+    isPage = false
+    if tokens[5].sub(/"/, '') == 'GET'
+      url = tokens[6]
+      url = '/' if url == nil || url.empty?
+      # Remove trailing slashes except for the base page
+      url = url[0..-2] if url[-1..-1] == '/' && url != '/'
+
+      if not $globals.isAuxFile(url)
+        isPage = true
+      end
+    else
+      url = nil
+    end
+    request.gsub!(/"/, '')
+    code = tokens[8].to_i
+    bytes = tokens[9].to_i
+    referer = tokens[10] ? tokens[10].gsub(/"/, '') : ''
+    # Remove the local server name from local referer URLs
+    $globals.serverNames.each do |name|
+      if referer.length >= name.length &&
+         referer.slice(0 , name.length) == name
+        referer = referer.slice(name.length,
+                                referer.length - name.length)
+      end
+    end
+    # Remove trailing slashes except for the base page
+    referer = referer[0..-2] if !referer.empty? && referer[-1..-1] == '/' && \
+                                referer != '/'
+    referer = nil if referer == '-'
+
+    if tokens[11]
+      browser = tokens[11..tokens.length() - 1].join(' ').gsub(/"/, '')
+    else
+      browser = ''
+    end
+
+    return {
+      'ip' => ip, 'uid' => uid, 'timeStamp' => timeStamp, 'request' => request,
+      'url' => url, 'code' => code, 'bytes' => bytes,
+      'referer' => referer, 'browser' => browser, 'isPage' => isPage}
+  end
+
+end
+

data/lib/MainWindow.rb

@@ -0,0 +1,627 @@
+#
+# MainWindow.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: MainWindow.rb 10 2006-01-23 14:29:58Z cs $
+#
+
+require 'Qt'
+require 'time'
+require 'GlobalSettings'
+require 'GeoLocator'
+require 'DNSResolver'
+require 'MainWindowDlg'
+require 'LogFileSelector'
+require 'About'
+require 'ServerLogSettings'
+require 'VisitorInformation'
+require 'PageInformation'
+require 'RefererInformation'
+require 'LogParser'
+require 'HitRecord'
+require 'VisitorRecord'
+require 'PageRecord'
+require 'RefererRecord'
+require 'StatusCode'
+require 'OccurenceCounter'
+require 'Configuration'
+require 'GeoDistView'
+require 'BrowserLauncher'
+require 'CSListView'
+
+PurgeInterval = 20
+
+class MainWindow < MainWindowDlg
+
+  include BrowserLauncher
+
+  slots 'update()', 'updateTab(QWidget*)', 'clearVisitorFilter()',
+        'clearPageFilter()', 'clearRefererFilter()',
+        'recentHostClicked(QListViewItem*)',
+        'topPageClicked(QListViewItem*)',
+        'topRefererClicked(QListViewItem*)',
+        'hostClicked(QListViewItem*)',
+        'pageClicked(QListViewItem*)',
+        'refererClicked(QListViewItem*)',
+        'tabChanged(QWidget*)'
+
+  def initialize(parent = nil, name = nil)
+    super
+    init
+    $windowList = []
+    $windowList.push(self)
+    @log = LogParser.new
+    @nextPurge = Time.now + PurgeInterval
+
+    @currentGDV = GeoDistView.new(@currentMapFrame, currentCountryList)
+
+    @hostListCSLV = CSListView.new(@hostList)
+    # Setup the columns of the "Current Status" list view
+    @hostList.setSorting(2, false)
+    @hostListCSLV.setColumnWidth(0, 300)
+    @hostListCSLV.setColumnWidth(3, 450)
+    @hostListCSLV.setColumnWidth(4, 120)
+    @hostListCSLV.setColumnWidth(5, 200)
+
+    @topPageListCSLV = CSListView.new(topPageList)
+    # Setup the columns of the "Top Pages" list view
+    @topPageList.setSorting(1, false)
+    @topPageListCSLV.setColumnWidth(0, 500)
+
+    @topRefererListCSLV = CSListView.new(topRefererList)
+    # Setup the columns of the "Top Referers" list view
+    @topRefererList.setSorting(1, false)
+    @topRefererListCSLV.setColumnWidth(0, 500)
+
+    @visitorGDV = GeoDistView.new(@visitorMapFrame, @visitorCountryList)
+    @fullHostListCSLV = CSListView.new(@fullHostList)
+    # Setup the columns of the "Visitors" list view
+    @fullHostList.setSorting(2, false)
+    @fullHostListCSLV.setColumnWidth(0, 300)
+    @fullHostListCSLV.setColumnWidth(3, 450)
+
+    @visitorWorldMap = nil
+
+    @pageListCSLV = CSListView.new(@pageList)
+    # Setup the columns of the "Pages" list view
+    @pageList.setSorting(1, false)
+    @pageListCSLV.setColumnWidth(0, 500)
+
+    @refererListCSLV = CSListView.new(@refererList)
+    # Setup the columns on the "Referer" list view
+    @refererList.setSorting(1, false)
+    @refererListCSLV.setColumnWidth(0, 500)
+
+    @statusCodeListCSLV = CSListView.new(@statusCodeList)
+    # Setup the columns of the "Status Code" list view
+    @statusCodeList.setSorting(0, true)
+
+    @hitListCSLV = CSListView.new(@hitList)
+    # Setup the columns of the "Hit" list view
+    @hitList.setSorting(0, false)
+
+    connect(@tabWidget, SIGNAL('currentChanged(QWidget*)'),
+            SLOT('tabChanged(QWidget*)'))
+    connect(@hostList, SIGNAL('clicked(QListViewItem*)'),
+            SLOT('recentHostClicked(QListViewItem*)'))
+    connect(@topPageList, SIGNAL('clicked(QListViewItem*)'),
+            SLOT('topPageClicked(QListViewItem*)'))
+    connect(@topRefererList, SIGNAL('clicked(QListViewItem*)'),
+            SLOT('topRefererClicked(QListViewItem*)'))
+    connect(@fullHostList, SIGNAL('clicked(QListViewItem*)'),
+            SLOT('hostClicked(QListViewItem*)'))
+    connect(@pageList, SIGNAL('clicked(QListViewItem*)'),
+            SLOT('pageClicked(QListViewItem*)'))
+    connect(@refererList, SIGNAL('clicked(QListViewItem*)'),
+            SLOT('refererClicked(QListViewItem*)'))
+
+    connect(@clearVisitorFilterBtn, SIGNAL('clicked()'),
+            SLOT('clearVisitorFilter()'))
+    connect(@clearPageFilterBtn, SIGNAL('clicked()'),
+            SLOT('clearPageFilter()'))
+    connect(@clearRefererFilterBtn, SIGNAL('clicked()'),
+            SLOT('clearRefererFilter()'))
+    connect(@tabWidget, SIGNAL('currentChanged(QWidget*)'),
+            SLOT('updateTab(QWidget*)'))
+
+    @updateTimer = Qt::Timer.new(self)
+    connect(@updateTimer, SIGNAL('timeout()'), SLOT('update()'))
+    @updateTimer.start(500)
+
+    if $globals.getSetting("MainWindowW") > 0 &&
+       $globals.getSetting("MainWindowH") > 0
+      resize($globals.getSetting("MainWindowW"),
+             $globals.getSetting("MainWindowH"))
+    end
+
+    setMonitorWindow($globals.getSetting("MonitorWindow"))
+    @showRegularPages.setOn($globals.getSetting("ShowRegularPages") != 0)
+    @showAuxPages.setOn($globals.getSetting("ShowAuxPages") != 0)
+    @showSurfers.setOn($globals.getSetting("ShowSurfers") != 0)
+    @showRobots.setOn($globals.getSetting("ShowRobots") != 0)
+
+    updateWindow()
+    show
+  end
+
+  def init
+    $hitRecords = []
+    $visitors = {}
+    $pages = {}
+    $referers = {}
+    $statusCodes = {}
+    $recentVisitors = OccurenceCounter.new(50)
+    $recentPages = OccurenceCounter.new(30)
+    $recentReferers = OccurenceCounter.new(15)
+  end
+
+  def close(dummy)
+    @visitorWorldMap.close(true) if @visitorWorldMap
+    @visitorWorldMap = nil
+
+    $resolver.stopAndSave
+    $geoLocator.stopAndSave
+    $traceRouter.stopAndSave
+
+    $windowList.delete(self)
+    $globals.setSetting("MainWindowW", width())
+    $globals.setSetting("MainWindowH", height())
+    #$globals.currentStatusSplitter = @currentStatusSplitter.sizes()
+    $globals.saveSettings()
+    super(true)
+  end
+
+  def tabChanged(dummy)
+    # Some pages generate excessive requests when started with a large
+    # fresh log file. These requests are discarded when the requesting
+    # page is no longer viewed.
+    $resolver.flushQueue
+    $geoLocator.flushQueue
+    $traceRouter.flushQueue
+  end
+
+  def fileExit()
+    close(true)
+  end
+
+  def setMonitorWindow(duration)
+    actionList = { 1 => @mw_1, 2 => @mw_2, 5 => @mw_5, 10 => @mw_10,
+                   20 => @mw_20, 30 => @mw_30, 60 => @mw_60, 120 => @mw_120 }
+    actionList.each_value { |a| a.setOn(false) }
+    actionList[duration].setOn(true)
+    $globals.setSetting("MonitorWindow", duration)
+  end
+
+  def newLog()
+    settings = GSServerLogSettings.new
+    if ServerLogSettings.new(settings, self).exec() == Qt::Dialog.Accepted
+      $globals.addServerLogFile(settings)
+    end
+  end
+
+  def openLog()
+    $windowList.each { |w| w.close unless w == self }
+    init
+    $globals.currentLogFile = nil
+  end
+
+  def mw_1()
+    setMonitorWindow(1)
+  end
+
+  def mw_2()
+    setMonitorWindow(2)
+  end
+
+  def mw_5()
+    setMonitorWindow(5)
+  end
+
+  def mw_10()
+    setMonitorWindow(10)
+  end
+
+  def mw_20()
+    setMonitorWindow(20)
+  end
+
+  def mw_30()
+    setMonitorWindow(30)
+  end
+
+  def mw_60()
+    setMonitorWindow(60)
+  end
+
+  def mw_120()
+    setMonitorWindow(120)
+  end
+
+  def showRegularPages()
+    $globals.setSetting("ShowRegularPages", @showRegularPages.isOn() ? 1 : 0)
+  end
+
+  def showAuxPages()
+    $globals.setSetting("ShowAuxPages", @showAuxPages.isOn() ? 1 : 0)
+  end
+
+  def showSurfers()
+    $globals.setSetting("ShowSurfers", @showSurfers.isOn() ? 1 : 0)
+  end
+
+  def showRobots()
+    $globals.setSetting("ShowRobots", @showRobots.isOn() ? 1 : 0)
+  end
+
+  def configureClickSpotter()
+    Configuration.new(self).exec
+  end
+
+  def about()
+    dlg = About.new
+    dlg.aboutVersion.text = dlg.aboutVersion.text.gsub(/X\_X\_X/, AppConfig.version)
+    dlg.aboutVersion.text = dlg.aboutVersion.text.gsub(/APP\_NAME/, AppConfig.name)
+    dlg.caption = dlg.caption.sub(/APP\_NAME/, AppConfig.name)
+    dlg.exec
+  end
+
+  def update()
+    # Avoid recursive calls in case this function takes a little
+    # longer
+    @updateTimer.stop()
+
+    # Delete outdated records
+    purgeRecords
+
+    # Before we process the log file we need to make sure that we have any log
+    # file definitions. If not, we open the appropriate configuration dialog.
+    newLog if $globals.serverLogFiles.empty?
+
+    until $globals.logFile
+      dlg = LogFileSelector.new(self)
+      if dlg.exec == Qt::Dialog.Rejected
+        close(true)
+        return
+      end
+      $globals.currentLogFile = dlg.selectedLogFile
+    end
+    @log.setFileName($globals.logFile)
+    setCaption("#{$globals.currentLogFile.name} - #{AppConfig.name} " +
+        "#{AppConfig.version}")
+
+    processLog
+    updateWindows
+    updateStatusBar
+    @updateTimer.start(5000)
+  end
+
+  def processLog
+    deadline = Time.now - $globals.getSetting('LogFileDataTimeout') * 60 * 60
+
+    begin
+      while (rec = @log.getNextEntry(deadline)) != nil
+        next if rec['url'] == nil
+
+        # Store hit record
+        hr = HitRecord.new(rec)
+        $hitRecords.push(hr)
+
+        # Create or update status code record
+        code = rec['code']
+        if $statusCodes[code] == nil
+          sc = StatusCode.new(code)
+          $statusCodes[code] = sc
+        else
+          sc = $statusCodes[code]
+        end
+        sc.addHit(hr)
+
+        # Create or update page record
+        url = rec['url']
+        if $pages[url] == nil
+          p = PageRecord.new(url, rec['isPage'])
+          $pages[url] = p
+        else
+          p = $pages[url]
+        end
+        p.addHit(hr)
+        $recentPages.push(p)
+
+        # Create or update referer record
+        referer = rec['referer']
+        if referer
+          if $referers[referer] == nil
+            r = RefererRecord.new(referer)
+            $referers[referer] = r
+          else
+            r = $referers[referer]
+          end
+          r.addHit(hr)
+          if r.external?
+            $recentReferers.push(r)
+          else
+            # For internal pages we track the number of referrals to
+            # other internal pages
+            if $pages.has_key?(referer)
+              $pages[referer].addReferral(rec['url'])
+            end
+          end
+        end
+
+        # Create or update visitor record
+        key = rec['ip'] + "|" + rec['browser']
+        if $visitors[key] == nil
+          v = VisitorRecord.new(rec['ip'], rec['browser'])
+          $visitors[key] = v
+        else
+          v = $visitors[key]
+        end
+        v.addHit(hr)
+        v.robot = $globals.isRobot(rec['ip'], rec['browser'], rec['url'])
+        $recentVisitors.push(v)
+
+      end
+    rescue SystemCallError
+      Qt::MessageBox.warning(self, "Opening log file failed!", "#{$!}",
+          Qt::MessageBox.Ok, 0)
+      openLog
+    end
+  end
+
+  def purgeRecords
+    return unless Time.now > @nextPurge
+
+    deadline = Time.now - $globals.getSetting("LogFileDataTimeout") * 60 * 60
+    $visitors.each do |id, v|
+      if v.purge(deadline)
+        $recentVisitors.delete(v)
+        $visitors.delete(id)
+      end
+    end
+
+    $referers.each do |url, r|
+      if r.purge(deadline)
+        $recentReferers.delete(r)
+        $referers.delete(url)
+      end
+    end
+
+    deletedPages = {}
+    $pages.each do |url, p|
+      deletedPages[url] = p if p.purge(deadline)
+    end
+    $pages.each do |url, p|
+      p.purgeNextPages(deletedPages.values)
+    end
+    deletedPages.each_key do |u|
+      $recentPages.delete($pages.delete(u))
+    end
+
+    $statusCodes.each do |c, h|
+      $statusCodes.delete(c) if h.purge(deadline)
+    end
+
+    $hitRecords.delete_if { |h| h.timeStamp < deadline }
+
+    @nextPurge = Time.now + PurgeInterval
+  end
+
+  def updateWindows
+    $windowList.each do |win|
+      win.updateWindow
+    end
+  end
+
+  def updateTab(w)
+    updateWindow
+  end
+
+  def updateWindow
+    funcs = [ method(:updateRecent), method(:updateVisitors),
+              method(:updatePages), method(:updateReferers),
+        method(:updateCodes) ]
+    funcs[@tabWidget.currentPageIndex()].call()
+
+    @visitorWorldMap.update($visitors) if @visitorWorldMap
+  end
+
+  def updateRecent
+
+    @hostListCSLV.startUpdate
+    deadline = Time.now().localtime() -
+      $globals.getSetting("MonitorWindow") * 60
+    showSurfers = $globals.getSetting("ShowSurfers") != 0
+    showRobots = $globals.getSetting("ShowRobots") != 0
+    visitors = {}
+    $recentVisitors.each do |v, count|
+      if v == nil ||
+         (v.robot != nil && !showRobots) ||
+         (v.robot == nil && !showSurfers) ||
+          v.lastHit.timeStamp < deadline
+        next
+      end
+
+      visitors[v.ip] = v
+
+      if (!@currentGDV.selectedItems.empty? &&
+          @currentGDV.selectedItems[v.country] == nil)
+        next
+      end
+      @hostListCSLV.insertItem(v, v.host(), v.hitCount(), v.pageCount(),
+                               v.lastPage ? v.lastPage.url() : '', v.ip(),
+                               v.browser())
+    end
+    @hostListCSLV.finishUpdate
+
+    @currentGDV.update(visitors)
+    @topPageListCSLV.startUpdate
+    showRegularPages = $globals.getSetting("ShowRegularPages") != 0
+    showAuxPages = $globals.getSetting("ShowAuxPages") != 0
+    $recentPages.each do |p, count|
+      if p == nil || p.lastHit == nil || p.lastHit.timeStamp < deadline ||
+         (p.isPage && !showRegularPages) ||
+         (!p.isPage && !showAuxPages)
+        next
+      end
+      @topPageListCSLV.insertItem(p, p.url, count, p.lastHit.bytes * count)
+    end
+    @topPageListCSLV.finishUpdate
+
+    @topRefererListCSLV.startUpdate
+    $recentReferers.each do |r, count|
+      next if r == nil || r.lastHit == nil || r.lastHit.timeStamp < deadline
+      @topRefererListCSLV.insertItem(r, r.url, count, r.lastHit.bytes * count)
+    end
+    @topRefererListCSLV.finishUpdate
+  end
+
+  def updateVisitors
+    @visitorGDV.update($visitors)
+    @fullHostListCSLV.startUpdate
+    showSurfers = $globals.getSetting("ShowSurfers") != 0
+    showRobots = $globals.getSetting("ShowRobots") != 0
+    $visitors.each_value do |visitor|
+      if (!@visitorFilter.text().empty? &&
+          !(Regexp.new(@visitorFilter.text()) =~ visitor.host)) ||
+         (visitor.robot != nil && !showRobots) ||
+         (visitor.robot == nil && !showSurfers) ||
+         (!@visitorGDV.selectedItems.empty? &&
+          @visitorGDV.selectedItems[visitor.country] == nil)
+        next
+      end
+      @fullHostListCSLV.insertItem(visitor, visitor.host, visitor.hitCount,
+        visitor.pageCount, visitor.lastPage ? visitor.lastPage.page.url : '',
+        visitor.lastHit.timeStamp, visitor.ip, visitor.browser)
+    end
+    @fullHostListCSLV.finishUpdate
+  end
+
+  def updatePages
+    @pageListCSLV.startUpdate
+    showRegularPages = $globals.getSetting("ShowRegularPages") != 0
+    showAuxPages = $globals.getSetting("ShowAuxPages") != 0
+    $pages.each do |url, page|
+      if !@pageFilter.text().empty? &&
+         !(Regexp.new(@pageFilter.text()) =~ url) ||
+         (page.isPage && !showRegularPages) ||
+         (!page.isPage && !showAuxPages)
+        next
+      end
+      @pageListCSLV.insertItem(page, url, page.hitCount, page.entryCount,
+                               page.exitCount);
+    end
+    @pageListCSLV.finishUpdate
+  end
+
+  def updateReferers
+    @refererListCSLV.startUpdate
+    $referers.each do |url, referer|
+      if !referer.external? ||
+         (!@refererFilter.text().empty? &&
+          !(Regexp.new(@refererFilter.text()) =~ url))
+        next
+      end
+      @refererListCSLV.insertItem(referer, url, referer.hitCount)
+    end
+    @refererListCSLV.finishUpdate
+  end
+
+  def updateCodes
+    @statusCodeListCSLV.startUpdate
+    $statusCodes.each do |code, rec|
+      @statusCodeListCSLV.insertItem(code, code, rec.description,
+                                     rec.hitCount, 0)
+    end
+    @statusCodeListCSLV.finishUpdate
+
+    @hitListCSLV.startUpdate
+    $hitRecords.each do |hit|
+      next if @statusCodeListCSLV.selectedItems[hit.code] == nil
+      @hitListCSLV.insertItem(hit, hit.timeStamp, hit.code,
+                              hit.visitor.host, hit.request,
+                              hit.referer ? hit.referer.url : '')
+    end
+    @hitListCSLV.finishUpdate
+  end
+
+  def updateStatusBar
+    now = Time.now()
+    i = $hitRecords.length() - 1
+    pages = 0
+    bytes = 0
+    while (i > 0) and ($hitRecords[i].timeStamp > Time.now().localtime() - 60)
+      i -= 1
+      bytes += $hitRecords[i].bytes
+      pages += 1 if $hitRecords[i].page.isPage
+    end
+    statusBar().message("Hits: #{$hitRecords.length() - 1 - i}/min  " +
+                        "Pages: #{pages}/min " +
+                        "Traffic: #{bytes / 60} kBytes/s      " +
+                        "Queues (D/G/T): #{$resolver.queueSize}/" +
+                                        "#{$geoLocator.queueSize}/" +
+                                        "#{$traceRouter.queueSize}")
+  end
+
+  def clearVisitorFilter()
+    @visitorFilter.setText("")
+    updateVisitors
+  end
+
+  def clearPageFilter()
+    @pageFilter.setText("")
+    updatePages
+  end
+
+  def clearRefererFilter()
+    @refererFilter.setText("")
+    updateReferers
+  end
+
+  def recentHostClicked(item)
+    return if item == nil
+    visitor = $visitors[item.text(4) + "|" + item.text(5)]
+    VisitorInformation.new(visitor)
+  end
+
+  def topPageClicked(item)
+    return if item == nil
+    PageInformation.new($pages[item.text(0)])
+  end
+
+  def topRefererClicked(item)
+    return if item == nil
+    RefererInformation.new($referers[item.text(0)])
+  end
+
+  def hostClicked(item)
+    return if item == nil
+    visitor = $visitors[item.text(5) + "|" + item.text(6)]
+    VisitorInformation.new(visitor)
+  end
+
+  def largeVisitorMapBtnClicked
+    @visitorWorldMap.close(true) if @visitorWorldMap
+
+    @visitorWorldMap = WorldMap.new(self)
+  end
+
+  def worldMapClosed
+    @visitorWorldMap = nil
+  end
+
+  def pageClicked(item)
+    return if item == nil
+    PageInformation.new($pages[item.text(0)])
+  end
+
+  def refererClicked(item)
+    return if item == nil
+    RefererInformation.new($referers[item.text(0)])
+  end
+
+end
+