html/cgi-bin/services.cgi

   1 #!/usr/bin/perl
   2 ###############################################################################
   3 #                                                                             #
   4 # IPFire.org - A linux based firewall                                         #
   5 # Copyright (C) 2007  Michael Tremer & Christian Schmidt                      #
   6 #                                                                             #
   7 # This program is free software: you can redistribute it and/or modify        #
   8 # it under the terms of the GNU General Public License as published by        #
   9 # the Free Software Foundation, either version 3 of the License, or           #
  10 # (at your option) any later version.                                         #
  11 #                                                                             #
  12 # This program is distributed in the hope that it will be useful,             #
  13 # but WITHOUT ANY WARRANTY; without even the implied warranty of              #
  14 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the               #
  15 # GNU General Public License for more details.                                #
  16 #                                                                             #
  17 # You should have received a copy of the GNU General Public License           #
  18 # along with this program.  If not, see <http://www.gnu.org/licenses/>.       #
  19 #                                                                             #
  20 ###############################################################################
  21
  22 use strict;
  23
  24 # enable only the following on debugging purpose
  25 #use warnings;
  26 #use CGI::Carp 'fatalsToBrowser';
  27
  28 require '/var/ipfire/general-functions.pl';
  29 require "${General::swroot}/lang.pl";
  30 require "${General::swroot}/header.pl";
  31 require "${General::swroot}/graphs.pl";
  32
  33 #workaround to suppress a warning when a variable is used only once
  34 my @dummy = ( ${Header::colourred} );
  35 undef (@dummy);
  36
  37 my %color = ();
  38 my %mainsettings = ();
  39 &General::readhash("${General::swroot}/main/settings", \%mainsettings);
  40 &General::readhash("/srv/web/ipfire/html/themes/".$mainsettings{'THEME'}."/include/colors.txt", \%color);
  41
  42 my %netsettings=();
  43 &General::readhash("${General::swroot}/ethernet/settings", \%netsettings);
  44
  45 &Graphs::updateprocessesgraph ("day");
  46
  47 my %cgiparams=();
  48 # Maps a nice printable name to the changing part of the pid file, which
  49 # is also the name of the program
  50 my %servicenames =
  51 (
  52         $Lang::tr{'dhcp server'} => 'dhcpd',
  53         $Lang::tr{'web server'} => 'httpd',
  54         $Lang::tr{'cron server'} => 'fcron',
  55         $Lang::tr{'dns proxy server'} => 'dnsmasq',
  56         $Lang::tr{'logging server'} => 'syslogd',
  57         $Lang::tr{'kernel logging server'} => 'klogd',
  58         $Lang::tr{'ntp server'} => 'ntpd',
  59         $Lang::tr{'secure shell server'} => 'sshd',
  60         $Lang::tr{'vpn'} => 'pluto',
  61         $Lang::tr{'web proxy'} => 'squid',
  62         'OpenVPN' => 'openvpn'
  63 );
  64
  65 my $lines=0; # Used to count the outputlines to make different bgcolor
  66
  67 my $iface = '';
  68 if (open(FILE, "${General::swroot}/red/iface"))
  69 {
  70         $iface = <FILE>;
  71         close FILE;
  72         chomp $iface;
  73 }
  74 $servicenames{"$Lang::tr{'intrusion detection system'} (RED)"}   = "snort_${iface}";
  75 $servicenames{"$Lang::tr{'intrusion detection system'} (GREEN)"} = "snort_$netsettings{'GREEN_DEV'}";
  76 if ($netsettings{'ORANGE_DEV'} ne '') {
  77         $servicenames{"$Lang::tr{'intrusion detection system'} (ORANGE)"} = "snort_$netsettings{'ORANGE_DEV'}";
  78 }
  79 if ($netsettings{'BLUE_DEV'} ne '') {
  80         $servicenames{"$Lang::tr{'intrusion detection system'} (BLUE)"} = "snort_$netsettings{'BLUE_DEV'}";
  81 }
  82
  83 &Header::showhttpheaders();
  84 &Header::getcgihash(\%cgiparams);
  85 &Header::openpage($Lang::tr{'status information'}, 1, '');
  86 &Header::openbigbox('100%', 'left');
  87
  88 &Header::openbox('100%', 'left', $Lang::tr{'services'});
  89
  90 print <<END
  91 <div align='center'>
  92 <table width='80%' cellspacing='1' border='0'>
  93 <tr bgcolor='$color{'color20'}'><td align='left'><b>$Lang::tr{'services'}</b></td><td align='center' ><b>$Lang::tr{'status'}</b></td><td align='center'><b>PID</b></td><td align='center'><b>$Lang::tr{'memory'}</b></td></tr>
  94 END
  95 ;
  96
  97 my $key = '';
  98 foreach $key (sort keys %servicenames)
  99 {
 100         $lines++;
 101         if ($lines % 2)
 102         {  print "<tr bgcolor='$color{'color22'}'>\n<td align='left'>$key</td>\n";}
 103         else
 104         {  print "<tr bgcolor='$color{'color20'}'>\n<td align='left'>$key</td>\n";}
 105
 106         my $shortname = $servicenames{$key};
 107         my $status = &isrunning($shortname);
 108
 109         print "$status\n";
 110         print "</tr>\n";
 111 }
 112
 113
 114 print "</table></div>\n";
 115
 116 &Header::closebox();
 117
 118 &Header::openbox('100%', 'left', "Addon - $Lang::tr{services}");
 119
 120 my $paramstr=$ENV{QUERY_STRING};
 121 my @param=split(/!/, $paramstr);
 122 if ($param[1] ne '') {
 123     system("/usr/local/bin/addonctrl @param[0] @param[1] > /dev/null 2>&1");
 124 }
 125
 126 print <<END
 127 <div align='center'>
 128 <table width='80%' cellspacing='1' border='0'>
 129 <tr bgcolor='$color{'color20'}'>
 130 <td align='center'><b>Addon</b></td>
 131 <td align='center'><b>Boot</b></td>
 132 <td align='center' colspan=2><b>$Lang::tr{'action'}</b></td>
 133 <td align='center'><b>$Lang::tr{'status'}</b></td>
 134 <td align='center'><b>PID</b></td>
 135 <td align='center'><b>$Lang::tr{'memory'}</b></td>
 136 </tr>
 137 END
 138 ;
 139
 140 my $lines=0; # Used to count the outputlines to make different bgcolor
 141
 142 # Generate list of installed addon pak's
 143 my @pak = `find /opt/pakfire/db/installed/meta-* 2>/dev/null | cut -d"-" -f2`;
 144 foreach (@pak)
 145 {
 146         chomp($_);
 147
 148         # Check which of the paks are services
 149         my @svc = `find /etc/init.d/$_ 2>/dev/null | cut -d"/" -f4`;
 150         foreach (@svc)
 151         {
 152             # blacklist some packages
 153             #
 154             # alsa has trouble with the volume saving and was not really stopped
 155             #
 156             chomp($_);
 157             if ($_ ne "alsa")
 158             {
 159                 $lines++;
 160                 if ($lines % 2)
 161                 {
 162                     print "<tr bgcolor='$color{'color22'}'>";
 163                 }
 164                 else
 165                 {
 166                     print "<tr bgcolor='$color{'color20'}'>";
 167                 }
 168                 print "<td align='left'>$_</td> ";
 169                 my $status = isautorun($_);
 170                 print "$status ";
 171                 print "<td align='center'><A HREF=services.cgi?$_!start><img alt='$Lang::tr{'start'}' title='$Lang::tr{'start'}' src='/images/go-up.png' border='0' /></A></td>";
 172                 print "<td align='center'><A HREF=services.cgi?$_!stop><img alt='$Lang::tr{'stop'}' title='$Lang::tr{'stop'}' src='/images/go-down.png' border='0' /></A></td> ";
 173                 my $status = &isrunningaddon($_);
 174                 $status =~ s/\\e\[[0-1]\;[0-9]+m//g;
 175
 176                 chomp($status);
 177                 print "$status";
 178                 print "</tr>";
 179             }
 180         }
 181 }
 182
 183 print "</table></div>\n";
 184
 185 &Header::closebox();
 186
 187 &Header::openbox('100%', 'center', "$Lang::tr{'processes'} $Lang::tr{'graph'}");
 188 if (-e "$Header::graphdir/processes-day.png") {
 189         my $ftime = localtime((stat("$Header::graphdir/processes-day.png"))[9]);
 190         print "<center><b>$Lang::tr{'the statistics were last updated at'}: $ftime</b></center><br />\n";
 191         print "<a href='/cgi-bin/graphs.cgi?graph=processes'>";
 192         print "<img alt='' src='/graphs/processes-day.png' border='0' />";
 193         print "</a>";
 194 } else {
 195         print $Lang::tr{'no information available'};
 196 }
 197 print "<br />\n";
 198 &Header::closebox();
 199
 200 &Header::openbox('100%', 'center', "$Lang::tr{'processes'} $Lang::tr{'memory'} $Lang::tr{'graph'}");
 201 if (-e "$Header::graphdir/processesmem-day.png") {
 202         my $ftime = localtime((stat("$Header::graphdir/processesmem-day.png"))[9]);
 203         print "<center><b>$Lang::tr{'the statistics were last updated at'}: $ftime</b></center><br />\n";
 204         print "<a href='/cgi-bin/graphs.cgi?graph=processesmem'>";
 205         print "<img alt='' src='/graphs/processesmem-day.png' border='0' />";
 206         print "</a>";
 207 } else {
 208         print $Lang::tr{'no information available'};
 209 }
 210 print "<br />\n";
 211 &Header::closebox();
 212 &Header::closebigbox();
 213 &Header::closepage();
 214
 215 sub isautorun
 216 {
 217         my $cmd = $_[0];
 218         my $status = "<td align='center'></td>";
 219         my $init = `find /etc/rc.d/rc3.d/S??${cmd} 2>/dev/null`;
 220         chomp ($init);
 221         if ($init ne '') {
 222         $status = "<td align='center'><A HREF=services.cgi?$_!disable><img alt='$Lang::tr{'deactivate'}' title='$Lang::tr{'deactivate'}' src='/images/on.gif' border='0' width='16' height='16' /></A></td>";
 223         }
 224         $init = `find /etc/rc.d/rc3.d/off/S??${cmd} 2>/dev/null`;
 225         chomp ($init);
 226         if ($init ne '') {
 227   $status = "<td align='center'><A HREF=services.cgi?$_!enable><img alt='$Lang::tr{'activate'}' title='$Lang::tr{'activate'}' src='/images/off.gif' border='0' width='16' height='16' /></A></td>";
 228         }
 229
 230 return $status;
 231 }
 232
 233 sub isrunning
 234 {
 235         my $cmd = $_[0];
 236         my $status = "<td align='center' bgcolor='${Header::colourred}'><font color='white'><b>$Lang::tr{'stopped'}</b></font></td><td colspan='2'></td>";
 237         my $pid = '';
 238         my $testcmd = '';
 239         my $exename;
 240         my @memory;
 241
 242         $cmd =~ /(^[a-z]+)/;
 243         $exename = $1;
 244
 245         if (open(FILE, "/var/run/${cmd}.pid")){
 246                 $pid = <FILE>; chomp $pid;
 247                 close FILE;
 248                 if (open(FILE, "/proc/${pid}/status")){
 249                         while (<FILE>){
 250                                 if (/^Name:\W+(.*)/) {$testcmd = $1; }
 251                         }
 252                         close FILE;
 253                 }
 254                 if (open(FILE, "/proc/${pid}/statm")){
 255                                 my $temp = <FILE>;
 256                                 @memory = split(/ /,$temp);
 257                 }
 258                 close FILE;
 259                 if ($testcmd =~ /$exename/){$status = "<td align='center' bgcolor='${Header::colourgreen}'><font color='white'><b>$Lang::tr{'running'}</b></font></td><td align='center'>$pid</td><td align='center'>$memory[0] KB</td>";}
 260                 }
 261 return $status;
 262 }
 263
 264 sub isrunningaddon
 265 {
 266         my $cmd = $_[0];
 267         my $status = "<td align='center' bgcolor='${Header::colourred}'><font color='white'><b>$Lang::tr{'stopped'}</b></font></td><td colspan='2'></td>";
 268         my $pid = '';
 269         my $testcmd = '';
 270         my $exename;
 271         my @memory;
 272
 273         my $testcmd = `/usr/local/bin/addonctrl $_ status`;
 274
 275         if ( $testcmd =~ /is\ running/ && $testcmd !~ /is\ not\ running/){
 276         $status = "<td align='center' bgcolor='${Header::colourgreen}'><font color='white'><b>$Lang::tr{'running'}</b></font></td>";
 277         $testcmd =~ s/[a-z_]//gi;       $testcmd =~ s/\[[0-1]\;[0-9]+//gi;      $testcmd =~ s/[\(\)\.]//gi;     $testcmd =~ s/  //gi; $testcmd =~ s/\e//gi;
 278
 279         my @pid = split(/\s/,$testcmd);
 280         $status .="<td align='center'>$pid[0]</td>";
 281
 282         my $memory = 0;
 283
 284         foreach (@pid){
 285         chomp($_);
 286         if (open(FILE, "/proc/$_/statm")){
 287                                 my $temp = <FILE>;
 288                         @memory = split(/ /,$temp);
 289                 }
 290         $memory+=$memory[0];
 291         }
 292         $status .="<td align='center'>$memory KB</td>";
 293         }
 294         else {$status = "<td align='center' bgcolor='${Header::colourred}'><font color='white'><b>$Lang::tr{'stopped'}</b></font></td><td colspan='2'></td>";}
 295 return $status;
 296 }