From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: X-Spam-Checker-Version: SpamAssassin 3.2.3 (2007-08-08) on sa.int.altlinux.org X-Spam-Level: X-Spam-Status: No, score=-1.4 required=5.0 tests=AWL,BAYES_00 autolearn=ham version=3.2.3 Date: Mon, 18 Feb 2008 00:24:21 +0200 From: Michael Shigorin To: devel@lists.altlinux.org Message-ID: <20080217222421.GD19858@osdn.org.ua> Mail-Followup-To: devel@lists.altlinux.org References: <20080215014409.GA32567@granary.armor.altlinux.org> Mime-Version: 1.0 Content-Type: multipart/mixed; boundary="TB36FDmn/VVEgNH/" Content-Disposition: inline Content-Transfer-Encoding: 8bit In-Reply-To: <20080215014409.GA32567@granary.armor.altlinux.org> User-Agent: Mutt/1.4.2.1i Subject: [devel] qa-robot::bugs (was: [cyber] I: Sisyphus-20080215 bugs: +6 -2 (2181)) X-BeenThere: devel@lists.altlinux.org X-Mailman-Version: 2.1.9 Precedence: list Reply-To: ALT Linux Team development discussions List-Id: ALT Linux Team development discussions List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , X-List-Received-Date: Sun, 17 Feb 2008 22:24:24 -0000 Archived-At: List-Archive: List-Post: --TB36FDmn/VVEgNH/ Content-Type: text/plain; charset=koi8-r Content-Disposition: inline Content-Transfer-Encoding: 8bit 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 ------ Linux.Kiev http://www.linux.kiev.ua/ --TB36FDmn/VVEgNH/ Content-Type: text/plain; charset=us-ascii Content-Disposition: attachment; filename=altbug #!/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"; --TB36FDmn/VVEgNH/--