#!/usr/bin/perl -w

$distdir = "/home/natura/download/snapshots";
chomp($data = `date +%Y%m%d`);

%cvss = (cvs => '/home/cvsroot/cvs');

open DT,"data" or die;
while(<DT>) {
  chomp;
  go(split/:/);
}
close DT;

sub go {
  my ($module, $cvs, $cvsdir) = @_;
  my $dir = "$module-$data";
  mkdir $dir;
  `cd $dir; cvs -d$cvss{$cvs} export -D now $cvsdir`;
  chomp(my $x = `cd $dir; ls -1 --color=no`);
  `cd $dir; mv $x _;mv _/* .; mv _/.* .; rmdir _`;
  `tar zcvf $module-$data.tar.gz $module-$data`;
  `rm -fr $module-$data`;
  `mv $module-$data.tar.gz $distdir/$module`;
}