X-Forwarded-For results from the CPAN

Rex-Endpoint-HTTP

view release on metacpan or search on metacpan

lib/Rex/Endpoint/HTTP/Mojolicious/Plugin/Auth.pm view on Meta::CPAN


#
# HTTP Header
#
# Apache:
# X-Forwarded-For -> $IP/$NAME

use strict;
use warnings;

use base qw(Mojolicious::Plugin);

view all matches for this distribution

SPVM-HTTP-Tiny

1 match

view release on metacpan or search on metacpan

lib/SPVM/HTTP/Tiny/Transaction.spvm view on Meta::CPAN

    
    unless ($self->req->reverse_proxy) {
      return $self->original_remote_address;
    }
    
    my $x_forwarded_for = $self->req->headers->header("X-Forwarded-For");
    unless ($x_forwarded_for) {
      $x_forwarded_for = "";
    }
    
    my $addrs   = Re->split("\s*,\s*", $x_forwarded_for);

lib/SPVM/HTTP/Tiny/Transaction.spvm view on Meta::CPAN


  return $self->original_remote_address(@_) if @_;
  return $self->original_remote_address unless $self->req->reverse_proxy;

  # Reverse proxy
  my @addrs   = split /\s*,\s*/, ($self->req->headers->header('X-Forwarded-For') // '');
  my $trusted = $self->req->trusted_proxies;
  return @addrs ? $addrs[-1] : $self->original_remote_address unless @$trusted;

  push @addrs, $self->original_remote_address;
  for my $addr (reverse @addrs) {

lib/SPVM/HTTP/Tiny/Transaction.spvm view on Meta::CPAN


  my $address = $tx->remote_address;
  $tx         = $tx->remote_address('127.0.0.1');

Same as L</"original_remote_address"> unless L</"req"> has been performed via a L<Mojo::Message::Request/reverse_proxy>.
If so then the last value of C<X-Forwarded-For> header is returned. Additionally if
L<Mojo::Message::Request/trusted_proxies> are also provided then the original address must be trusted and any
C<X-Forwarded-For> entries that are trusted are ignored, returning the last untrusted address or the first address if
all are trusted.

=head2 result

  my $res = $tx->result;

view all matches for this distribution

Sisimai

6 results

view release on metacpan or search on metacpan

set-of-emails/maildir/bsd/lhost-qmail-20.eml view on Meta::CPAN

Received: indimail-mta queue 58965 by host email.example.jp
 (invoked by alias); Wed, 26 Jun 2024 15:21:00 +0900
Delivered-To: postmaster@email.example.jp
X-Forwarded-To: kijitora
X-Forwarded-For:
Received: indimail-mta queue 58962 by host email.example.jp
 (invoked for bounce); Wed, 26 Jun 2024 15:21:00 +0900
Date: Wed, 26 Jun 2024 15:21:00 +0900
X-Bounced-Address: <pseudo-local-part-of-each-esp@gmail.com>
From: MAILER-DAEMON@email.example.jp

view all matches for this distribution

Slovo

1 match

view release on metacpan or search on metacpan

domove/localhost/nginx-slovo.conf view on Meta::CPAN

		proxy_pass http://mojo/;
		proxy_http_version 1.1;
		proxy_set_header Upgrade $http_upgrade;
		proxy_set_header Connection "upgrade";
		proxy_set_header Host $host;
		proxy_set_header X-Forwarded-For $proxy_add_x_forwarded_for;
		proxy_set_header X-Forwarded-Proto $scheme;
		proxy_set_header X-Real-IP $remote_addr;
		proxy_set_header X-SSL-User $ssl_client_s_dn;
		proxy_set_header X-SSL-Issuer $ssl_client_i_dn;
		proxy_set_header X-SSL-ServerName $ssl_server_name;

domove/localhost/nginx-slovo.conf view on Meta::CPAN

		proxy_pass http://mojo/;
		proxy_http_version 1.1;
		proxy_set_header Upgrade $http_upgrade;
		proxy_set_header Connection "upgrade";
		proxy_set_header Host $host;
		proxy_set_header X-Forwarded-For $proxy_add_x_forwarded_for;
		proxy_set_header X-Forwarded-Proto $scheme;
		proxy_set_header X-Real-IP $remote_addr;
	}
}

