SML Stromzähler per USB Schreib-Lesekopf?

[fdisk]

Vielen Dank schonmal!
Da ich mir nicht sicher bin, was du alles für Infos brauchst, hier mal etwas mehr Logfile mit ein paar Zeilen Vorlauf (hoffe, das ist ok):

Code Auswählen Erweitern

2015.01.14 11:35:02 5: SMLUSB: SML Telegram found: 77070100020801FF0101621E52FF56000089B58D0177070100010802FF0101621E52FF5600000000000177070100020802FF0101621E52FF5600000000000177070100100700FF0101621B52FF55FFFFFFD50177078181C78205FF017262016501DE9C1201018302072CF3A1B5BB83264B3B58C71E967A792592C10FF5175CA357130A52846662A7843267B467B4DA77249C01E432F7373B0101016386D30076070009054CC454620062007263020171016333CC00001B1B1B1B1A015F39 - Scaler: 52FF
2015.01.14 11:35:02 5: SMLUSB: Reading BulkUpdate. Value > 0
2015.01.14 11:35:02 5: SMLUSB: SML Telegram found: 77070100010802FF0101621E52FF5600000000000177070100020802FF0101621E52FF5600000000000177070100100700FF0101621B52FF55FFFFFFD50177078181C78205FF017262016501DE9C1201018302072CF3A1B5BB83264B3B58C71E967A792592C10FF5175CA357130A52846662A7843267B467B4DA77249C01E432F7373B0101016386D30076070009054CC454620062007263020171016333CC00001B1B1B1B1A015F39 - Scaler: 52FF
2015.01.14 11:35:02 5: SMLUSB: SML Telegram found: 77070100020802FF0101621E52FF5600000000000177070100100700FF0101621B52FF55FFFFFFD50177078181C78205FF017262016501DE9C1201018302072CF3A1B5BB83264B3B58C71E967A792592C10FF5175CA357130A52846662A7843267B467B4DA77249C01E432F7373B0101016386D30076070009054CC454620062007263020171016333CC00001B1B1B1B1A015F39 - Scaler: 52FF
2015.01.14 11:35:02 5: SMLUSB: SML Telegram found: 77070100100700FF0101621B52FF55FFFFFFD50177078181C78205FF017262016501DE9C1201018302072CF3A1B5BB83264B3B58C71E967A792592C10FF5175CA357130A52846662A7843267B467B4DA77249C01E432F7373B0101016386D30076070009054CC454620062007263020171016333CC00001B1B1B1B1A015F39 - Scaler: 52FF
2015.01.14 11:35:02 5: SMLUSB: Reading BulkUpdate. Value > 0
2015.01.14 11:35:02 5: SMLUSB: Setting state
2015.01.14 11:35:02 5: SMLUSB: Parsing ended
2015.01.14 11:35:02 5: Triggering Power (5 changes)
2015.01.14 11:35:02 5: Notify loop for Power Zählerstand-Bezug-Total: 2296.83
2015.01.14 11:35:02 5: statistics statisticsPower: DoStatistics.418 Assigned reading 'Zählerstand-Tarif-1-Bezug' from attribute 'deltaReadings' to statistic type 2.
2015.01.14 11:35:02 5: statistics statisticsPower: DoStatistics.418 Assigned reading 'Zählerstand-Tarif-1-Lieferung' from attribute 'deltaReadings' to statistic type 2.
2015.01.14 11:35:02 5: statistics statisticsPower: DoStatistics.418 Assigned reading 'Momentanleistung' from attribute 'minAvgMaxReadings' to statistic type 5.
2015.01.14 11:35:02 4: statistics statisticsPower: doStatisticMinMax.497 Calculating min/avg/max statistics for 'Power:Momentanleistung = 322122.54'
2015.01.14 11:35:02 5: statistics statisticsPower: doStatisticMinMaxSingle.562 Set 'statMomentanleistungHour'='Min: 10.90 Avg: 214.12 Max: 322122.54'
2015.01.14 11:35:02 5: statistics statisticsPower: doStatisticMinMaxSingle.582 Set '.Power:MomentanleistungHour'='Sum: 450929.9 Time: 2106 LastValue: 322122.54 LastTime: 1421231702 ShowDate: 0 DecPlaces: 2'
2015.01.14 11:35:02 5: statistics statisticsPower: doStatisticMinMaxSingle.562 Set 'statMomentanleistungDay'='Min: 5.30 Avg: 299.03 Max: 322122.54'
2015.01.14 11:35:02 5: statistics statisticsPower: doStatisticMinMaxSingle.582 Set '.Power:MomentanleistungDay'='Sum: 12470110.1 Time: 41702 LastValue: 322122.54 LastTime: 1421231702 ShowDate: 0 DecPlaces: 2'
2015.01.14 11:35:02 5: statistics statisticsPower: doStatisticMinMaxSingle.562 Set 'statMomentanleistungMonth'='Min: 5.30 Avg: 280.86 Max: 322122.54 (since: 2015-01-13_22:22:09 )'
2015.01.14 11:35:02 5: statistics statisticsPower: doStatisticMinMaxSingle.582 Set '.Power:MomentanleistungMonth'='Sum: 13359762.2 Time: 47567 LastValue: 322122.54 LastTime: 1421231702 ShowDate: 1 DecPlaces: 2'
2015.01.14 11:35:02 5: statistics statisticsPower: doStatisticMinMaxSingle.562 Set 'statMomentanleistungYear'='Min: 5.30 Avg: 280.86 Max: 322122.54 (since: 2015-01-13_22:22:09 )'
2015.01.14 11:35:02 5: statistics statisticsPower: doStatisticMinMaxSingle.582 Set '.Power:MomentanleistungYear'='Sum: 13358810.2 Time: 47564 LastValue: 322122.54 LastTime: 1421231702 ShowDate: 1 DecPlaces: 2'
2015.01.14 11:35:02 4: statistics statisticsPower: doStatisticDelta.674 Calculating delta statistics for 'Power:Zählerstand-Tarif-1-Bezug = 2296.83'
2015.01.14 11:35:02 5: statistics statisticsPower: doStatisticDelta.760 Set '.Power:Zählerstand-Tarif-1-Bezug'='LastValue: 2296.83 ShowDate: 5 DecPlaces: 2'
2015.01.14 11:35:02 5: statistics statisticsPower: doStatisticDelta.766 Set 'statZählerstand-Tarif-1-Bezug'='Hour: 0.10 Day: 3.41 Month: 3.41 Year: 3.41 (since: 2015-01-14 )'
2015.01.14 11:35:02 4: statistics statisticsPower: doStatisticDelta.674 Calculating delta statistics for 'Power:Zählerstand-Tarif-1-Lieferung = 902.49'
2015.01.14 11:35:02 5: statistics statisticsPower: doStatisticDelta.760 Set '.Power:Zählerstand-Tarif-1-Lieferung'='LastValue: 902.49 ShowDate: 5 DecPlaces: 2'
2015.01.14 11:35:02 5: statistics statisticsPower: doStatisticDelta.766 Set 'statZählerstand-Tarif-1-Lieferung'='Hour: 0.00 Day: 0.00 Month: 0.00 Year: 0.00 (since: 2015-01-14 )'
2015.01.14 11:35:02 5: Triggering statisticsPower (1 changes)
2015.01.14 11:35:02 5: Notify loop for statisticsPower Updated stats for: Power
2015.01.14 11:35:02 5: statistics statisticsPower: Notify.253 Notifications of myself received.
2015.01.14 11:35:02 4: eventTypes: statistics statisticsPower Updated stats for: Power -> Updated stats for: Power
2015.01.14 11:35:02 4: eventTypes: statistics statisticsPower state: Updated stats for: Power -> state: Updated stats for: Power
2015.01.14 11:35:02 5: statistics statisticsPower: Notify.276 Notification of 'Power' received. Update statistics.
2015.01.14 11:35:02 4: eventTypes: SMLUSB Power Zählerstand-Bezug-Total: 2296.83 -> Zählerstand-Bezug-Total: .*
2015.01.14 11:35:03 4: eventTypes: SMLUSB Power Zählerstand-Lieferung-Total: 902.49 -> Zählerstand-Lieferung-Total: .*
2015.01.14 11:35:03 4: eventTypes: SMLUSB Power Zählerstand-Tarif-1-Bezug: 2296.83 -> Zählerstand-Tarif.*-Bezug: .*
2015.01.14 11:35:03 4: eventTypes: SMLUSB Power Zählerstand-Tarif-1-Lieferung: 902.49 -> Zählerstand-Tarif.*-Lieferung: .*
2015.01.14 11:35:03 4: eventTypes: SMLUSB Power Momentanleistung: 322122.54 -> Momentanleistung: .*
2015.01.14 11:35:03 4: eventTypes: SMLUSB Power statZählerstand-Tarif-1-Bezug: Hour: 0.10 Day: 3.41 Month: 3.41 Year: 3.41 (since: 2015-01-14 ) -> statZählerstand-Tarif.*-Bezug: Hour: .* Day: .* Month: .* Year: .* (since: .*.*.* )
2015.01.14 11:35:03 4: eventTypes: SMLUSB Power statZählerstand-Tarif-1-Lieferung: Hour: 0.00 Day: 0.00 Month: 0.00 Year: 0.00 (since: 2015-01-14 ) -> statZählerstand-Tarif.*-Lieferung: Hour: .* Day: .* Month: .* Year: .* (since: .*.*.* )
2015.01.14 11:35:03 5: SMLUSB: Partial beginning of SML File found. Repaired and  start parsing
2015.01.14 11:35:07 5: SMLUSB: End of SML found. Looking for a beginning.
2015.01.14 11:35:07 5: SMLUSB: Started parsing
2015.01.14 11:35:07 5: SMLUSB: SML Telegram found: 77070100010800FF6401018001621E52FF5600015E780A0177070100020800FF6401018001621E52FF56000089B58D0177070100010801FF0101621E52FF5600015E780A0177070100020801FF0101621E52FF56000089B58D0177070100010802FF0101621E52FF5600000000000177070100020802FF0101621E52FF5600000000000177070100100700FF0101621B52FF55FFFFFFB20177078181C78205FF017262016501DE9C1701018302072CF3A1B5BB83264B3B58C71E967A792592C10FF5175CA357130A52846662A7843267B467B4DA77249C01E432F7373B0101016324890076070009054CC45A6200620072630201710163EE8500001B1B1B1B1A015779 - Scaler: 52FF


