view release on metacpan or  search on metacpan

lib/Zonemaster/GUI/Dancer/Frontend.pm  view on Meta::CPAN

};

get '/parent' => sub {
    my $result = $client->get_data_from_parent_zone( param( 'domain' ) );
    content_type 'application/json';
    return to_json( { result => $result } );
};

sub get_ip {
    my $ip = request->address;
    $ip = request->header('X-Forwarded-For') if (($ip =~ /127\.0\.0\.1/ || $ip =~ /::1/) && request->header('X-Forwarded-For'));
    $ip =~ s/::ffff:// if ( $ip =~ /::ffff:/ );
    
    return $ip;
}

get '/version' => sub {
    my $data = $client->version_info( {} );
    my $ip = get_ip();
    content_type 'application/json';
    my $version;