view all matches for this distribution

TableData-CPAN-Release-Static-2021

1 match

view release on metacpan or search on metacpan

share/2021.csv view on Meta::CPAN

Mojo-IOLoop-Subprocess-Sereal-1.002,2021-06-16T03:59:53,DBOOK,latest,released,1.002,,Mojo-IOLoop-Subprocess-Sereal,"Subprocesses with Sereal"
Mojo-Log-Clearable-1.001,2021-06-16T04:03:55,DBOOK,latest,released,1.001,,Mojo-Log-Clearable,"Mojo::Log with clearable log handle"
Mojo-Promise-Role-Futurify-v1.0.1,2021-06-16T04:08:04,DBOOK,latest,released,v1.0.1,,Mojo-Promise-Role-Futurify,"Chain a Future from a Mojo::Promise"
Mojo-Promise-Role-Get-v0.1.3,2021-06-16T04:13:25,DBOOK,latest,released,v0.1.3,,Mojo-Promise-Role-Get,"Wait for the results of a Mojo::Promise"
Mojo-SQLite-3.006,2021-06-16T04:31:22,DBOOK,cpan,released,3.006,,Mojo-SQLite,"A tiny Mojolicious wrapper for SQLite"
Mojolicious-Plugin-ForwardedFor-0.002,2021-06-16T04:43:17,DBOOK,latest,released,0.002,,Mojolicious-Plugin-ForwardedFor,"Retrieve the remote address from X-Forwarded-For"
Mojolicious-Plugin-Future-0.002,2021-06-16T04:46:06,DBOOK,latest,released,0.002,,Mojolicious-Plugin-Future,"use Future in Mojolicious applications"
Mojolicious-Plugin-Log-Any-v1.0.2,2021-06-16T04:50:10,DBOOK,cpan,released,v1.0.2,,Mojolicious-Plugin-Log-Any,"Use other loggers in a Mojolicious application"
Mojolicious-Plugin-Subprocess-1.002,2021-06-16T04:53:03,DBOOK,latest,released,1.002,,Mojolicious-Plugin-Subprocess,"Subprocesses in Mojolicious applications"
Mojolicious-Plugin-TemplateToolkit-0.006,2021-06-16T05:05:58,DBOOK,latest,released,0.006,,Mojolicious-Plugin-TemplateToolkit,"Template Toolkit renderer plugin for Mojolicious"
Mojo-Reactor-Epoll-0.011,2021-06-16T05:08:50,DBOOK,latest,released,0.011,,Mojo-Reactor-Epoll,"epoll backend for Mojo::Reactor"

view all matches for this distribution

TableData-Perl-CPAN-Release-Static-2021

1 match

view release on metacpan or search on metacpan

share/2021.csv view on Meta::CPAN

