#!/usr/bin/perl -w use strict; use Dataparksearch; print "Content-type: text/html\n\n"; print < Stats EOF # EDIT - ME my $DBAddr = "pgsql://user:passwd\@localhost/search/?dbmode=cache"; # my $search = new Dataparksearch('DBAddr' => $DBAddr); my $stats = $search->GetReferers(); foreach my $line ( @$stats ){ printf(" \n", @$line) } print < EOF # Free all allocations $search->Free(); exit;
URLs and referers
\%d\%s\%s