serialcom/aquastar/aquastar_control.pl

#!/usr/bin/perl

# $Id$
# $Log$


# Konfiguration
$cfg_SeriellerPort = '/dev/ttyS0';
$cfg_ASLetzterMessport = 3;

# Ausgabe auf der Konsole
#$cfg_AusgabeZiel = 'STDOUT';
# Ausgabe in eine Datei
$cfg_AusgabeZiel = '/usr/local/httpd/htdocs/axquarium/iksdata.htm';


use Device::SerialPort qw( :PARAM :STAT 0.07 );

$PortName = $cfg_SeriellerPort;

         $PortObj = new Device::SerialPort ($PortName, $quiet)
              || die "Can't open $PortName: $^E\n";    # $quiet is

# configuring

         $PortObj->user_msg(ON);
         $PortObj->baudrate(9600);
         $PortObj->databits(8);
         $PortObj->parity("none");
         $PortObj->stopbits(1);
         $PortObj->handshake("xoff");

         $PortObj->write_settings || undef $PortObj;

#         $PortObj->save($Configuration_File_Name);
#         $PortObj->baudrate(300);
#         $PortObj->restart($Configuration_File_Name);  # back to 9600 baud


# operating

# temporäre Variablen initialisieren
$bool_insync = 0;
$bool_linereach_firstline = 0;
$bool_linereach_lastline = 0;

while (1) {

        # Daten vom seriellen Port abholen
        $data_in = $PortObj->input;
          print "raw: $data_in", "\n";

        # solange nicht "InSync" und nicht leer kommt ...
        if (!$bool_insync) {
                if ($data_in =~ m/^E/) {
                        $bool_insync = 1;
                        # we synced
                        print "yeah! synced to any dataline!", "\n";
                } else {
                        # Ausgabe  ....
                        print "trying to sync to any dataline", "\n";
                        # ... warten (1 sec. schlafen) ...
                        sleep(1);
                        # ... und weiter
                        next;
                }
        }

        # abschliessende newlines abtrennen
        chomp($data_in);


        # block erkennen und speichern
        
        # 1. Block-Beginn erkennen
        # date-Zeile?
        if ($data_in =~ m/E(.+?):(.+?)    (.+?), (.+?)\.(.+?)\./) {
                $bool_linereach_firstline = 1;
                $bool_linereach_lastline = 0;

                %data_block = {};
                $data_block{'date'}{'hour'} =    $1;
                $data_block{'date'}{'minute'} =  $2;
                $data_block{'date'}{'weekday'} = $3;
                $data_block{'date'}{'day'} =     $4;
                $data_block{'date'}{'month'} =   $5;
        }

        # 2. Block-Ende erkennen
        $data_in =~ m/E(.) \(.+?\)(.+?)  ../
          && ($1 == $cfg_ASLetzterMessport)
          && ($bool_linereach_lastline = 1);

        # 3. Block-Inhalt
        # Temperatur-Zeile erkennen
        $data_in =~ m/E. \(Te\+\)(.+?)  °C/
          && ($data_block{'temp'} = $1);

        # pH-Wert-Zeile erkennen
        $data_in =~ m/E. \(pH\-\)(.+?)  pH/
          && ($data_block{'pH'} = $1);

        # Redox-Zeile erkennen
        $data_in =~ m/E. \(Rx \)(.+?)  rH/
          && ($data_block{'redox'} = $1);


        # schauen, ob data-block vollständig ...
        if ($bool_linereach_firstline && $bool_linereach_lastline) {
                outDataBlock_plain(\%data_block);
                # outDataBlock_html(\%data_block);
        }
        
        # zwei sekunden warten 
        # (in diesem intervall schickt die aquastar daten-zeilen)
        sleep(2);

}

         $PortObj->close || die "failed to close";
         undef $PortObj;      


#         $count_out = $PortObj->write($output_string);
#         warn "write failed\n"         unless ($count_out);
#         warn "write incomplete\n"     if ( $count_out != length($output_string)


