Subversion Repositories wimsdev

#!/usr/bin/perl -w

use POSIX qw(strftime);

#use strict ;

#use warnings;

###execute in wims directory

my $mirror='wimsedu';

my $addr='http://downloadcenter.wimsedu.info/publish/modules' ;

my $directory='public_html/modules';

my $verwims=`cat version` ; ## la version doit être écrite avec deux décimales !

my $vawims ;

($vawims = $verwims) =~ s/[0-9\.]//g;

$verwims =~ s/[a-z]//g;

my $list='';

my %data;

my $today = strftime "%Y%m%d", localtime;

open(IN, "wget -O - '$addr/index.txt' |");

while (<IN>){

  my $l = $_;

  my ($wa, $junk2, $version, $publisher, $wims, $module)=split(' ', $l) ;

  my $module1=$module ; $module=~ s,/,\~,g ;

  $wa=~ s/[0-9\.:]//g if ($wa) ;

  ## test sur la version de wims

  next if (($wims > $verwims) || ($wims == $verwims && ($wa gt $vawims) ));

  ##il y a une version plus récente déjà

  next if (($data{$module}) && (($data{$module}) > $wims));

  $list = "$today: $module1 $version\n" ;

  $data{$module}=$wims ;

  wget($module,$wims) ;

  outcat ("public_html/modules/Changelog.new",$list)

}

close IN;

sub wget { my ($mod, $vers) = @_ ;

  my @adr=split('\~', $mod);

  system("mkdir -p $directory/$adr[0] ;

    mkdir -p $directory/$adr[0]/$adr[1] ;

    cd  $directory/$adr[0]/$adr[1];

    wget -O $mod.tgz '$addr/$vers/$mod.tgz';

    tar xzf $mod.tgz ; rm $mod.tgz") ;

}

sub out { my ($bloc, $text) = @_ ;

  open  (OUT, ">$bloc") || warn "peut pas créer $bloc";

  print OUT $text ; close OUT ;

}

sub outcat { my ($bloc, $text) = @_ ;

  open  (OUT, ">>$bloc") || warn "peut pas créer $bloc";

  print OUT $text ; close OUT ;

}