Hi,
Those 2 patches are removing multiple Dumper that generate to much log traffic.
I've replaced simple Dumper with a map that lists only mac addresses of the
adapters.
print "List network adapters: \n". Dumper map { $_->{mac} } @res;
# print "List network adapters: \n". Dumper (@res)
."(".scalar(@res).")\n";
Apply if found useful.
--
Olivier LAHAYE
CEA Saclay
DRT-LIST-DETECS-SSTM
--- /usr/bin/mksimachine.orig 2009-11-13 15:22:21.000000000 +0100
+++ /usr/bin/mksimachine 2009-11-13 15:45:22.000000000 +0100
@@ -171,9 +171,9 @@
my %ADAPTERS;
&verbose("Getting adapters");
my @adaps = SIS::NewDB::list_adapter(undef);
- print "Toto: ".Dumper @adaps;
+# print "Toto: ".Dumper @adaps;
foreach my $a (@adaps) {
- print "titi: ".Dumper $a;
+# print "titi: ".Dumper $a;
my $...@$a[0]->{client};
push(@{$ADAPTERS{$c}},$a);
}
@@ -274,7 +274,7 @@
}
}
my $adapters_ref = SIS::NewDB::list_adapter(undef);
- print Dumper $adapters_ref;
+# print Dumper $adapters_ref;
if (defined $adapters_ref) {
if ($config->parse){
print "#Adapter definitions\n";
--- /usr/lib/perl5/vendor_perl/5.8.8/OSCAR/Network.pm.orig 2009-11-13 15:27:10.000000000 +0100
+++ /usr/lib/perl5/vendor_perl/5.8.8/OSCAR/Network.pm 2009-11-13 15:39:01.000000000 +0100
@@ -164,8 +164,9 @@
if (scalar @res == 0) {
return undef;
} else {
- print "List network adapters: ". Dumper (@res) ."(".scalar(@res).")\n";
- print "Test: ".Dumper (@t);
+ print "List network adapters: \n". Dumper map { $_->{mac} } @res;
+# print "List network adapters: \n". Dumper (@res) ."(".scalar(@res).")\n";
+# print "Test: ".Dumper (@t);
return \...@res;
}
}
------------------------------------------------------------------------------
Let Crystal Reports handle the reporting - Free Crystal Reports 2008 30-Day
trial. Simplify your report design, integration and deployment - and focus on
what you do best, core application coding. Discover what's new with
Crystal Reports now. http://p.sf.net/sfu/bobj-july
_______________________________________________
Oscar-devel mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/oscar-devel
