From mboxrd@z Thu Jan  1 00:00:00 1970
Return-Path: <at@altlinux.ru>
Date: Thu, 8 Jul 2004 13:45:39 +0400
From: Alexey Tourbin <at@altlinux.ru>
To: ALT Devel discussion list <devel@altlinux.ru>
Message-ID: <20040708094539.GP3717@solemn.turbinal.org>
Mail-Followup-To: ALT Devel discussion list <devel@altlinux.ru>
References: <40ECF084.5080105@syktsu.ru>
	<20040708100556.R79486@elefant.dgtu.donetsk.ua>
	<20040708093326.GA28939@osdn.org.ua>
Mime-Version: 1.0
Content-Type: multipart/signed; micalg=pgp-sha1;
	protocol="application/pgp-signature"; boundary="wr1Q/2bz0MCWWNYv"
Content-Disposition: inline
In-Reply-To: <20040708093326.GA28939@osdn.org.ua>
Subject: [devel] Re: I:
	=?koi8-r?b?4c7PztMuIEPBytQg0sXQz9rJ1M/SydEgU2lzeXBodXMg?=
	=?koi8-r?b?ySDLz83BzsTZ?= ALT
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: Thu, 08 Jul 2004 09:45:45 -0000
Archived-At: <http://lore.altlinux.org/devel/20040708094539.GP3717@solemn.turbinal.org/>
List-Archive: <http://lore.altlinux.org/devel/>
List-Post: <mailto:devel@altlinux.org>


--wr1Q/2bz0MCWWNYv
Content-Type: text/plain; charset=koi8-r
Content-Disposition: inline
Content-Transfer-Encoding: quoted-printable

On Thu, Jul 08, 2004 at 12:33:26PM +0300, Michael Shigorin wrote:
> =F3 bugs =CE=C1=C4=CF =C4=D5=CD=C1=D4=D8, =CB=C1=CB =C4=CF =CE=C9=C8 =C4=
=CF=C2=D2=C1=D4=D8=D3=D1...... =C9=CC=C9 =C9=CD=C5=CC=D3=D1 =D7 =D7=C9=C4=D5
> =D3=C7=C5=CE=C5=D2=C9=D2=CF=D7=C1=CE=CE=D9=CA URL =CE=C1 =D0=CF=C9=D3=CB =
=D7 bugzilla?

=E5=D3=CC=C9 =C5=D3=D4=D8 =CE=C1 =DE=C5=CD =C4=CF=C2=C9=D2=C1=D4=D8=D3=D1, =
=D4=CF =C4=CF bugs =CD=CF=D6=CE=CF =C4=CF=C2=D2=C1=D4=D8=D3=D1 =D4=C1=CB:

=2E..
bugzilla =3D> sub {
	use Text::CSV_XS;
	our $csv ||=3D new Text::CSV_XS { binary =3D> 1 };
=09
	my $url =3D "$bugzilla/buglist.cgi?&component=3D$$rpm{NAME}&ctype=3Dcsv";
	use LWP::Simple qw(get);
	my $data =3D get($url)
		or Warning "could not fetch $url"
			and return;
	my @lines =3D split /[\r\n]+/, $data;
	@lines < 2 and return; # no bugs
=09
	my @keys =3D $csv->parse(shift @lines) ? $csv->fields : Error "bad CSV: " =
. $csv->error_input;
=09
	my @bugs;
	foreach my $line (@lines) {
		my $bug;
		my @values =3D $csv->parse($line) ? $csv->fields : Error "bad CSV: " . $c=
sv->error_input;
		foreach my $i (0 .. $#keys) {
			$$bug{$keys[$i]} =3D $values[$i];
		}
		push @bugs, $bug;
	}
	my $n =3D grep { $$_{bug_status} =3D~ /NEW|ASSIGNED|REOPENED/ and=20
		$$_{resolution} !~ /FIXED|INVALID|WONTFIX|DUPLICATE|WORKSFORME/	} @bugs;
	Warning "$n bugs reported at $bugzilla/buglist.cgi?&component=3D$$rpm{NAME=
}" if $n;
},
=2E..

> --=20
>  ---- WBR, Michael Shigorin <mike@altlinux.ru>
>   ------ Linux.Kiev http://www.linux.kiev.ua/

--wr1Q/2bz0MCWWNYv
Content-Type: application/pgp-signature
Content-Disposition: inline

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

iD8DBQFA7RfDfBKgtDjnu0YRAvx3AKCPie9hBrq0Cbe79V+qNMZYKeWQVACgpyWx
CjI5+eiaWJJvXuqAxBiTuEw=
=INWs
-----END PGP SIGNATURE-----

--wr1Q/2bz0MCWWNYv--