Mojo-IOLoop-Subprocess-Sereal-1.002,2021-06-16T03:59:53,DBOOK,latest,released,1.002,,Mojo-IOLoop-Subprocess-Sereal,"Subprocesses with Sereal"
Mojo-Log-Clearable-1.001,2021-06-16T04:03:55,DBOOK,latest,released,1.001,,Mojo-Log-Clearable,"Mojo::Log with clearable log handle"
Mojo-Promise-Role-Futurify-v1.0.1,2021-06-16T04:08:04,DBOOK,latest,released,v1.0.1,,Mojo-Promise-Role-Futurify,"Chain a Future from a Mojo::Promise"
Mojo-Promise-Role-Get-v0.1.3,2021-06-16T04:13:25,DBOOK,latest,released,v0.1.3,,Mojo-Promise-Role-Get,"Wait for the results of a Mojo::Promise"
Mojo-SQLite-3.006,2021-06-16T04:31:22,DBOOK,cpan,released,3.006,,Mojo-SQLite,"A tiny Mojolicious wrapper for SQLite"
Mojolicious-Plugin-ForwardedFor-0.002,2021-06-16T04:43:17,DBOOK,latest,released,0.002,,Mojolicious-Plugin-ForwardedFor,"Retrieve the remote address from X-Forwarded-For"
Mojolicious-Plugin-Future-0.002,2021-06-16T04:46:06,DBOOK,latest,released,0.002,,Mojolicious-Plugin-Future,"use Future in Mojolicious applications"
Mojolicious-Plugin-Log-Any-v1.0.2,2021-06-16T04:50:10,DBOOK,cpan,released,v1.0.2,,Mojolicious-Plugin-Log-Any,"Use other loggers in a Mojolicious application"
Mojolicious-Plugin-Subprocess-1.002,2021-06-16T04:53:03,DBOOK,latest,released,1.002,,Mojolicious-Plugin-Subprocess,"Subprocesses in Mojolicious applications"
Mojolicious-Plugin-TemplateToolkit-0.006,2021-06-16T05:05:58,DBOOK,latest,released,0.006,,Mojolicious-Plugin-TemplateToolkit,"Template Toolkit renderer plugin for Mojolicious"
Mojo-Reactor-Epoll-0.011,2021-06-16T05:08:50,DBOOK,latest,released,0.011,,Mojo-Reactor-Epoll,"epoll backend for Mojo::Reactor"

view all matches for this distribution

TableDataBundle-CPAN-Release-Static-Older

7 results

view release on metacpan or search on metacpan

share/2002.csv view on Meta::CPAN

PerlIO-Via-QuotedPrint-0.02,2002-07-09T19:45:58,ELIZABETH,backpan,released,0.02,,PerlIO-Via-QuotedPrint,"PerlIO layer for quoted-printable strings"
PerlIO-Via-MD5-0.02,2002-07-09T19:46:13,ELIZABETH,backpan,released,0.02,1,PerlIO-Via-MD5,"PerlIO layer for creating an MD5 digest of a file"
PHP-Session-0.11,2002-07-09T20:27:30,MIYAGAWA,backpan,released,0.11,,PHP-Session,"read / write PHP session files"
Config-General-2.05,2002-07-09T20:41:01,TLINDEN,backpan,released,2.05,,Config-General,"Generic Config Module"
Mail-Procmailrc-0.96,2002-07-09T22:40:51,SCOTTW,backpan,released,0.96,1,Mail-Procmailrc,"An interface to Procmail recipe files"
Apache-ForwardedFor-0.4,2002-07-10T05:15:45,JLAWRENC,backpan,released,0.4,1,Apache-ForwardedFor,"Re-set remote_ip to incoming client's ip when running mod_perl behind a reverse proxy server. In other words, copy the first IP from X-Forwarded-For head...
POE-Component-Client-HTTP-0.44,2002-07-10T05:32:07,RCAPUTO,backpan,released,0.44,,POE-Component-Client-HTTP,"a HTTP user-agent component"
Imager-Plot-0.07,2002-07-10T07:15:41,ADDI,cpan,released,0.07,,Imager-Plot,"Perl extension for generating fancy graphic plots in color."
PerlIO-via-QuotedPrint-0.03,2002-07-10T07:46:47,ELIZABETH,backpan,released,0.03,1,PerlIO-via-QuotedPrint,"PerlIO layer for quoted-printable strings"
PerlIO-via-Base64-0.03,2002-07-10T07:47:03,ELIZABETH,backpan,released,0.03,1,PerlIO-via-Base64,"PerlIO layer for base64 (MIME) encoded strings"
PerlIO-via-MD5-0.03,2002-07-10T07:47:18,ELIZABETH,backpan,released,0.03,1,PerlIO-via-MD5,"PerlIO layer for creating an MD5 digest of a file"

share/2002.csv view on Meta::CPAN

