| POE :: Component :: وكيل :: الجوارب خادم الجوارب المستندة إلى POE |
التحميل الان |
POE :: Component :: وكيل :: الجوارب الترتيب والملخص
- رخصة:
- Perl Artistic License
- اسم الناشر:
- Chris Williams
- موقع ويب الناشر:
- http://search.cpan.org/~bingos/
POE :: Component :: وكيل :: الجوارب العلامات
POE :: Component :: وكيل :: الجوارب وصف
الجوارب القائم على PoE 4 خادم وكيل POE :: Component :: Proxy :: Socks هي وحدة Perl التي تنفذ خادم Socks الإصدار 4 / 4A الوكيل. لديها عناصر تحكم في الوصول إلى عنوان IP، والتي توفرها Net :: NetMask، ويمكن استخدام الموالية للتأكد من مزيد من تأكيد تعريفات المستخدم. قد تسجل جلسات Poe مع مكون الجوارب لتلقي الأحداث المتعلقة بالاتصالات وما إلى ذلك. يدعم Poco كلا الجوارب والجوارب commands.synopsis استخدام صارمة؛ استخدام صافي :: NetMask؛ استخدام PoE qw (مكون :: وكيل :: الجوارب)؛ $ | = 1؛ POE :: Session-> إنشاء (package_states => ،]،)؛ $ poe_kernel-> تشغيل ()؛ الخروج 0؛ Sub _Start {بلدي (kernel $ kernel، $ heap) = @ _ ؛ $ heap -> {socksd} = poe :: component :: proxy :: socks-> تفرخ (الاسم المستعار => 'socksd'، يعني => 0)؛ إرجاع؛ } subssd_ التسجيل بلدي $ الكل = صافي :: netmask-> new2 ('أي')؛ بلدي lopback $ = net :: netmask-> new2 ('127.0.0.1')؛ بلدي Local Local = Net :: NetMask-> New2 ('192.168.1.0/24')؛ $ socksd-> add_denial ($ الكل)؛ $ socksd-> add_exemption (rtopback $)؛ $ socksd-> add_exemption ($ المحلي)؛ إرجاع؛ } Sub _Default {My (حدث $ ($، $ args) = @ _ ؛ MyoutPut = ("الحدث $:")؛ Foreach My $ Arg (@ $ args) {en. } آخر {ادفع (@ output، "$ Arg '")؛ }} طباعة STDOUT انضمام "'، dutput،" \ n "؛ العودة 0؛ } متطلبات: perl.
POE :: Component :: وكيل :: الجوارب برامج ذات صلة