Was mit noch aufgefallen ist: wenn mal ein Ausreißér kommt, folgen i.d.R: gleiche mehrere Andere.

Gruß
fdisk

[hixhupf]

Hi,

ich habe SMLUSB heute auf meinem Mac zum Laufen bekommen, genial. Werte kommen an, Logfile und Plots funktionieren auch. Jetzt eine banale Frage: wie bekomme ich das Reading "Zählerstand-Bezug-Total" in einen Dummy, so dass ich ihn anzeigen kann? Drei Dummies habe ich dazu angelegt, aber ich frage mich gerade, wie ich das Reading aus dem SMLUSB-Device in diesen Dummy zur Darstellung bekomme.

Gruß,
Sascha

[strauch]

Dafür musst du ein notify verwenden. Mit $EVENT oder $EVPART musst mal in die commandref oder in das AnfängerPDF schauen.

[hixhupf]

Danke, hab's hinbekommen!

Code Auswählen Erweitern

...
define ZaehlerWP_Total dummy
define setze_ZaehlerWP_Total notify ZaehlerWP set ZaehlerWP_Total $EVTPART1
...

Grüße,
Sascha

[matzefisi]

Hi fdisk,

ich habe aus deinen Logs den folgenden Fehlerhaften Eintrag extrahiert:

77070100100700FF 0101 621B 52FF 55 FFFFFFD501   Momentanleistung : 322122542.90 W

Dabei ist FFFFFFD501 der Wert für die Momentanleistung als signed 32 bit integer. Und dabei habe ich einen Fehler in der Funktion hexstr_to_signed32int entdeckt.

Code Auswählen Erweitern


sub hexstr_to_signed32int {
    my ($hexstr) = @_;
    die "Invalid hex string: $hexstr"
        if $hexstr !~ /^[0-9A-Fa-f]{1,8}$/;

    my $num = hex($hexstr);
    return $num >> 31 ? $num - 2 ** [b]32[/b] : $num;
}

Ich habe den Code im Git nochmal aktualisiert. Kannst Du es damit bitte einmal testen? Allerdings übernehme ich keine garantie, dass es funktioniert. Ich komme aktuell nicht an mein FHEM heran, da ich unterwegs bin und mein Internet zuhause (VPN) nicht geht. Daher kann ich es gerade selbst nicht testen.

MfG
Matthias

[Omega-5]

Hallo,
nach der SML Beschreibung von der von mir schon mal angegebenen Adresse:

http://www.itrona.ch/downloads.html

würde ich das so interpretieren:

Code Auswählen Erweitern


8.32 Wirkleistung Total
OBIS Kennzahl = 1-0:16.7.0*255 -> OBIS Kennzahl in HEX: 01 00 10 07 00 FF

