Re: [devel] ANN: закрытие багов через changelog пакетов

[Michael Shigorin <mike@osdn.org.ua>]

[-- Attachment #1: Type: text/plain, Size: 580 bytes --]

On Fri, Apr 10, 2009 at 08:35:11PM +0400, Vladimir Lettiev wrote:
> может реализовать консольный вариант утилиты или прикрутить к
> git.alt какой-нибудь ssh git.alt bug #3404 close?

Ой, и так уже к ssh git.alt думаю, что бы прикрутить.
А ты точно не видел altbug.pl?

2 zerg: я вот тоже не представляю, как роботу догадываться.
Если руками ходить перевешивать -- то сразу и закрыть уж проще.

2 bga: ой нет, вот только писем по поводу и без повода не надо,
это добро я и сам умею.

-- 
 ---- WBR, Michael Shigorin <mike@altlinux.ru>
  ------ Linux.Kiev http://www.linux.kiev.ua/

[-- Attachment #2: altbug --]
[-- Type: text/plain, Size: 870 bytes --]

#!/usr/bin/perl

use strict;
use WWW::Bugzilla;

# ~/.altbug.pl:
#	$email='my_name@altlinux.org';
#	$password='my_password';
our ($email, $password);
do <~/.altbug.pl>; chmod 0600, <~/.altbug.pl*>;

die "no email?" unless $email =~ /@/;
die "no password?" unless $password =~ /\S/;

use Getopt::Long qw(GetOptions);
GetOptions
	'pkg|package=s' => \my $pkg,
	'subj|subject|summary=s' => \my $subj
		or exit(1);

my $descr = join "" => <>;

die "no package?" unless $pkg =~ /\S/;
die "no summary?" unless $subj =~ /\S/;
die "no description?" unless $descr =~ /\S/;

my $bz = WWW::Bugzilla->new(
	server		=> 'bugzilla.altlinux.org',
	product		=> 'Sisyphus',
	use_ssl		=> 1,
	email		=> $email,
	password	=> $password)
		or die "Connection failed";

$bz->component($pkg);
$bz->summary($subj);
$bz->description($descr);

my $id = $bz->commit;
print "committed #$id: $subj\n";