| 75 |
# Add an item into the data array. |
# Add an item into the data array. |
| 76 |
sub record { |
sub record { |
| 77 |
my ($package, $condition, $item, $urgency)=@_; |
my ($package, $condition, $item, $urgency)=@_; |
| 78 |
|
|
| 79 |
|
if (! defined $item) { |
| 80 |
|
$item=''; |
| 81 |
|
} |
| 82 |
|
|
| 83 |
if ($html) { |
if ($html) { |
| 84 |
$condition=~s{bug #(\d+)}{<a href="http://bugs.debian.org/$1">bug #$1</a>}g; |
$condition=~s{bug #(\d+)}{<a href="http://bugs.debian.org/$1">bug #$1</a>}g; |
| 85 |
$condition=~s{unfixed}{<b>unfixed</b>}g; |
$condition=~s{unfixed}{<b>unfixed</b>}g; |
| 86 |
$item=~s#((?:CAN|CVE)-\d+-\d+)#<a href="http://www.cve.mitre.org/cgi-bin/cvename.cgi?name=$1">$1</a>#g |
$item=~s#((?:CAN|CVE)-\d+-\d+)#<a href="http://www.cve.mitre.org/cgi-bin/cvename.cgi?name=$1">$1</a>#g; |
|
if defined $item; |
|
| 87 |
} |
} |
| 88 |
|
|
| 89 |
push @{$data{$package}{$condition}}, {item => $item, urgency => $urgency}; |
push @{$data{$package}{$condition}}, {item => $item, urgency => $urgency}; |