77                 | valListEntry (sequence)
07                 | objName (TL[1] + octet_string[6])
01 00 10 07 00 FF  | objName 1-0:16.7.0*255
01                 | status = not set
01                 | valTime = not set
62                 | unit (TL[1] + unsigned[1])
1B                 | unit = W
52                 | scaler (TL[1] + integer[8])
FF                 | scaler = -1
55                 | value (TL[1] + integer[32])
FF FF FF D5        | value -> FF FF FF D5h -> -43 W
01                 | valueSignature = not set



Ob der Faktor dann noch in die Berechnung eingehen muss, also -43 W * -1, ist mir allerdings auch nicht ganz klar.

Der Faktor ist scaler = -1 entspricht *10^-1 = /10 also -4,3W.

Gruß Frieder

[fdisk]

@matzefisi: Läuft jetzt seit über 24h und bisher keine Ausreißer! Danke für die schnelle Hilfe!

[fhem-raspi-newbie]

Hallo zusammen,
als Quereinsteiger in fhem habe ich eine Frage:
Ich habe einen IR Lesekopf aus dem VZ Forum und diesen mit einer kostenpflichtigen Software (Solarview) auch am laufen.
Nun wollte ich auf fhem umsteigen und habe es auf meinem Raspi auch schnell installiert bekommen.
Danach habe ich Dein Skript herunter geladen und in den FHEM Ordner gepackt, alles wunderbar.
Define (wie in Deiner Anleitung) ausgeführt und auch das Attribut gesetzt. Passt. Mein IR Kopf hängt an /dev/ttyUSB0

Jetzt meine Frage:
Im Log sehe ich folgende Zeilen:
2015.01.23 20:44:07 1: Including fhem.cfg
2015.01.23 20:44:08 3: telnetPort: port 7072 opened
2015.01.23 20:44:10 3: WEB: port 8083 opened
2015.01.23 20:44:10 3: WEBphone: port 8084 opened
2015.01.23 20:44:10 3: WEBtablet: port 8085 opened
2015.01.23 20:44:10 2: eventTypes: loaded 2 events from ./log/eventTypes.txt
2015.01.23 20:44:11 3: Opening TCM_ESP2_0 device /dev/ttyUSB0
2015.01.23 20:44:11 3: Setting TCM_ESP2_0 baudrate to 9600
2015.01.23 20:44:11 3: TCM_ESP2_0 device opened
2015.01.23 20:44:11 3: Opening stromzaehler device /dev/ttyUSB0
2015.01.23 20:44:11 3: Setting stromzaehler baudrate to 9600
2015.01.23 20:44:11 3: stromzaehler device opened

Danach kommt irgendwann:
2015.01.23 20:44:59 1: /dev/ttyUSB0 disconnected, waiting to reappear (TCM_ESP2_0)
2015.01.23 20:44:59 3: Setting TCM_ESP2_0 baudrate to 9600

TCM_ESP2_0 habe ich nicht definiert, da ich keinen CUL oder sowas angeschlossen habe - am Raspi hängt lediglich der IR Kopf am USB


Was mache ich falsch?

Vielen Dank für eure Hilfe zu dieser bestimmt dämlichen Frage...
Gruß
Heiko

[fhem-raspi-newbie]

Da hab ich wohl zu schnell "geschossen" ;o)
Scheinbar wurde TCM_ESP2_0 automatisch konfiguriert - zumindest stand es in der fhem.cfg drin
define TCM_ESP2_0 TCM ESP2 /dev/ttyUSB0@9600
Wenn Beide auf ttyUSB0 liegen ist es ja klar das es nicht funzt.

Ich hatte eine anleitung gefunden über die Seriennummer des USB Geräts einen eindeutigen Namen über udev zuzuweisen, das hat leider nicht geklappt, an der Stelle werd ich dann nochmal weiter suchen, es soll ja nicht das einzige USB gerät bleiben. Hat jemand einen Tipp wie das auf Raspbian eingerichtet wird?