# hier sollten die Daten ausgegeben 
# bzw. das Format der Ausgabe bestimmt/programmiert werden
sub outDataBlock_plain {

        # Übergabe-Parameter: Referenz auf Datenblock holen (Hash)
        $priv_data_block_ref = shift;
        # Referenz auf Hash auflösen
        %priv_data_block = %$priv_data_block_ref;

        print "data block ready ... ", "\n";
        print "$priv_data_block{'temp'}", "\n";
        print "$priv_data_block{'pH'}", "\n";

        open (FH, '>' . $cfg_AusgabeZiel);

print FH <<EOT;
<html>
   <head>
   <meta http-equiv="refresh" content="5; URL=iksdata.htm">
   </head>
<body background="img/bg3.gif"> 
<Table Border=0 Cellpadding=0 Cellspacing=0 width=700 Align=center> 
<tr> 
<td width=370 >&nbsp;</td> 
<td width=330 > 
<Table Border=0 Align=left Cellpadding=0 Cellspacing=0 width=340> 
<tr> 
<td width=120 Align=Center><Font Face=verdana Size=2 Color="#000000">Aktualisierung</td> 
<td width=70 Align=Center><Font Face=verdana Size=2 Color="#000000">Temp.</td> 
<td width=70 Align=Center><Font Face=verdana Size=2 Color="#000000">PH</td> 
<td width=70 Align=Center><Font Face=verdana Size=2 Color="#000000">Redox</td> 
</tr> 

EOT

        print FH 
          "<tr> 
<td width=120 Align=Center><Font Face=verdana Size=2 Color=#000000><B>  ", 
          $priv_data_block{'date'}{'day'}, ".",
          $priv_data_block{'date'}{'month'}, ". ",
          $priv_data_block{'date'}{'weekday'}, "   ",
          $priv_data_block{'date'}{'hour'}, ":",
          $priv_data_block{'date'}{'minute'}, "\n";

        print FH
          "</td> 
<td width=70 Align=Center><Font Face=verdana Size=2 Color=#000000><B>", $priv_data_block{'temp'}, "\n",
          "</b></td> 
<td width=70 Align=Center><Font Face=verdana Size=2 Color=#000000><B>", $priv_data_block{'pH'}, "\n",
          "</b></td> 
<td width=70 Align=Center><Font Face=verdana Size=2 Color=#000000><B>", $priv_data_block{'redox'}, "\n";

print FH 
"</b></td> 
</tr> 
</table> 
</td> 
</tr> 
</table> 
 
</body> 
 ";

        close (FH);

}

