[PATCH] - fhem.pl Aufnahme von Hilfsmodulen (HttpUtils, ...) in version output

betateilchen · 10 Januar 2016, 22:19:51

Zitat von: Markus Bloch am 10 Januar 2016, 22:13:20
@betateilchen: Gib mir bitte mal den Dumper-Output zu %INC:


$VAR1 = { 
          'ExtUtils/MM.pm' => '/usr/share/perl/5.20/ExtUtils/MM.pm', 
          'SelectSaver.pm' => '/usr/share/perl/5.20/SelectSaver.pm', 
          'IO/Compress/Base/Common.pm' => '/usr/share/perl/5.20/IO/Compress/Base/Common.pm', 
          'IO/Compress/Adapter/Deflate.pm' => '/usr/share/perl/5.20/IO/Compress/Adapter/Deflate.pm', 
          'Blocking.pm' => 'FHEM/Blocking.pm', 
          'File/Find.pm' => '/usr/share/perl/5.20/File/Find.pm', 
          'IPC/Open3.pm' => '/usr/share/perl/5.20/IPC/Open3.pm', 
          'MIME/Base64.pm' => '/usr/lib/arm-linux-gnueabihf/perl/5.20/MIME/Base64.pm', 
          'AutoLoader.pm' => '/usr/share/perl/5.20/AutoLoader.pm', 
          'Archive/Extract.pm' => '/usr/share/perl5/Archive/Extract.pm', 
          './FHEM/98_version.pm' => './FHEM/98_version.pm', 
          'warnings/register.pm' => '/usr/share/perl/5.20/warnings/register.pm', 
          'constant.pm' => '/usr/share/perl/5.20/constant.pm', 
          'XML/SAX.pm' => '/usr/share/perl5/XML/SAX.pm', 
          'POSIX.pm' => '/usr/lib/arm-linux-gnueabihf/perl/5.20/POSIX.pm', 
          'Net/FTP.pm' => '/usr/share/perl/5.20/Net/FTP.pm', 
          'integer.pm' => '/usr/share/perl/5.20/integer.pm', 
          'DirHandle.pm' => '/usr/share/perl/5.20/DirHandle.pm', 
          'Math/Complex.pm' => '/usr/share/perl/5.20/Math/Complex.pm', 
          '/usr/lib/arm-linux-gnueabihf/perl5/5.20/auto/Net/SSLeay/randomize.al' => '/usr/lib/arm-linux-gnueabihf/perl5/5.20/auto/Net/SSLeay/randomize.al', 
          'IPC/Cmd.pm' => '/usr/share/perl/5.20/IPC/Cmd.pm', 
          'vars.pm' => '/usr/share/perl/5.20/vars.pm', 
          'ExtUtils/MakeMaker/Config.pm' => '/usr/share/perl/5.20/ExtUtils/MakeMaker/Config.pm', 
          'overload.pm' => '/usr/share/perl/5.20/overload.pm', 
          'XML/SAX/Base.pm' => '/usr/share/perl5/XML/SAX/Base.pm', 
          'Module/Metadata.pm' => '/usr/local/share/perl/5.20.2/Module/Metadata.pm', 
          'Errno.pm' => '/usr/lib/arm-linux-gnueabihf/perl/5.20/Errno.pm', 
          'IO/Socket/SSL.pm' => '/usr/share/perl5/IO/Socket/SSL.pm', 
          'bytes.pm' => '/usr/share/perl/5.20/bytes.pm', 
          'File/Glob.pm' => '/usr/lib/arm-linux-gnueabihf/perl/5.20/File/Glob.pm', 
          'Net/Config.pm' => '/usr/share/perl/5.20/Net/Config.pm', 
          'Exporter.pm' => '/usr/share/perl/5.20/Exporter.pm', 
          'IO/Compress/Gzip.pm' => '/usr/share/perl/5.20/IO/Compress/Gzip.pm', 
          'DBD/SQLite.pm' => '/usr/lib/arm-linux-gnueabihf/perl5/5.20/DBD/SQLite.pm', 
          'IO/Compress/Base.pm' => '/usr/share/perl/5.20/IO/Compress/Base.pm', 
          'IO.pm' => '/usr/lib/arm-linux-gnueabihf/perl/5.20/IO.pm', 
          'XML/NamespaceSupport.pm' => '/usr/share/perl5/XML/NamespaceSupport.pm', 
          'Time/Local.pm' => '/usr/share/perl/5.20/Time/Local.pm', 
          'Carp.pm' => '/usr/share/perl/5.20/Carp.pm', 
          './FHEM/92_FileLog.pm' => './FHEM/92_FileLog.pm', 
          'File/Spec/Unix.pm' => '/usr/lib/arm-linux-gnueabihf/perl/5.20/File/Spec/Unix.pm', 
          'DynaLoader.pm' => '/usr/lib/arm-linux-gnueabihf/perl/5.20/DynaLoader.pm', 
          'Module/Load/Conditional.pm' => '/usr/share/perl/5.20/Module/Load/Conditional.pm', 
          'TcpServerUtils.pm' => 'FHEM/TcpServerUtils.pm', 
          'List/Util.pm' => '/usr/lib/arm-linux-gnueabihf/perl/5.20/List/Util.pm', 
          './FHEM/91_notify.pm' => './FHEM/91_notify.pm', 
          'warnings.pm' => '/usr/share/perl/5.20/warnings.pm', 
          'Params/Check.pm' => '/usr/share/perl/5.20/Params/Check.pm', 
          'XML/SAX/ParserFactory.pm' => '/usr/share/perl5/XML/SAX/ParserFactory.pm', 
          'FileHandle.pm' => '/usr/share/perl/5.20/FileHandle.pm', 
          'version.pm' => '/usr/share/perl/5.20/version.pm', 
          'RTypes.pm' => 'FHEM/RTypes.pm', 
          'HttpUtils.pm' => 'FHEM/HttpUtils.pm', 
          'Cwd.pm' => '/usr/lib/arm-linux-gnueabihf/perl/5.20/Cwd.pm', 
          'Exporter/Heavy.pm' => '/usr/share/perl/5.20/Exporter/Heavy.pm', 
          'deprecate.pm' => '/usr/share/perl/5.20/deprecate.pm', 
          'overloading.pm' => '/usr/share/perl/5.20/overloading.pm', 
          'ExtUtils/Liblist.pm' => '/usr/share/perl/5.20/ExtUtils/Liblist.pm', 
          'URI/_punycode.pm' => '/usr/share/perl5/URI/_punycode.pm', 
          'Digest/base.pm' => '/usr/share/perl/5.20/Digest/base.pm', 
          './FHEM/59_Weather.pm' => './FHEM/59_Weather.pm', 
          'if.pm' => '/usr/share/perl/5.20/if.pm', 
          'Config_heavy.pl' => '/usr/lib/arm-linux-gnueabihf/perl/5.20/Config_heavy.pl', 
          'IO/Socket/INET.pm' => '/usr/lib/arm-linux-gnueabihf/perl/5.20/IO/Socket/INET.pm', 
          'HTTP/Date.pm' => '/usr/share/perl5/HTTP/Date.pm', 
          '/usr/lib/arm-linux-gnueabihf/perl5/5.20/auto/Net/SSLeay/autosplit.ix' => '/usr/lib/arm-linux-gnueabihf/perl5/5.20/auto/Net/SSLeay/autosplit.ix', 
          './FHEM/99_Utils.pm' => './FHEM/99_Utils.pm', 
          'GDSweblink.pm' => 'FHEM/GDSweblink.pm', 
          'IO/Seekable.pm' => '/usr/lib/arm-linux-gnueabihf/perl/5.20/IO/Seekable.pm', 
          'Config.pm' => '/usr/lib/arm-linux-gnueabihf/perl/5.20/Config.pm', 
          'IO/Socket/SSL/PublicSuffix.pm' => '/usr/share/perl5/IO/Socket/SSL/PublicSuffix.pm', 
          'File/Path.pm' => '/usr/share/perl/5.20/File/Path.pm', 
          'File/GlobMapper.pm' => '/usr/share/perl/5.20/File/GlobMapper.pm', 
          'ExtUtils/MM_Unix.pm' => '/usr/share/perl/5.20/ExtUtils/MM_Unix.pm', 
          'File/Basename.pm' => '/usr/share/perl/5.20/File/Basename.pm', 
          'XML/SAX/Exception.pm' => '/usr/share/perl5/XML/SAX/Exception.pm', 
          './FHEM/99_SUNRISE_EL.pm' => './FHEM/99_SUNRISE_EL.pm', 
          'File/Spec.pm' => '/usr/lib/arm-linux-gnueabihf/perl/5.20/File/Spec.pm', 
          'IO/File.pm' => '/usr/lib/arm-linux-gnueabihf/perl/5.20/IO/File.pm', 
          'version/regex.pm' => '/usr/share/perl/5.20/version/regex.pm', 
          'XML/Parser.pm' => '/usr/lib/arm-linux-gnueabihf/perl5/5.20/XML/Parser.pm', 
          'Tie/Hash.pm' => '/usr/share/perl/5.20/Tie/Hash.pm', 
          './FHEM/57_Calendar.pm' => './FHEM/57_Calendar.pm', 
          'Fcntl.pm' => '/usr/lib/arm-linux-gnueabihf/perl/5.20/Fcntl.pm', 
          'XSLoader.pm' => '/usr/share/perl/5.20/XSLoader.pm', 
          'ExtUtils/MY.pm' => '/usr/share/perl/5.20/ExtUtils/MY.pm', 
          'Text/ParseWords.pm' => '/usr/share/perl/5.20/Text/ParseWords.pm', 
          'Module/Load.pm' => '/usr/share/perl/5.20/Module/Load.pm', 
          'Locale/Maketext/Simple.pm' => '/usr/share/perl/5.20/Locale/Maketext/Simple.pm', 
          'XML/Simple.pm' => '/usr/share/perl5/XML/Simple.pm', 
          'Data/Dumper.pm' => '/usr/lib/arm-linux-gnueabihf/perl/5.20/Data/Dumper.pm', 
          'Algorithm/Diff.pm' => '/usr/share/perl5/Algorithm/Diff.pm', 
          'IO/Socket/IP.pm' => '/usr/share/perl5/IO/Socket/IP.pm', 
          './FHEM/90_at.pm' => './FHEM/90_at.pm', 
          'Digest/MD5.pm' => '/usr/lib/arm-linux-gnueabihf/perl/5.20/Digest/MD5.pm', 
          'IO/Socket/UNIX.pm' => '/usr/lib/arm-linux-gnueabihf/perl/5.20/IO/Socket/UNIX.pm', 
          'IO/Compress/Gzip/Constants.pm' => '/usr/share/perl/5.20/IO/Compress/Gzip/Constants.pm', 
          './FHEM/98_telnet.pm' => './FHEM/98_telnet.pm', 
          'configDB.pm' => 'configDB.pm', 
          'feature.pm' => '/usr/share/perl/5.20/feature.pm', 
          'ExtUtils/Liblist/Kid.pm' => '/usr/share/perl/5.20/ExtUtils/Liblist/Kid.pm', 
          'Time/HiRes.pm' => '/usr/lib/arm-linux-gnueabihf/perl/5.20/Time/HiRes.pm', 
          'strict.pm' => '/usr/share/perl/5.20/strict.pm', 
          'IO/Uncompress/Adapter/Inflate.pm' => '/usr/share/perl/5.20/IO/Uncompress/Adapter/Inflate.pm', 
          'IO/Compress/Zlib/Extra.pm' => '/usr/share/perl/5.20/IO/Compress/Zlib/Extra.pm', 
          'XML/Parser/Expat.pm' => '/usr/lib/arm-linux-gnueabihf/perl5/5.20/XML/Parser/Expat.pm', 
          'Text/Diff.pm' => '/usr/share/perl5/Text/Diff.pm', 
          './FHEM/55_GDS.pm' => './FHEM/55_GDS.pm', 
          'locale.pm' => '/usr/share/perl/5.20/locale.pm', 
          'Scalar/Util.pm' => '/usr/lib/arm-linux-gnueabihf/perl/5.20/Scalar/Util.pm', 
          'IO/Uncompress/RawInflate.pm' => '/usr/share/perl/5.20/IO/Uncompress/RawInflate.pm', 
          'Compress/Raw/Zlib.pm' => '/usr/lib/arm-linux-gnueabihf/perl/5.20/Compress/Raw/Zlib.pm', 
          'Math/Trig.pm' => '/usr/share/perl/5.20/Math/Trig.pm', 
          'base.pm' => '/usr/share/perl/5.20/base.pm', 
          'Socket.pm' => '/usr/lib/arm-linux-gnueabihf/perl5/5.20/Socket.pm', 
          'Net/Cmd.pm' => '/usr/share/perl/5.20/Net/Cmd.pm', 
          './FHEM/99_myUtils.pm' => './FHEM/99_myUtils.pm', 
          'XML/SAX/Expat.pm' => '/usr/share/perl5/XML/SAX/Expat.pm', 
          'ExtUtils/MakeMaker.pm' => '/usr/share/perl/5.20/ExtUtils/MakeMaker.pm', 
          'utf8.pm' => '/usr/share/perl/5.20/utf8.pm', 
          'IO/Socket.pm' => '/usr/lib/arm-linux-gnueabihf/perl/5.20/IO/Socket.pm', 
          '/etc/perl/Net/libnet.cfg' => '/etc/perl/Net/libnet.cfg', 
          'URI/_idna.pm' => '/usr/share/perl5/URI/_idna.pm', 
          'DBI.pm' => '/usr/lib/arm-linux-gnueabihf/perl5/5.20/DBI.pm', 
          'IO/Select.pm' => '/usr/lib/arm-linux-gnueabihf/perl/5.20/IO/Select.pm', 
          'Config_git.pl' => '/usr/lib/arm-linux-gnueabihf/perl/5.20/Config_git.pl', 
          './FHEM/98_dummy.pm' => './FHEM/98_dummy.pm', 
          'ExtUtils/MM_Any.pm' => '/usr/share/perl/5.20/ExtUtils/MM_Any.pm', 
          'Net/SSLeay.pm' => '/usr/lib/arm-linux-gnueabihf/perl5/5.20/Net/SSLeay.pm', 
          'IO/Compress/RawDeflate.pm' => '/usr/share/perl/5.20/IO/Compress/RawDeflate.pm', 
          './FHEM/01_FHEMWEB.pm' => './FHEM/01_FHEMWEB.pm', 
          'IO/Uncompress/Base.pm' => '/usr/share/perl/5.20/IO/Uncompress/Base.pm', 
          'IO/Uncompress/Gunzip.pm' => '/usr/share/perl/5.20/IO/Uncompress/Gunzip.pm', 
          'Compress/Zlib.pm' => '/usr/share/perl/5.20/Compress/Zlib.pm', 
          'Symbol.pm' => '/usr/share/perl/5.20/Symbol.pm', 
          'IO/Handle.pm' => '/usr/lib/arm-linux-gnueabihf/perl/5.20/IO/Handle.pm' 
        };

