[devel] Re: ~/bin/altbug (was: RFC: test-rootfs)

[Alexey Tourbin]

On Wed, Jun 15, 2005 at 09:47:48AM +0300, Michael Shigorin wrote:
> On Wed, Jun 15, 2005 at 04:00:37AM +0400, Alexey Tourbin wrote:
> > ~/bin/altbug --pkg=$pkg --subj="$pkg: $bin depends on $lib"
> Так-так-так-так-так.  А можно вот этим поделиться? :)

Нужен пакет perl-WWW-Bugzilla *из Сизифа*.
----------- следующая часть -----------
#!/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";
----------- следующая часть -----------
Было удалено вложение не в текстовом формате...
Имя     : =?iso-8859-1?q?=CF=D4=D3=D5=D4=D3=D4=D7=D5=C5=D4?=
Тип     : application/pgp-signature
Размер  : 189 байтов
Описание: =?iso-8859-1?q?=CF=D4=D3=D5=D4=D3=D4=D7=D5=C5=D4?=
Url     : <http://lists.altlinux.org/pipermail/devel/attachments/20050617/c3d9e410/attachment-0001.bin>