チェンジセット 82: trunk/install

差分発生行の前後
無視リスト:
コミット日時:
2008/11/15 16:59:42 (16 年前)
コミッタ:
sorshi
ログメッセージ:

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

ファイル:

凡例:

変更無し
追加
削除
更新
コピー
移動
  • trunk/install/perl/getxml2db.pl

    r79 r82  
    1919use DBI; 
    2020use DBD::Pg; 
     21use Digest::MD5 qw(md5_hex); 
    2122 
    2223$path = $0; 
     
    5556#$dbh->{AutoCommit} = 0; 
    5657 
    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  
     59my  $CacheDir = '/tmp/shobocal'; 
     60if (! -e $CacheDir) { 
     61        mkdir $CacheDir or die "cannot create $CacheDir: $!"; 
     62
     63my $cache = sprintf("%s/%s.xml", $CacheDir, Digest::MD5::md5_hex($uri)); 
     64LWP::Simple::mirror($uri, $cache) or die "cannot get content from $uri"; 
     65open(SHOBO, "<$cache"); 
     66my (@line) = <SHOBO>; 
     67close(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); 
    6474 
    6575foreach(@line){ 
track feed