[devel] qa-robot::bugs (was: [cyber] I: Sisyphus-20080215 bugs: +6 -2 (2181))

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

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

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/

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