Filewatcher File Search
FTP Search
  
Directory 
  
Content Search 
   
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>
Results 1 - 1
Help - FTP Sites List - Software Dir.
Searching half a billion files worldwide
© 1997-2009 MARUHN Internet Solutions