tempaltes/default-dir.html # add interface popups
sup/webplain/torrus.css # skinning
bin/srvderive.in # --end and commit bugfixes
+
+#backport from torrus 2.01, so not really a modification :)
+perllib/Torrus/Devdiscover/Arbor_E.pm
+perllib/Torrus/Devdiscover/F5BigIP.pm
+perllib/Torrus/Devdiscover/FTPS.pm
+
# along with this program; if not, write to the Free Software
# Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307, USA.
#
-# $Id: Arbor_E.pm,v 1.1 2010-12-27 00:03:52 ivan Exp $
+# $Id: Arbor_E.pm,v 1.1.1.1.2.1 2011-12-16 22:43:56 ivan Exp $
# Jon Nistor <nistor at snickers.org>
#
# NOTE: This module has been tested against v7.5.x, v7.6.x, v9.0.x, v9.1.x
Debug(" Offer: $offerName");
- foreach my $bundleID ( @{%{$offerBundle}->{$offerNameID}} )
+ foreach my $bundleID ( @{$offerBundle->{$offerNameID}} )
{
my @btemplates;
my $bundleName = $data->{'arbor_e'}{'bundleName'}{$bundleID};
# along with this program; if not, write to the Free Software
# Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307, USA.
-# $Id: F5BigIp.pm,v 1.1 2010-12-27 00:03:48 ivan Exp $
+# $Id: F5BigIp.pm,v 1.1.1.1.2.1 2011-12-16 22:43:56 ivan Exp $
# Shawn Ferry <sferry at sevenspace dot com> <lalartu at obscure dot org>
# F5 BigIp Load Balancer
my $result = $dd->retrieveSnmpOIDs( '4.x_globalAttrProductCode' );
my $product_code = $result->{'4.x_globalAttrProductCode'};
- $product_name = %f5_product->{$product_code}->{'product'};
- if( %f5_product->{$product_code}->{'supported'} )
+ $product_name = $f5_product{$product_code}->{'product'};
+ if( $f5_product{$product_code}->{'supported'} )
{
$devdetails->setCap( 'BigIp_' . $product_name );
}
# along with this program; if not, write to the Free Software
# Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307, USA.
-# $Id: FTOS.pm,v 1.1 2010-12-27 00:03:54 ivan Exp $
+# $Id: FTOS.pm,v 1.1.1.1.2.1 2011-12-16 22:43:56 ivan Exp $
# Jon Nistor <nistor at snickers.org>
# Force10 Networks Real Time Operating System Software
if( defined( $chassisSerial ) )
{
$data->{'param'}{'comment'} =
- %f10ChassisType->{$chassisSerial->{'chType'}} .
+ $f10ChassisType{$chassisSerial->{'chType'}} .
', Hw Serial#: ' . $chassisSerial->{'chSerialNumber'};
}
else
( $dd->oiddef('chRpmCpuIndex') ) )
{
my $cpuType = $dd->oiddef('chRpmCpuIndex') . "." . $ftosCPUidx;
- my $cpuName = %f10CPU->{$ftosCpuTable->{$cpuType}};
+ my $cpuName = $f10CPU{$ftosCpuTable->{$cpuType}};
Debug("FTOS::CPU index $ftosCPUidx, $cpuName");