pkg://KickStart-HOWTO-html.tar.gz:17112/KickStart-HOWTO-14.html
downloads
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 3.2 Final//EN">
<HTML>
<HEAD>
<META NAME="GENERATOR" CONTENT="SGML-Tools 1.0.7">
<TITLE>·¹µåÇÞ ¸®´ª½º ű½ºÅ¸Æ® ÇÏ¿ìÅõ: ºÎ·Ï C - ÀÚ½ÅÀÌ ¸¸µç RPMÀ» ¹èÆ÷º»¿¡ Æ÷ÇÔ½Ã۱â</TITLE>
<LINK HREF="KickStart-HOWTO-13.html" REL=previous>
<LINK HREF="KickStart-HOWTO.html#toc14" REL=contents>
</HEAD>
<BODY>
´ÙÀ½
<A HREF="KickStart-HOWTO-13.html">ÀÌÀü</A>
<A HREF="KickStart-HOWTO.html#toc14">Â÷·Ê</A>
<HR>
<H2><A NAME="s14">14. ºÎ·Ï C - ÀÚ½ÅÀÌ ¸¸µç RPMÀ» ¹èÆ÷º»¿¡ Æ÷ÇÔ½Ã۱â</A></H2>
<P>
<P>´ÙÀ½Àº EricÀÇ ¾÷µ¥ÀÌÆ®µÈ RPMÀ» ·¹µåÇÞ ¹èÆ÷ÆÇ¿¡ ³Ö´Â ½ºÅ©¸³Æ®ÀÌ´Ù.
<P>
<P>
<BLOCKQUOTE><CODE>
<PRE>
#!/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
{
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");
</PRE>
</CODE></BLOCKQUOTE>
<P>
<P>
<HR>
´ÙÀ½
<A HREF="KickStart-HOWTO-13.html">ÀÌÀü</A>
<A HREF="KickStart-HOWTO.html#toc14">Â÷·Ê</A>
</BODY>
</HTML>