#!/usr/bin/perl
###############################################################################
# #
# IPFire.org - A linux based firewall #
# Copyright (C) 2008 Michael Tremer & Christian Schmidt #
# #
# 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
$param | $value | "; } } my @pfile = `grep . /sys/class/atm/$modem/device/* 2>/dev/null`; foreach (@pfile){ chomp($_); my $param= `echo $_ | cut -d'/' -f7 | cut -d':' -f1`; my $value= `cat /sys/class/atm/$modem/device/$param`; chomp($param); chomp($value); if (!($param =~"uevent") && !($param =~"modalias") && !($param =~"bInterface") && !($param =~"bAlternateSetting") && !($param =~"bNumEndpoints") && !($param =~"config matches") && !($param =~"resource") && !($param eq "") ) { $lines++; if ($lines % 2){ print "
$param | $value | "; } } print "