[FLUG] in pratica sono il migliore
- From: Gecco under VNC <gecco@xxxxxxxxxxxx>
- To: fanolug@xxxxxxxxxxxxx
- Date: Fri, 19 Apr 2002 14:02:09 +0200
Mailing List del Fortunae LUG
=============================
#!/usr/bin/perl
@rpm_remoti = `cd /home/ftp/pub/updates/i386/ ; ls *.rpm`;
@rpm_locali = `rpm -qa`;
$remoti = @rpm_remoti;
$locali = @rpm_locali;
print "ci sono installati $locali pacchetti\n";
print "quelli remoti sono $remoti in updates\n";
print "remoti - locali\n\n";
if($remoti < $locali)
{
$maggiore=$locali;
$minore=$remoti;
}
else
{
$maggiore=$remoti;
$minore=$locali;
}
for ($a=0; $a<$minore; $a++)
{
for($b=0; $b<$maggiore; $b++)
{
chomp($rpm_remoti[$a]);
chomp($rpm_locali[$b]);
@rem=split(/\d\.\d/, $rpm_remoti[$a]);
@loc=split(/\d\.\d/, $rpm_locali[$b]);
if ($rem[0] eq $loc[0] )
{
print "$rpm_remoti[$a] - $rpm_locali[$b]\n";
}
}
}
lanciandolo, in teoria dovrebbe printare gli rpm che sono da aggiornare,
pero' questa features deve ancora essere implementata, intanto si limita
a confrontare gli rpm installati con quelli della dir updates dell'ftp
di redhat, (la cui dir, in questo caso, viene mountata din
/home/ftp/pub/updates/i386 come spiegato da me diverse mail fa)
e printa i pacchetti installati e le versioni dello stesso pacchetto che
e' sull'ftp, cosi' uno poi se lo aggiorna...
notete pure l'uro delle regexp
bau
--
"Lavoratori: prrrrrrrrrrrrrrr" (A. Sordi)
--
http://10.0.100.201/fanolug/
Other related posts:
- » [FLUG] in pratica sono il migliore
