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:
70028dc
)
Also total package instances
author
Heikki Levanto
<heikki@indexdata.dk>
Thu, 17 Mar 2011 12:05:30 +0000
(13:05 +0100)
committer
Heikki Levanto
<heikki@indexdata.dk>
Thu, 17 Mar 2011 12:05:30 +0000
(13:05 +0100)
aptcheck/aptcheck.pl
patch
|
blob
|
history
diff --git
a/aptcheck/aptcheck.pl
b/aptcheck/aptcheck.pl
index
ac4893f
..
9bac028
100755
(executable)
--- a/
aptcheck/aptcheck.pl
+++ b/
aptcheck/aptcheck.pl
@@
-31,6
+31,9
@@
my %normhosts;
my %normpkgs;
my %okhosts;
my %skiphosts;
my %normpkgs;
my %okhosts;
my %skiphosts;
+my $sectot = 0;
+my $owntot = 0;
+my $normtot = 0;
my $table = "<table>\n";
my $table = "<table>\n";
@@
-67,16
+70,19
@@
for $hline ( split("\n",$hostlist) ) {
$sechosts{$H}=1;
$secpkgs{$pkg}=1;
$secs++;
$sechosts{$H}=1;
$secpkgs{$pkg}=1;
$secs++;
+ $sectot++;
} elsif ( $src =~ /Indexdata/ ) {
$det .= "<b><i>$pkg</i></b>";
$key = "<i>$pkg</i>";
$ownhosts{$H}=1;
$ownpkgs{$pkg}=1;
$own++;
} elsif ( $src =~ /Indexdata/ ) {
$det .= "<b><i>$pkg</i></b>";
$key = "<i>$pkg</i>";
$ownhosts{$H}=1;
$ownpkgs{$pkg}=1;
$own++;
+ $owntot++;
} else {
$det .= "$pkg";
$normhosts{$H}=1;
$normpkgs{$pkg}=1;
} else {
$det .= "$pkg";
$normhosts{$H}=1;
$normpkgs{$pkg}=1;
+ $normtot++;
}
if ( !$summary{$key} ) {
$summary{$key} = "";
}
if ( !$summary{$key} ) {
$summary{$key} = "";
@@
-121,11
+127,11
@@
print F "<H1>Apt package status</H1>\n";
print F "<table border='1' >\n";
print F "<tr><td> </td>" ;
print F "<td><b>Security:</b> " . scalar(keys(%sechosts)) .
print F "<table border='1' >\n";
print F "<tr><td> </td>" ;
print F "<td><b>Security:</b> " . scalar(keys(%sechosts)) .
- " / " . scalar(keys(%secpkgs)) . " </td>\n" ;
+ " / " . scalar(keys(%secpkgs)) . " / $sectot </td>\n" ;
print F "<td>Indexdata: " . scalar(keys(%ownhosts)) .
print F "<td>Indexdata: " . scalar(keys(%ownhosts)) .
- " / " . scalar(keys(%ownpkgs)) . " </td>\n" ;
+ " / " . scalar(keys(%ownpkgs)) . " / $owntot </td>\n" ;
print F "<td>Normal: " . scalar(keys(%normhosts)) .
print F "<td>Normal: " . scalar(keys(%normhosts)) .
- " / " . scalar(keys(%normpkgs)) . " </td>" . "</tr>\n";
+ " / " . scalar(keys(%normpkgs)) . " / $normtot </td>" . "</tr>\n";
print F "<tr><td>Hosts</td>\n";
print F "<tr><td>Hosts</td>\n";