| 1 |
#!/usr/bin/perl |
| 2 |
|
| 3 |
# $Id$ |
| 4 |
# $Log$ |
| 5 |
|
| 6 |
|
| 7 |
use CGI::Carp qw(fatalsToBrowser); |
| 8 |
|
| 9 |
# Konfiguration |
| 10 |
$cfg_SeriellerPort = '/dev/ttyS1'; |
| 11 |
|
| 12 |
use Device::SerialPort qw( :PARAM :STAT 0.07 ); |
| 13 |
|
| 14 |
$PortName = $cfg_SeriellerPort; |
| 15 |
|
| 16 |
$PortObj = new Device::SerialPort ($PortName, $quiet) |
| 17 |
|| die "Can't open $PortName: $^E\n"; # $quiet is |
| 18 |
|
| 19 |
# configuring |
| 20 |
|
| 21 |
$PortObj->user_msg(ON); |
| 22 |
$PortObj->baudrate(9600); |
| 23 |
$PortObj->databits(8); |
| 24 |
$PortObj->parity("none"); |
| 25 |
$PortObj->stopbits(1); |
| 26 |
$PortObj->handshake("none"); |
| 27 |
|
| 28 |
$PortObj->write_settings || undef $PortObj; |
| 29 |
|
| 30 |
# $PortObj->save($Configuration_File_Name); |
| 31 |
# $PortObj->baudrate(300); |
| 32 |
# $PortObj->restart($Configuration_File_Name); # back to 9600 baud |
| 33 |
|
| 34 |
|
| 35 |
# operating |
| 36 |
|
| 37 |
# temporäre Variablen initialisieren |
| 38 |
|
| 39 |
$data_put = "41\r"; |
| 40 |
|
| 41 |
|
| 42 |
|
| 43 |
|
| 44 |
# Zeitvariablen initialisieren |
| 45 |
my ($Sekunden, $Minuten, $Stunden, $Monatstag, $Monat, |
| 46 |
$Jahr, $Wochentag, $Jahrestag, $Sommerzeit) = localtime(time); |
| 47 |
my $CTIME_String = localtime(time); |
| 48 |
$Monat+=1; |
| 49 |
$Jahrestag+=1; |
| 50 |
$Monat = $Monat < 10 ? $Monat = "0".$Monat : $Monat; |
| 51 |
$Monatstag = $Monatstag < 10 ? $Monatstag = "0".$Monatstag : $Monatstag; |
| 52 |
$Stunden = $Stunden < 10 ? $Stunden = "0".$Stunden : $Stunden; |
| 53 |
$Minuten = $Minuten < 10 ? $Minuten = "0".$Minuten : $Minuten; |
| 54 |
$Sekunden = $Sekunden < 10 ? $Sekunden = "0".$Sekunden : $Sekunden; |
| 55 |
$Jahr+=1900; |
| 56 |
my @Wochentage = ("Sonntag","Montag","Dienstag","Mittwoch","Donnerstag","Freitag","Samstag"); |
| 57 |
my @Monatsnamen = ("","Januar","Februar","März","April","Mai","Juni", |
| 58 |
"Juli","August","September","Oktober","November","Dezember"); |
| 59 |
|
| 60 |
|
| 61 |
#print $Jahrestag; |
| 62 |
|
| 63 |
my $Sekunden_time = time(); |
| 64 |
my $Stunden_time = int($Sekunden_time / 3600); |
| 65 |
my $Tage_time = int($Sekunden_time / (24 * 3600)); |
| 66 |
my $Wochen_time = int($Sekunden_time / (7 * 24 * 3600)); |
| 67 |
|
| 68 |
# Config Datei Lesen |
| 69 |
open(DATEI, "</tmp/futter.cfg") || die "Datei nicht gefunden"; |
| 70 |
my @Zeilen = <DATEI>; |
| 71 |
close(DATEI); |
| 72 |
|
| 73 |
$sek_calc = ($Zeilen[3] * 60); |
| 74 |
$wielangeher = ($Sekunden_time - $Zeilen[4]); |
| 75 |
$sec_nach_fuetterung = $wielangeher; |
| 76 |
|
| 77 |
$sec_noch = ($sec_nach_fuetterung - $sek_calc); |
| 78 |
|
| 79 |
$test1 = ($Sekunden_time - ($Zeilen[4]+ $sek_calc)); |
| 80 |
if ($test1 lt 1 ) {$tester = 1} |
| 81 |
|
| 82 |
if ($Jahrestag > $Zeilen[0]) { $Zeilen[1] = "0\n" } |
| 83 |
|
| 84 |
|
| 85 |
if ($Jahrestag => $Zeilen[0]) { |
| 86 |
|
| 87 |
|
| 88 |
if ($Stunden > 7) { |
| 89 |
|
| 90 |
|
| 91 |
if ($Stunden < 22) { |
| 92 |
|
| 93 |
|
| 94 |
if ($Zeilen[1] < $Zeilen[2]) { |
| 95 |
|
| 96 |
if ($tester != 1) { |
| 97 |
|
| 98 |
|
| 99 |
## Fuettern ## |
| 100 |
$count_out = $PortObj ->write($data_put); |
| 101 |
warn "write failed\n" unless ($count_out); |
| 102 |
warn "write incomplete\n" if ( $count_out != length($data_put) ); |
| 103 |
$data_out = $PortObj->write_done(0); |
| 104 |
|
| 105 |
$data_put = "40\r"; |
| 106 |
sleep(1); |
| 107 |
|
| 108 |
$count_out = $PortObj ->write($data_put); |
| 109 |
warn "write failed\n" unless ($count_out); |
| 110 |
warn "write incomplete\n" if ( $count_out != length($data_put) ); |
| 111 |
$data_out = $PortObj->write_done(0); |
| 112 |
## Ende Fuettern ## |
| 113 |
|
| 114 |
print "Location: http://www.axquarium.de/kunden/axquarium/d2u.nsf/futter?OpenForm&Query=Füttere%20!\n\n"; |
| 115 |
|
| 116 |
$Zeilen[1] = ($Zeilen[1] +1)."\n"; |
| 117 |
$Zeilen[4] = "$Sekunden_time\n"; |
| 118 |
$Zeilen[0] = "$Jahrestag\n"; |
| 119 |
|
| 120 |
open(DATEI, ">/tmp/futter.cfg") || die "Datei nicht gefunden"; |
| 121 |
print DATEI @Zeilen; |
| 122 |
close(DATEI); |
| 123 |
|
| 124 |
} else { |
| 125 |
|
| 126 |
print "Location: http://www.axquarium.de/kunden/axquarium/d2u.nsf/futter?OpenForm&Query=Die%20letze%20Fütterung%20ist%20"; |
| 127 |
|
| 128 |
my $Sekundenzahl = $sec_nach_fuetterung; |
| 129 |
sub zeitformat{ |
| 130 |
my $Sekundenzahl = shift; |
| 131 |
$Sekundenzahl = abs($Sekundenzahl); |
| 132 |
printf "%d Tage %02d:%02d:%02d", |
| 133 |
$Sekundenzahl/24/60/60,($Sekundenzahl/60/60)%24,($Sekundenzahl/60)%60,$Sekundenzahl%60; |
| 134 |
} |
| 135 |
zeitformat($Sekundenzahl); |
| 136 |
print " Stunden her.<br>In "; |
| 137 |
|
| 138 |
my $Sekundenzahl2 = $sec_noch; |
| 139 |
sub zeitformat2{ |
| 140 |
my $Sekundenzahl2 = shift; |
| 141 |
$Sekundenzahl2 = abs($Sekundenzahl2); |
| 142 |
printf "%d Tagen %02d:%02d:%02d", |
| 143 |
$Sekundenzahl2/24/60/60,($Sekundenzahl2/60/60)%24,($Sekundenzahl2/60)%60,$Sekundenzahl2%60; |
| 144 |
} |
| 145 |
zeitformat2($Sekundenzahl2); |
| 146 |
print "%20Stunden%20kann%20wieder%20gefüttert%20werden.\n\n"; |
| 147 |
|
| 148 |
} |
| 149 |
} else { |
| 150 |
chomp($Zeilen[2]); |
| 151 |
chomp($Zeilen[1]); |
| 152 |
print "Location: http://www.axquarium.de/kunden/axquarium/d2u.nsf/futter?OpenForm&Query=Heute%20schon%20"; |
| 153 |
print "$Zeilen[2] mal%20gefüttert.<br>Maximal%20"; |
| 154 |
print "$Zeilen[2]"; |
| 155 |
print "%20Fütterungen%20täglich%20erlaubt.\n\n"; |
| 156 |
|
| 157 |
# print "Location: http://www.axquarium.de/kunden/axquarium/d2u.nsf/futter?OpenForm&Query=Nach 22 Uhr sind die Fische schon im Bett.\n\n"; |
| 158 |
} |
| 159 |
} else { |
| 160 |
print "Location: http://www.axquarium.de/kunden/axquarium/d2u.nsf/futter?OpenForm&Query=Nach 22 Uhr sind die Fische schon im Bett.\n\n"; |
| 161 |
} |
| 162 |
} else { |
| 163 |
print "Location: http://www.axquarium.de/kunden/axquarium/d2u.nsf/futter?OpenForm&Query=Vor 8 Uhr schlafen die Fische noch.\n\n"; |
| 164 |
} |
| 165 |
} else { |
| 166 |
print "Location: http://www.axquarium.de/kunden/axquarium/d2u.nsf/futter?OpenForm&Query=Gepeichert ist die Jahreszahl $Zeilen[0] Heute ist Jahrestag:$Jahrestag\n\n"; |
| 167 |
#print "Gepeichert ist die Jahreszahl $Zeilen[0] Heute ist Jahrestag:$Jahrestag<br>\n"; |
| 168 |
} |
| 169 |
#print '<br><br><br><img src="/axquarium/webcam/pic/image.jpg" alt="Futterbild"><br>', "\n"; |
| 170 |
#print "Bitte F5 druecken um das Bild zu aktualisieren.<br>\n"; |
| 171 |
#print "CTIME:$CTIME_String<br>\n"; |
| 172 |
#print '</p></body></html>', "\n"; |
| 173 |
#print "\n\n"; |
| 174 |
v |
Parent Directory
| 
Revision Log
