Apache2 :: Geo :: IP.

IP ÁÖ¼Ò·Î ±¹°¡ ã±â
Áö±Ý ´Ù¿î·Îµå

Apache2 :: Geo :: IP. ¼øÀ§ ¹× ¿ä¾à

±¤°í

  • Rating:
  • ƯÇã:
  • Perl Artistic License
  • °¡°Ý:
  • FREE
  • °Ô½ÃÀÚ À̸§:
  • Randy Kobes
  • °Ô½ÃÀÚ À¥»çÀÌÆ®:
  • 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. °ü·Ã ¼ÒÇÁÆ®¿þ¾î