|
From: <e....@us...> - 2011-08-14 11:06:21
|
Revision: 406
http://openautomation.svn.sourceforge.net/openautomation/?rev=406&view=rev
Author: e.max
Date: 2011-08-14 11:06:15 +0000 (Sun, 14 Aug 2011)
Log Message:
-----------
mehrfach GA Verarbeitung, siehe perldoc
Modified Paths:
--------------
wiregate/tools/knxquery/knxquery.pl
Modified: wiregate/tools/knxquery/knxquery.pl
===================================================================
--- wiregate/tools/knxquery/knxquery.pl 2011-08-13 18:12:44 UTC (rev 405)
+++ wiregate/tools/knxquery/knxquery.pl 2011-08-14 11:06:15 UTC (rev 406)
@@ -49,20 +49,12 @@
# koennte man mit dem Dumper machen ...
# print Dumper(%eibgaconf), "\n";
# ... soll aber schoener aussehen:
-
- my ($dptid, $dptsubid, $dptname, $gaName) = ('','','');
-
&printGaInfo($_) foreach (sort keys %eibgaconf);
} # dumpGa
sub printGaInfo
{
my $ga = shift || die "\n\n fehlender GA-paramater in printGaInfo()\n\n";
-
- # koennte man mit dem Dumper machen ...
- # print Dumper(%eibgaconf), "\n";
- # ... soll aber schoener aussehen:
-
my ($dptid, $dptsubid, $dptname, $gaName) = ('','','');
if (!exists $eibgaconf{$ga})
This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.
|