#!/usr/bin/perl ############################################################################### # # # IPFire.org - A linux based firewall # # Copyright (C) 2005-2010 IPFire Team # # # # This program is free software: you can redistribute it and/or modify # # it under the terms of the GNU General Public License as published by # # the Free Software Foundation, either version 3 of the License, or # # (at your option) any later version. # # # # This program is distributed in the hope that it will be useful, # # but WITHOUT ANY WARRANTY; without even the implied warranty of # # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the # # GNU General Public License for more details. # # # # You should have received a copy of the GNU General Public License # # along with this program. If not, see . # # # ############################################################################### 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"; require "${General::swroot}/graphs.pl"; my %color = (); my %mainsettings = (); &General::readhash("${General::swroot}/main/settings", \%mainsettings); &General::readhash("/srv/web/ipfire/html/themes/ipfire/include/colors.txt", \%color); &Header::showhttpheaders(); &Header::openpage($Lang::tr{'memory information'}, 1, ''); &Header::openbigbox('100%', 'left'); &Header::openbox('100%', 'center', "Memory $Lang::tr{'graph'}"); &Graphs::makegraphbox("memory.cgi","memory","day"); &Header::closebox(); if (-f "$mainsettings{'RRDLOG'}/collectd/localhost/swap") { &Header::openbox('100%', 'center', "Swap $Lang::tr{'graph'}"); &Graphs::makegraphbox("memory.cgi","swap","day"); &Header::closebox(); } &Header::openbox('100%', 'center', $Lang::tr{'memory'}); print ""; my $size=0; my $used=0; my $free=0; my $percent=0; my $shared=0; my $buffers=0; my $cached=0; my $available=0; # output format: kibibytes, wide mode (buffers and cache in two columns) open(my $cmd_fh, "-|", '/usr/bin/free -k -w') or die $!; while(<$cmd_fh>){ if ($_ =~ m/^\s+total\s+used\s+free\s+shared\s+buffers\s+cache\s+available$/ ){ print < END ; }else{ if ($_ =~ m/^Mem:\s+(\d+)\s+(\d+)\s+(\d+)\s+(\d+)\s+(\d+)\s+(\d+)\s+(\d+)$/){ ($size,$used,$free,$shared,$buffers,$cached,$available) = ($1,$2,$3,$4,$5,$6,$7); ($percent = ($used/$size)*100) =~ s/^(\d+)(\.\d+)?$/$1%/; print < 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 < END ; } print <$size KiB END ; } } close($cmd_fh); print <
  $Lang::tr{'size'} $Lang::tr{'used'} $Lang::tr{'free'} $Lang::tr{'percentage'}
$Lang::tr{'ram'}$Lang::tr{'swap'}$used KiB $free KiB END ; &percentbar($percent); print < $percent

$Lang::tr{'shared'}$shared KiB
$Lang::tr{'buffers'}$buffers KiB
$Lang::tr{'cached'}$cached KiB
$Lang::tr{'available'}$available KiB
END ; &Header::closebox(); &Header::closebigbox(); &Header::closepage(); sub percentbar{ my $percent = $_[0]; my $fg = '#a0a0a0'; my $bg = '#e2e2e2'; if ($percent =~ m/^(\d+)%$/ ){ print < END ; if ($percent eq "100%"){ print ""; }elsif($percent eq "0%"){ print ""; }else{ print ""; } print < END ; } }