jpprepodiff

#!/usr/bin/perl -w

use strict;
use warnings;
use Carp;
use Getopt::Long;
use ALTLinux::ACL;

my ($verbose);
#my @aclusers=('viy','@java');
my $cmd='git.alt';
my $PATH1='/var/ftp/pub/Linux/ALT/t6/branch/files/SRPMS';
my $PATH2='/var/ftp/pub/Linux/ALT/Sisyphus/files/SRPMS';

my $result = GetOptions (
			 "path1=s" => \$PATH1,
			 "path2=s" => \$PATH2,
			 "out=s"  => \$cmd,
			 "verbose"  => \$verbose);
my ($alt,$jpp);

sub usage {
    print "usage: $0 [ options ]
options:
--acl   /path/to/acl/file 
--path1 /path/to/oldrepo/SRPMS 
--path2 /path/to/newrepo/SRPMS
--verbose
";
}

unless (-d $PATH1) {
    print STDERR "path1 not found: $PATH1
";
    exit (64);
}

unless (-d $PATH2) {
    print STDERR "path2 not found: $PATH2
";
    exit (64);
}

my $acl=ALTLinux::ACL->new();

my @newer;
my @deprecated;
for my $name (@ARGV) {
    next unless $acl->is_authorized($name, 'viy');
    my $rpm1=&find_rpm($name, $PATH1);
    my $rpm2=&find_rpm($name, $PATH2);
    unless ($rpm2 || $rpm1) {
	print "oops: not found $name \n";
	next;
    }
    unless ($rpm2) {
#	print "info: deprecated $rpm1 \n";
	push @deprecated, $rpm1;
	next;
    }
    unless ($rpm1) {
#	print "info: newer $rpm2 \n";
	push @newer, $rpm2;
	next;
    }
    my $cmp = &rpmevrcmp(&get_rpm_evr($rpm2), &get_rpm_evr($rpm1));
    if ($cmp >0) {
#	print "oops:cmp=$cmp for $rpm1 $rpm2 \n";
	push @newer, $rpm2;
    }
}

open (GITALT,'>', $cmd) || die "can't open $cmd: $!";
print GITALT "ssh git.alt task new t6\n";

print "\nthe following packages are newer:\n";
for my $rpm (@newer) {
#    my $nvr=&get_rpm_nvr($rpm);
#    print "".$nvr."\n";
    print GITALT "ssh git.alt task add copy ",&get_rpm_name($rpm)."\n";
    print &get_rpm_nvr($rpm)."\n";
}

print "\nthe following packages are deprecated:\n";
for my $rpm (@deprecated) {
    print GITALT "ssh git.alt task add del ",&get_rpm_name($rpm)."\n";
    print &get_rpm_nvr($rpm)."\n";
}
print GITALT "ssh git.alt task run\n";

#-------------------------------------------------------
# stolen from jppmass #
# should be in separate module

sub get_name_and_rpm {
    my $name=shift;
    my $PATHPtr=shift;
    my $rpm=$name;
    if ($name=~/.src.rpm$/) {
	$name=&get_rpm_name($rpm);
    } else {
	$rpm = &find_rpm($name, @$PATHPtr);
    }
    return $name, $rpm;
}

sub get_rpm_name {
    my $rpm=shift;
    my $name=`rpmquery --queryformat '\%{NAME}' -p $rpm`;
    chomp $name;
    return $name;
}

sub alt_jpp_rpmvercmp {
    my ($altrpm, $jpprpm) =@_;
    return -1 unless $altrpm;
    return 1 unless $jpprpm;
    my $altversion=&get_rpm_version($altrpm);
    my $altrelease=&get_rpm_release($altrpm);
    my $jppversion=&get_rpm_version($jpprpm);
    my $jpprelease=&get_rpm_release($jpprpm);
    my $cmp = $altversion cmp $jppversion;
    if ($cmp!=0) {
	$cmp=&rpmvercmp($altversion, $jppversion);
	print STDERR "$altversion rpmcmp $jppversion = $cmp\n" if $verbose;
    }
    return $cmp if $cmp !=0;
    if ($altrelease=~/^alt([^_]+)_(.+jpp)(\d.\d)$/) {
	$cmp =$2 cmp $jpprelease;
	print STDERR "$2 cmp $jpprelease = $cmp\n" if $verbose;
	return $2 cmp $jpprelease;
    }
    return -1;
}

sub get_rpm_version {
    my $rpm=shift;
    my $name=`rpmquery --queryformat '\%{VERSION}' -p $rpm`;
    chomp $name;
    return $name;
}

sub get_rpm_release {
    my $rpm=shift;
    my $name=`rpmquery --queryformat '\%{RELEASE}' -p $rpm`;
    chomp $name;
    return $name;
}

sub get_rpm_evr {
    my $rpm=shift;
    my $name=`rpmquery --queryformat '\%{EPOCH}:\%{VERSION}-\%{RELEASE}' -p $rpm`;
    $name=~s/\(none\)/0/;
    chomp $name;
    return $name;
}

sub get_rpm_nvr {
    my $rpm=shift;
    my $name=`rpmquery -p $rpm`;
    chomp $name;
    return $name;
}

sub rpmvercmp {
    my $cmp = `rpmvercmp $_[0] $_[1]`;
    chomp $cmp;
    return $cmp;
}

sub rpmevrcmp {
    my $cmp = `rpmevrcmp $_[0] $_[1]`;
    chomp $cmp;
    return $cmp;
}

sub find_rpm {
    my $name=shift;
    for my $path (@_) {
	for my $rpm (reverse(glob "$path/$name-*.src.rpm")) {
#	print STDERR "trying $rpm for $name\n";
	    return $rpm if ($name eq &get_rpm_name($rpm));
	}
    }
    return;
}

sub dirname {
    my @path= split('/',$_[0]);
    pop @path;
    return join('/',@path);
}