Perl spies on a sniffer

Always an Event

In contrast, the event database table stores the timeline for the events snapped up by the Zeitgeist daemon. The SQL query in Figure 5 retrieves a few recent sample records of events along with their matching timestamps. Numeric indexes are used to reference other tables, for example, uri, in which the index is mapped to a text entry.

Figure 5: The event table contains logged actions with timestamps and references to data in other tables.

The timestamp format used by Zeitgeist in the timestamp column, however, is not one that is directly supported by SQLite; instead, it gives you the Unix time since 1970 in seconds, followed by three more digits that give you thousandths of seconds.

Listing 2 extracts the desktop actions for the last 12 hours from the event table. It needs to convert the Zeitgeist date in the SQL command it sends as follows

Listing 2

apps-recent

 

date(substr(timestamp,1,10),'unixepoch')

into SQLite format. With this in place, it can easily compare the recorded timestamps with the time window defined in the SQLite dialect in the form of a handy date('now', '-12 hours') expression.

The while loop as of line 22 processes all result records and accumulates the application URLs in the %apps hash. The for loop as of line 28 then groups the entries in descending order by counter status and outputs the results.

Figure 6 shows the output from Listing 2; it seems that an xterm window was opened 18 times in the period under review, and that I created a total of six screenshots.

Figure 6: How often did the user call which applications in the past six hours?

Monitoring Time Clock

How much work did the user put in during the past 24 hours? Did the user just click around on the desktop? Listing 3 discovers such things by searching through the event activity table for the previous day's entries and incrementing a counter for each hour by one if a desktop event occurred in the time slot.

Listing 3

last-24-hours

 

Burning the Midnight Oil

The %activity hash in line 28 increments by one if an event occurs within a specific hour. Finally, the while loop in lines 36-41 only needs to count up hour by hour from the previous day's date to the present and output the events using printf.

The output in Figure 7 confirms that the user only worked between 7pm and 11pm – true to the motto that "lazy people get busy at night." Or, maybe it was because the not-so-lazy user was working hard all day at the office and then sat down at their home computer in the evening to compose an article for Linux Pro Magazine?

Figure 7: Events on the desktop for the past 24 hours.

Infos

  1. Zeitgeist project on Launchpad: https://launchpad.net/zeitgeist
  2. Listings for this article: ftp://ftp.linux-magazine.com/pub/listings/magazine/176 IE:

The Author

Mike Schilli works as a software engineer in the San Francisco Bay Area. He can be contacted at mailto:mschilli@perlmeister.com. Mike's homepage can be found at http://perlmeister.com.

Buy this article as PDF

Express-Checkout as PDF
Price $2.95
(incl. VAT)

Buy Linux Magazine

SINGLE ISSUES
 
SUBSCRIPTIONS
 
TABLET & SMARTPHONE APPS
Get it on Google Play

US / Canada

Get it on Google Play

UK / Australia

Related content

  • Gran Canaria: GNOME Zeitgeist Tracks What You've Done

    "Where are the notes I took online while at the library Tuesday night?" A question such as this might be best answered by the likes of GNOME Zeitgeist.

  • Gnome Zeitgeist with New User Interface

    The tracker daemon Gnome Activity Journal called Zeitgeist has a new user interface.

  • First Developer Version of GNOME Activity Journal

    Following over a year's worth of work the GNOME Activity Journal now appears in its first developer version, 0.3.2. The Zeitgeist framework it uses assumes the same version number.

  • Perl: Daily Tip

    When tackling something complex, such as a foreign language or Vim commands, digesting small bits of knowledge might be more effective than consuming a super-sized meal of information. This month’s Perl column gives you a method of serving up knowledge snippets by email.

  • Perl: Slurping Kindle Highlights

    On the Amazon Kindle eBook reader, you can save personal clippings, or “highlights,” in a file; later, you can connect the Kindle to a USB port on a Linux machine and grab the data with a Perl script that stores it in a database.

comments powered by Disqus

Direct Download

Read full article as PDF:

Price $2.95

News