Apache2 :: Geo :: IP. ¼øÀ§ ¹× ¿ä¾à
- ƯÇã:
- Perl Artistic License
- °Ô½ÃÀÚ À¥»çÀÌÆ®:
- http://search.cpan.org/~rkobes/
Apache2 :: Geo :: IP. ű×
Apache2 :: Geo :: IP. ¼³¸í
IP ÁÖ¼Ò·Î ±¹°¡¸¦ ãÀ¸½Ê½Ã¿À Apache2 :: Geo :: IP´Â IP ÁÖ¼Ò·Î °Ë»ö ±¹°¡¸¦ Á¶È¸ÇÏ´Â Perl ¸ðµâÀÔ´Ï´Ù. HTTPD.CONF # PerlModule Apache2 :: HelloIP # <À§Ä¡ ip/> # SetHandler Perl-Script # PerlResponseHandler # PerlResponseHandler Apache2 :: HelloIP # PerlSetVar GeoIPDB ÆÄÀÏ "/usr/local/share/geoip/geoip.dat"# perlsetvar geoipflag Ç¥ÁØ # perlsetvar geoipxforwardedfor 1 # # ÆÄÀÏ apache2 :: helloip »ç¿ë apache2 :: geo :: IP; ¾ö°ÝÇÑ »ç¿ë; apache2 :: const -compile => 'È®ÀÎÀ» »ç¿ëÇϽʽÿÀ. ÇÏÀ§ Çڵ鷯 {My $ R = Apache2 :: Geo :: IP-> New (Shift); $ r-> content_type ( 'text / plain'); ³» $ ±¹°¡ = UC ($ r-> country_code_by_addr ()); $ R-> Àμâ ($ ±¹°¡); ¹Ýȯ Apache2 :: OK; } 1; ¿ä±¸ »çÇ× : ¡¤ Perl.
Apache2 :: Geo :: IP. °ü·Ã ¼ÒÇÁÆ®¿þ¾î