source: soft/build_system/build_system/upload/robot/trunk/changelog @ 1

#!/usr/bin/perl
# -*- Mode: cperl -*-
# Send a changelog to $list

use strict;
use MIME::Words qw(encode_mimewords);
use vars qw($version $contrib $debug $club);
use URPM;

if ($ARGV[0] =~ /^-c/) {
    $contrib++;
    shift;
}

if ($ARGV[0] =~ /^-C/) {
    $club++;
    shift;
}

if ($ARGV[0] =~ /^-d/) {
    $debug++;
    shift;
}

if ($ARGV[0] =~ /^-f/) {
    shift;
    $version = shift;
}

my $rpm = shift or die "Give me a fuel for my aeroplane\n";
my $list = "Changelog List <changelog\@mandrivalinux.org>";
local *M;

#my $changelog = `~/robot/ch $rpm`;# die "Can't ~/robot/ch $rpm: $!" if $?;chomp $changelog;
#my $maintain = `~/robot/ch -m $rpm`;# die "Can't ~/robot/ch -m $rpm: $!" if $?;chomp $maintain;
my $official_maintainer = `~/robot/rpmmon -p $rpm`;

my $URPM = URPM->new();
my $description = `rpm --nosignature -qpi $rpm`;die "Can't ~/robot/ch -m $rpm: $!" if $?;
my ($id) = $URPM->parse_rpm($rpm, keep_all_tags => 1);
my $pkg = $URPM->{depslist}[$id];

my $name = $pkg->name . "-" . $pkg->version . "-" . $pkg->release;

my $changelog = ($pkg->changelog_name)[0] . "\n\n" . ($pkg->changelog_text)[0];
my $maintain = ($pkg->changelog_name)[0];
$maintain =~ s/<.*\@.*>.*//;

$description .= "\n";
$description .= "Buildarchs: ". join(' ',$pkg->buildarchs). "\n" if $pkg->buildarchs;
$description .= "Exclusivearch: ". join(' ',$pkg->exclusivearchs). "\n" if $pkg->exclusivearchs;
$description .= "Excludearch: ". join(' ',$pkg->exclusivearchs). "\n" if $pkg->excludearchs;

unless ($debug) {
    open M, "|/usr/sbin/sendmail -B8BITMIME -oi -t " or die "Can't fork for sendmail: $!\n";select M;
}

if ($club) {
  print "From: ", encode_mimewords($maintain), "<devel\@mandriva.com>\nTo: webmaster\@mandrivaclub.com\n";
} else {
  print "From: ", encode_mimewords($maintain), "<devel\@mandriva.com>\nTo: $list\nReply-To: cooker\@mandrivalinux.org\nSender: devel\@mandriva.com\n";
}

my $srpms;

my $tag;
if ($contrib) {
  if ($version) {
    $tag = "$version-";
    if ($club) { $tag = "Club-$tag" }
    $srpms = "/community/$version/SRPMS/contrib"
  } else {
    $srpms = '/SRPMS/contrib/release/'
  }
  print "Subject: [${tag}Contrib-Rpm] " . $name . "\n\n[Contrib-RPM]\n\n";
} else {
  if ($version) {
    $tag = "$version-";
    if ($club) { $tag = "Club-$tag" }
    $srpms = "/community/$version/SRPMS/main";
  } else {
    $srpms = '/SRPMS/main/release/';
  }
  print "Subject: [${tag}CHRPM] " . $name . "\n\n";
}

my $diff = `~/robot/diffsrcrpm $rpm $srpms`;
my $rpmlint = `rpmlint $rpm`;

print "-=-=-=-\n$description\n\n";
$official_maintainer ? print "-=-=-=-\nOfficial maintainer: $official_maintainer\n" : print "-=-=-=-\nUnmaintained......\n";
$changelog ? print "-=-=-=-\n$changelog\n\n" : print "-=-=-=-\nNothing :-( ......\n\n";
$rpmlint ? print "-=-=-=-\n$rpmlint\n" : print "-=-=-=-\nNo rpmlint error, happy (wo)man :-)\n\n";
print "-=-=-=-\nhttp://cvs.mandriva.com/cgi-bin/viewvc.cgi/" . ( $contrib ? "contrib-" : "" ) . "SPECS/" . $pkg->name . "/\n";
print "\n", "$diff" || "No diff from old package", "\n\n" ;
print "-- \nhttp://www.mandrivalinux.com/en/cookerdevel.php3\n";


close M unless $debug;