14. Annexe

Voici le script d'Eric pour ajouter les RPM actualisés dans les répertoires de la distribution RedHat:

#!/usr/bin/perl
# 
$redhatdir="/cdrom/i386"; 
$rpmdir="/cdrom/i386/RedHat/RPMS/"; 
$updatedir="/cdrom/updates/"; 
@OTHERDIR=($updatedir); 
foreach $dir (@OTHERDIR) 
  { 
    print "update for $dir\n"; 
    system(" find $dir -name \"*.rpm\" -exec cp {} $rpmdir \\; "); 
  } 
chdir($contribdir) || die "peux pas aller dans $contribdir $!\n"; 
system("chmod -R 755 $redhatdir"); 
chdir($rpmdir) || die "problem to go in $rpmdir $!\n"; 
# 
# remove the old file  
# 
opendir(DIR,'.'); 
@package=grep(/\.rpm$/,readdir(DIR)); 
foreach $file (@package) 
  { 
    $file =~ /(.*)\-([\d+|\.]+\w*)\-(\d+)\.[i386|noarch].*/; 
    $nom=$1; 
    $version=$2; 
    $buildvers=$3;
    if ($NOM{$nom})
      {
        $version2=$VERSION{$nom};
        $buildver2=$BUILDVERS{$nom};
        $file2=$FILE{$nom};
        $nom2=$NOM{$nom};
        if ( $version2 gt $version )
          {
            print "$file2 is newer than $file\n";
            unlink($file);
          }
        else 
          {
            if ( $version2 lt $version )
              {
                print "$file is newer than $file2\n";
                unlink($file2);
                $VERSION{$nom}=$version;
                $BUILDVERS{$nom}=$buildvers;
                $FILE{$nom}=$file;
                $NOM{$nom}=$nom;
              }
            else
              {
                # print "$file2 $file same version version\n";
                if ( $buildver2 > $buildvers )
                  {
                    print "$file2 : $buildver2 est mieux que $file : $buildvers\n";
                    unlink($file);
                  }
                else
                  {
                    print "$file2 : $buildver2 is older than $file : $buildvers\n";
                    unlink($file2);
                    $VERSION{$nom}=$version;
                    $BUILDVERS{$nom}=$buildvers;
                    $FILE{$nom}=$file;
                    $NOM{$nom}=$nom;
                  }
              }
          }
      }
    else
      {
        $VERSION{$nom}=$version;
        $BUILDVERS{$nom}=$buildvers;
        $FILE{$nom}=$file;
        $NOM{$nom}=$nom;
      }
  }

# we do the hard thing here 
# 
system("$redhatdir/misc/src/install/genhdlist $redhatdir");