projects
/
git-tools-moved-to-github.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
f02f8d2
)
Minor
author
Heikki Levanto
<heikki@indexdata.dk>
Mon, 11 Apr 2011 11:26:01 +0000
(13:26 +0200)
committer
Heikki Levanto
<heikki@indexdata.dk>
Mon, 11 Apr 2011 11:26:01 +0000
(13:26 +0200)
aptcheck/aptcheck.pl
patch
|
blob
|
history
diff --git
a/aptcheck/aptcheck.pl
b/aptcheck/aptcheck.pl
index
9ceba58
..
7c9245b
100755
(executable)
--- a/
aptcheck/aptcheck.pl
+++ b/
aptcheck/aptcheck.pl
@@
-154,11
+154,11
@@
for my $hline ( split("\n",$hostlist) ) {
$manhosts{$H} = 1;
$manpkgs{$restrname} = 1;
$det .= "<tr>";
$manhosts{$H} = 1;
$manpkgs{$restrname} = 1;
$det .= "<tr>";
- $det .= "<td> <b>$restrname (M)</b></td>";
+ $det .= "<td> $restrname <b>(M)</b></td>";
$det .= "<td>". strdiff($bver,$restrinst)."</td>";
$det .= "<td>". strdiff($restrinst,$bver)."</td>";
$det .= "</tr>\n";
$det .= "<td>". strdiff($bver,$restrinst)."</td>";
$det .= "<td>". strdiff($restrinst,$bver)."</td>";
$det .= "</tr>\n";
- my $key = "$restrname (M)";
+ my $key = "$restrname";
if ( !$summary{$key} ) {
$summary{$key} = "";
}
if ( !$summary{$key} ) {
$summary{$key} = "";
}
@@
-239,6
+239,8
@@
print F "<html>\n";
print F "<head><title>Apt upgrade status</title></head>\n";
print F "<body>\n";
print F "<H1>Apt package status</H1>\n";
print F "<head><title>Apt upgrade status</title></head>\n";
print F "<body>\n";
print F "<H1>Apt package status</H1>\n";
+print F "<H2>Debug run, many hosts missing!</H2>\n"
+ if $debug;
# Summary table: one row for per host group
# Summary table: one row for per host group
@@
-335,8
+337,9
@@
print F "<p/><b><u>Packages</u></b>\n";
print F "<table>\n";
for my $P ( sort(keys(%summary)) ) {
my $PN = $P;
print F "<table>\n";
for my $P ( sort(keys(%summary)) ) {
my $PN = $P;
- $PN = "<b>$P (s)</b>" if ($secpkgs{$P});
- $PN = "$P (id)" if ($ownpkgs{$P});
+ $PN = "<b>$P (s)</b>" if ($secpkgs{$P});
+ $PN = "<i>$P (id)</i>" if ($ownpkgs{$P});
+ $PN = "$P <b>(M)</b>" if ($manpkgs{$P});
print F "<tr><td><a name='$P'/>$PN</td>\n";
print F "<td>";
for my $HH ( split(' ',$summary{$P} )) {
print F "<tr><td><a name='$P'/>$PN</td>\n";
print F "<td>";
for my $HH ( split(' ',$summary{$P} )) {