Subversion Repositories wimsdev

Rev

Rev 11931 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 11931 Rev 16140
Line 17... Line 17...
17 
my $today = strftime "%Y%m%d", localtime;
 17 
my $today = strftime "%Y%m%d", localtime;
18 
 
 18 
 
19 
open(IN, "wget -O - '$addr/index.txt' |");
 19 
open(IN, "wget -O - '$addr/index.txt' |");
20 
 
 20 
 
21 
while (<IN>){
 21 
while (<IN>){
22 
   my $l = $_;
 22 
  my $l = $_;
23 
   my ($wa, $junk2, $version, $publisher, $wims, $module)=split(' ', $l) ;
 23 
  my ($wa, $junk2, $version, $publisher, $wims, $module)=split(' ', $l) ;
24 
   my $module1=$module ; $module=~ s,/,\~,g ;
 24 
  my $module1=$module ; $module=~ s,/,\~,g ;
25 
   $wa=~ s/[0-9\.:]//g if ($wa) ;
 25 
  $wa=~ s/[0-9\.:]//g if ($wa) ;
26 
## test sur la version de wims
 26 
  ## test sur la version de wims
27 
   next if (($wims > $verwims) || ($wims == $verwims && ($wa gt $vawims) ));
 27 
  next if (($wims > $verwims) || ($wims == $verwims && ($wa gt $vawims) ));
28 
   ##il y a une version plus récente déjà
 28 
  ##il y a une version plus récente déjà
29 
   next if (($data{$module}) && (($data{$module}) > $wims));
 29 
  next if (($data{$module}) && (($data{$module}) > $wims));
30 
   $list = "$today: $module1 $version\n" ;
 30 
  $list = "$today: $module1 $version\n" ;
31 
   $data{$module}=$wims ;
 31 
  $data{$module}=$wims ;
32 
   wget($module,$wims) ;
 32 
  wget($module,$wims) ;
33 
   outcat ("public_html/modules/Changelog.new",$list)
 33 
  outcat ("public_html/modules/Changelog.new",$list)
34 
}
 34 
}
35 
 
 35 
 
36 
close IN;
 36 
close IN;
37 
 
 37 
 
38 
sub wget { my ($mod, $vers) = @_ ;
 38 
sub wget { my ($mod, $vers) = @_ ;
39 
   my @adr=split('\~', $mod);
 39 
  my @adr=split('\~', $mod);
40 
   system(`mkdir -p $directory/$adr[0] ;
 40 
  system("mkdir -p $directory/$adr[0] ;
41 
     mkdir -p $directory/$adr[0]/$adr[1] ;
 41 
    mkdir -p $directory/$adr[0]/$adr[1] ;
42 
     cd  $directory/$adr[0]/$adr[1];
 42 
    cd  $directory/$adr[0]/$adr[1];
43 
     wget -O $mod.tgz '$addr/$vers/$mod.tgz';
 43 
    wget -O $mod.tgz '$addr/$vers/$mod.tgz';
44 
     tar xzf $mod.tgz ; rm  $mod.tgz`) ;
 44 
    tar xzf $mod.tgz ; rm $mod.tgz") ;
45 
   }
 45 
}
46 
 
 46 
 
47 
sub out { my ($bloc, $text) = @_ ;
 47 
sub out { my ($bloc, $text) = @_ ;
48 
  open  (OUT, ">$bloc") || warn "peut pas créer $bloc";
 48 
  open  (OUT, ">$bloc") || warn "peut pas créer $bloc";
49 
  print OUT $text ; close OUT ;
 49 
  print OUT $text ; close OUT ;
50 
}
 50 
}