3 require Shiar_Sheet::DB;
4 Shiar_Sheet::DB->connect;
5 } or Abort('Database error', 501, $@);
7 $db->insert(report => {
8 agent => $ENV{HTTP_USER_AGENT},
9 page => $ENV{HTTP_REFERER},
10 address => $ENV{REMOTE_ADDR},
11 history => (map {$_ ? $PLP::read->($_) : undef} $ENV{CONTENT_LENGTH}),