#!/usr/local/perl5.8.2/bin/perl

# googref.pl - a very quick hack to show all google referrer terms in your
# apache log file - James Powell / Dec 2003

# USAGE: Pipe in log file

use URI::Escape;
use strict;

while (<STDIN>) {
    my $line = $_;
    chomp $line;

    next unless ($line =~ m#200 \d+ "http://www.google#);
    $line =~ /&q=([^"]+)"/;
    my $query = $1;

    # clean it up
    $query= uri_unescape($query);
    $query =~ s/\+/ /g;
    $query = (split /&/, $query)[0];

    next unless ($query =~ /\w/);

    print $query . "\n";
}

exit;