IPv6/IPv4のアクセス画像表示

IPv6環境からアクセスしてきた時に、「via IPv6」と表示したくて、スクリプト作りました。
かなり簡単です。

判別方法はIPv6のコロンのあるなしだけ。
IPv6/IPv4のアクセスに応じて出力画像を変えます。


#!/usr/bin/perl

if($ENV{'REMOTE_ADDR'} =~ /:/){
        open(IMG, "./ipv6.jpg") or die;
}else{
        open(IMG, "./ipv4.jpg") or dir;
}

binmode IMG;
binmode STDOUT;
print "Content-type: image/$imgtype\n\n";
print while (<IMG>);
close(IMG);

exit(0);



access_image.cgi(プログラム本体) ←右クリック保存してください
ipv4.jpg(IPv4用画像)
ipv6.jpg(IPv6用画像)

興味があれば自由に使ってください。

トラックバック(0)

トラックバックURL: http://kirihari.net/mt/mt-tb.cgi/128

コメントする