Data-Taxi-0.91,2002-07-10T23:34:12,MIKO,backpan,released,0.91,,Data-Taxi,"Taint-aware, XML-ish data serialization"
Class-PublicPrivate-0.80,2002-07-10T23:54:05,MIKO,backpan,released,0.80,1,Class-PublicPrivate,"Class with public keys with any name and a separate set of private keys"
POE-Component-Client-DNS-0.94,2002-07-11T03:35:30,RCAPUTO,backpan,released,0.94,,POE-Component-Client-DNS,"a DNS client component"
Log-Log4perl-0.16,2002-07-11T05:56:24,MSCHILLI,backpan,released,0.16,1,Log-Log4perl,"Log4j implementation for Perl"
Net-MySQL-0.06,2002-07-11T07:02:29,OYAMA,backpan,released,0.06,,Net-MySQL,"Pure Perl MySQL network protocol interface."
Apache-ForwardedFor-0.5,2002-07-11T10:33:53,JLAWRENC,latest,released,0.5,,Apache-ForwardedFor,"Re-set remote_ip to incoming client's ip when running mod_perl behind a reverse proxy server. In other words, copy the first IP from X-Forwarded-For header...
Math-BooleanEval-1.00,2002-07-11T12:42:00,MIKO,backpan,released,1.00,,Math-BooleanEval,"Boolean expression parser"
Data-Page-Tied-0.01,2002-07-11T14:30:25,SMUELLER,backpan,released,0.01,1,Data-Page-Tied,"Tied interface for the Data::Page module"
Apache-FileManager-0.13,2002-07-11T14:33:52,PMC,cpan,released,0.13,,Apache-FileManager,"apache mod_perl file manager"
Mail-Audit-Attach-0.90,2002-07-11T15:17:09,CRENZ,backpan,released,0.90,1,Mail-Audit-Attach,"Mail::Audit plugin for attachment handling."
NewsTicker-0.02,2002-07-11T16:03:17,RLZWART,backpan,released,0.02,1,NewsTicker,"Perl extension for blah blah blah"

view all matches for this distribution

TableDataBundle-Perl-CPAN-Release-Static-Older

8 results

view release on metacpan or search on metacpan

share/2002.csv view on Meta::CPAN

PerlIO-Via-QuotedPrint-0.02,2002-07-09T19:45:58,ELIZABETH,backpan,released,0.02,,PerlIO-Via-QuotedPrint,"PerlIO layer for quoted-printable strings"
PerlIO-Via-MD5-0.02,2002-07-09T19:46:13,ELIZABETH,backpan,released,0.02,1,PerlIO-Via-MD5,"PerlIO layer for creating an MD5 digest of a file"
PHP-Session-0.11,2002-07-09T20:27:30,MIYAGAWA,backpan,released,0.11,,PHP-Session,"read / write PHP session files"
Config-General-2.05,2002-07-09T20:41:01,TLINDEN,backpan,released,2.05,,Config-General,"Generic Config Module"
Mail-Procmailrc-0.96,2002-07-09T22:40:51,SCOTTW,backpan,released,0.96,1,Mail-Procmailrc,"An interface to Procmail recipe files"
Apache-ForwardedFor-0.4,2002-07-10T05:15:45,JLAWRENC,backpan,released,0.4,1,Apache-ForwardedFor,"Re-set remote_ip to incoming client's ip when running mod_perl behind a reverse proxy server. In other words, copy the first IP from X-Forwarded-For head...
POE-Component-Client-HTTP-0.44,2002-07-10T05:32:07,RCAPUTO,backpan,released,0.44,,POE-Component-Client-HTTP,"a HTTP user-agent component"
Imager-Plot-0.07,2002-07-10T07:15:41,ADDI,cpan,released,0.07,,Imager-Plot,"Perl extension for generating fancy graphic plots in color."
PerlIO-via-QuotedPrint-0.03,2002-07-10T07:46:47,ELIZABETH,backpan,released,0.03,1,PerlIO-via-QuotedPrint,"PerlIO layer for quoted-printable strings"
PerlIO-via-Base64-0.03,2002-07-10T07:47:03,ELIZABETH,backpan,released,0.03,1,PerlIO-via-Base64,"PerlIO layer for base64 (MIME) encoded strings"
PerlIO-via-MD5-0.03,2002-07-10T07:47:18,ELIZABETH,backpan,released,0.03,1,PerlIO-via-MD5,"PerlIO layer for creating an MD5 digest of a file"

