| @@ -89,27 +89,27 @@ sub write_entry | | | @@ -89,27 +89,27 @@ sub write_entry |
89 | { | | 89 | { |
90 | my ($self, $pkgloc, $maint, $comment, $distver, $op, $pkgver, $installed) = @_; | | 90 | my ($self, $pkgloc, $maint, $comment, $distver, $op, $pkgver, $installed) = @_; |
91 | $op =~ s/</</; | | 91 | $op =~ s/</</; |
92 | $op =~ s/>/>/; | | 92 | $op =~ s/>/>/; |
93 | my $line = sprintf( " <tr><td>%s</td><td>%s</td><td>%s</td><td>%s</td><td>%s</td></tr>", | | 93 | my $line = sprintf( " <tr><td>%s</td><td>%s</td><td>%s</td><td>%s</td><td>%s</td></tr>", |
94 | $pkgloc, $maint, $comment, $distver . " $op " . $pkgver, $installed ? "Yes" : "-" ); | | 94 | $pkgloc, $maint, $comment, $distver . " $op " . $pkgver, $installed ? "Yes" : "-" ); |
95 | say {$self->{fh}} $line; | | 95 | say {$self->{fh}} $line; |
96 | return; | | 96 | return; |
97 | } | | 97 | } |
98 | | | 98 | |
99 | sub finish | | 99 | sub finish |
100 | { | | 100 | { |
101 | my ($self, $pkg2update, $pkgok, $pkgcrank) = @_; | | 101 | my ($self, $pkg2update, $pkgok, $pkgcrank) = @_; |
102 | say {$self->{fh}} " <tbody>\n</table>\n"; | | 102 | say {$self->{fh}} " </tbody>\n</table>\n"; |
103 | scalar(@_) > 1 and | | 103 | scalar(@_) > 1 and |
104 | say {$self->{fh}} "$pkg2update p5-packages needing updates, $pkgok p5-packages are up-to-date, $pkgcrank p5-packages needs review"; | | 104 | say {$self->{fh}} "$pkg2update p5-packages needing updates, $pkgok p5-packages are up-to-date, $pkgcrank p5-packages needs review"; |
105 | my $extro = <<EOE; | | 105 | my $extro = <<EOE; |
106 | </body> | | 106 | </body> |
107 | </html> | | 107 | </html> |
108 | EOE | | 108 | EOE |
109 | say {$self->{fh}} $extro; | | 109 | say {$self->{fh}} $extro; |
110 | return; | | 110 | return; |
111 | } | | 111 | } |
112 | | | 112 | |
113 | package main; | | 113 | package main; |
114 | | | 114 | |
115 | my $make_bin = '@MAKE@'; | | 115 | my $make_bin = '@MAKE@'; |