File Coverage

script/proxyforurl

Criterion	Covered	Total	%
statement	9	9	100.0
branch			n/a
condition			n/a
subroutine	3	3	100.0
pod			n/a
total	12	12	100.0

#!/usr/bin/env perl
use Mojolicious::Lite;
use NetAddr::IP ();
use Socket 'inet_ntoa';

get '/' => 'index';
get '/pac', [format => [qw(js)]], => 'pac';

get '/gethostbyname' => sub {
  my $c = shift;
  return $c->render(text => "Host missing.", status => 400) unless my $host = $c->param('host');
  return $c->render(text => $host) unless $host =~ /[a-z]/;

  local $! = 0;
  local $? = 0;
  my @addr = gethostbyname($c->param('host'));
  $! ||= $?;
  return $c->render(text => "No IP found: $!", status => 400) if $!;

  @addr = map { inet_ntoa($_) } @addr[4 .. $#addr];
  return $c->render(text => $addr[0]) if @addr;
  return $c->render(text => "No IP found for $host.", status => 400);
  },
  'gethostbyname';

get '/within' => sub {
  my $c    = shift;
  my $ip   = $c->param('ip');
  my $net  = $c->param('net');
  my $mask = $c->param('mask');

  unless (2 == grep { $_ and $_ =~ /[:\.]/ } $ip, $net) {
    return $c->render(text => "IP or Net is missing.", status => 400);
  }
  unless ($mask and $mask =~ /\d/) {
    return $c->render(text => "Mask is invalid or missing.", status => 400);
  }

  $ip  = NetAddr::IP->new($c->param('ip'));
  $net = NetAddr::IP->new(join '/', $net, $mask);
  $c->render(text => $net->contains($ip) ? 1 : 0);
  },
  'within';

hook before_dispatch => sub {
  my $c = shift;
  return unless my $base = $c->req->headers->header('X-Request-Base');
  $c->req->url->base(Mojo::URL->new($base));
};

app->start;

__DATA__