Changeset 2527


Ignore:
Timestamp:
Dec 2, 2011, 6:34:55 PM (9 years ago)
Author:
teymour
Message:

Meilleurs gestion des mises à jour

File:
1 edited

Legend:

Unmodified
Added
Removed
  • cpc/branches/senat/project/batch/hemicycle/download_hemicycle.pl

    r2465 r2527  
    55use URI::Escape;
    66use Encode;
     7
     8#$since_hour = shift || 24;
    79
    810@files = <./html/*>;
     
    1719
    1820my ($sec,$min,$hour,$mday,$mon,$year) = localtime(time);
     21$year+=1900;
     22if ($mday < 10 && $mon == $dmois && $year == $dannee) {
     23        $dmois--;
     24        if ($dmois < 1) {
     25                $dmois = 12;
     26                $dannee--;
     27        }
     28}
    1929$mon += 1;
    2030$a = WWW::Mechanize->new();
     31#$a->add_header('If-Modified-Since' => scalar(localtime(time()-3600*$since_hour)));
    2132
    22 for($annee = $dannee ; $annee <= $year +1900 ; $annee++) {
     33for($annee = $dannee ; $annee <= $year ; $annee++) {
    2334$lastmonth = 12;
    24 $lastmonth = $mon if ($year + 1900 == $annee);
     35$lastmonth = $mon if ($year == $annee);
    2536for($mois = $dmois ; $mois <= $lastmonth ; $mois++) {
    2637    print STDERR "$mois ($lastmonth) $annee ($year)\n";
     
    4455              next;
    4556          }
     57          $thecontent = $a->content;
     58          if(!$thecontent) {
     59                $a->back();
     60                next;
     61          }
     62
    4663          $file = uri_escape($a->uri());
    47           open FILE, ">:utf8", "html/$file";
     64          open FILE, ">:utf8", "html/$file.tmp";
    4865          $thecontent = $a->content;
    4966          if ($thecontent =~ s/iso-8859-1/utf-8/gi) {
     
    5269          print FILE $thecontent;
    5370          close FILE;
    54           print "$file\n";
     71          if (! -e "html/$file" || -s "html/$file" != -s "html/$file.tmp") {
     72                rename "html/$file.tmp", "html/$file";
     73                print "$file\n";
     74          }else {
     75                unlink ("html/$file.tmp");
     76          }
    5577          $a->back();
    5678    }
Note: See TracChangeset for help on using the changeset viewer.