gdyby kogos interesowalo to skrypt do obslugi czujki + obsluga opisu na kadu :>
#!/usr/bin/perl
$cz=@ARGV[0];
$t1=10*`/home/temperatura/digitemp_DS9097 -s /dev/ttyS0 -t 0 -q -o %.2C`;
#$t1=0;
$t1 /= 10;
$t2=$t1;
#dodatnia temperatura dzielona na 4 kolory
if($t1>0){
if($t1<=10){
print"0;0;0;$t1;0;0;0";
}
else {
#od 10 do 20
if($t1<=20){
$t1 -= 10;
print"0;0;0;10;$t1;0;0";
}
else {
#od 20 do 30
if($t1<=30){
$t1 -= 20;
print"0;0;0;10;10;$t1;0";
}
else {
#od 30 do nieskonczonosci
if($t1>30){
$t1 -= 30;
print"0;0;0;10;10;10;$t1";
}
}
}
}
}
else {
#od 0 do -2
if($t1>=-2){ print"0;0;".(-$t1).";0;0;0;0"; }
else {
#od -2 do -5
if($t1>=-5){
$t1 += 2;
print"0;".(-$t1).";2;0;0;0;0";
}
else {
#od -5 do n
if($t1<-5){
$t1 += 5;
print"".(-$t1).";3;2;0;0;0;0";
}
}
}
}
print"\n";
#$t2=$t1;
$min=open(PLIK, "minimalna");
$mina=<PLIK>;
if ($mina>$t2) { open(PLIK, ">minimalna") ; print PLIK $t2;}
$max=open(PLIK, "maksymalna");
$maxa=<PLIK>;
if ($maxa<$t2) { open(PLIK, ">maksymalna") ; print PLIK $t2;}
open(PLIK, "minimalna");
$minc=<PLIK>;
open(PLIK, "maksymalna");
$maxc=<PLIK>;
$uptime=`uptime | cut -d "p" -f2 | cut -d "," -f1`;
open(PLIK, ">/root/.gg/quit.reasons");
print PLIK 'min ' . "$minc" . '°C' . ' | ' . 'max ' . "$maxc" . '°C' . ' | ' . 'now ' . "$t2" . '°C ' . 'uptime' . "$uptime";
open(PLIK, ">/root/.gg/quit.reason");
print PLIK 'min ' . "$minc" . '°C' . ' | ' . 'max ' . "$maxc" . '°C' . ' | ' . 'now ' . "$t2" . '°C ' . 'uptime' . "$uptime";
wyglada to tak:
dodaj do listy gg nr 6562597 i zobacz jego opis
wymagane kadu ktore jest skonfigurowane pod rootem do tego musi byc z crona odpalane co jakis czas i confi kadu zmieniony aby czytal opisy z pliku