makegraphs umgebaut, sodass nurnoch rrd daten geschrieben werden die graphen
[people/pmueller/ipfire-2.x.git] / html / cgi-bin / system.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 require "${General::swroot}/graphs.pl";
21
22 #workaround to suppress a warning when a variable is used only once
23 my @dummy = ( ${Header::colourred} );
24 undef (@dummy);
25
26 my %netsettings=();
27 &General::readhash("${General::swroot}/ethernet/settings", \%netsettings);
28
29 my %color = ();
30 my %mainsettings = ();
31 &General::readhash("${General::swroot}/main/settings", \%mainsettings);
32 &General::readhash("/srv/web/ipfire/html/themes/".$mainsettings{'THEME'}."/include/colors.txt", \%color);
33
34 my %cgiparams=();
35 # Maps a nice printable name to the changing part of the pid file, which
36 # is also the name of the program
37 my %servicenames =
38 (
39 $Lang::tr{'dhcp server'} => 'dhcpd',
40 $Lang::tr{'web server'} => 'httpd',
41 $Lang::tr{'cron server'} => 'fcron',
42 $Lang::tr{'dns proxy server'} => 'dnsmasq',
43 $Lang::tr{'logging server'} => 'syslogd',
44 $Lang::tr{'kernel logging server'} => 'klogd',
45 $Lang::tr{'ntp server'} => 'ntpd',
46 $Lang::tr{'secure shell server'} => 'sshd',
47 $Lang::tr{'vpn'} => 'pluto',
48 $Lang::tr{'web proxy'} => 'squid',
49 'OpenVPN' => 'openvpn'
50 );
51
52 my $iface = '';
53 if (open(FILE, "${General::swroot}/red/iface"))
54 {
55 $iface = <FILE>;
56 close FILE;
57 chomp $iface;
58 }
59 $servicenames{"$Lang::tr{'intrusion detection system'} (RED)"} = "snort_${iface}";
60 $servicenames{"$Lang::tr{'intrusion detection system'} (GREEN)"} = "snort_$netsettings{'GREEN_DEV'}";
61 if ($netsettings{'ORANGE_DEV'} ne '') {
62 $servicenames{"$Lang::tr{'intrusion detection system'} (ORANGE)"} = "snort_$netsettings{'ORANGE_DEV'}";
63 }
64 if ($netsettings{'BLUE_DEV'} ne '') {
65 $servicenames{"$Lang::tr{'intrusion detection system'} (BLUE)"} = "snort_$netsettings{'BLUE_DEV'}";
66 }
67
68 # Generate Graphs from rrd Data
69 &Graphs::updatecpugraph ("day");
70 &Graphs::updatecpugraph ("week");
71 &Graphs::updatecpugraph ("month");
72 &Graphs::updatecpugraph ("year");
73 &Graphs::updateloadgraph ("day");
74 &Graphs::updateloadgraph ("week");
75 &Graphs::updateloadgraph ("month");
76 &Graphs::updateloadgraph ("year");
77
78 &Header::showhttpheaders();
79 &Header::getcgihash(\%cgiparams);
80 &Header::openpage($Lang::tr{'status information'}, 1, '');
81 &Header::openbigbox('100%', 'left');
82
83 &Header::openbox('100%', 'center', "CPU $Lang::tr{'graph'}");
84 if (-e "$Header::graphdir/cpu-day.png") {
85 my $ftime = localtime((stat("$Header::graphdir/cpu-day.png"))[9]);
86 print "<center><b>$Lang::tr{'the statistics were last updated at'}: $ftime</b></center><br />\n";
87 print "<a href='/cgi-bin/graphs.cgi?graph=cpu'>";
88 print "<img alt='' src='/graphs/cpu-day.png' border='0' />";
89 print "</a>";
90 } else {
91 print $Lang::tr{'no information available'};
92 }
93 print "<br />\n";
94 &Header::closebox();
95
96 &Header::openbox('100%', 'center', "Load $Lang::tr{'graph'}");
97 if (-e "$Header::graphdir/load-day.png") {
98 my $ftime = localtime((stat("$Header::graphdir/load-day.png"))[9]);
99 print "<center><b>$Lang::tr{'the statistics were last updated at'}: $ftime</b></center><br />\n";
100 print "<a href='/cgi-bin/graphs.cgi?graph=load'>";
101 print "<img alt='' src='/graphs/load-day.png' border='0' />";
102 print "</a>";
103 } else {
104 print $Lang::tr{'no information available'};
105 }
106 print "<br />\n";
107 &Header::closebox();
108
109 &Header::openbox('100%', 'left', $Lang::tr{'services'});
110
111 print <<END
112 <div align='center'>
113 <table width='60%' cellspacing='0' border='0'>
114 END
115 ;
116
117 my $key = '';
118 foreach $key (sort keys %servicenames)
119 {
120 print "<tr>\n<td align='left'>$key</td>\n";
121 my $shortname = $servicenames{$key};
122 my $status = &isrunning($shortname);
123 print "$status\n";
124 print "</tr>\n";
125 }
126
127
128 print "</table></div>\n";
129
130 &Header::closebox();
131 &Header::closebigbox();
132 &Header::closepage();
133
134 sub isrunning
135 {
136 my $cmd = $_[0];
137 my $status = "<td bgcolor='${Header::colourred}'><font color='white'><b>$Lang::tr{'stopped'}</b></font></td>";
138 my $pid = '';
139 my $testcmd = '';
140 my $exename;
141
142 $cmd =~ /(^[a-z]+)/;
143 $exename = $1;
144
145 if (open(FILE, "/var/run/${cmd}.pid"))
146 {
147 $pid = <FILE>; chomp $pid;
148 close FILE;
149 if (open(FILE, "/proc/${pid}/status"))
150 {
151 while (<FILE>)
152 {
153 if (/^Name:\W+(.*)/) {
154 $testcmd = $1; }
155 }
156 close FILE;
157 if ($testcmd =~ /$exename/)
158 {
159 $status = "<td bgcolor='${Header::colourgreen}'><font color='white'><b>$Lang::tr{'running'}</b></font></td>";
160 }
161 }
162 }
163
164 return $status;
165 }
166
167 sub percentbar
168 {
169 my $percent = $_[0];
170 my $fg = '#a0a0a0';
171 my $bg = '#e2e2e2';
172
173 if ($percent =~ m/^(\d+)%$/ )
174 {
175 print <<END
176 <table width='100' border='1' cellspacing='0' cellpadding='0' style='border-width:1px;border-style:solid;border-color:$fg;width:100px;height:10px;'>
177 <tr>
178 END
179 ;
180 if ($percent eq "100%") {
181 print "<td width='100%' bgcolor='$fg' style='background-color:$fg;border-style:solid;border-width:1px;border-color:$bg'>"
182 } elsif ($percent eq "0%") {
183 print "<td width='100%' bgcolor='$bg' style='background-color:$bg;border-style:solid;border-width:1px;border-color:$bg'>"
184 } else {
185 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'>"
186 }
187 print <<END
188 <img src='/images/null.gif' width='1' height='1' alt='' /></td></tr></table>
189 END
190 ;
191 }
192 }