gistfile1.txt

# /dns/<qtype>/<host>
sub resolve {
    my $self = shift;
    my $qtype = $self->param('qtype');
    my $query = $self->param('query');
    $query =~ s/^\s*//;
    $query =~ s/\s*$//;
    if($qtype eq 'reverse') {
      $qtype = 'ptr';
      if($query =~ /^[0-9a-f:.]+$/) {
        my $ip = new Net::IP($query);
        if($ip) {
          $query = $ip->reverse_ip();
        }
      }
      if($query =~ /^(\d+)\.(\d+)\.(\d+)\.(\d+)$/) {
        $query = "$4.$3.$2.$1.in-addr.arpa";
      }
    }
    my $qdesc = exists $QUERY_DESCRIPTION->{$qtype} ? $QUERY_DESCRIPTION->{$qtype} : uc($qtype);
    $self->app->log->debug("About to render");
    my $cv = AnyEvent->condvar;
    $cv->begin;
    AnyEvent::DNS::resolver->request({
                                      rd => 1,
                                      qd => [[$query, $qtype, 'in']]
                                     }, sub {
                                       my $res = shift;
                                       $self->app->log->debug("In callback");
                                       $self->stash(res => $res, qtype => uc($qtype), qname => $query, qdesc => $qdesc);
                                       $cv->end;
                                     });
    $cv->recv;
    $self->render();
}