Also total package instances

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 $sectot = 0;
+my $owntot = 0;
+my $normtot = 0;
 
 my $table = "<table>\n";
 
@@ -67,16 +70,19 @@ for $hline ( split("\n",$hostlist) ) {
             $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++;
+            $owntot++;
         } else {
             $det .= "$pkg";
             $normhosts{$H}=1;
             $normpkgs{$pkg}=1;
+            $normtot++;
         }
         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>&nbsp;</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)) . 
-        " / " .  scalar(keys(%ownpkgs)) . " </td>\n" ;
+        " / " .  scalar(keys(%ownpkgs)) . " / $owntot </td>\n" ;
 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";