[devel] багзила -- это дела половина?

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

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

On Fri, Feb 02, 2007 at 12:53:09AM +0600, Mikhail Gusarov wrote:
> Я бы всё-таки предложил использовать issue tracker для того,
> чтобы отмечать задачи вида "этот пакет нуждается в обновлении":
> репозиторий для этого подходит плохо, да и кому охота сидеть на
> сломанном Сизифе?  Думаю, я смогу нарисовать робота, вешающего
> RC-баги на пакеты, зависящие от библиотеки, перемещаемой в
> oldlibs, или следить за этим ручками.

У нас умельцев со скриптами вешать баги заметно больше,
чем умельцев писать скрипты для их починки.

С bugzilla abuse есть такой отрицательный момент -- смотришь 
в двести тыщь мильёнов багов, что на тебе висят, и руки
опускаются что-то делать.  Через полгода, зажмурившись,
добираешься -- а там половина по пять минут на баг чинится.

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

[-- Attachment #2: altbug --]
[-- Type: text/plain, Size: 880 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		=> 'ALT Linux 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";