]> git.ipfire.org Git - ipfire-2.x.git/blame - html/cgi-bin/atm-status.cgi
Merge remote-tracking branch 'origin/master' into next
[ipfire-2.x.git] / html / cgi-bin / atm-status.cgi
CommitLineData
fd3dd062
AF
1#!/usr/bin/perl
2###############################################################################
3# #
4# IPFire.org - A linux based firewall #
5# Copyright (C) 2008 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
22use strict;
23
24# enable only the following on debugging purpose
25#use warnings;
26#use CGI::Carp 'fatalsToBrowser';
27
28require '/var/ipfire/general-functions.pl';
29require "${General::swroot}/lang.pl";
30require "${General::swroot}/header.pl";
31
32my %color = ();
33my %mainsettings = ();
34
35&General::readhash("${General::swroot}/main/settings", \%mainsettings);
36&General::readhash("/srv/web/ipfire/html/themes/".$mainsettings{'THEME'}."/include/colors.txt", \%color);
37
38&Header::showhttpheaders();
39&Header::openpage($Lang::tr{'status information'}, 1, '');
40&Header::openbigbox('100%', 'left');
41
42my @modems = `find /sys/class/atm/*/device 2>/dev/null | cut -d'/' -f5`;
43foreach (@modems){
44 chomp($_);
45 &Header::openbox('100%', 'left',"ATM MODEM $_ State");
46 my $lines=0;
47 print "<center><table>";
48 my $modem=$_;
2a72785c
AF
49 my @pfile = `grep . /sys/class/atm/$modem/parameters/* 2>/dev/null`;
50 foreach (@pfile){
51 chomp($_);
52 my $param= `echo $_ | cut -d'/' -f7 | cut -d':' -f1`;
53 my $value= `cat /sys/class/atm/$modem/parameters/$param`;
54 chomp($param);
55 chomp($value);
56 if (!($param =~"uevent")
57 && !($param =~"resource")
58 && !($param eq "")
59 ) {
60
61 $lines++;
62 if ($lines % 2){
63 print "<tr bgcolor='$color{'color22'}'>";
64 }else{
65 print "<tr bgcolor='$color{'color20'}'>";
66 }
67 print "<td align='left'>$param</td><td align='left'>$value</td> ";
68 }
69 }
fd3dd062
AF
70 my @pfile = `grep . /sys/class/atm/$modem/device/* 2>/dev/null`;
71 foreach (@pfile){
72 chomp($_);
73 my $param= `echo $_ | cut -d'/' -f7 | cut -d':' -f1`;
74 my $value= `cat /sys/class/atm/$modem/device/$param`;
75 chomp($param);
76 chomp($value);
77 if (!($param =~"uevent")
78 && !($param =~"modalias")
79 && !($param =~"bInterface")
80 && !($param =~"bAlternateSetting")
81 && !($param =~"bNumEndpoints")
2a72785c
AF
82 && !($param =~"config matches")
83 && !($param =~"resource")
fd3dd062
AF
84 && !($param eq "")
85 ) {
86
87 $lines++;
88 if ($lines % 2){
89 print "<tr bgcolor='$color{'color22'}'>";
90 }else{
91 print "<tr bgcolor='$color{'color20'}'>";
92 }
93 print "<td align='left'>$param</td><td align='left'>$value</td> ";
94 }
95 }
96 print "</table><br>\n";
97 &Header::closebox();
98}
99&Header::closebigbox();
100&Header::closepage();