Re: paquet debian

[Pascal BERNARD <pascal.bernard1@free.fr>]

Personnellement, j"utilise le scripts suivant. Il doit tourner sur un autre
systeme que celui que l'on sauve. Comme cela on est sur que le systeme
sauve est fige.

On peut utiliser tar --gzip en place de cpio pour gagner de la place, prendre
la precaution de l'option -print0 dans find comme il est suggere par ailleurs.

#!/usr/bin/perl -w
#####################################
#                                   #
#     Archivage de tout             #
#                                   #
#####################################



# Partition d'archivage
print `mount -t ext2       /dev/hdd6 /mnt/tmp` ;

# Sauvegardes

%corresp = ( 'root' => 'b4' ,
             'usr'  => 'b6' ,
             'home' => 'b2' ,
             'var'  => 'b5'
           ) ;

$actif = 1 ; # 0 pour deboguer
sub shell {
  $com = $_[0] ;
  print ">> $com\n" ;
  if ( $actif ) {
    print `$com` ;
  }
}

foreach ( keys %corresp ) {
   shell "mount -t ext2 -o ro /dev/hd$corresp{$_} /mnt/debian" ;
   chdir '/mnt/debian' ;
   shell "find . | cpio -aoH crc -O ../tmp/debian${_}.cpio" ;
   chdir '/mnt' ;
   shell "umount /mnt/debian" ;
}

print `umount /mnt/tmp` ;