freeradius2 採 pop3 中繼認證(支援 google apps, office365)

採用文章：

1. 山姆的IT人生: Freeradius 整合Gmail POP3s 協定認證
2. 新家: Freeradius2 POP3 over SSL 認證

環境：

• CentOS 5.11
• perl, freeradius2, freeradius2-utils, freeradius2-perl...(好像)
• cpan→Mail::POP3Client, cpan→IO::Socket::SSL
• 要用來認證的帳號，要記得去設定開啟 pop 

會異動的檔案：

1. raddb/proxy.conf
   [到檔尾，放在 realm DEFAULT {} 之前，假設是gmail.com]
   realm gmail.com {
      type = radius #都用 freeradius 了，不用解釋 type ，但 radius 不是唯一
      authhost = LOCAL #主要看你 radius.conf 的設定
      accthost = LOCAL #主要看你 radius.conf 的設定
      #secret = xxx #因為要跑去用 pop3 認證，所以不會使用自我認定，所以不需要密碼
      nostrip #告知送出帳號時要帶 realm
   }
2. raddb/modules/gpop3perl
   [gpop3perl 是用 modules/perl 複製出來的]
   [紅字可以自定，但要和 site-available/default, site-available/inner-tunnel 要對應]
   [藍字可以自定，但要和步驟 3 從 example.pl 複製過來的檔名對應]
   perl gpop3 {
      ....
      ....(前略)
      module = ${confdir}/gpop3.pl
      ....
      ....(後略)
   }
3. raddb/gpop3.pl
   [gpop3.pl 是從 raddb/example.pl 複製出來的]
   [紅色是增加的]
   [橘色是刪除或註解起來]
   [藍色是增加的]
   ....
   ....(前略)
   use Data::Dumper;
   use Mail::POP3Client;
   use IO::Socket::SSL;....
   ....(中略)
   ....
   sub authorize {
   ....
   ....#這一區不用動
   ....
   }
   sub authenticate {
   # For debugging purposes only
   # &log_request_attributes;
   # if ($RAD_REQUEST{'User-Name'} =~ /^baduser/i) {
   # # Reject user and tell him why
   # $RAD_REPLY{'Reply-Message'} = "Denied access by rlm_perl function";
   # return RLM_MODULE_REJECT;
   # } else {
   # # Accept user and set some attribute
   # $RAD_REPLY{'h323-credit-amount'} = "100";
   # return RLM_MODULE_OK;
   # }
   
           my $pop = Mail::POP3Client->new(
                   USER => $RAD_REQUEST{'Stripped-User-Name'},
                   PASSWORD => $RAD_REQUEST{'User-Password'},
                   HOST => "pop.gmail.com", #google apps pop3 server, office365 pop server is outlook.office365.com
                   USESSL => 1,
                   DEBUG => 1, # 可在 radius.log 看到詳細的認證記錄，不看改 0 就好
           );
   
           if($pop->Connect()){#連接成功
                   # login success
                   return RLM_MODULE_OK;
           }else{#連接失敗
                   # login fail
                   return RLM_MODULE_REJECT;    
           }
   
           $pop->Close;#認證結束，關閉連線
   }
   ....
   ....(後略)
4. raddb/site-available/default, raddb/site-available/inner-tunnel
   [有的狀況 inner-tunnel 並不用設定，但我自己的狀況不設定會有異常]
   [紅色的要建立的，POP3s 要和步驟 5 raddb/users 的對應]
   [gpop3 要跟步驟 2, 3 對應]
   ....
   ....(前略)
   authorize {
   ....(小略)
   #perl
   gpop3
   ....(小略)
   }
   
   authenticate {
   ....(小略)
   #Auth-Type PERL {
   #   perl
   #}
   Auth-Type POP3s {
      gpop3
   }
   ....(小略)
   }
   ....
   ....(後略)
5. raddb/users
   [至檔尾]
   [紅色的要建立的]
   ....(前略)
   DEFAULT Auth-Type = POP3s, Realm = gmail.com
   ....(後略)