Markus Bloch · 10 Januar 2016, 22:20:58

Zitat von: rudolfkoenig am 10 Januar 2016, 22:17:48
Ich werde fhem.pl selbst aendern, aber erst, nachdem du 98_version.pm eingecheckt hast.

OK

Zitat von: rudolfkoenig am 10 Januar 2016, 22:17:48
Sonst: Ich hoffe, es ist nicht dein ernst, Version in allen Perl-Dateien zu suchen. Bitte nur die, die mit FHEM was zu tun haben.

Nein, das ist so nicht gewollt. Bei mir tritt das nicht auf. Ich vermute das ist ein Sonderfall bei der Nutzung von configdb.

betateilchen · 10 Januar 2016, 22:29:18

Zitat von: Markus Bloch am 10 Januar 2016, 22:20:58
Ich vermute das ist ein Sonderfall bei der Nutzung von configdb.

Code Auswählen


    if(!open(FH, $fn)) {
      $line = "$fn: $!";
      if(configDBUsed()){
        Log 4, "Looking for module $m in configDB to find SVN Id";
        $line = cfgDB_Fileversion($fn,$line);
      }
      
    } else {
      ($line) = grep(/#.*\$Id\:[^\$\n\r].+\$/, <FH>);
    }

Wenn eine Datei aus Deiner Dateiliste nicht im modpath geöffnet werden kann, wird versucht, die Datei aus der configDB zu lesen.
Offenbar enthält die Dateiliste, die Du zur Prüfung verwendest, noch viel zu viele Dateien, die nichts mit FHEM zu tun haben.

Code Auswählen

foreach my $m (keys %INC)

Du loopst über den kompletten hash.

Markus Bloch · 10 Januar 2016, 22:32:41

Sollte nun behoben sein. Da der modpath bei dir "." ist, ist das alleine als Filter natürlich unzureichend. Ich filtere daher nun auf modpath/FHEM.

betateilchen · 10 Januar 2016, 22:35:14

Zitat von: Markus Bloch am 10 Januar 2016, 22:32:41
Ich filtere daher nun auf modpath/FHEM.

hm... damit hab ich gleich das nächste Problem im Hinterkopf, aber ich bin inzwischen zu müde.

betateilchen · 10 Januar 2016, 22:40:11

ich habs befürchtet...

Code Auswählen



File             Rev   Last Change 

fhem.pl          10397 2016-01-07 08:36:49Z rudolfkoenig 
No Id found for ./FHEM/99_myUtils.pm 
90_at.pm         10421 2016-01-09 07:54:37Z rudolfkoenig 
57_Calendar.pm       0 2016-01-03  borisneubert 
98_dummy.pm       8809 2015-06-23 18:02:33Z rudolfkoenig 
01_FHEMWEB.pm    10398 2016-01-07 09:05:47Z rudolfkoenig 
92_FileLog.pm    10365 2016-01-05 10:57:56Z rudolfkoenig 
55_GDS.pm        10388 2016-01-06 17:17:55Z betateilchen 
91_notify.pm      8953 2015-07-13 15:13:06Z rudolfkoenig 
99_SUNRISE_EL.pm  9831 2015-11-08 19:13:09Z rudolfkoenig 
98_telnet.pm     10423 2016-01-09 08:35:53Z rudolfkoenig 
99_Utils.pm       7914 2015-02-08 11:14:10Z rudolfkoenig 
98_version.pm    10247 2015-12-23 19:53:31Z markusbloch 
59_Weather.pm    10403 2016-01-07 19:44:04Z borisneubert 

configDB.pm      10345 2016-01-03 11:44:41Z betateilchen

wohin sind die Hilfsmodule jetzt verschwunden?

Markus Bloch · 10 Januar 2016, 22:50:42

Behoben.

betateilchen · 10 Januar 2016, 23:00:52

scheint zu funktionieren...

Code Auswählen



File              Rev   Last Change 

fhem.pl           10397 2016-01-07 08:36:49Z rudolfkoenig 
No Id found for ./FHEM/99_myUtils.pm 
90_at.pm          10421 2016-01-09 07:54:37Z rudolfkoenig 
57_Calendar.pm        0 2016-01-03  borisneubert 
98_dummy.pm        8809 2015-06-23 18:02:33Z rudolfkoenig 
01_FHEMWEB.pm     10398 2016-01-07 09:05:47Z rudolfkoenig 
92_FileLog.pm     10365 2016-01-05 10:57:56Z rudolfkoenig 
55_GDS.pm         10388 2016-01-06 17:17:55Z betateilchen 
91_notify.pm       8953 2015-07-13 15:13:06Z rudolfkoenig 
99_SUNRISE_EL.pm   9831 2015-11-08 19:13:09Z rudolfkoenig 
98_telnet.pm      10423 2016-01-09 08:35:53Z rudolfkoenig 
99_Utils.pm        7914 2015-02-08 11:14:10Z rudolfkoenig 
98_version.pm     10247 2015-12-23 19:53:31Z markusbloch 
59_Weather.pm     10403 2016-01-07 19:44:04Z borisneubert 

Blocking.pm       10343 2016-01-03 10:55:45Z rudolfkoenig 
configDB.pm       10345 2016-01-03 11:44:41Z betateilchen 
GDSweblink.pm      9432 2015-10-11 10:38:18Z betateilchen 
HttpUtils.pm      10137 2015-12-09 09:01:41Z rudolfkoenig 
No Id found for RTypes.pm 
TcpServerUtils.pm 10346 2016-01-03 12:34:27Z rudolfkoenig

Markus Bloch · 10 Januar 2016, 23:29:53

Ich habe nun 98_version.pm eingecheckt. Auch wenn es verteilt wird, ist es momentan nicht aktiv und kann auch nicht geladen werden, da $cvsid momentan nicht global zugreifbar ist.

Im Anhang sind die Änderungen als Diff, welche an fhem.pl durchgeführt werden müssen. Erst damit wird das neue Modul aktiv.

Vielen Dank an betateilchen für die Geduld und Unterstützung.

betateilchen · 11 Januar 2016, 00:07:55

Zitat von: Markus Bloch am 10 Januar 2016, 23:29:53
Im Anhang sind die Änderungen als Diff, welche an fhem.pl durchgeführt werden müssen.

zusätzliche Änderung in der fhem.pl:

Zitat von: betateilchen am 10 Januar 2016, 22:00:16
Die Deklaration

Code Auswählen Erweitern
sub cfgDB_svnId;

in der fhem.pl kann entfallen, wenn die CommandVersion() ausgelagert wird.

Markus Bloch · 11 Januar 2016, 00:15:43

Ist im Beitrag aktualisiert.

Reinerlein · 11 Januar 2016, 00:33:24

Hallo zusammen,

ich wollte mal eine Anmerkung zu der Ausgabe bei Nicht-Vorhandensein einer ID machen:
Die Liste ist so schwieriger mit einem Blick zu überschauen. Der Dateiname ist ja sozusagen der Schlüssel für die Liste, nach dem ja auch sortiert wird (zumindest im jeweiligen Bereich).

Wenn ich jetzt ein bestimmtes Modul suche, dann wäre es viel einfacher, wenn ich nur die erste Spalte durchsehen müsste, um dann in den nächsten Spalten zu sehen, dass es eine ID gibt, oder eben keine...
Ich suche ja nicht alle Module, die keine ID haben, dann wäre es mit dem "No ID" am Anfang besser.

Momentan muss man an den Stellen, wo keine ID gefunden wird, immer mit dem Auge die Spalte verlassen, um zu lesen, welche Datei da denn keine ID hat...

Ich finde die Variante von Markus deutlich übersichtlicher...

Grüße
Reiner

betateilchen · 11 Januar 2016, 07:07:06

Hallo Reiner,

da ich die "No Id" Meldung bereits vor langem eingeführt habe, kann ich Dir aus meiner Erfahrung sagen, dass ich den Dateinamen genau deshalb nach hinten gestellt habe, damit sich ein solcher Eintrag aus der Liste abhebt.

Genau aus dem gleichen Grund werden auch bei einem update die übersprungenen Dateien optisch anders dargestellt.

rudolfkoenig · 11 Januar 2016, 07:34:31

patch hatte Probleme mit der angehaengten Datei, ich habe es per Hand eingespielt, kurz getestet und eingecheckt. Beim Test ist aufgefallen, dass "version ZW" eine "kaputte" Ausgabe produziert:

Zitatfhem> version ZW
File Rev Last Change

10_ZWave.pm 10422 2016-01-09 07:58:40Z rudolfkoenig
00_ZWCUL.pm 10444 2016-01-10 15:02:44Z rudolfkoenigZWLib.pm 10444 2016-01-10 15:02:44Z rudolfkoenig
fhem>

@Markus/Boris/John: bitte keine Aenderungen in commandref_frame.html direkt durchfuehren, sondern mir Patches schicken. Auch wenn es Kleinigkeiten sind: ich will das in meinem Augen erfolgreiches Konzept des Verantwortlichen fuer eine Datei nicht aufweichen. Wenn es sein muss, dann Modularisieren wir eben weiter.

Reinerlein · 11 Januar 2016, 09:07:13

Hallo betateilchen,

ja, wenn man die Dateien sucht, denen die ID fehlt, bzw. beim Update sehen möchte, was übersprungen wurde...

Der Normalfall dürfte für den Anwender aber ja genau andersrum sein. Er soll die Version eines bestimmten Moduls posten, bzw. man selber möchte das raussuchen, und da ist es so in meinen Augen einfach unübersichtlicher...
Ich wollte das auch nur anmerken...

Grüße
Reiner