[Apache] mod_perl을 이용한 redirect 서버 만들기

n사 다닐때 글로벌 모바일 게임 웹 서버를 구축하는 프로젝트를 했었는데, 처음엔 싱가포르 지역에만 구축을 했었고 

추후 기획의 요구사항이 국가코드.도메인.com/게임명  url로 해당 국가에 설치된 서버로 접속하도록 하는 것이었다.  

예를 들면, 북미에서 접속할때는 us.domain.com/game1, 중국에서 접속할때는 cn.domain.com/game1 이런 식이었다. 

지금은 잘 기억나지 않지만, 인프라에서 global dns 서비스를 구축하면 가능했던 걸로 확인을 했었으나 비용 등의 문제로 

이 방법은 사용하지 못했고 대신 애플리케이션 레벨에서 처리를 하기로 마음 먹고 진행한 것이 geoIP를 이용해 해당 국가 코드를

알아내고 그 국가의 서버로 redirect 시키는 것이었다. 이를 바탕으로 간단히 정리해본다.

(실제로는 서비스는 종료되어 이 방법을 리얼 환경에 적용해보지도 못했음.)

 http://perl.apache.org/    

     - mod_perl 아파치 모듈을 이용해 perl 스크립트로 아파치 단 요청과 응답 사이에 로직을 추가하여 실행할 수 있다.

       일반적으로 perl 스크립트는 실행시마다 컴파일이 되지만 mod_perl 을 이용할 경우 아파치 서버가 시작될 때 perl 모듈과

       스크립트들이 한번만 컴파일이 되면 그 이후부터는 컴파일된 모듈이 아파치 내부에서 동작하게 된다.

     - 읽어보면 도움이 될만한 사이트

          - http://www.hanb.co.kr/network/view.html?bi_id=375

1. 다운로드 : http://perl.apache.org/download/index.html 

     - 2.2.x 와 호환 가능한 버전을 다운로드 받으면 된다. http://perl.apache.org/dist/mod_perl-2.0-current.tar.gz

          

2. 설치방법

     1) tar zxvf mod_perl-2.0.-cyrrent.tar.gz 한 후 해당 폴더로 이동

     2) perl Makefile.PL MP_APXS=/usr/local/apache/bin/apxs

     3) make

     4) make test

     5) sudo make install

-----------------------

3. httpd.conf 추가 

    LoadModule perl_module modules/mod_perl.so 

    를 추가한 뒤 아파치 재시작이 성공하면 OK

4. 펄 모듈 생성

     1) cd /home/www/perl;  mkdir MyApache2; cd MyApache2;

     2) vi startup.pl 한 뒤 아래 내용 입력 후 저장

use lib qw(/home/www/perl); // perl 설치 경로 1;

 

     3) vi RedirectUrl.pm 한뒤 아래 내용 입력후 저장

package MyApache2::RedirectUrl; use warnings; use XML::Simple; use APR::Table; use Apache2::Connection (); use Apache2::RequestRec (); use Apache2::RequestIO (); use Apache2::Const -compile => qw(REDIRECT); use LWP::UserAgent; use HTTP::Request; use HTTP::Headers; use Encode; sub handler {      my $r = shift;      $r->content_type('text/plain');      $r->content_encoding('utf-8');      my $c = $r->connection;      my $clientIp = $c->remote_ip;      my $address = "geoIP를 이용하여 국가코드를 리턴하는 api(사내주소여서 공개할 수 없음)";      my $objUserAgent = LWP::UserAgent->new(timeout => 2);      $objUserAgent->agent("TEST/TEST");      my $objHeader = HTTP::Headers->new;      $objHeader->push_header("Content-Type" => "text/plain");      my $objRequest = HTTP::Request->new(GET=>"$address", $objHeader);      my $objResponse = $objUserAgent->request($objRequest);      my $content = $objResponse->content;      # Test XML      #my $content = "<?xml version=\"1.0\" encoding=\"utf-8\" ?>...주소데이터...";      my $xml = new XML::Simple;      my $data = $xml->XMLin($content);      if (defined($data->{error})) {           my $errCode = $data->{error};           my $errMsg = "warning : ";           if($errCode eq "1001") {                $errMsg .= "ERROR_IP_NOTFOUND";           }           if($errCode eq "1002") {                $errMsg .= "ERROR_DB_SEARCH";           }           if($errCode eq "2001") {                $errMsg .= "ERROR_NETWORK";           }           if($errCode eq "2002") {                $errMsg .= "ERROR_NETWORK_TIMEOUT";           }           if($errCode eq "2003") {                $errMsg .= "ERROR_NETWORK_UNKNOWN";           }           if($errCode eq "3001") {                $errMsg .= "ERROR_IP_INVALID";           }           if($errCode eq "4001") {                $errMsg .= "ERROR_MAXMIND";           }           print $errMsg;      } else {           my $countryCode = $data->{country};           if($countryCode eq "CN") {                print "access denied....!(Country Code : CN) \n";           } elsif($countryCode eq "SG") {                print "access denied....!(Country Code : KR) \n";           } elsif($countryCode eq "KR") {                # 특정주소로 Redirect                my $URL = "redirect할 주소";                $r->headers_out->set('Location' => $URL);                return Apache2::Const::REDIRECT;           } else {                print "# welcome! \n";           }      }      return Apache2::Const::OK; } 1;

 

5. httpd.conf에 모듈을 사용하도록 설정 추가

<IfModule mod_perl.c>     PerlRequire /home/www/perl/MyApache2/startup.pl     <Location ~ "/*">         SetHandler perl-script         PerlResponseHandler MyApache2::RedirectUrl // 사용자 정의 모듈     </Location> </IfModule>

 

6. 필요시 XML 파싱을 위한 XML::Simple, XML::Parser 설치

     yum install expat-devel;

     cpan install XML::Simple;

     cpan isntall XML::Parser;

     cpan isntall APR::Table;