So dann suche ich jetzt erstmal wie man einen Graphen aus den Werten generiert - (bekommt man das Sonderzeichen im "Zähler" eigentlich weg?)

Sorry das ich die Anfängerfrage hier gestellt habe.
VG
Heiko

[fhem-raspi-newbie]

(bekommt man das Sonderzeichen im "Zähler" eigentlich weg?)

Ich habe die Möglichkeiten für den Graphen gefunden ;o) Das Logfile ist eingerichtet und sammelt auch ordentlich die Werte
2015-01-24_09:47:28 stromzaehler Zählerstand-Bezug-Total: 972.59
2015-01-24_09:47:28 stromzaehler Zählerstand-Tarif-1-Bezug: 971.59
2015-01-24_09:47:28 stromzaehler Zählerstand-Tarif-2-Bezug: 1000.00
2015-01-24_09:47:28 stromzaehler Zählerstand-Lieferung-Total: 3946.47
2015-01-24_09:47:28 stromzaehler Zählerstand-Tarif-1-Lieferung: 3945.47
2015-01-24_09:47:28 stromzaehler Zählerstand-Tarif-2-Lieferung: 1000.00
2015-01-24_09:47:28 stromzaehler Momentanleistung: 568.00

Leider schaffe ich es nur eine ordentliche Anzeige für die Momentanleistung hin zu bekommen.
Auf der SVG Seite sieht man:
2015-01-24_09:48:32 stromzaehler Z�hlerstand-Bezug-Total: 972.60
2015-01-24_09:48:32 stromzaehler Z�hlerstand-Lieferung-Total: 3946.47
2015-01-24_09:48:32 stromzaehler Z�hlerstand-Tarif-1-Bezug: 971.60

Ich kann dann zwar eine dieser Zeilen als Datenquelle auswählen, bekomme im Plot aber immer alle Werte, auch die der anderen Zeilen, geplottet.
Meiner Vermutung nach liegt das an dem Sonderzeichen... oder mache ich prinzipiell etwas falsch?

Beim Start von fhem bekomme ich auch folgende Ausgabe:
Subroutine SMLUSB_Initialize redefined at ./FHEM/70_SMLUSB.pm line 440, <$fh> line 35.
Subroutine SMLUSB_Define redefined at ./FHEM/70_SMLUSB.pm line 459, <$fh> line 35.
Subroutine SMLUSB_Ready redefined at ./FHEM/70_SMLUSB.pm line 493, <$fh> line 35.
Subroutine SMLUSB_SetState redefined at ./FHEM/70_SMLUSB.pm line 503, <$fh> line 35.
Subroutine SMLUSB_Clear redefined at ./FHEM/70_SMLUSB.pm line 510, <$fh> line 35.
Subroutine SMLUSB_DoInit redefined at ./FHEM/70_SMLUSB.pm line 529, <$fh> line 35.
Subroutine SMLUSB_Undef redefined at ./FHEM/70_SMLUSB.pm line 542, <$fh> line 35.
Subroutine SMLUSB_Read redefined at ./FHEM/70_SMLUSB.pm line 558, <$fh> line 35.
Subroutine SMLUSB_Shutdown redefined at ./FHEM/70_SMLUSB.pm line 606, <$fh> line 35.
Subroutine SMLUSB_Get redefined at ./FHEM/70_SMLUSB.pm line 615, <$fh> line 35.
Subroutine SMLUSB_Parse redefined at ./FHEM/70_SMLUSB.pm line 628, <$fh> line 35.
Subroutine hexstr_to_signed32int redefined at ./FHEM/70_SMLUSB.pm line 745, <$fh> line 35.
Subroutine SMLUSB_Disconnected redefined at ./FHEM/70_SMLUSB.pm line 756, <$fh> line 35.

[Omega-5]

Schau mal ins Wiki:

http://www.fhemwiki.de/wiki/LinuxDeviceNaming

Gruß Frieder

[fhem-raspi-newbie]

Schau mal ins Wiki:

http://www.fhemwiki.de/wiki/LinuxDeviceNaming

Gruß Frieder

Danke Frieder!
Das bezieht sich auf Suse  - bei Raspian ist es anders.
Vielleicht finde ich noch was im Raspi Forum - schönen Abend!

