Script TinyTX Sensoren Anbindung

    • Script TinyTX Sensoren Anbindung

      Hallo Zusammen,

      ich habe das script von "meigrafd" erweitert, damit es die Empfangenen Daten von TinyTX Sendern mit folgenden Sensoren DS18x20, DHT11/22 und BMP085/180, an das SHC Übermittelt.

      Getestet habe ich das mit meinen DS18x20 Sensoren, da ich noch keine anderen in Benutzung habe. Es kann sein, das bei dem DHT11/22 und BMP085/180 die übermittelten Werte noch angepasst werden müssen. Es sind auch bestimmt noch fehler vorhanden, aber es funktioniert schon mal.

      Bei den DS18x20 gibt es eine FakeID Sensor ID, die sich aus einer FakeID und der TinyTX Node ID zusammensetzt. Bei den anderen Sensoren wird nur die TinyTX Node ID als Sensor ID übermittelt.



      Hier mal das Script


      Perl Source Code

      1. #!/usr/bin/perl -w
      2. #
      3. # sensor.pl
      4. # Based on meigrafd
      5. # Modified by Michael Harperscheidt for Work with "agent4788" SHC_Framework
      6. #
      7. # DS18x20, DHT11/22 and BMP085/180 without Altitude, Altitude is set fix to 0
      8. # Testet only with DS18x20, it is possible that the values at the DHT11/22 and BMP085/180
      9. # have to be adjusted (divide or something else)
      10. #
      11. # Reads data from serial port and posts to PHP and to SHC
      12. #
      13. # Run: sudo apt-get install libdevice-serialport-perl
      14. # if you get "Can't locate device/SerialPort.pm in @INC (@INC includes ..."
      15. #
      16. # use lib '/usr/lib/perl5/Device'
      17. # sudo apt-get install libwww-mechanize-perl
      18. #To install Proc:Daemon
      19. #perl -MCPAN -e 'install Proc::Daemon' OR sudo apt-get install libproc-daemon-perl
      22. #### CONFIG - START
      24. # Config for meigrafd PHP Sample
      25. # Secret Key for PHP
      26. my $KEY = '23338d373027ce83b1f81b9e9563b629';
      27. # set url to add.php for PHP
      28. my $url1 = "http://192.168.100.254/sensoren/add.php?key=". $KEY ."&node=";
      30. # Config for SHC_Framework
      31. # set Sensor Point ID
      32. my $spid = '2';
      33. # set Fake DS18x20 Serial
      34. my $ds18 = '28-aaaa0000';
      35. # set url to SHC_Framework
      36. my $url2 = "http://192.168.100.254/shc/index.php?app=shc&a&ajax=pushsensorvalues&spid=";
      38. # Config Global
      39. # set UART baudrate
      40. my $baudrate = 9600;
      41. # set Port
      42. my $PORT = "/dev/ttyUSB0";
      44. #### CONFIG - END
      46. # Declare the subroutines
      47. sub trim($);
      49. BEGIN {
      50.        push @INC,"/usr/lib/perl5/";
      51. }
      53. use strict;
      54. use Device::SerialPort qw( :PARAM :STAT 0.07 );
      55. use WWW::Mechanize;
      56. use Time::localtime;
      57. use Scalar::Util 'looks_like_number';
      58. use Proc::Daemon;
      60. print "Serial to PHP gateway for RaspberryPi with RFM12B\r\n";
      62. my $ob = Device::SerialPort->new($PORT);
      63. $ob->baudrate($baudrate);
      64. $ob->parity("none");
      65. $ob->databits(8);
      66. $ob->stopbits(1);
      67. #$ob->handshake("xoff");
      68. $ob->write_settings;
      70. open(SERIAL, "+>$PORT");
      72. my $continue = 1;
      73. $SIG{TERM} = sub { $continue = 0 };
      75. while ($continue) {
      76.        my $line = trim(<SERIAL>);
      77.        print $line; print "\r\n";
      78.        my @values = split(' ', $line);
      79.        if(looks_like_number($values[0]) && $values[0] >=1) {
      80.                post2php($values[0],$values[1]);
      81.                post2shc($values[0],$values[1]);
      82.                sleep(2);
      83.        }
      84. }
      86. sub post2php {
      87. # Send Values to the meigrafd PHP Sample
      88.        my $ua = WWW::Mechanize->new();
      89.        my $URL = $url1 . $_[0] ."&" . $_[1];
      90.                print $URL; print "\r\n";
      91.                my $response = $ua->get($URL);
      92.                if ($response->is_success) {
      93.                                my $c = $ua->content;
      94.                                print ("$c");
      95.                } else {
      96.                                print "Failed to open url!";
      97.                }
      98. }
      100. sub post2shc {
      101. # Send Values to the SHC_Framework
      102.        my $ua = WWW::Mechanize->new();
      103.        my $sid = $ds18 . $_[0];
      104.        my $URL;
      105.        my @humpre;
      106.        my @werte = split('&', $_[1]);
      107.        my $anzahl = @werte ;
      108.        my @volt =  split('=', $werte[0]);
      109.        my @temp =  split('=', $werte[1]);
      110.        print $anzahl; print "\r\n";
      111.        if ( $anzahl eq "3" ) {
      112.                @humpre =  split('=', $werte[2]);
      113.                }
      114.        else {
      115.                @humpre = ("a", "1111");
      116.                }
      117.        my $temp = $temp[1] / 100; # Correct temperature value
      118.        if ( $humpre[0] eq "h" ) {
      119.                        $URL = $url2  . $spid . "&sid=". $_[0] . "&type=2&v1=". $temp ."&v2=". $humpre[1];
      120.                        }
      121.        elsif ( $humpre[0] eq "p" ) {
      122.                        $URL = $url2  . $spid . "&sid=". $_[0] . "&type=3&v1=". $temp ."&v2=". $humpre[1] . "&v3=0";
      123.                        }
      124.        else {
      125.                        $URL = $url2  . $spid . "&sid=". $sid . "&type=1&v1=". $temp;
      126.                        }
      127.        print $URL; print "\r\n";
      128.                my $response = $ua->get($URL);
      129.                if ($response->is_success) {
      130.                                my $c = $ua->content;
      131.                        if ( $c eq "1" ) {
      132.                                print "Data saved successfully to SHC_Framework\n";
      133.                                }
      134.                        elsif ( $c eq "2" ) {
      135.                                 print "missing parameter for SHC_Framework\n";
      136.                                }
      137.                        elsif ( $c eq "3" ) {
      138.                                 print "Save Failed to SHC_Framework\n";
      139.                                }
      140.                        elsif ( $c eq "4" ) {
      141.                                 print "Invalid Sensor Type for SHC_Framework\n";
      142.                                }
      143.                        else {
      144.                                print "Reply unknown\n";
      145.                                }
      146.        } else {
      147.                print "Failed to open url!";
      148.        }
      149. }
      152. # Perl trim function to remove whitespace from the start and end of the string
      153. sub trim($) {
      154.        my $string = shift;
      155.        $string =~ s/^\s+//;
      156.        $string =~ s/\s+$//;
      157.        return $string;
      158. }
      159. #
      Display All





      Gruß
      Harpi

      The post was edited 1 time, last by harpi ().