تنزيل CGI remote_addr - تنزيل رمز المصدر CGI remote

CGI remote_addr

فئات أخرى

1.0.0

تنزيل

اسم

CGI :: REMOTE_ADDR - نسخة محسنة من CGI.PM's "REMOTE_ADDR ()"

ملخص

 use CGI;
use CGI::remote_addr;

my $cgi  = CGI -> new();
my $addr = $cgi -> remote_addr();

وصف

CGI::remote_addr تنفذ نسخة محسّنة من طريقة remote_addr() التي توفرها CGI.pm ، والتي تحاول إرجاع عنوان IP الأصلي الذي نشأ منه (وهو ليس بالضرورة عنوان IP الذي تلقيناه من الاتصال).

ببساطة تحميل CGI::remote_addr يتسبب في زيادة الإفراط في تشغيل طريقة remote_addr() الحالية. لاحظ ، رغم ذلك ، أن هذا هو الركوب العالمي ؛ إذا كنت تعمل تحت mod_perl ، فقد أعادتها للتو لجميع التطبيقات الخاصة بك.

الاختلافات من CGI.PM

لا نتحقق من $ENV{REMOTE_ADDR} فقط للعثور على عنوان IP ، ولكن أيضًا ننظر في $ENV{HTTP_X_FORWARDED_FOR} للعثور على عنوان IP. إذا تم تعريف $ENV{HTTP_X_FORWARDED_FOR} ، فإننا نحاول ذلك أولاً.
يتم إرجاع عناوين IP صالحة فقط ، بغض النظر عن أي شيء موجود في $ENV{REMOTE_ADDR} أو $ENV{HTTP_X_FORWARDED_FOR} . لقد رأيت الكثير من الحالات التي كانت فيها القيم لـ $ENV{HTTP_X_FORWARDED_FOR} محشوة بالقمامة ، ونحن نتأكد من حصولك على عنوان IP حقيقي فقط.
نعيد IPS في كل من القياس وقائمة سياق. في سياق القياسي ، تحصل على عنوان IP الأول (المنشأ). في سياق القائمة ، تحصل على قائمة فريدة بجميع IPS التي تم استلام الاتصال بها.
في حالة عدم تمكننا من العثور على عنوان IP صالح ، تُرجع هذه الطريقة undef ، وليس 127.0.0.1 (مثل CGI.pm ).