[devel] altbug

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

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

On Wed, Oct 29, 2008 at 06:07:22AM +0600, Mikhail Gusarov wrote:
> > Я думаю, что важным аспектом здесь является не только личная
> > отвественность, но и наличие группы, которая хотя бы
> > потенциально способна разгребать весь поток проблем...

Именно.  Причём это называется QA.

> Группа зовётся ALT Linux Team и потенциальна способна
> разгребать весь поток проблем на Сизиф.

Практически -- нет.

> Группа зовётся релиз-менеджеры дистрибутивов и потенциально
> способна разгребать весь поток проблем на дистрибутивы.

Ещё более нет.

> Группа зовётся ALT Linux Team (минус несколько не желающих) и
> потенциально способна разгребать весь поток проблем на бранчи.
> Что с большим или меньшим успехом и делается.

Увы, у нас последние несколько лет наблюдается скорее DoS.

> Других вариантов быть не может: место хранение багов должно быть одно.

+1

> Проблема одна: ресурса для пользователей нет. sisyphus.ru - не
> пользовательский ресурс. Его необходимо перестраивать, прежде
> чем его можно будет использовать как packages.altlinux.org.
> Оффлайного клиента, аналогично, нет - никто не взялся
> портировать reportbug(1).

См. аттач (thx at@), но его бы действительно дооблагородить,
задокументировать и в дистрибутивы.

-- 
 ---- 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";