html/cgi-bin/status.cgi

   1 #!/usr/bin/perl
   2 #
   3 # SmoothWall CGIs
   4 #
   5 # This code is distributed under the terms of the GPL
   6 #
   7 # (c) The SmoothWall Team
   8 #
   9 #
  10
  11 use strict;
  12
  13 # enable only the following on debugging purpose
  14 use warnings;
  15 use CGI::Carp 'fatalsToBrowser';
  16
  17 require '/var/ipfire/general-functions.pl';
  18 require "${General::swroot}/lang.pl";
  19 require "${General::swroot}/header.pl";
  20
  21 #workaround to suppress a warning when a variable is used only once
  22 my @dummy = ( ${Header::colourred} );
  23 undef (@dummy);
  24
  25 my %netsettings=();
  26 &General::readhash("${General::swroot}/ethernet/settings", \%netsettings);
  27
  28 my %cgiparams=();
  29 # Maps a nice printable name to the changing part of the pid file, which
  30 # is also the name of the program
  31 my %servicenames =
  32 (
  33         $Lang::tr{'dhcp server'} => 'dhcpd',
  34         $Lang::tr{'web server'} => 'httpd',
  35         $Lang::tr{'cron server'} => 'fcron',
  36         $Lang::tr{'dns proxy server'} => 'dnsmasq',
  37         $Lang::tr{'logging server'} => 'syslogd',
  38         $Lang::tr{'kernel logging server'} => 'klogd',
  39         $Lang::tr{'ntp server'} => 'ntpd',
  40         $Lang::tr{'secure shell server'} => 'sshd',
  41         $Lang::tr{'vpn'} => 'pluto',
  42         $Lang::tr{'web proxy'} => 'squid',
  43         'OpenVPN' => 'openvpn'
  44 );
  45
  46 my $iface = '';
  47 if (open(FILE, "${General::swroot}/red/iface"))
  48 {
  49         $iface = <FILE>;
  50         close FILE;
  51         chomp $iface;
  52 }
  53 $servicenames{"$Lang::tr{'intrusion detection system'} (RED)"}   = "snort_${iface}";
  54 $servicenames{"$Lang::tr{'intrusion detection system'} (GREEN)"} = "snort_$netsettings{'GREEN_DEV'}";
  55 if ($netsettings{'ORANGE_DEV'} ne '') {
  56         $servicenames{"$Lang::tr{'intrusion detection system'} (ORANGE)"} = "snort_$netsettings{'ORANGE_DEV'}";
  57 }
  58 if ($netsettings{'BLUE_DEV'} ne '') {
  59         $servicenames{"$Lang::tr{'intrusion detection system'} (BLUE)"} = "snort_$netsettings{'BLUE_DEV'}";
  60 }
  61
  62 my %dhcpsettings=();
  63 my %netsettings=();
  64 my %dhcpinfo=();
  65 my %pppsettings=();
  66 my $output='';
  67
  68 &General::readhash("${General::swroot}/dhcp/settings", \%dhcpsettings);
  69 &General::readhash("${General::swroot}/ethernet/settings", \%netsettings);
  70 &General::readhash("${General::swroot}/ppp/settings", \%pppsettings);
  71
  72 &Header::showhttpheaders();
  73
  74 &Header::getcgihash(\%cgiparams);
  75
  76 &Header::openpage($Lang::tr{'status information'}, 1, '');
  77
  78 &Header::openbigbox('100%', 'left');
  79
  80 &Header::openbox('100%', 'left', $Lang::tr{'services'});
  81
  82 print <<END
  83 <div align='center'>
  84 <table width='60%' cellspacing='0' border='0'>
  85 END
  86 ;
  87
  88 my $lines = 0;
  89 my $key = '';
  90 foreach $key (sort keys %servicenames)
  91 {
  92         if ($lines % 2) {
  93                 print "<tr bgcolor='${Header::table1colour}'>\n"; }
  94         else {
  95                 print "<tr bgcolor='${Header::table2colour}'>\n"; }
  96         print "<td align='left'>$key</td>\n";
  97         my $shortname = $servicenames{$key};
  98         my $status = &isrunning($shortname);
  99         print "$status\n";
 100         print "</tr>\n";
 101         $lines++;
 102 }
 103
 104
 105 print "</table></div>\n";
 106
 107 &Header::closebox();
 108
 109 &Header::openbox('100%', 'center', $Lang::tr{'memory'});
 110 print "<table width='95%' cellspacing='5'>";
 111 my $ram=0;
 112 my $size=0;
 113 my $used=0;
 114 my $free=0;
 115 my $percent=0;
 116 my $shared=0;
 117 my $buffers=0;
 118 my $cached=0;
 119 open(FREE,'/usr/bin/free |');
 120 while(<FREE>)
 121 {
 122         if ($_ =~ m/^\s+total\s+used\s+free\s+shared\s+buffers\s+cached$/ )
 123         {
 124     print <<END
 125 <tr>
 126 <td align='center'>&nbsp;</td>
 127 <td align='center' class='boldbase'><b>$Lang::tr{'size'}</b></td>
 128 <td align='center' class='boldbase'><b>$Lang::tr{'used'}</b></td>
 129 <td align='center' class='boldbase'><b>$Lang::tr{'free'}</b></td>
 130 <td align='left' class='boldbase' colspan='2'><b>$Lang::tr{'percentage'}</b></td>
 131 </tr>
 132 END
 133 ;
 134   } else {
 135     if ($_ =~ m/^Mem:\s+(\d+)\s+(\d+)\s+(\d+)\s+(\d+)\s+(\d+)\s+(\d+)$/) {
 136       ($ram,$size,$used,$free,$shared,$buffers,$cached) = ($1,$1,$2,$3,$4,$5,$6);
 137       ($percent = ($used/$size)*100) =~ s/^(\d+)(\.\d+)?$/$1%/;
 138       print <<END
 139 <tr>
 140 <td class='boldbase'><b>$Lang::tr{'ram'}</b></td>
 141 <td align='right'>$size</td>
 142 END
 143 ;
 144     } elsif ($_ =~ m/^Swap:\s+(\d+)\s+(\d+)\s+(\d+)$/) {
 145       ($size,$used,$free) = ($1,$2,$3);
 146       if ($size != 0)
 147       {
 148         ($percent = ($used/$size)*100) =~ s/^(\d+)(\.\d+)?$/$1%/;
 149       } else {
 150         ($percent = '');
 151       }
 152       print <<END
 153 <tr>
 154 <td class='boldbase'><b>$Lang::tr{'swap'}</b></td>
 155 <td align='right'>$size</td>
 156 END
 157 ;
 158     } elsif ($ram and $_ =~ m/^-\/\+ buffers\/cache:\s+(\d+)\s+(\d+)$/ ) {
 159       ($used,$free) = ($1,$2);
 160       ($percent = ($used/$ram)*100) =~ s/^(\d+)(\.\d+)?$/$1%/;
 161       print "<tr><td colspan='2' class='boldbase'><b>$Lang::tr{'excluding buffers and cache'}</b></td>"
 162     }
 163     print <<END
 164 <td align='right'>$used</td>
 165 <td align='right'>$free</td>
 166 <td>
 167 END
 168 ;
 169     &percentbar($percent);
 170     print <<END
 171 </td>
 172 <td align='right'>$percent</td>
 173 </tr>
 174 END
 175 ;
 176   }
 177 }
 178 close FREE;
 179 print <<END
 180 <tr><td class='boldbase' colspan='2'><br /></td></tr>
 181 <tr><td class='boldbase'><b>$Lang::tr{'shared'}</b></td><td align='right'>$shared</td></tr>
 182 <tr><td class='boldbase'><b>$Lang::tr{'buffers'}</b></td><td align='right'>$buffers</td></tr>
 183 <tr><td class='boldbase'><b>$Lang::tr{'cached'}</b></td><td align='right'>$cached</td></tr>
 184 </table>
 185 END
 186 ;
 187 &Header::closebox();
 188
 189 &Header::openbox('100%', 'center', $Lang::tr{'disk usage'});
 190 print "<table width='95%' cellspacing='5'>\n";
 191 open(DF,'/bin/df -B M -x rootfs|');
 192 while(<DF>)
 193 {
 194         if ($_ =~ m/^Filesystem/ )
 195         {
 196                 print <<END
 197 <tr>
 198 <td align='left' class='boldbase'><b>$Lang::tr{'device'}</b></td>
 199 <td align='left' class='boldbase'><b>$Lang::tr{'mounted on'}</b></td>
 200 <td align='center' class='boldbase'><b>$Lang::tr{'size'}</b></td>
 201 <td align='center' class='boldbase'><b>$Lang::tr{'used'}</b></td>
 202 <td align='center' class='boldbase'><b>$Lang::tr{'free'}</b></td>
 203 <td align='left' class='boldbase' colspan='2'><b>$Lang::tr{'percentage'}</b></td>
 204 </tr>
 205 END
 206 ;
 207         }
 208         else
 209         {
 210                 my ($device,$size,$used,$free,$percent,$mount) = split;
 211                 print <<END
 212 <tr>
 213 <td>$device</td>
 214 <td>$mount</td>
 215 <td align='right'>$size</td>
 216 <td align='right'>$used</td>
 217 <td align='right'>$free</td>
 218 <td>
 219 END
 220 ;
 221                 &percentbar($percent);
 222                 print <<END
 223 </td>
 224 <td align='right'>$percent</td>
 225 </tr>
 226 END
 227 ;
 228         }
 229 }
 230 close DF;
 231 print "<tr><td colspan='7'>&nbsp;\n<tr><td colspan='7'><h3>Inodes</h3>\n";
 232
 233 open(DF,'/bin/df -i -x rootfs|');
 234 while(<DF>)
 235 {
 236    if ($_ =~ m/^Filesystem/ )
 237    {
 238       print <<END
 239 <tr>
 240 <td align='left' class='boldbase'><b>$Lang::tr{'device'}</b></td>
 241 <td align='left' class='boldbase'><b>$Lang::tr{'mounted on'}</b></td>
 242 <td align='center' class='boldbase'><b>$Lang::tr{'size'}</b></td>
 243 <td align='center' class='boldbase'><b>$Lang::tr{'used'}</b></td>
 244 <td align='center' class='boldbase'><b>$Lang::tr{'free'}</b></td>
 245 <td align='left' class='boldbase' colspan='2'><b>$Lang::tr{'percentage'}</b></td>
 246 </tr>
 247 END
 248 ;
 249    }
 250    else
 251    {
 252       my ($device,$size,$used,$free,$percent,$mount) = split;
 253       print <<END
 254 <tr>
 255 <td>$device</td>
 256 <td>$mount</td>
 257 <td align='right'>$size</td>
 258 <td align='right'>$used</td>
 259 <td align='right'>$free</td>
 260 <td>
 261 END
 262 ;
 263       &percentbar($percent);
 264       print <<END
 265 </td>
 266 <td align='right'>$percent</td>
 267 </tr>
 268 END
 269 ;
 270    }
 271 }
 272 close DF;
 273 my $iostat = qx(/usr/bin/iostat -dm -p | grep -v "Linux");
 274 print "<tr><td colspan='7'>&nbsp;\n<tr><td colspan='7'><h3>transfers</h3></td></tr>\n<tr><td align='center' colspan='7'><pre>$iostat</pre></td></tr>";
 275
 276 print "</table>\n";
 277 &Header::closebox();
 278
 279 &Header::openbox('100%', 'left', $Lang::tr{'interfaces'});
 280 $output = `/sbin/ip link show`;
 281 $output = &Header::cleanhtml($output,"y");
 282
 283 my @itfs = ('ORANGE','BLUE','GREEN');
 284 foreach my $itf (@itfs) {
 285     my $ColorName='';
 286     my $lc_itf=lc($itf);
 287     my $dev = $netsettings{"${itf}_DEV"};
 288     if ($dev){
 289         $ColorName = "${lc_itf}"; #dereference variable name...
 290         $output =~ s/$dev/<b><font color="$ColorName">$dev<\/font><\/b>/ ;
 291     }
 292 }
 293
 294 if (open(REDIFACE, "${General::swroot}/red/iface")) {
 295     my $lc_itf='red';
 296     my $reddev = <REDIFACE>;
 297     close(REDIFACE);
 298     chomp $reddev;
 299     $output =~ s/$reddev/<b><font color='red'>${reddev}<\/font><\/b>/;
 300 }
 301 print "<pre>$output</pre>\n";
 302 &Header::closebox();
 303
 304
 305 if ( $netsettings{'CONFIG_TYPE'} =~ /^(2|3|6|7)$/  && $netsettings{'RED_TYPE'} eq "DHCP") {
 306
 307         &Header::openbox('100%', 'left', "RED $Lang::tr{'dhcp configuration'}");
 308         if (-s "${General::swroot}/dhcpc/dhcpcd-$netsettings{'RED_DEV'}.info") {
 309
 310                 &General::readhash("${General::swroot}/dhcpc/dhcpcd-$netsettings{'RED_DEV'}.info", \%dhcpinfo);
 311
 312                 my $DNS1=`echo $dhcpinfo{'DNS'} | cut -f 1 -d ,`;
 313                 my $DNS2=`echo $dhcpinfo{'DNS'} | cut -f 2 -d ,`;
 314
 315                 my $lsetme=0;
 316                 my $leasetime="";
 317                 if ($dhcpinfo{'LEASETIME'} ne "") {
 318                         $lsetme=$dhcpinfo{'LEASETIME'};
 319                         $lsetme=($lsetme/60);
 320                         if ($lsetme > 59) {
 321                                 $lsetme=($lsetme/60); $leasetime=$lsetme." Hour";
 322                         } else {
 323                         $leasetime=$lsetme." Minute";
 324                         }
 325                         if ($lsetme > 1) {
 326                                 $leasetime=$leasetime."s";
 327                         }
 328                 }
 329                 my $rentme=0;
 330                 my $rnwltime="";
 331                 if ($dhcpinfo{'RENEWALTIME'} ne "") {
 332                         $rentme=$dhcpinfo{'RENEWALTIME'};
 333                         $rentme=($rentme/60);
 334                         if ($rentme > 59){
 335                                 $rentme=($rentme/60); $rnwltime=$rentme." Hour";
 336                         } else {
 337                                 $rnwltime=$rentme." Minute";
 338                         }
 339                         if ($rentme > 1){
 340                                 $rnwltime=$rnwltime."s";
 341                         }
 342                 }
 343                 my $maxtme=0;
 344                 my $maxtime="";
 345                 if ($dhcpinfo{'REBINDTIME'} ne "") {
 346                         $maxtme=$dhcpinfo{'REBINDTIME'};
 347                         $maxtme=($maxtme/60);
 348                         if ($maxtme > 59){
 349                                 $maxtme=($maxtme/60); $maxtime=$maxtme." Hour";
 350                         } else {
 351                                 $maxtime=$maxtme." Minute";
 352                         }
 353                         if ($maxtme > 1) {
 354                                 $maxtime=$maxtime."s";
 355                         }
 356                 }
 357
 358                 print "<table width='100%'>";
 359                 if ($dhcpinfo{'HOSTNAME'}) {
 360                         print "<tr><td width='30%'>$Lang::tr{'hostname'}</td><td>$dhcpinfo{'HOSTNAME'}.$dhcpinfo{'DOMAIN'}</td></tr>\n";
 361                 } else {
 362                         print "<tr><td width='30%'>$Lang::tr{'domain'}</td><td>$dhcpinfo{'DOMAIN'}</td></tr>\n";
 363                 }
 364                 print <<END
 365         <tr><td>$Lang::tr{'gateway'}</td><td>$dhcpinfo{'GATEWAY'}</td></tr>
 366         <tr><td>$Lang::tr{'primary dns'}</td><td>$DNS1</td></tr>
 367         <tr><td>$Lang::tr{'secondary dns'}</td><td>$DNS2</td></tr>
 368         <tr><td>$Lang::tr{'dhcp server'}</td><td>$dhcpinfo{'DHCPSIADDR'}</td></tr>
 369         <tr><td>$Lang::tr{'def lease time'}</td><td>$leasetime</td></tr>
 370         <tr><td>$Lang::tr{'default renewal time'}</td><td>$rnwltime</td></tr>
 371         <tr><td>$Lang::tr{'max renewal time'}</td><td>$maxtime</td></tr>
 372     </table>
 373 END
 374     ;
 375         }
 376         else
 377         {
 378                 print "$Lang::tr{'no dhcp lease'}";
 379         }
 380         &Header::closebox();
 381 }
 382
 383 if ($dhcpsettings{'ENABLE_GREEN'} eq 'on' || $dhcpsettings{'ENABLE_BLUE'} eq 'on') {
 384         &Header::CheckSortOrder;
 385         &Header::PrintActualLeases;
 386 }
 387
 388 &Header::openbox('100%', 'left', $Lang::tr{'routing table entries'});
 389 $output = `/sbin/ip route show`;
 390 $output = &Header::cleanhtml($output,"y");
 391 print "<pre>$output</pre>\n";
 392 &Header::closebox();
 393
 394 &Header::openbox('100%', 'left', $Lang::tr{'arp table entries'});
 395 $output = `/sbin/ip neigh show`;
 396 $output = &Header::cleanhtml($output,"y");
 397 print "<pre>$output</pre>\n";
 398 &Header::closebox();
 399
 400 &Header::openbox('100%', 'left', $Lang::tr{'loaded modules'});
 401 my $module = qx(/bin/lsmod | awk -F" " '{print \$1}');
 402 my $size = qx(/bin/lsmod | awk -F" " '{print \$2}');
 403 my $used = qx(/bin/lsmod | awk -F" " '{print \$3}');
 404 my @usedby = qx(/bin/lsmod | awk -F" " '{print \$4}');
 405 my @usedbyf;
 406 my $usedbyline;
 407
 408 foreach $usedbyline(@usedby)
 409 {
 410 my $laenge = length($usedbyline);
 411
 412 if ( $laenge > 30)
 413  {
 414  my $usedbylinef=substr($usedbyline,0,30);
 415  $usedbyline="$usedbylinef ...\n";
 416  push(@usedbyf,$usedbyline);
 417  }
 418 else
 419  {push(@usedbyf,$usedbyline);}
 420 }
 421 print <<END
 422 <table cellspacing=25><tr>
 423 <td><pre>$module</pre></td>
 424 <td><pre>$size</pre></td>
 425 <td><pre>$used</pre></td>
 426 <td><pre>@usedbyf</pre></td>
 427 </tr></table>
 428 END
 429 ;
 430
 431 print "";
 432 &Header::closebox();
 433
 434 &Header::closebigbox();
 435
 436 &Header::closepage();
 437
 438 sub isrunning
 439 {
 440         my $cmd = $_[0];
 441         my $status = "<td bgcolor='${Header::colourred}'><font color='white'><b>$Lang::tr{'stopped'}</b></font></td>";
 442         my $pid = '';
 443         my $testcmd = '';
 444         my $exename;
 445
 446         $cmd =~ /(^[a-z]+)/;
 447         $exename = $1;
 448
 449         if (open(FILE, "/var/run/${cmd}.pid"))
 450         {
 451                 $pid = <FILE>; chomp $pid;
 452                 close FILE;
 453                 if (open(FILE, "/proc/${pid}/status"))
 454                 {
 455                         while (<FILE>)
 456                         {
 457                                 if (/^Name:\W+(.*)/) {
 458                                         $testcmd = $1; }
 459                         }
 460                         close FILE;
 461                         if ($testcmd =~ /$exename/)
 462                         {
 463                                 $status = "<td bgcolor='${Header::colourgreen}'><font color='white'><b>$Lang::tr{'running'}</b></font></td>";
 464                         }
 465                 }
 466         }
 467
 468         return $status;
 469 }
 470
 471 sub percentbar
 472 {
 473   my $percent = $_[0];
 474   my $fg = '#a0a0a0';
 475   my $bg = '#e2e2e2';
 476
 477   if ($percent =~ m/^(\d+)%$/ )
 478   {
 479     print <<END
 480 <table width='100' border='1' cellspacing='0' cellpadding='0' style='border-width:1px;border-style:solid;border-color:$fg;width:100px;height:10px;'>
 481 <tr>
 482 END
 483 ;
 484     if ($percent eq "100%") {
 485       print "<td width='100%' bgcolor='$fg' style='background-color:$fg;border-style:solid;border-width:1px;border-color:$bg'>"
 486     } elsif ($percent eq "0%") {
 487       print "<td width='100%' bgcolor='$bg' style='background-color:$bg;border-style:solid;border-width:1px;border-color:$bg'>"
 488     } else {
 489       print "<td width='$percent' bgcolor='$fg' style='background-color:$fg;border-style:solid;border-width:1px;border-color:$bg'></td><td width='" . (100-$1) . "%' bgcolor='$bg' style='background-color:$bg;border-style:solid;border-width:1px;border-color:$bg'>"
 490     }
 491     print <<END
 492 <img src='/images/null.gif' width='1' height='1' alt='' /></td></tr></table>
 493 END
 494 ;
 495   }
 496 }