[devel] qa-robot::bugs (was: [cyber] I: Sisyphus-20080215 bugs: +6 -2 (2181))
Michael Shigorin
=?iso-8859-1?q?mike_=CE=C1_osdn=2Eorg=2Eua?=
Пн Фев 18 01:24:21 MSK 2008
On Fri, Feb 15, 2008 at 04:44:10AM +0300, QA Team Robot wrote:
...и с тех пор замолчал.
Кажется, bugs(1) нуждается в патчике вида
--- altbug.orig 2005-06-22 18:11:10 +0300
+++ altbug 2008-02-18 00:22:22 +0200
@@ -26,7 +26,7 @@
my $bz = WWW::Bugzilla->new(
server => 'bugzilla.altlinux.org',
- product => 'ALT Linux Sisyphus',
+ product => 'Sisyphus',
use_ssl => 1,
email => $email,
password => $password)
багу вешать?
--
---- 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 => '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";
Подробная информация о списке рассылки Devel