btw: ich habe das script angepasst und aus Zähler - Zaehler gemacht. Danach funktioniert auch die Graphen ausgabe korrekt.
Hatte noch niemand das Problem?

[CountAlmasy]

Hallo zusammen,

ich nutze das SMLUSB-Modul zusammen mit einem USB-IR-Lese-Kopf des Volkszähler-Projekts, um die Daten eines 2-Wege-Stromzählers (MT681) auszulesen, der vom Netzanbieter Syna installiert wurde. Das SML-Protokoll liefert die Momentanleistung bei mir als Nettoleistung mit Vorzeichen (d.h. >0 ist Bezug, <0 ist Einspeisung). Als heute bei strahlendem Sonnenschein die Anzeige der Momentanleistung in FHEM nicht mehr aktualisiert wurde, habe ich mich auf die Suche nach der Ursache gemacht und folgendes Problem identifiziert.

Das SMLUSB-Modul geht davon aus, dass die Momentanleistung immer als positiver Wert geliefert wird und loggt die Daten nur, wenn der Wert positiv ist. Anschließend wird ggf. das Vorzeichen durch Multiplikation mit -1 adjustiert:

Code Auswählen Erweitern

if (sprintf("%.2f",hexstr_to_signed32int(substr($telegramm,$length_all,$length_value-2))/$scaler) > 0) {
...
if ($direction eq "Einspeisung") {readingsBulkUpdate($hash, $obiscodes{substr($telegramm,0,16)}, sprintf("%.2f",hexstr_to_signed32int(substr($telegramm,$length_all,$length_value-2))/$scaler*-1));}

Ich habe das jetzt bei mir wie folgt angepasst:

Code Auswählen Erweitern

if (abs(sprintf("%.2f",hexstr_to_signed32int(substr($telegramm,$length_all,$length_value-2))/$scaler)) > 0) {
...
if ($direction eq "Einspeisung") {readingsBulkUpdate($hash, $obiscodes{substr($telegramm,0,16)}, sprintf("%.2f",hexstr_to_signed32int(substr($telegramm,$length_all,$length_value-2))/$scaler));}

Der If-Else-Block ist in meinem Fall eigentlich ganz überflüssig, aber ich wollte den ursprünglichen Code nicht zu sehr verändern.

Ist die Vorzeichen-Problematik eine spezifische Eigenschaft meines Zählers resp. meines Netzanbieters? Falls nicht, dann wäre es hilfreich, das SMLUSB-Modul anzupassen.

Außerdem möchte ich anregen, die Bezeichner der Readings im Hinblick auf die nicht deutschsprachigen Nutzer ins Englische zu übersetzen oder zumindest die 'ä' in 'ae' umzuwandeln.

[herti001]

Hallo zusammen,

kann es sein, dass im Modul bei der Auswertung der Momentanleistung hier noch ein Dreher drinnen ist ?

Ich habe einen EMH EDL21 eHz und bekommen lt. attr verbose 5 folgende Kennung im Logfile angezeigt:
'77070100010700FF'  statt wie im original Modul '77070100100700FF' .
Gebe ich die geloggte Kennung ins Modul ein bekommen ich in den Readings nun auch die Momentanleistung angezeigt.

Des Weiteren bekomme ich noch diese Kennung '770700006001FF' , welche ich nicht zuordnen kann.

Code Auswählen Erweitern


'770701000F0700FF' => 'Momentanleistung',
'77070100010700FF' => 'Momentanleistung',
'77070100100700FF' => 'Momentanleistung');


Mfg. Herti 

[pejonp]

Hallo,

ich habe eine Siemens TD-3511. Damit dieser Daten ausgibt muss eine Startsequenz gesendet werden, dabei kann auch eine andere Baudrate als die vorgegebenen 300 eingestellt werden. Das Perlscript funktioniert auf meinem Raspberry  Pi. Wie kann dieses jetzt ins Modul eingebaut werden ? Oder gibt es ein anderes Modul das dieses schon so macht ? Ich brauche da etwas Hilfe.
Es muß ja erst etwas gesendet werden und dann kann gelesen werden. Wie steuert man dieses. Als Anlage sende ich mal ein Log, das Perlscript und die Beschreibung vom TD-3511. Perlscript TD3511 noch geändert und neu angehangen.

Tschüs Jörg

Habe noch die Dateien angehangen.