[sisyphus] S: altbug (was: bugzilla)

[Michael Shigorin]

On Sun, Aug 07, 2005 at 12:04:25AM +0400, Arioch wrote:
> >отключаешься, дублируешь эти окна сколько угодно раз
> >(Ctrl-Alt-N в опере), заполняешь, подключаешься и отсылаешь.
> Ты забыл про выбор компонента, про аттачи, про комментарии к 
> существубщим багам. В общем неудобно, как и www-форумы :-)

Цепляю скрипт имени at на .  Комментарии по настройке в виде кода
содержатся в самом начале (нужно создать дотфайлик).

-- 
 ---- WBR, Michael Shigorin <mike на altlinux.ru>
  ------ Linux.Kiev http://www.linux.kiev.ua/
----------- следующая часть -----------
#!/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";
----------- следующая часть -----------
Было удалено вложение не в текстовом формате...
Имя     : отсутствует
Тип     : application/pgp-signature
Размер  : 189 байтов
Описание: отсутствует
Url     : http://lists.altlinux.org/pipermail/sisyphus/attachments/20050807/321b9edc/attachment-0002.bin