share/2002.csv view on Meta::CPAN

Data-Taxi-0.91,2002-07-10T23:34:12,MIKO,backpan,released,0.91,,Data-Taxi,"Taint-aware, XML-ish data serialization"
Class-PublicPrivate-0.80,2002-07-10T23:54:05,MIKO,backpan,released,0.80,1,Class-PublicPrivate,"Class with public keys with any name and a separate set of private keys"
POE-Component-Client-DNS-0.94,2002-07-11T03:35:30,RCAPUTO,backpan,released,0.94,,POE-Component-Client-DNS,"a DNS client component"
Log-Log4perl-0.16,2002-07-11T05:56:24,MSCHILLI,backpan,released,0.16,1,Log-Log4perl,"Log4j implementation for Perl"
Net-MySQL-0.06,2002-07-11T07:02:29,OYAMA,backpan,released,0.06,,Net-MySQL,"Pure Perl MySQL network protocol interface."
Apache-ForwardedFor-0.5,2002-07-11T10:33:53,JLAWRENC,latest,released,0.5,,Apache-ForwardedFor,"Re-set remote_ip to incoming client's ip when running mod_perl behind a reverse proxy server. In other words, copy the first IP from X-Forwarded-For header...
Math-BooleanEval-1.00,2002-07-11T12:42:00,MIKO,backpan,released,1.00,,Math-BooleanEval,"Boolean expression parser"
Data-Page-Tied-0.01,2002-07-11T14:30:25,SMUELLER,backpan,released,0.01,1,Data-Page-Tied,"Tied interface for the Data::Page module"
Apache-FileManager-0.13,2002-07-11T14:33:52,PMC,cpan,released,0.13,,Apache-FileManager,"apache mod_perl file manager"
Mail-Audit-Attach-0.90,2002-07-11T15:17:09,CRENZ,backpan,released,0.90,1,Mail-Audit-Attach,"Mail::Audit plugin for attachment handling."
NewsTicker-0.02,2002-07-11T16:03:17,RLZWART,backpan,released,0.02,1,NewsTicker,"Perl extension for blah blah blah"

view all matches for this distribution

Text-Summarizer

1 match

view release on metacpan or search on metacpan

articles/102.html view on Meta::CPAN

<br />
&hellip; including but not limited to Data Compression for mobile Chrome users, Google website previews, Google Translate, and Google Mobilizer just to name a few.<br />
<br />
Here&rsquo;s what you need to know about Google proxies and ClickMagick&rsquo;s auditing system &hellip;<br />
<br />
Any time an end-user&rsquo;s request is routed through Google&rsquo;s proxies for any reason, Google adds an &ldquo;X-Forwarded-For&rdquo; header to the HTTP request which contains the user&rsquo;s actual IP address.<br />
<br />
This allows ClickMagick to grab the user&rsquo;s actual IP address and process the click correctly, even though the request came from one of Google&rsquo;s proxy servers.<br />
<br />
On the other hand, if a Google proxy request does not contain a valid &ldquo;X-Forwarded-For&rdquo; header that means the request did not come from a real user, but rather it came from one of Google&rsquo;s automated systems i.e. a &ldquo;bot.&rdquo;...
<br />
You can identify these requests in your ClickMagick logs because the hostname for such a request will always start with &ldquo;google-proxy.&rdquo;<br />
<br />
If you want us to take a look at a particular flagged IP, please report the details to us as outlined below.<br />
<br />

