チェンジセット 82

コミット日時:

2008/11/15 16:59:42 (16 年前)

コミッタ:

sorshi

ログメッセージ:

getxml2db.pl:
If-Modified-Sinceの条件付きGETに対応。

ファイル:

trunk/doc/CHANGES.txt

r79	r82
1	1	foltia 更新履歴 http://www.dcc-jpl.com/soft/foltia/
	2
	3	08.11.15
	4	getxml2db.pl:
	5	If-Modified-Sinceの条件付きGETに対応。
2	6
3	7	08.6.27

r79	r82
19	19	use DBI;
20	20	use DBD::Pg;
	21	use Digest::MD5 qw(md5_hex);
21	22
22	23	$path = $0;
…	…
55	56	#$dbh->{AutoCommit} = 0;
56	57
57		my ($content) = get("$uri");
58		if ($content eq ""){
59		&writelog("getxml2db no responce from $uri, exit:");
60		exit;#しょぼかるが落ちているなど
61		}
62
63		my (@line) = split(/\n/, $content);
	58	# If-Modified-Since使うように変更#2008/11/14
	59	my $CacheDir = '/tmp/shobocal';
	60	if (! -e $CacheDir) {
	61	mkdir $CacheDir or die "cannot create $CacheDir: $!";
	62	}
	63	my $cache = sprintf("%s/%s.xml", $CacheDir, Digest::MD5::md5_hex($uri));
	64	LWP::Simple::mirror($uri, $cache) or die "cannot get content from $uri";
	65	open(SHOBO, "<$cache");
	66	my (@line) = <SHOBO>;
	67	close(SHOBO);
	68	#my ($content) = get("$uri");
	69	#if ($content eq ""){
	70	#&writelog("getxml2db no responce from $uri, exit:");
	71	# exit;#しょぼかるが落ちているなど
	72	#}
	73	#my (@line) = split(/\n/, $content);
64	74
65	75	foreach(@line){