v
1	joko	1.1	#!/usr/bin/perl
2
3			# $Id$
4			# $Log$
5
6
7			# Konfiguration
8			$cfg_SeriellerPort = '/dev/ttyS0';
9			$cfg_ASLetzterMessport = 3;
10
11			# Ausgabe auf der Konsole
12			#$cfg_AusgabeZiel = 'STDOUT';
13			# Ausgabe in eine Datei
14			$cfg_AusgabeZiel = '/usr/local/httpd/htdocs/axquarium/iksdata.htm';
15
16
17
18			use Device::SerialPort qw( :PARAM :STAT 0.07 );
19
20			$PortName = $cfg_SeriellerPort;
21
22			$PortObj = new Device::SerialPort ($PortName, $quiet)
23			\|\| die "Can't open $PortName: $^E\n"; # $quiet is
24
25			# configuring
26
27			$PortObj->user_msg(ON);
28			$PortObj->baudrate(9600);
29			$PortObj->databits(8);
30			$PortObj->parity("none");
31			$PortObj->stopbits(1);
32			$PortObj->handshake("xoff");
33
34			$PortObj->write_settings \|\| undef $PortObj;
35
36			# $PortObj->save($Configuration_File_Name);
37			# $PortObj->baudrate(300);
38			# $PortObj->restart($Configuration_File_Name); # back to 9600 baud
39
40
41			# operating
42
43			# temporäre Variablen initialisieren
44			$bool_insync = 0;
45			$bool_linereach_firstline = 0;
46			$bool_linereach_lastline = 0;
47
48			while (1) {
49
50			# Daten vom seriellen Port abholen
51			$data_in = $PortObj->input;
52			print "raw: $data_in", "\n";
53
54			# solange nicht "InSync" und nicht leer kommt ...
55			if (!$bool_insync) {
56			if ($data_in =~ m/^E/) {
57			$bool_insync = 1;
58			# we synced
59			print "yeah! synced to any dataline!", "\n";
60			} else {
61			# Ausgabe ....
62			print "trying to sync to any dataline", "\n";
63			# ... warten (1 sec. schlafen) ...
64			sleep(1);
65			# ... und weiter
66			next;
67			}
68			}
69
70			# abschliessende newlines abtrennen
71			chomp($data_in);
72
73
74			# block erkennen und speichern
75
76			# 1. Block-Beginn erkennen
77			# date-Zeile?
78			if ($data_in =~ m/E(.+?):(.+?) (.+?), (.+?)\.(.+?)\./) {
79			$bool_linereach_firstline = 1;
80			$bool_linereach_lastline = 0;
81
82			%data_block = {};
83			$data_block{'date'}{'hour'} = $1;
84			$data_block{'date'}{'minute'} = $2;
85			$data_block{'date'}{'weekday'} = $3;
86			$data_block{'date'}{'day'} = $4;
87			$data_block{'date'}{'month'} = $5;
88			}
89
90			# 2. Block-Ende erkennen
91			$data_in =~ m/E(.) \(.+?\)(.+?) ../
92			&& ($1 == $cfg_ASLetzterMessport)
93			&& ($bool_linereach_lastline = 1);
94
95			# 3. Block-Inhalt
96			# Temperatur-Zeile erkennen
97			$data_in =~ m/E. \(Te\+\)(.+?) °C/
98			&& ($data_block{'temp'} = $1);
99
100			# pH-Wert-Zeile erkennen
101			$data_in =~ m/E. \(pH\-\)(.+?) pH/
102			&& ($data_block{'pH'} = $1);
103
104			# Redox-Zeile erkennen
105			$data_in =~ m/E. \(Rx \)(.+?) rH/
106			&& ($data_block{'redox'} = $1);
107
108
109			# schauen, ob data-block vollständig ...
110			if ($bool_linereach_firstline && $bool_linereach_lastline) {
111			outDataBlock_plain(\%data_block);
112			# outDataBlock_html(\%data_block);
113			}
114
115			# zwei sekunden warten
116			# (in diesem intervall schickt die aquastar daten-zeilen)
117			sleep(2);
118
119			}
120
121			$PortObj->close \|\| die "failed to close";
122			undef $PortObj;
123
124
125			# $count_out = $PortObj->write($output_string);
126			# warn "write failed\n" unless ($count_out);
127			# warn "write incomplete\n" if ( $count_out != length($output_string)
128
129
130
131
132			# hier sollten die Daten ausgegeben
133			# bzw. das Format der Ausgabe bestimmt/programmiert werden
134			sub outDataBlock_plain {
135
136			# Übergabe-Parameter: Referenz auf Datenblock holen (Hash)
137			$priv_data_block_ref = shift;
138			# Referenz auf Hash auflösen
139			%priv_data_block = %$priv_data_block_ref;
140
141			print "data block ready ... ", "\n";
142			print "$priv_data_block{'temp'}", "\n";
143			print "$priv_data_block{'pH'}", "\n";
144
145			open (FH, '>' . $cfg_AusgabeZiel);
146
147			print FH <<EOT;
148			<html>
149			<head>
150			<meta http-equiv="refresh" content="5; URL=iksdata.htm">
151			</head>
152			<body background="img/bg3.gif">
153			<Table Border=0 Cellpadding=0 Cellspacing=0 width=700 Align=center>
154			<tr>
155			<td width=370 > </td>
156			<td width=330 >
157			<Table Border=0 Align=left Cellpadding=0 Cellspacing=0 width=340>
158			<tr>
159			<td width=120 Align=Center><Font Face=verdana Size=2 Color="#000000">Aktualisierung</td>
160			<td width=70 Align=Center><Font Face=verdana Size=2 Color="#000000">Temp.</td>
161			<td width=70 Align=Center><Font Face=verdana Size=2 Color="#000000">PH</td>
162			<td width=70 Align=Center><Font Face=verdana Size=2 Color="#000000">Redox</td>
163			</tr>
164
165			EOT
166
167			print FH
168			"<tr>
169			<td width=120 Align=Center><Font Face=verdana Size=2 Color=#000000><B> ",
170			$priv_data_block{'date'}{'day'}, ".",
171			$priv_data_block{'date'}{'month'}, ". ",
172			$priv_data_block{'date'}{'weekday'}, " ",
173			$priv_data_block{'date'}{'hour'}, ":",
174			$priv_data_block{'date'}{'minute'}, "\n";
175
176			print FH
177			"</td>
178			<td width=70 Align=Center><Font Face=verdana Size=2 Color=#000000><B>", $priv_data_block{'temp'}, "\n",
179			"</b></td>
180			<td width=70 Align=Center><Font Face=verdana Size=2 Color=#000000><B>", $priv_data_block{'pH'}, "\n",
181			"</b></td>
182			<td width=70 Align=Center><Font Face=verdana Size=2 Color=#000000><B>", $priv_data_block{'redox'}, "\n";
183
184			print FH
185			"</b></td>
186			</tr>
187			</table>
188			</td>
189			</tr>
190			</table>
191
192			</body>
193			";
194
195			close (FH);
196
197			}
198
199			v
MailToCvsAdmin">MailToCvsAdmin	ViewVC Help
Powered by ViewVC 1.1.26