From mboxrd@z Thu Jan  1 00:00:00 1970
Return-Path: <at@altlinux.ru>
Date: Fri, 17 Jun 2005 22:02:46 +0400
From: Alexey Tourbin <at@altlinux.ru>
To: devel@altlinux.ru
Message-ID: <20050617180246.GB2751@solemn.turbinal.org>
Mail-Followup-To: devel@altlinux.ru
References: <20050614094649.GF4685@solemn.turbinal.org>
	<20050615000037.GP4685@solemn.turbinal.org>
	<20050615064747.GZ12545@osdn.org.ua>
Mime-Version: 1.0
Content-Type: multipart/signed; micalg=pgp-sha1;
	protocol="application/pgp-signature"; boundary="nQHD+3g9yI+EYXJy"
Content-Disposition: inline
In-Reply-To: <20050615064747.GZ12545@osdn.org.ua>
Subject: [devel] Re: ~/bin/altbug (was: RFC: test-rootfs)
X-BeenThere: devel@altlinux.ru
X-Mailman-Version: 2.1.5
Precedence: list
Reply-To: ALT Devel discussion list <devel@altlinux.ru>
List-Id: ALT Devel discussion list <devel.altlinux.ru>
List-Unsubscribe: <https://lists.altlinux.ru/mailman/listinfo/devel>,
	<mailto:devel-request@altlinux.ru?subject=unsubscribe>
List-Archive: <http://lists.altlinux.ru/pipermail/devel>
List-Post: <mailto:devel@altlinux.ru>
List-Help: <mailto:devel-request@altlinux.ru?subject=help>
List-Subscribe: <https://lists.altlinux.ru/mailman/listinfo/devel>,
	<mailto:devel-request@altlinux.ru?subject=subscribe>
X-List-Received-Date: Fri, 17 Jun 2005 18:02:51 -0000
Archived-At: <http://lore.altlinux.org/devel/20050617180246.GB2751@solemn.turbinal.org/>
List-Archive: <http://lore.altlinux.org/devel/>
List-Post: <mailto:devel@altlinux.org>


--nQHD+3g9yI+EYXJy
Content-Type: multipart/mixed; boundary="3+nIULlytNYGw3fk"
Content-Disposition: inline


--3+nIULlytNYGw3fk
Content-Type: text/plain; charset=koi8-r
Content-Disposition: inline
Content-Transfer-Encoding: quoted-printable

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=3D$pkg --subj=3D"$pkg: $bin depends on $lib"
> =F4=C1=CB-=D4=C1=CB-=D4=C1=CB-=D4=C1=CB-=D4=C1=CB.  =E1 =CD=CF=D6=CE=CF =
=D7=CF=D4 =DC=D4=C9=CD =D0=CF=C4=C5=CC=C9=D4=D8=D3=D1? :)

=EE=D5=D6=C5=CE =D0=C1=CB=C5=D4 perl-WWW-Bugzilla *=C9=DA =F3=C9=DA=C9=C6=
=C1*.

--3+nIULlytNYGw3fk
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		=> '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";

--3+nIULlytNYGw3fk--

--nQHD+3g9yI+EYXJy
Content-Type: application/pgp-signature
Content-Disposition: inline

-----BEGIN PGP SIGNATURE-----
Version: GnuPG v1.2.5 (GNU/Linux)

iD8DBQFCsxBFfBKgtDjnu0YRAj/6AJoCMve/S3ddogkhdle9XtudkRE/rwCfZ5CM
PKJmZtleV6NhFj5p7na9cUA=
=3kDO
-----END PGP SIGNATURE-----

--nQHD+3g9yI+EYXJy--