#!/usr/bin/perl -w 
 
use lib '.'; 
use Dashboard; 
use CGI;
my ($data, $type);
my $dash = new Dashboard("Test"); 

open(NGREP, "ngrep -wi http|") or die "$!";
while (<NGREP>) {
  my @clues;
  if (/GET.*q=([^&\s]*)/) {  # Google searches
    my $clue = CGI::unescape($1);
    print qq[sending: $clue\n];
    push @clues, { 'data' => $clue, 'type' => 'textblock', 'relevance' => 10, };
  }
  if (/a href=["']([^"']*)/) { # hrefs in documents
    my $clue = CGI::unescape($1);
    print qq[sending: $clue\n];
    push @clues, { 'data' => $clue, 'type' => 'url', 'relevance' => 10, };
  }
  if (@clues) { # send the clue packet
    $dash->send_cluepacket("context", 1, \@clues);
  }
}
close(NGREP);