sub get_remote_ip {
  my ($class, $apr) = @_;

  my @ips = split(/\s*,\s*/,  ($apr->header_in('X-Forwarded-For')      
                               || $apr->get_remote_host()   
                               || $apr->connection->remote_ip()));
  return shift @ips;
}