MESSAGE
| DATE | 2020-12-22 |
| FROM | Matthias Peng
|
| SUBJECT | Re: [Hangout - NYLXS] Confused about two development utils
|
From hangout-bounces-at-nylxs.com Sat Dec 26 03:25:41 2020
Return-Path:
X-Original-To: archive-at-mrbrklyn.com
Delivered-To: archive-at-mrbrklyn.com
Received: from www2.mrbrklyn.com (www2.mrbrklyn.com [96.57.23.82])
by mrbrklyn.com (Postfix) with ESMTP id 865B7164081;
Sat, 26 Dec 2020 03:25:41 -0500 (EST)
X-Original-To: hangout-at-www2.mrbrklyn.com
Delivered-To: hangout-at-www2.mrbrklyn.com
Received: by mrbrklyn.com (Postfix, from userid 1000)
id 1B48A16407D; Sat, 26 Dec 2020 03:24:06 -0500 (EST)
Resent-From: Ruben Safir
Resent-Date: Sat, 26 Dec 2020 03:24:05 -0500
Resent-Message-ID: <20201226082405.GT4921-at-www2.mrbrklyn.com>
Resent-To: hangout-at-mrbrklyn.com
X-Original-To: ruben-at-mrbrklyn.com
Delivered-To: ruben-at-mrbrklyn.com
Received: from mxout1-he-de.apache.org (mxout1-he-de.apache.org
[95.216.194.37]) by mrbrklyn.com (Postfix) with ESMTP id 1571D163FD7
for ; Tue, 22 Dec 2020 19:44:20 -0500 (EST)
Received: from mail.apache.org (mailroute1-lw-us.apache.org [207.244.88.153])
by mxout1-he-de.apache.org (ASF Mail Server at
mxout1-he-de.apache.org) with SMTP id 7331766944
for ; Wed, 23 Dec 2020 00:44:18 +0000 (UTC)
Received: (qmail 43495 invoked by uid 500); 23 Dec 2020 00:44:17 -0000
Mailing-List: contact modperl-help-at-perl.apache.org; run by ezmlm
Precedence: bulk
Delivered-To: mailing list modperl-at-perl.apache.org
Received: (qmail 43484 invoked by uid 99); 23 Dec 2020 00:44:16 -0000
Received: from spamproc1-he-de.apache.org (HELO spamproc1-he-de.apache.org)
(116.203.196.100)
by apache.org (qpsmtpd/0.29) with ESMTP; Wed, 23 Dec 2020 00:44:16 +0000
Received: from localhost (localhost [127.0.0.1])
by spamproc1-he-de.apache.org (ASF Mail Server at spamproc1-he-de.apache.org)
with ESMTP id D16FD1FF3A1
for ; Wed, 23 Dec 2020 00:44:15 +0000 (UTC)
X-Virus-Scanned: Debian amavisd-new at spamproc1-he-de.apache.org
X-Spam-Flag: NO
X-Spam-Score: 0
X-Spam-Level:
X-Spam-Status: No, score=0 tagged_above=-999 required=6.31
tests=[DKIM_SIGNED=0.1, DKIM_VALID=-0.1, DKIM_VALID_AU=-0.1,
DKIM_VALID_EF=-0.1, HTML_MESSAGE=0.2, SPF_PASS=-0.001,
URIBL_BLOCKED=0.001] autolearn=disabled
Authentication-Results: spamproc1-he-de.apache.org (amavisd-new);
dkim=pass (2048-bit key) header.d=gmail.com
Received: from mx1-he-de.apache.org ([116.203.227.195])
by localhost (spamproc1-he-de.apache.org [116.203.196.100]) (amavisd-new,
port 10024) with ESMTP id YhjRWM871SAk for ;
Wed, 23 Dec 2020 00:44:15 +0000 (UTC)
Received-SPF: Pass (mailfrom) identity=mailfrom;
client-ip=2607:f8b0:4864:20::242; helo=mail-oi1-x242.google.com;
envelope-from=pengmatthias-at-gmail.com; receiver=
Received: from mail-oi1-x242.google.com (mail-oi1-x242.google.com
[IPv6:2607:f8b0:4864:20::242])
by mx1-he-de.apache.org (ASF Mail Server at mx1-he-de.apache.org) with ESMTPS
id 09BF27F9E1
for ; Wed, 23 Dec 2020 00:44:14 +0000 (UTC)
Received: by mail-oi1-x242.google.com with SMTP id w124so16683496oia.6
for ; Tue, 22 Dec 2020 16:44:14 -0800 (PST)
DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=gmail.com; s=20161025;
h=mime-version:references:in-reply-to:from:date:message-id:subject:to;
bh=LbOTj+gUaj9wfoaDaTxt8taO6mlZ+0tI0kaRTrgPlKw=;
b=Gy5rhey0faZxrLiYm7jmtSK/5wHgT5JlnWZ8LL4+tKvMSIs2Faa26wVeWBq8uMDgiA
djyymiOd6aYdI6lZY9R95+SWvzL5gM1AiU/UYxx3JSsr4ZmEtYQO7FHy2NGQ+OpzYv27
enTVUgRM72u61IndmKMCCMwInVpCyxUMXtE0Zy26Pbmeg60t/kSlKQTIt2Q6f9YXCSeK
/plv1i9R735vQIVtyRiQFNHx1Thhj3l84eH5kRUzJa3lTkldVFT6IALIT/pz/vAuVyFP
wjmyf8zUZ5KwMkD2I93VAIK3nUMrO2wBljMPtU1WGDzJZ8kh6mxrcg0HFzZgLh5jtd8l
CK5w==
X-Google-DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed;
d=1e100.net; s=20161025;
h=x-gm-message-state:mime-version:references:in-reply-to:from:date
:message-id:subject:to;
bh=LbOTj+gUaj9wfoaDaTxt8taO6mlZ+0tI0kaRTrgPlKw=;
b=NKw2vGKlJpwkGmEJe1lcPoDoRcIAwe71lzV84rLukhIuHJSRRlMqCy1DCpllRPI8r8
FCFxfkzgc0vknbxALIWz5auZln+qWV6fHZP5Jwnqw5ouysts3+OamWnk8J5BiW2X3hg7
niZ6XoYjyJvDvvHBSw2J3wMqPUUwSkrZSDgm/T+FOFHGzuQUU3ypRXlrBv4Dj5fC1QqM
eh87G4R6W9j0u8cszIOrSafA9hZz+H2KrltjeB2rPtL1LvWTPoBy0MaxRVP4EmABVZBj
p53e1GAd3yxAqn4iSYXlw5LVFqEXgxhC7tbUh55LLC1MJzLo6RA+0QzqglkH8KQqS3la
kSbQ==
X-Gm-Message-State: AOAM531g66wcoZdPxktWXCpF4DWJvfpao2DRelfth68vdit1zRvvUunP
0oLnYxTGII/ZK+uhKrM3WRu2i1vdSszZBvBDSaGLRunbhsfgC/TOTqc=
X-Google-Smtp-Source: ABdhPJxmlyP8OL3E3tn3idSTpPBuPDUwRMNrqylds4aRXqufNCRXSJkiK7WAtBl7yoAxk9Xefk5sldYFqksxd1/1fSM=
X-Received: by 2002:a54:4815:: with SMTP id j21mr16837307oij.154.1608684248395;
Tue, 22 Dec 2020 16:44:08 -0800 (PST)
MIME-Version: 1.0
References:
In-Reply-To:
From: Matthias Peng
Date: Wed, 23 Dec 2020 08:43:57 +0800
Message-ID:
To: modperl-at-perl.apache.org
Subject: Re: [Hangout - NYLXS] Confused about two development utils
X-BeenThere: hangout-at-nylxs.com
X-Mailman-Version: 2.1.30rc1
List-Id: NYLXS Tech Talk and Politics
List-Unsubscribe: ,
List-Archive:
List-Post:
List-Help:
List-Subscribe: ,
Content-Type: multipart/mixed; boundary="===============0063889854=="
Errors-To: hangout-bounces-at-nylxs.com
Sender: "Hangout"
--===============0063889854==
Content-Type: multipart/alternative; boundary="0000000000002e737d05b716fd1b"
--0000000000002e737d05b716fd1b
Content-Type: text/plain; charset="UTF-8"
I am a newbie to mp development stack.
After one day of work, I have made a simple handler, which returns the
client's address and its PTR record.
The demo:
https://myhostnames.com/
The code shown below:
package MyHostname;
use strict;
use Net::DNS;
use Apache2::RequestRec ();
use Apache2::RequestIO ();
use Apache2::Connection ();
use APR::Table ();
use Apache2::Const -compile => qw(OK FORBIDDEN);
sub handler {
my $r = shift;
my $ip = $r->headers_in->{'CF-Connecting-IP'} ||
$r->connection->client_ip;
my $host = dns_query($ip) || "";
$r->content_type('text/plain; charset=utf-8');
$r->print("Your IP: $ip, Hostname: $host");
return Apache2::Const::OK;
}
sub dns_query {
my $ip = shift;
my $resolver = Net::DNS::Resolver->new();
my $reply = $resolver->query($ip, 'PTR');
if ($reply) {
for my $rr ($reply->answer) {
return $rr->rdstring; # we need only one
}
}
return;
}
1;
Can anyone give your review? Thanks in advance.
Matthias
On Tue, Dec 22, 2020 at 1:49 PM Matthias Peng
wrote:
> Hello
>
> I am developing a simple mp2 application.
> I looked for the installation for mp2 utils, and found this two:
>
> libapache2-mod-perl2
>
> libapache2-mod-apreq2
>
>
> what're their relations? Should I install both, or only the first one?
>
>
> Thanks.
>
--0000000000002e737d05b716fd1b
Content-Type: text/html; charset="UTF-8"
Content-Transfer-Encoding: quoted-printable
I am a newbie to mp development stack. After=C2=A0one =
day of work, I have made a simple handler, which returns the client's a=
ddress and its PTR record. The demo:
v>The code shown below:common-ligatures;color:rgb(0,0,0);font-family:Menlo;font-size:11px">
pan> lor:rgb(0,0,0);font-family:Menlo;font-size:11px">package MyHostname;=
variant-east-asian:normal;font-stretch:normal;font-size:11px;line-height:no=
rmal;font-family:Menlo;color:rgb(0,0,0);min-height:13px">il-s1" style=3D"font-variant-ligatures:no-common-ligatures">
variant-east-asian:normal;font-stretch:normal;font-size:11px;line-height:no=
rmal;font-family:Menlo;color:rgb(0,0,0)">font-variant-ligatures:no-common-ligatures">use strict;
variant-east-asian:normal;font-stretch:normal;font-size:11px;line-height:no=
rmal;font-family:Menlo;color:rgb(0,0,0)">font-variant-ligatures:no-common-ligatures">use Net::DNS;
variant-east-asian:normal;font-stretch:normal;font-size:11px;line-height:no=
rmal;font-family:Menlo;color:rgb(0,0,0)">font-variant-ligatures:no-common-ligatures">use Apache2::RequestRec ();an>
variant-east-asian:normal;font-stretch:normal;font-size:11px;line-height:no=
rmal;font-family:Menlo;color:rgb(0,0,0)">font-variant-ligatures:no-common-ligatures">use Apache2::RequestIO ();n>
variant-east-asian:normal;font-stretch:normal;font-size:11px;line-height:no=
rmal;font-family:Menlo;color:rgb(0,0,0)">font-variant-ligatures:no-common-ligatures">use Apache2::Connection ();an>
variant-east-asian:normal;font-stretch:normal;font-size:11px;line-height:no=
rmal;font-family:Menlo;color:rgb(0,0,0)">font-variant-ligatures:no-common-ligatures">use APR::Table ();
variant-east-asian:normal;font-stretch:normal;font-size:11px;line-height:no=
rmal;font-family:Menlo;color:rgb(0,0,0)">font-variant-ligatures:no-common-ligatures">use Apache2::Const -compile =3D=
> qw(OK FORBIDDEN);
variant-east-asian:normal;font-stretch:normal;font-size:11px;line-height:no=
rmal;font-family:Menlo;color:rgb(0,0,0);min-height:13px">il-s1" style=3D"font-variant-ligatures:no-common-ligatures">
variant-east-asian:normal;font-stretch:normal;font-size:11px;line-height:no=
rmal;font-family:Menlo;color:rgb(0,0,0);min-height:13px">il-s1" style=3D"font-variant-ligatures:no-common-ligatures">
variant-east-asian:normal;font-stretch:normal;font-size:11px;line-height:no=
rmal;font-family:Menlo;color:rgb(0,0,0)">font-variant-ligatures:no-common-ligatures">sub handler {
variant-east-asian:normal;font-stretch:normal;font-size:11px;line-height:no=
rmal;font-family:Menlo;color:rgb(0,0,0);min-height:13px">il-s1" style=3D"font-variant-ligatures:no-common-ligatures">
variant-east-asian:normal;font-stretch:normal;font-size:11px;line-height:no=
rmal;font-family:Menlo;color:rgb(0,0,0)">font-variant-ligatures:no-common-ligatures">erted-space">=C2=A0 =C2=A0 my $r =3D shift;
variant-east-asian:normal;font-stretch:normal;font-size:11px;line-height:no=
rmal;font-family:Menlo;color:rgb(0,0,0)">font-variant-ligatures:no-common-ligatures">erted-space">=C2=A0 =C2=A0 my $ip =3D $r->headers_in->{'CF=
-Connecting-IP'} ||=C2=A0 <=
/span>$r->connection->client_ip;
variant-east-asian:normal;font-stretch:normal;font-size:11px;line-height:no=
rmal;font-family:Menlo;color:rgb(0,0,0);min-height:13px">il-s1" style=3D"font-variant-ligatures:no-common-ligatures">
variant-east-asian:normal;font-stretch:normal;font-size:11px;line-height:no=
rmal;font-family:Menlo;color:rgb(0,0,0)">font-variant-ligatures:no-common-ligatures">erted-space">=C2=A0 =C2=A0 my $host =3D dns_query($ip) || "&quo=
t;;
variant-east-asian:normal;font-stretch:normal;font-size:11px;line-height:no=
rmal;font-family:Menlo;color:rgb(0,0,0);min-height:13px">il-s1" style=3D"font-variant-ligatures:no-common-ligatures">
variant-east-asian:normal;font-stretch:normal;font-size:11px;line-height:no=
rmal;font-family:Menlo;color:rgb(0,0,0)">font-variant-ligatures:no-common-ligatures">erted-space">=C2=A0 =C2=A0 $r->content_type('text/plain; char=
set=3Dutf-8');
variant-east-asian:normal;font-stretch:normal;font-size:11px;line-height:no=
rmal;font-family:Menlo;color:rgb(0,0,0)">font-variant-ligatures:no-common-ligatures">erted-space">=C2=A0 =C2=A0 $r->print("Your IP: $ip, Hostname=
: $host");
variant-east-asian:normal;font-stretch:normal;font-size:11px;line-height:no=
rmal;font-family:Menlo;color:rgb(0,0,0);min-height:13px">il-s1" style=3D"font-variant-ligatures:no-common-ligatures">
variant-east-asian:normal;font-stretch:normal;font-size:11px;line-height:no=
rmal;font-family:Menlo;color:rgb(0,0,0)">font-variant-ligatures:no-common-ligatures">erted-space">=C2=A0 =C2=A0 return Apache2::Const::OK;
variant-east-asian:normal;font-stretch:normal;font-size:11px;line-height:no=
rmal;font-family:Menlo;color:rgb(0,0,0)">font-variant-ligatures:no-common-ligatures">}
variant-east-asian:normal;font-stretch:normal;font-size:11px;line-height:no=
rmal;font-family:Menlo;color:rgb(0,0,0);min-height:13px">il-s1" style=3D"font-variant-ligatures:no-common-ligatures">
variant-east-asian:normal;font-stretch:normal;font-size:11px;line-height:no=
rmal;font-family:Menlo;color:rgb(0,0,0);min-height:13px">il-s1" style=3D"font-variant-ligatures:no-common-ligatures">
variant-east-asian:normal;font-stretch:normal;font-size:11px;line-height:no=
rmal;font-family:Menlo;color:rgb(0,0,0)">font-variant-ligatures:no-common-ligatures">sub dns_query {
variant-east-asian:normal;font-stretch:normal;font-size:11px;line-height:no=
rmal;font-family:Menlo;color:rgb(0,0,0)">font-variant-ligatures:no-common-ligatures">erted-space">=C2=A0 =C2=A0 my $ip =3D shift;
variant-east-asian:normal;font-stretch:normal;font-size:11px;line-height:no=
rmal;font-family:Menlo;color:rgb(0,0,0)">font-variant-ligatures:no-common-ligatures">erted-space">=C2=A0 =C2=A0 my $resolver =3D Net::DNS::Resolver->n=
ew();
variant-east-asian:normal;font-stretch:normal;font-size:11px;line-height:no=
rmal;font-family:Menlo;color:rgb(0,0,0)">font-variant-ligatures:no-common-ligatures">erted-space">=C2=A0 =C2=A0 my $reply =3D $resolver->query($ip, &#=
39;PTR');
variant-east-asian:normal;font-stretch:normal;font-size:11px;line-height:no=
rmal;font-family:Menlo;color:rgb(0,0,0);min-height:13px">il-s1" style=3D"font-variant-ligatures:no-common-ligatures">
variant-east-asian:normal;font-stretch:normal;font-size:11px;line-height:no=
rmal;font-family:Menlo;color:rgb(0,0,0)">font-variant-ligatures:no-common-ligatures">erted-space">=C2=A0 =C2=A0 if ($reply) {
variant-east-asian:normal;font-stretch:normal;font-size:11px;line-height:no=
rmal;font-family:Menlo;color:rgb(0,0,0)">font-variant-ligatures:no-common-ligatures">erted-space">=C2=A0 =C2=A0 =C2=A0 =C2=A0 for my $rr ($reply->answ=
er) {
variant-east-asian:normal;font-stretch:normal;font-size:11px;line-height:no=
rmal;font-family:Menlo;color:rgb(0,0,0)">font-variant-ligatures:no-common-ligatures">erted-space">=C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 return $rr-&g=
t;rdstring;=C2=A0 # we n=
eed only one
variant-east-asian:normal;font-stretch:normal;font-size:11px;line-height:no=
rmal;font-family:Menlo;color:rgb(0,0,0)">font-variant-ligatures:no-common-ligatures">erted-space">=C2=A0 =C2=A0 =C2=A0 =C2=A0 }
variant-east-asian:normal;font-stretch:normal;font-size:11px;line-height:no=
rmal;font-family:Menlo;color:rgb(0,0,0)">font-variant-ligatures:no-common-ligatures">erted-space">=C2=A0 =C2=A0 }
variant-east-asian:normal;font-stretch:normal;font-size:11px;line-height:no=
rmal;font-family:Menlo;color:rgb(0,0,0);min-height:13px">il-s1" style=3D"font-variant-ligatures:no-common-ligatures">
variant-east-asian:normal;font-stretch:normal;font-size:11px;line-height:no=
rmal;font-family:Menlo;color:rgb(0,0,0)">font-variant-ligatures:no-common-ligatures">erted-space">=C2=A0 =C2=A0 return;
variant-east-asian:normal;font-stretch:normal;font-size:11px;line-height:no=
rmal;font-family:Menlo;color:rgb(0,0,0)">font-variant-ligatures:no-common-ligatures">}
variant-east-asian:normal;font-stretch:normal;font-size:11px;line-height:no=
rmal;font-family:Menlo;color:rgb(0,0,0);min-height:13px">il-s1" style=3D"font-variant-ligatures:no-common-ligatures">
variant-east-asian:normal;font-stretch:normal;font-size:11px;line-height:no=
rmal;font-family:Menlo;color:rgb(0,0,0);min-height:13px">il-s1" style=3D"font-variant-ligatures:no-common-ligatures">
variant-east-asian:normal;font-stretch:normal;font-size:11px;line-height:no=
rmal;font-family:Menlo;color:rgb(0,0,0)">font-variant-ligatures:no-common-ligatures">1; p1" style=3D"margin:0px;font-variant-numeric:normal;font-variant-east-asian=
:normal;font-stretch:normal;font-size:11px;line-height:normal;font-family:M=
enlo;color:rgb(0,0,0)">ures:no-common-ligatures">
gin:0px;font-variant-numeric:normal;font-variant-east-asian:normal;font-str=
etch:normal;font-size:11px;line-height:normal;font-family:Menlo;color:rgb(0=
,0,0)">igatures">
iant-numeric:normal;font-variant-east-asian:normal;font-stretch:normal;font=
-size:11px;line-height:normal;font-family:Menlo;color:rgb(0,0,0)">le=3D"font-variant-ligatures:no-common-ligatures">Can anyone give your revi=
ew? Thanks in advance. font-variant-numeric:normal;font-variant-east-asian:normal;font-stretch:nor=
mal;font-size:11px;line-height:normal;font-family:Menlo;color:rgb(0,0,0)"><=
span style=3D"font-variant-ligatures:no-common-ligatures">
class=3D"gmail-p1" style=3D"margin:0px;font-variant-numeric:normal;font-va=
riant-east-asian:normal;font-stretch:normal;font-size:11px;line-height:norm=
al;font-family:Menlo;color:rgb(0,0,0)">s:no-common-ligatures">Matthiasrgin:0px;font-variant-numeric:normal;font-variant-east-asian:normal;font-st=
retch:normal;font-size:11px;line-height:normal;font-family:Menlo;color:rgb(=
0,0,0)">
an>
8ex;border-left:1px solid rgb(204,204,204);padding-left:1ex">r">Hello
I am developing a simple mp2 application. = I looked for the installation for mp2 utils, and found this two: =
normal;font-stretch:normal;font-size:11px;line-height:normal;font-family:Me=
nlo;color:rgb(0,0,0)">ures">libapache2-mod-perl2 meric:normal;font-variant-east-asian:normal;font-stretch:normal;font-size:1=
1px;line-height:normal;font-family:Menlo;color:rgb(0,0,0)">ont-variant-ligatures:no-common-ligatures">
east-asian:normal;font-stretch:normal;font-size:11px;line-height:normal;fon=
t-family:Menlo;color:rgb(0,0,0)">ommon-ligatures">libapache2-mod-apreq2 t-variant-numeric:normal;font-variant-east-asian:normal;font-stretch:normal=
;font-size:11px;line-height:normal;font-family:Menlo;color:rgb(0,0,0)">n style=3D"font-variant-ligatures:no-common-ligatures">
yle=3D"margin:0px;font-variant-numeric:normal;font-variant-east-asian:norma=
l;font-stretch:normal;font-size:11px;line-height:normal;font-family:Menlo;c=
olor:rgb(0,0,0)">>what're their=C2=A0relations? Should=C2=A0I install both, or only the =
first one? t-variant-east-asian:normal;font-stretch:normal;font-size:11px;line-height:=
normal;font-family:Menlo;color:rgb(0,0,0)">tures:no-common-ligatures">
nt-numeric:normal;font-variant-east-asian:normal;font-stretch:normal;font-s=
ize:11px;line-height:normal;font-family:Menlo;color:rgb(0,0,0)">=3D"font-variant-ligatures:no-common-ligatures">Thanks. iv>
--0000000000002e737d05b716fd1b--
--===============0063889854==
Content-Type: text/plain; charset="us-ascii"
MIME-Version: 1.0
Content-Transfer-Encoding: 7bit
Content-Disposition: inline
_______________________________________________
Hangout mailing list
Hangout-at-nylxs.com
http://lists.mrbrklyn.com/mailman/listinfo/hangout
--===============0063889854==--
--===============0063889854==
Content-Type: multipart/alternative; boundary="0000000000002e737d05b716fd1b"
--0000000000002e737d05b716fd1b
Content-Type: text/plain; charset="UTF-8"
I am a newbie to mp development stack.
After one day of work, I have made a simple handler, which returns the
client's address and its PTR record.
The demo:
https://myhostnames.com/
The code shown below:
package MyHostname;
use strict;
use Net::DNS;
use Apache2::RequestRec ();
use Apache2::RequestIO ();
use Apache2::Connection ();
use APR::Table ();
use Apache2::Const -compile => qw(OK FORBIDDEN);
sub handler {
my $r = shift;
my $ip = $r->headers_in->{'CF-Connecting-IP'} ||
$r->connection->client_ip;
my $host = dns_query($ip) || "";
$r->content_type('text/plain; charset=utf-8');
$r->print("Your IP: $ip, Hostname: $host");
return Apache2::Const::OK;
}
sub dns_query {
my $ip = shift;
my $resolver = Net::DNS::Resolver->new();
my $reply = $resolver->query($ip, 'PTR');
if ($reply) {
for my $rr ($reply->answer) {
return $rr->rdstring; # we need only one
}
}
return;
}
1;
Can anyone give your review? Thanks in advance.
Matthias
On Tue, Dec 22, 2020 at 1:49 PM Matthias Peng
wrote:
> Hello
>
> I am developing a simple mp2 application.
> I looked for the installation for mp2 utils, and found this two:
>
> libapache2-mod-perl2
>
> libapache2-mod-apreq2
>
>
> what're their relations? Should I install both, or only the first one?
>
>
> Thanks.
>
--0000000000002e737d05b716fd1b
Content-Type: text/html; charset="UTF-8"
Content-Transfer-Encoding: quoted-printable
I am a newbie to mp development stack. After=C2=A0one =
day of work, I have made a simple handler, which returns the client's a=
ddress and its PTR record. The demo:
v>The code shown below:common-ligatures;color:rgb(0,0,0);font-family:Menlo;font-size:11px">
pan> lor:rgb(0,0,0);font-family:Menlo;font-size:11px">package MyHostname;=
variant-east-asian:normal;font-stretch:normal;font-size:11px;line-height:no=
rmal;font-family:Menlo;color:rgb(0,0,0);min-height:13px">il-s1" style=3D"font-variant-ligatures:no-common-ligatures">
variant-east-asian:normal;font-stretch:normal;font-size:11px;line-height:no=
rmal;font-family:Menlo;color:rgb(0,0,0)">font-variant-ligatures:no-common-ligatures">use strict;
variant-east-asian:normal;font-stretch:normal;font-size:11px;line-height:no=
rmal;font-family:Menlo;color:rgb(0,0,0)">font-variant-ligatures:no-common-ligatures">use Net::DNS;
variant-east-asian:normal;font-stretch:normal;font-size:11px;line-height:no=
rmal;font-family:Menlo;color:rgb(0,0,0)">font-variant-ligatures:no-common-ligatures">use Apache2::RequestRec ();an>
variant-east-asian:normal;font-stretch:normal;font-size:11px;line-height:no=
rmal;font-family:Menlo;color:rgb(0,0,0)">font-variant-ligatures:no-common-ligatures">use Apache2::RequestIO ();n>
variant-east-asian:normal;font-stretch:normal;font-size:11px;line-height:no=
rmal;font-family:Menlo;color:rgb(0,0,0)">font-variant-ligatures:no-common-ligatures">use Apache2::Connection ();an>
variant-east-asian:normal;font-stretch:normal;font-size:11px;line-height:no=
rmal;font-family:Menlo;color:rgb(0,0,0)">font-variant-ligatures:no-common-ligatures">use APR::Table ();
variant-east-asian:normal;font-stretch:normal;font-size:11px;line-height:no=
rmal;font-family:Menlo;color:rgb(0,0,0)">font-variant-ligatures:no-common-ligatures">use Apache2::Const -compile =3D=
> qw(OK FORBIDDEN);
variant-east-asian:normal;font-stretch:normal;font-size:11px;line-height:no=
rmal;font-family:Menlo;color:rgb(0,0,0);min-height:13px">il-s1" style=3D"font-variant-ligatures:no-common-ligatures">
variant-east-asian:normal;font-stretch:normal;font-size:11px;line-height:no=
rmal;font-family:Menlo;color:rgb(0,0,0);min-height:13px">il-s1" style=3D"font-variant-ligatures:no-common-ligatures">
variant-east-asian:normal;font-stretch:normal;font-size:11px;line-height:no=
rmal;font-family:Menlo;color:rgb(0,0,0)">font-variant-ligatures:no-common-ligatures">sub handler {
variant-east-asian:normal;font-stretch:normal;font-size:11px;line-height:no=
rmal;font-family:Menlo;color:rgb(0,0,0);min-height:13px">il-s1" style=3D"font-variant-ligatures:no-common-ligatures">
variant-east-asian:normal;font-stretch:normal;font-size:11px;line-height:no=
rmal;font-family:Menlo;color:rgb(0,0,0)">font-variant-ligatures:no-common-ligatures">erted-space">=C2=A0 =C2=A0 my $r =3D shift;
variant-east-asian:normal;font-stretch:normal;font-size:11px;line-height:no=
rmal;font-family:Menlo;color:rgb(0,0,0)">font-variant-ligatures:no-common-ligatures">erted-space">=C2=A0 =C2=A0 my $ip =3D $r->headers_in->{'CF=
-Connecting-IP'} ||=C2=A0 <=
/span>$r->connection->client_ip;
variant-east-asian:normal;font-stretch:normal;font-size:11px;line-height:no=
rmal;font-family:Menlo;color:rgb(0,0,0);min-height:13px">il-s1" style=3D"font-variant-ligatures:no-common-ligatures">
variant-east-asian:normal;font-stretch:normal;font-size:11px;line-height:no=
rmal;font-family:Menlo;color:rgb(0,0,0)">font-variant-ligatures:no-common-ligatures">erted-space">=C2=A0 =C2=A0 my $host =3D dns_query($ip) || "&quo=
t;;
variant-east-asian:normal;font-stretch:normal;font-size:11px;line-height:no=
rmal;font-family:Menlo;color:rgb(0,0,0);min-height:13px">il-s1" style=3D"font-variant-ligatures:no-common-ligatures">
variant-east-asian:normal;font-stretch:normal;font-size:11px;line-height:no=
rmal;font-family:Menlo;color:rgb(0,0,0)">font-variant-ligatures:no-common-ligatures">erted-space">=C2=A0 =C2=A0 $r->content_type('text/plain; char=
set=3Dutf-8');
variant-east-asian:normal;font-stretch:normal;font-size:11px;line-height:no=
rmal;font-family:Menlo;color:rgb(0,0,0)">font-variant-ligatures:no-common-ligatures">erted-space">=C2=A0 =C2=A0 $r->print("Your IP: $ip, Hostname=
: $host");
variant-east-asian:normal;font-stretch:normal;font-size:11px;line-height:no=
rmal;font-family:Menlo;color:rgb(0,0,0);min-height:13px">il-s1" style=3D"font-variant-ligatures:no-common-ligatures">
variant-east-asian:normal;font-stretch:normal;font-size:11px;line-height:no=
rmal;font-family:Menlo;color:rgb(0,0,0)">font-variant-ligatures:no-common-ligatures">erted-space">=C2=A0 =C2=A0 return Apache2::Const::OK;
variant-east-asian:normal;font-stretch:normal;font-size:11px;line-height:no=
rmal;font-family:Menlo;color:rgb(0,0,0)">font-variant-ligatures:no-common-ligatures">}
variant-east-asian:normal;font-stretch:normal;font-size:11px;line-height:no=
rmal;font-family:Menlo;color:rgb(0,0,0);min-height:13px">il-s1" style=3D"font-variant-ligatures:no-common-ligatures">
variant-east-asian:normal;font-stretch:normal;font-size:11px;line-height:no=
rmal;font-family:Menlo;color:rgb(0,0,0);min-height:13px">il-s1" style=3D"font-variant-ligatures:no-common-ligatures">
variant-east-asian:normal;font-stretch:normal;font-size:11px;line-height:no=
rmal;font-family:Menlo;color:rgb(0,0,0)">font-variant-ligatures:no-common-ligatures">sub dns_query {
variant-east-asian:normal;font-stretch:normal;font-size:11px;line-height:no=
rmal;font-family:Menlo;color:rgb(0,0,0)">font-variant-ligatures:no-common-ligatures">erted-space">=C2=A0 =C2=A0 my $ip =3D shift;
variant-east-asian:normal;font-stretch:normal;font-size:11px;line-height:no=
rmal;font-family:Menlo;color:rgb(0,0,0)">font-variant-ligatures:no-common-ligatures">erted-space">=C2=A0 =C2=A0 my $resolver =3D Net::DNS::Resolver->n=
ew();
variant-east-asian:normal;font-stretch:normal;font-size:11px;line-height:no=
rmal;font-family:Menlo;color:rgb(0,0,0)">font-variant-ligatures:no-common-ligatures">erted-space">=C2=A0 =C2=A0 my $reply =3D $resolver->query($ip, &#=
39;PTR');
variant-east-asian:normal;font-stretch:normal;font-size:11px;line-height:no=
rmal;font-family:Menlo;color:rgb(0,0,0);min-height:13px">il-s1" style=3D"font-variant-ligatures:no-common-ligatures">
variant-east-asian:normal;font-stretch:normal;font-size:11px;line-height:no=
rmal;font-family:Menlo;color:rgb(0,0,0)">font-variant-ligatures:no-common-ligatures">erted-space">=C2=A0 =C2=A0 if ($reply) {
variant-east-asian:normal;font-stretch:normal;font-size:11px;line-height:no=
rmal;font-family:Menlo;color:rgb(0,0,0)">font-variant-ligatures:no-common-ligatures">erted-space">=C2=A0 =C2=A0 =C2=A0 =C2=A0 for my $rr ($reply->answ=
er) {
variant-east-asian:normal;font-stretch:normal;font-size:11px;line-height:no=
rmal;font-family:Menlo;color:rgb(0,0,0)">font-variant-ligatures:no-common-ligatures">erted-space">=C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 return $rr-&g=
t;rdstring;=C2=A0 # we n=
eed only one
variant-east-asian:normal;font-stretch:normal;font-size:11px;line-height:no=
rmal;font-family:Menlo;color:rgb(0,0,0)">font-variant-ligatures:no-common-ligatures">erted-space">=C2=A0 =C2=A0 =C2=A0 =C2=A0 }
variant-east-asian:normal;font-stretch:normal;font-size:11px;line-height:no=
rmal;font-family:Menlo;color:rgb(0,0,0)">font-variant-ligatures:no-common-ligatures">erted-space">=C2=A0 =C2=A0 }
variant-east-asian:normal;font-stretch:normal;font-size:11px;line-height:no=
rmal;font-family:Menlo;color:rgb(0,0,0);min-height:13px">il-s1" style=3D"font-variant-ligatures:no-common-ligatures">
variant-east-asian:normal;font-stretch:normal;font-size:11px;line-height:no=
rmal;font-family:Menlo;color:rgb(0,0,0)">font-variant-ligatures:no-common-ligatures">erted-space">=C2=A0 =C2=A0 return;
variant-east-asian:normal;font-stretch:normal;font-size:11px;line-height:no=
rmal;font-family:Menlo;color:rgb(0,0,0)">font-variant-ligatures:no-common-ligatures">}
variant-east-asian:normal;font-stretch:normal;font-size:11px;line-height:no=
rmal;font-family:Menlo;color:rgb(0,0,0);min-height:13px">il-s1" style=3D"font-variant-ligatures:no-common-ligatures">
variant-east-asian:normal;font-stretch:normal;font-size:11px;line-height:no=
rmal;font-family:Menlo;color:rgb(0,0,0);min-height:13px">il-s1" style=3D"font-variant-ligatures:no-common-ligatures">
variant-east-asian:normal;font-stretch:normal;font-size:11px;line-height:no=
rmal;font-family:Menlo;color:rgb(0,0,0)">font-variant-ligatures:no-common-ligatures">1; p1" style=3D"margin:0px;font-variant-numeric:normal;font-variant-east-asian=
:normal;font-stretch:normal;font-size:11px;line-height:normal;font-family:M=
enlo;color:rgb(0,0,0)">ures:no-common-ligatures">
gin:0px;font-variant-numeric:normal;font-variant-east-asian:normal;font-str=
etch:normal;font-size:11px;line-height:normal;font-family:Menlo;color:rgb(0=
,0,0)">igatures">
iant-numeric:normal;font-variant-east-asian:normal;font-stretch:normal;font=
-size:11px;line-height:normal;font-family:Menlo;color:rgb(0,0,0)">le=3D"font-variant-ligatures:no-common-ligatures">Can anyone give your revi=
ew? Thanks in advance. font-variant-numeric:normal;font-variant-east-asian:normal;font-stretch:nor=
mal;font-size:11px;line-height:normal;font-family:Menlo;color:rgb(0,0,0)"><=
span style=3D"font-variant-ligatures:no-common-ligatures">
class=3D"gmail-p1" style=3D"margin:0px;font-variant-numeric:normal;font-va=
riant-east-asian:normal;font-stretch:normal;font-size:11px;line-height:norm=
al;font-family:Menlo;color:rgb(0,0,0)">s:no-common-ligatures">Matthiasrgin:0px;font-variant-numeric:normal;font-variant-east-asian:normal;font-st=
retch:normal;font-size:11px;line-height:normal;font-family:Menlo;color:rgb(=
0,0,0)">
an>
8ex;border-left:1px solid rgb(204,204,204);padding-left:1ex">r">Hello
I am developing a simple mp2 application. = I looked for the installation for mp2 utils, and found this two: =
normal;font-stretch:normal;font-size:11px;line-height:normal;font-family:Me=
nlo;color:rgb(0,0,0)">ures">libapache2-mod-perl2 meric:normal;font-variant-east-asian:normal;font-stretch:normal;font-size:1=
1px;line-height:normal;font-family:Menlo;color:rgb(0,0,0)">ont-variant-ligatures:no-common-ligatures">
east-asian:normal;font-stretch:normal;font-size:11px;line-height:normal;fon=
t-family:Menlo;color:rgb(0,0,0)">ommon-ligatures">libapache2-mod-apreq2 t-variant-numeric:normal;font-variant-east-asian:normal;font-stretch:normal=
;font-size:11px;line-height:normal;font-family:Menlo;color:rgb(0,0,0)">n style=3D"font-variant-ligatures:no-common-ligatures">
yle=3D"margin:0px;font-variant-numeric:normal;font-variant-east-asian:norma=
l;font-stretch:normal;font-size:11px;line-height:normal;font-family:Menlo;c=
olor:rgb(0,0,0)">>what're their=C2=A0relations? Should=C2=A0I install both, or only the =
first one? t-variant-east-asian:normal;font-stretch:normal;font-size:11px;line-height:=
normal;font-family:Menlo;color:rgb(0,0,0)">tures:no-common-ligatures">
nt-numeric:normal;font-variant-east-asian:normal;font-stretch:normal;font-s=
ize:11px;line-height:normal;font-family:Menlo;color:rgb(0,0,0)">=3D"font-variant-ligatures:no-common-ligatures">Thanks. iv>
--0000000000002e737d05b716fd1b--
--===============0063889854==
Content-Type: text/plain; charset="us-ascii"
MIME-Version: 1.0
Content-Transfer-Encoding: 7bit
Content-Disposition: inline
_______________________________________________
Hangout mailing list
Hangout-at-nylxs.com
http://lists.mrbrklyn.com/mailman/listinfo/hangout
--===============0063889854==--
|
|
