經過guru老師的提點後,研究出用下面的方法便可以達成此需求。
建置環境:
Server:Suse Linux 11.1
Client:任一作業系統
Server:
- yast –i perl-IO-Socket-INET6 perl-Socket6
- http://search.cpan.org/~sullr/Net-INET6Glue-0.5/lib/Net/INET6Glue/INET_is_INET6.pm
下載 NET-INET6Glue-0.5.tar.gz
- tar –zxvf NET-INET6Glue-0.5.tar.gz –C /usr/lib/perl5/5.10.0/i586-linux-thread-multi
- cd /usr/lib/perl5/5.10.0/i586-linux-thread-multi/Net-INET6Glue-0.5
- perl Makefile.PL
- make
- make test
- make install
- vi /srv/www/cgi-bin/openwebmail/openwebmail-send.pl
在23行下新增下列內容:
use IO::Socket::INET;
use Net::INET6Glue::INET_is_INET6;
my $sock = IO::Socket::INET->new('[server IPv6 address]:25' => 'ipv4address:smtp(25)');
- service postfix restart
- service cyrus restart
- service saslauthd restart
- /srv/www/cgi-bin/openwebmail/openwebmail-tools.pl
- 開啟OpenWebMail 寄信測試
沒有留言:
張貼留言