#!/usr/local/bin/perl

use LWP::Simple;

print "Content-type: text/plain\n\n";

docomo_ip();
au_ip();
softbank_ip();
willcom_ip();
docomo_device();
au_device();
softbank_device();

sub softbank_device {
	print "softbank device\n";
	my $out = "";
	my @url = ('http://developers.softbankmobile.co.jp/dp/tech_svc/info/phone4.php', 'http://developers.softbankmobile.co.jp/dp/tech_svc/info/phone3.php', 'http://developers.softbankmobile.co.jp/dp/tech_svc/info/phone2.php', 'http://developers.softbankmobile.co.jp/dp/tech_svc/info/');
	for (0..3) {
		my $content = get(@url[$_]);
		while ($content =~ m!((bgcolor="#ffffff">)|(<TR>\n.*<TD valign="top" bgcolor="#ffffff" nowrap>))<FONT size="1" class="j10">(.*)</FONT></TD>!g) {
			print $4, "\n";
			$out = "$4\n$out";
		}
	}
	$out =~ s/<br>/ /g;
	fileOverWrite("../tmp/sb_dev.txt", $out);
}


sub au_device {
	print "au device\n";
	my $out = "";
	my $url = 'http://www.au.kddi.com/ezfactory/tec/spec/new_win/ezkishu.html';
	my $content = get($url);
	while ($content =~ m!<td align="left" bgcolor="#f2f2f2"><div class="TableText">(.*)</div></td>!g) {
		print $1, "\n";
		$out = "$1\n$out";
	}
	$out =~ s/<br>/ /g;
	fileOverWrite("../tmp/au_dev.txt", $out);
}

sub docomo_device {
	print "docomo device\n";
	my $out = "";
	my $url = 'http://www.nttdocomo.co.jp/service/imode/make/content/spec/useragent/index.html';
	my $content = get($url);
	while ($content =~ m!<span class="txt">([A-Z]{1,2}[0-9]{3,4}[a-z&&]{1,10}).*</span></td>!g) {
		print $1, "\n";
		$out .= "$1\n";
	}
	$out =~ s/&nbsp//g;
	$out =~ s/&mu/myu/g;
	fileOverWrite("../tmp/docomo_dev.txt", $out);
}

sub docomo_ip {
	print "docomo ip\n";
	my $out = "";
	my $url = 'http://www.nttdocomo.co.jp/service/imode/make/content/ip/index.html';
	my $content = get($url);
	while ($content =~ m!<li>((([0-9]+)(.*?)){3})</li>!g) {
		print $1, "\n";
		$out .= "$1\n";
	}
	fileOverWrite("../tmp/docomo_ip.txt", $out);
}

sub au_ip {
	print "au ip\n";
	my $out = "";
	my $url = 'http://www.au.kddi.com/ezfactory/tec/spec/ezsava_ip.html';
	my $content = get($url);

	while ($content =~ m!<td><div class="TableText">(.*?)</div></td>(.*?)<td><div class="TableText">(.*?)</div></td>!sg) {
		print $1, $3, "\n";
		$out .= "$1$3\n";
	}
	fileOverWrite("../tmp/au_ip.txt", $out);
}

sub softbank_ip {
	print "softbank ip\n";
	my $out = "";
	my $url = 'http://developers.softbankmobile.co.jp/dp/tech_svc/web/ip.php';
	my $content = get($url);
	while ($content =~ m!<FONT size="2" class="j10".*?>(\d+\.\d+\.\d+\.\d+/\d+)</FONT>!g) {
		print $1, "\n";
		$out .= "$1\n";
	}
	fileOverWrite("../tmp/sb_ip.txt", $out);
}

sub willcom_ip {
	print "willcom ip\n";
	my $out = "";
	my $url = 'http://www.willcom-inc.com/ja/service/contents_service/club_air_edge/for_phone/ip/';
	my $content = get($url);
	while ($content =~ m!<font size="2">(\d+\.\d+\.\d+\.\d+/\d+)</font>!g) {
		print $1, "\n";
		$out .= "$1\n";
	}
	fileOverWrite("../tmp/willcom_ip.txt", $out);
}

#---------------------------------------
# ファイルに文字列を書き込む(上書き)
#---------------------------------------
# @param1 ファイルパス
# @param2 文字列
sub fileOverWrite {
	open(OUT,">$_[0]") || &error("File Write Error.");
	print OUT "$_[1]";
	close(OUT);
}