#!/usr/bin/perl # # SmoothWall CGIs # # This code is distributed under the terms of the GPL # # (c) The SmoothWall Team # # use strict; # enable only the following on debugging purpose use warnings; use CGI::Carp 'fatalsToBrowser'; require '/var/ipfire/general-functions.pl'; require "${General::swroot}/lang.pl"; require "${General::swroot}/header.pl"; my %cgiparams=(); &Header::showhttpheaders(); &Header::getcgihash(\%cgiparams); &Header::openpage($Lang::tr{'memory information'}, 1, ''); &Header::openbigbox('100%', 'left'); &Header::openbox('100%', 'center', "Memory $Lang::tr{'graph'}"); if (-e "$Header::graphdir/memory-day.png") { my $ftime = localtime((stat("$Header::graphdir/memory-day.png"))[9]); print "
$Lang::tr{'size'} | $Lang::tr{'used'} | $Lang::tr{'free'} | $Lang::tr{'percentage'} | END ; } else { if ($_ =~ m/^Mem:\s+(\d+)\s+(\d+)\s+(\d+)\s+(\d+)\s+(\d+)\s+(\d+)$/) { ($ram,$size,$used,$free,$shared,$buffers,$cached) = ($1,$1,$2,$3,$4,$5,$6); ($percent = ($used/$size)*100) =~ s/^(\d+)(\.\d+)?$/$1%/; print <$Lang::tr{'ram'} | $size | END ; } elsif ($_ =~ m/^Swap:\s+(\d+)\s+(\d+)\s+(\d+)$/) { ($size,$used,$free) = ($1,$2,$3); if ($size != 0) { ($percent = ($used/$size)*100) =~ s/^(\d+)(\.\d+)?$/$1%/; } else { ($percent = ''); } print <$Lang::tr{'swap'} | $size | END ; } elsif ($ram and $_ =~ m/^-\/\+ buffers\/cache:\s+(\d+)\s+(\d+)$/ ) { ($used,$free) = ($1,$2); ($percent = ($used/$ram)*100) =~ s/^(\d+)(\.\d+)?$/$1%/; print "
$Lang::tr{'excluding buffers and cache'} | " } print <$free |
END
;
&percentbar($percent);
print <$percent |
| |
$Lang::tr{'shared'} | $shared | |||
$Lang::tr{'buffers'} | $buffers | |||
$Lang::tr{'cached'} | $cached |