view release on metacpan or  search on metacpan

Usertrack.pm  view on Meta::CPAN

$Apache::Usertrack::revision = sprintf("%d.%02d", q$Revision: 1.2 $ =~ /(\d+)\.(\d+)/o);
$Apache::Usertrack::VERSION = '0.03';

sub make_cookie {
  my $r = shift;
  my $remotename = $r->connection->remote_host || $r->connection->remote_ip;
  my ($secs, $msecs) = Time::HiRes::gettimeofday;
  $msecs /= 1000;
  my $cookie = "Apache=$remotename.$$"."$secs$msecs; path=/";
  $r->notes("cookie", $cookie);
  $r->err_headers_out->add("Set-Cookie" => $cookie);
  return OK;
}
 
sub handler {
  my $r = shift;
  return DECLINED unless ($r->dir_config('Usertrack'));
  if (my $cookies = $r->header_in("Cookie")) {
	if (my $cookie = ($cookies =~ m/Apache=([^\s;]+)/)[0]) {
	  $r->notes("cookie", $cookie);
	  return DECLINED;  # Theres already a cookie, no new one
	}
  }
  return make_cookie($r);
}

1;