source: install/scripts/diff.archives.sympa @ 14

*** archived.pl.orig    Sat Feb 23 20:25:57 2002
--- archived.pl Sat Sep 14 15:05:49 2002
***************
*** 294,346 ****
      #    chdir($wwsconf->{'arc_path'});
      
      if (! -d "$arcpath/$listname\@$hostname") {
!       unless (mkdir ("$arcpath/$listname\@$hostname", 0775)) {
            &do_log('notice', 'Cannot create directory %s', "$arcpath/$listname\@$hostname");
            return undef;
        }
        do_log('debug',"mkdir $arcpath/$listname\@$hostname");
      }
!     if (! -d "$arcpath/$listname\@$hostname/$yyyy-$mm") {
!       unless (mkdir ("$arcpath/$listname\@$hostname/$yyyy-$mm", 0775)) {
!           &do_log('notice', 'Cannot create directory %s', "$arcpath/$listname\@$hostname/$yyyy-$mm");
!           return undef;
!       }
!       do_log('debug',"mkdir $arcpath/$listname\@$hostname/$yyyy-$mm");
!     }
!     if (! -d "$arcpath/$listname\@$hostname/$yyyy-$mm/arctxt") {
!       unless (mkdir ("$arcpath/$listname\@$hostname/$yyyy-$mm/arctxt", 0775)) {
!           &do_log('notice', 'Cannot create directory %s', "$arcpath/$listname\@$hostname/$yyyy-$mm/arctxt");
!           return undef;
!       }
!       do_log('debug',"mkdir $arcpath/$listname\@$hostname/$yyyy-$mm/arctxt");
!     }
!     
!     ## copy the file in the arctxt and in "mhonarc -add"
!     opendir (DIR, "$arcpath/$listname\@$hostname/$yyyy-$mm/arctxt");
!     my @files = (sort { $a <=> $b;}  readdir(DIR)) ;
!     $files[$#files]+=1;
!     my $newfile = $files[$#files];
! #    my $newfile = $files[$#files]+=1;
      
      my $mhonarc_ressources = &get_ressources ($listname . '@' . $hostname) ; 
      
      do_log ('debug',"calling $wwsconf->{'mhonarc'} for list $listname\@$hostname" ) ;
!     my $cmd = "$wwsconf->{'mhonarc'} -add -rcfile $mhonarc_ressources -outdir $arcpath/$listname\@$hostname/$yyyy-$mm  -definevars \"listname='$listname' hostname=$hostname yyyy=$yyyy mois=$mm yyyymm=$yyyy-$mm wdir=$wwsconf->{'arc_path'} base=$Conf{'wwsympa_url'}/arc \" -umask $Conf{'umask'} < $queue/$file";
!     
      my $exitcode = system($cmd);
      if ($exitcode) {
             do_log('debug',"Command $cmd failed with exit code $exitcode");
      }
  
      
-     open (ORIG, "$queue/$file") || fatal_err("couldn't open file $queue/$file");
-     open (DEST, ">$arcpath/$listname\@$hostname/$yyyy-$mm/arctxt/$newfile") || fatal_err("couldn't open file $newfile");
-     while (<ORIG>) {
-         print DEST $_ ;
-     }
-     
-     close ORIG;  
-     close DEST;
  }
  
  sub get_ressources {
--- 294,345 ----
      #    chdir($wwsconf->{'arc_path'});
      
      if (! -d "$arcpath/$listname\@$hostname") {
!       unless (system("/data/exec/wmkdir $arcpath/$listname\@$hostname 0775")) {
            &do_log('notice', 'Cannot create directory %s', "$arcpath/$listname\@$hostname");
            return undef;
        }
        do_log('debug',"mkdir $arcpath/$listname\@$hostname");
      }
! #    if (! -d "$arcpath/$listname\@$hostname/$yyyy-$mm") {
! #     unless (system("/data/exec/wmkdir $arcpath/$listname\@$hostname/$yyyy-$mm 0775")) {
! #         &do_log('notice', 'Cannot create directory %s', "$arcpath/$listname\@$hostname/$yyyy-$mm");
! #         return undef;
! #     }
! #     do_log('debug',"mkdir $arcpath/$listname\@$hostname/$yyyy-$mm");
! #    }
! #    if (! -d "$arcpath/$listname\@$hostname/$yyyy-$mm/arctxt") {
! #     unless (system("/data/exec/wmkdir $arcpath/$listname\@$hostname/$yyyy-$mm/arctxt 0775")) {
! #         &do_log('notice', 'Cannot create directory %s', "$arcpath/$listname\@$hostname/$yyyy-$mm/arctxt");
! #         return undef;
! #     }
! #     do_log('debug',"mkdir $arcpath/$listname\@$hostname/$yyyy-$mm/arctxt");
! #    }
!     
! #    ## copy the file in the arctxt and in "mhonarc -add"
! #    opendir (DIR, "$arcpath/$listname\@$hostname/$yyyy-$mm/arctxt");
! #    my @files = (sort { $a <=> $b;}  readdir(DIR)) ;
! #    $files[$#files]+=1;
! #    my $newfile = $files[$#files];
! ##    my $newfile = $files[$#files]+=1;
      
      my $mhonarc_ressources = &get_ressources ($listname . '@' . $hostname) ; 
      
      do_log ('debug',"calling $wwsconf->{'mhonarc'} for list $listname\@$hostname" ) ;
!     my $cmd = "$wwsconf->{'mhonarc'} -add -rcfile $mhonarc_ressources -outdir $arcpath/$listname\@$hostname/ -definevars \"listname='$listname' hostname=$hostname yyyy=$yyyy mois=$mm yyyymm=$yyyy-$mm wdir=$wwsconf->{'arc_path'} base=$Conf{'wwsympa_url'}/arc \" -umask $Conf{'umask'} < $queue/$file";
      my $exitcode = system($cmd);
      if ($exitcode) {
             do_log('debug',"Command $cmd failed with exit code $exitcode");
      }
  
+ #    open (ORIG, "$queue/$file") || fatal_err("couldn't open file $queue/$file");
+ #    open (DEST, ">$arcpath/$listname\@$hostname/$yyyy-$mm/arctxt/$newfile") || fatal_err("couldn't open file $newfile");
+ #    while (<ORIG>) {
+ #        print DEST $_ ;
+ #    }
+ #    
+ #    close ORIG;  
+ #    close DEST;
      
  }
  
  sub get_ressources {