view all matches for this distribution

WWW-Suffit-API

1 match

view release on metacpan or search on metacpan

lib/WWW/Suffit/API.pm view on Meta::CPAN

Used for deleting objects

=head2 IP ADDRESS

The public IP address of your application is automatically used as the client IP address for your request.
The API supports the standard C<X-Forwarded-For> HTTP header to forward the originating client's IP address
if your application is behind a proxy server or acting as a sign-in portal or gateway.

B<Note:> The public IP address of your trusted web application must be a part of the allowlist in your
org's network security settings as a trusted proxy to forward the user agent's original IP address
with the C<X-Forwarded-For> HTTP header.

=head2 ERRORS

All successful requests return a 200 status if there is content to return or a 204 status
if there is no content to return.

view all matches for this distribution

WWW-Suffit-Plugin-CommonHelpers

1 match

view release on metacpan or search on metacpan

lib/WWW/Suffit/Plugin/CommonHelpers.pm view on Meta::CPAN

sub _client_ip {
    my $self = shift;
    my $trustedproxies = shift;
    $self->req->trusted_proxies($trustedproxies)
        if defined($trustedproxies) && is_array_ref($trustedproxies) && $self->req->can("trusted_proxies");
    return $self->tx->remote_address; # X-Forwarded-For
}
sub _base_url {
    my $self = shift;
    my $base_url = $self->req->url->base->path_query('/')->to_string // '';
       $base_url =~ s/\/+$//;

view all matches for this distribution

WWW-Suffit-Server

1 match

view release on metacpan or search on metacpan

lib/WWW/Suffit/Server.pm view on Meta::CPAN

    TrustedProxy  172.16.0.0/12
    TrustedProxy  192.168.0.0/16
    TrustedProxy  fc00::/7

Trusted reverse proxies, addresses or networks in C<CIDR> form.
The real IP address takes from C<X-Forwarded-For> header

B<NOTE!> This is a multiple directive

Default: All reverse proxies will be passed

view all matches for this distribution

WebService-Fastly

10 results

view release on metacpan or search on metacpan

lib/WebService/Fastly/LoggingDatadogApi.pm view on Meta::CPAN

# @param string $service_id Alphanumeric string identifying the service. (required)
# @param int $version_id Integer identifying a service version. (required)
# @param string $name The name for the real-time logging configuration. (optional)
# @param string $placement Where in the generated VCL the logging call should be placed. If not set, endpoints with &#x60;format_version&#x60; of 2 are placed in &#x60;vcl_log&#x60; and those with &#x60;format_version&#x60; of 1 are placed in &#x60;v...
# @param string $response_condition The name of an existing condition in the configured endpoint, or leave blank to always execute. (optional)
# @param string $format A Fastly [log format string](https://docs.fastly.com/en/guides/custom-log-formats). Must produce valid JSON that Datadog can ingest.  (optional, default to '{"ddsource":"fastly","service":"%{req.service_id}V","date":"%{begin:%...
# @param int $format_version The version of the custom logging format used for the configured endpoint. The logging call gets placed by default in &#x60;vcl_log&#x60; if &#x60;format_version&#x60; is set to &#x60;2&#x60; and in &#x60;vcl_deliver&#x60...
# @param string $region The region that log data will be sent to. (optional, default to 'US')
# @param string $token The API key from your Datadog account. Required. (optional)
{
    my $params = {

lib/WebService/Fastly/LoggingDatadogApi.pm view on Meta::CPAN

# @param int $version_id Integer identifying a service version. (required)
# @param string $logging_datadog_name The name for the real-time logging configuration. (required)
# @param string $name The name for the real-time logging configuration. (optional)
# @param string $placement Where in the generated VCL the logging call should be placed. If not set, endpoints with &#x60;format_version&#x60; of 2 are placed in &#x60;vcl_log&#x60; and those with &#x60;format_version&#x60; of 1 are placed in &#x60;v...
# @param string $response_condition The name of an existing condition in the configured endpoint, or leave blank to always execute. (optional)
# @param string $format A Fastly [log format string](https://docs.fastly.com/en/guides/custom-log-formats). Must produce valid JSON that Datadog can ingest.  (optional, default to '{"ddsource":"fastly","service":"%{req.service_id}V","date":"%{begin:%...
# @param int $format_version The version of the custom logging format used for the configured endpoint. The logging call gets placed by default in &#x60;vcl_log&#x60; if &#x60;format_version&#x60; is set to &#x60;2&#x60; and in &#x60;vcl_deliver&#x60...
# @param string $region The region that log data will be sent to. (optional, default to 'US')
# @param string $token The API key from your Datadog account. Required. (optional)
{
    my $params = {

view all matches for this distribution

WebService-PayPal-PaymentsAdvanced

1 match

view release on metacpan or search on metacpan

lib/WebService/PayPal/PaymentsAdvanced/Mocker/SilentPOST.pm view on Meta::CPAN


    my $ua = LWP::UserAgent->new(...);
    $ua->post(
        '/silent-post-url',
        $mocker->paypal_success,
        'X-Forwarded-For' => '173.0.81.65'
    );

=head2 paypal_success

Returns a C<HashRef> of POST params which can be used to mock a successful

view all matches for this distribution

XML-FeedLite

1 match

view release on metacpan or search on metacpan

lib/XML/FeedLite.pm view on Meta::CPAN

  if(!$headers) {
    $headers = {};
  }

  if($ENV{HTTP_X_FORWARDED_FOR}) {
    $headers->{'X-Forwarded-For'} ||= $ENV{'HTTP_X_FORWARDED_FOR'};
  }

  for my $url (keys %{$url_ref}) {
    if(ref $url_ref->{$url} ne 'CODE') {
      $DEBUG and print {*STDERR} qq[handler for $url isn't CODE];

lib/XML/FeedLite.pm view on Meta::CPAN

              },
              {
               #########
               # Optional HTTP headers
               #
               'X-Forwarded-For' => 'a.b.c.d',
              });

=head2 statuscodes - Retrieve HTTP status codes for request URLs

  my $code         = $xfl->statuscodes($url);

view all matches for this distribution

XML-LibXML-Proxy

1 match

view release on metacpan or search on metacpan

lib/XML/LibXML/Proxy.pm view on Meta::CPAN

			proxy_cache_valid any 1m;
			proxy_cache_key "$scheme:$proxy_host:$request_uri";
			proxy_pass $scheme://$host$request_uri;
			proxy_set_header Host $http_host;
			proxy_set_header X-Real-IP $remote_addr;
			proxy_set_header X-Forwarded-For $proxy_add_x_forwarded_for;
			proxy_ignore_headers "Set-Cookie";
		}
	}

=head1 AUTHOR

view all matches for this distribution

Zonemaster-GUI

1 match

view release on metacpan or search on metacpan

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

    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;
}

view all matches for this distribution

disbatch

1 match

view release on metacpan or search on metacpan

etc/disbatch/nginx-default.conf-example view on Meta::CPAN


    location / {
        proxy_set_header Host $http_host;
        proxy_set_header X-Forwarded-Host $http_host;
        proxy_set_header X-Real-IP $remote_addr;
        proxy_set_header X-Forwarded-For $proxy_add_x_forwarded_for;
        proxy_pass http://localhost:8080;
    }
}

view all matches for this distribution

mod_perl

4 results

view release on metacpan or search on metacpan

t/hooks/TestHooks/access.pm view on Meta::CPAN

my $allowed_ips = qr{^(10|127)\.};

sub handler {
    my $r = shift;

    my $fake_ip = $r->headers_in->get('X-Forwarded-For') || "";

    debug "access: " . ($fake_ip =~ $allowed_ips ? "OK\n" : "FORBIDDEN\n");

    return Apache2::Const::FORBIDDEN unless $fake_ip =~ $allowed_ips;

view all matches for this distribution