ward/publicscripts
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

hmmm, works pretty well now...

Browse source
This commit is contained in:
Ward Wouts 2003-02-13 10:05:27 +00:00
parent f0e8507f56
commit 1721556370
1 changed files with 79 additions and 27 deletions
Download patch file Download diff file Expand all files Collapse all files

106
rpm_compare/rpm_compare
View file

@ -13,35 +13,22 @@ my @RPMPATHS=(
"/home/ward/REDHAT73/ftp.nluug.nl/pub/os/Linux/distr/RedHat/ftp/pub/redhat/linux/updates/7.3/en/os/i386", "/home/ward/REDHAT73/ftp.nluug.nl/pub/os/Linux/distr/RedHat/ftp/pub/redhat/linux/updates/7.3/en/os/i386",
"/home/ward/REDHAT73/ftp.nluug.nl/pub/os/Linux/distr/RedHat/ftp/pub/redhat/linux/updates/7.3/en/os/i686", "/home/ward/REDHAT73/ftp.nluug.nl/pub/os/Linux/distr/RedHat/ftp/pub/redhat/linux/updates/7.3/en/os/i686",
"/home/ward/REDHAT73/ftp.nluug.nl/pub/os/Linux/distr/RedHat/ftp/pub/redhat/linux/updates/7.3/en/os/noarch", "/home/ward/REDHAT73/ftp.nluug.nl/pub/os/Linux/distr/RedHat/ftp/pub/redhat/linux/updates/7.3/en/os/noarch",
"/home/ward/REDHAT73/homemade",
); );
my $SSH="/usr/bin/ssh"; my $SSH="/usr/bin/ssh";
my %instrpms = ();
my %refrpms = ();
my %option = (); my %option = ();
getopts("f:ho:pqs:", \%option);
if ( $option{h} ) { &help; } &cmdline;
if ( $option{f} && ( ! $option{p} ) && ( ! $option{s} ) ) {
my %refrpms = &fileread($option{f});
} elsif ( $option{p} && ( ! $option{f} ) && ( ! $option{s} ) ) {
my %refrpms = &pathread;
if ( $option{o} ) {
open(FH, ">$option{o}") or die "Couldn't open $option{o}: $!";
print FH Dumper(\%refrpms);
close(FH);
}
} elsif ( $option{s} && ( ! $option{f} ) && ( ! $option{p} ) ) {
&serverread($option{s});
} else {
&help;
}
# Met pathread en RPM-Perlonly-1.0.1 moet het mogelijk zijn te bepalen # Met pathread en RPM-Perlonly-1.0.1 moet het mogelijk zijn te bepalen
# welke RPM de nieuwste is. Hierna is het (denk ik) relatief eenvoudig # welke RPM de nieuwste is. Hierna is het (denk ik) relatief eenvoudig
# te bepalen op welke systemen er dus packages geupdate moeten worden... # te bepalen op welke systemen er dus packages geupdate moeten worden...
sub pathread { sub pathread {
my %allrpms = ();
my %entry = (); my %entry = ();
my ( $line, $prefix ); my ( $line, $prefix );
foreach $prefix ( @RPMPATHS ) { foreach $prefix ( @RPMPATHS ) {
@ -61,7 +48,7 @@ sub pathread {
$rpm{'EPOCH'} = 0; $rpm{'EPOCH'} = 0;
} }
#print " ARCH: $rpm{'ARCH'}\n"; #print " ARCH: $rpm{'ARCH'}\n";
push @{$allrpms{$rpm{'NAME'}}}, ( { push @{$refrpms{$rpm{'NAME'}}}, ( {
'NAME', $rpm{'NAME'}, 'NAME', $rpm{'NAME'},
'BUILDTIME', $rpm{'BUILDTIME'}, 'BUILDTIME', $rpm{'BUILDTIME'},
'VERSION', $rpm{'VERSION'}, 'VERSION', $rpm{'VERSION'},
@ -76,8 +63,6 @@ sub pathread {
} }
closedir DH; closedir DH;
} }
return %allrpms;
} }
sub fileread($) { sub fileread($) {
@ -87,16 +72,50 @@ sub fileread($) {
my $data = do { local $/; <FH>; }; my $data = do { local $/; <FH>; };
close FH; close FH;
eval $data; eval $data;
my %allrpms = %{$VAR1}; %refrpms = %{$VAR1};
&outputnewest(%allrpms); &outputnewest(%refrpms);
return %allrpms;
} }
sub serverread($) { sub serverread($) {
my $server = shift; my $server = shift;
# open .... or die "Couldn't execute ....: $!"; my $name;
if ( $option{l} ) {
# close ....; open CH, "rpm -qa|" or die "Can't fork: $!";
} else {
open CH, "ssh -x $server rpm -qa|" or die "Can't fork: $!";
}
while ( <CH> ) {
chomp;
$name = $_;
$name =~ s/(.*?)-([^-]*)-([^-]*)$/$1/;
unless ( $option{q} ) {
print "$_\n";
print "$name\n";
}
push @{$instrpms{$name}}, $_;
}
close CH;
}
sub comparerpms() {
my ( $correct, $installed );
foreach ( sort keys %instrpms ) {
if ( exists $refrpms{$_} ) {
$correct = @{$refrpms{$_}}[0]->{'FILENAME'};
$correct =~ s/\.(i[36]86|noarch)(\.rpm)?$//;
foreach $installed ( @{$instrpms{$_}} ) {
unless ( $correct eq $installed ) {
print "\ncorrect: $correct\n";
print "installed: $installed\n";
}
}
} else {
print "\n$_ doesn't exist in reference tree\n";
foreach my $rpm ( @{ $instrpms{$_} } ) {
print " $rpm\n";
}
}
}
} }
sub outputnewest(@) { sub outputnewest(@) {
@ -147,6 +166,39 @@ sub splitname($$) {
} }
} }
sub cmdline {
getopts("f:hlo:pqs:", \%option);
if ( $option{h} ) { &help; }
unless ( $option{f} || $option{l} || $option{p} || $option{s} ) { &help; }
if (
( $option{f} && ( $option{p} || $option{o} ) ) ||
( $option{l} && $option{s} )
) {
&help;
}
if ( $option{f} ) {
&fileread($option{f});
} elsif ( $option{p} ) {
&pathread;
if ( $option{o} ) {
open(FH, ">$option{o}") or die "Couldn't open $option{o}: $!";
print FH Dumper(\%refrpms);
close(FH);
}
}
if ( $option{l} ) {
&serverread("localhost");
} elsif ( $option{s} ) {
&serverread($option{s});
}
if ( ( $option{f} || $option{p} ) && ( $option{l} || $option{s} ) ) {
&comparerpms;
}
}
sub help() { sub help() {
print << "EOT"; print << "EOT";
@ -154,7 +206,7 @@ sub help() {
-f <file> Read reference rpms from file -f <file> Read reference rpms from file
-h Display this help -h Display this help
-l Read installed rpms from localhost -l Read installed rpms from localhost, overrides -s
-o <file> Write reference rpms to file, only useful in combination with -p -o <file> Write reference rpms to file, only useful in combination with -p
-p Read rpms from build in mirror paths -p Read rpms from build in mirror paths
-q Quiet down a bit -q Quiet down a bit