On Thu, Jul 08, 2004 at 12:33:26PM +0300, Michael Shigorin wrote:
> С bugs надо думать, как до них добраться...... или имелся в виду
> сгенерированный URL на поиск в bugzilla?

Если есть на чем добираться, то до bugs можно добраться так:

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

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