print $q->header(-expires=>"+6os", -charset=>"UTF-8");
-print $q->start_html(-title => "Personal Log Data Stats",
+print $q->start_html(-title => "Log Data Stats",
-script=>{-type => 'text/javascript', -src => 'wsrc/main.js'},
-style =>{-type => 'text/css', -src => 'wsrc/main.css'},
-onload => "loadedBody();"
my $hardware_status =`inxi -b -c0;uptime -p`;
$hardware_status =~ s/\n/<br\/>/g;
my $prc = 'ps -eo size,pid,user,command --sort -size | awk \'{ hr=$1/1024 ; printf("%13.2f Mb ",hr) } { for ( x=4 ; x<=NF ; x++ ) { printf("%s ",$x) } print "" }\'';
-my $processes = `$prc | sort -u -r -`;
- $tbl = $tbl . '<tr class="r0"><td>Number of Records:</td><td>'.
+
+my $processes = `$prc | sort -u -r -`;
+#Strip kernel 0 processes reported
+$processes =~ s/\s*0.00.*//gd;
+
+$tbl = $tbl . '<tr class="r0"><td>Number of Records:</td><td>'.
$log_rc.'</td></tr>
<tr class="r1"><td>No. of Records This Year:</td><td>'.
$log_this_year_rc.'</td></tr>