Danke für eure schnelle Hilfe!
Hatte zwischenzeitlich ein Geistesblitz und habs bereits hingekriegt. Meine Lösung will ich euch natürlich nicht vorenthalten:
#raufVektor einlesen
my $sql = qq{select rauf from daten order by rauf};
my $sth = $dbh->prepare( $sql );
$sth->execute();
$idx = 0;
while(@rauf[$idx]=$sth->fetchrow_array)
{
$idx++;
}
print "raufVektor: @rauf\n";
#runterVektor einlesen
my $sql = qq{select runter from daten order by rauf};
my $sth = $dbh->prepare( $sql );
$sth->execute();
$idx = 0;
while(@runter[$idx]=$sth->fetchrow_array)
{
$idx++;
}
Alles anzeigen
Könnte man natürlich in einer Unterfunktion noch bißchen schöner machen, das wars mir dann aber wegen den zweien nicht wert
Das Ganze dient dazu den Rechner quasi vollautomatisch rauf- und runterzufahren:
Das Skript sollte alle 10 Minuten mit Hilfe von CRON ausgeführt werden
der Rechner fährt nur Runter wenn:
- die Datei RechnerAn nicht gesetzt ist (mit Hilfe dieser Datei
kann erzwungen werden das der Rechner an bleibt, in dieser Datei
steht die Unix-Zeit bis zu der der Rechner anbleiben soll)
- keine anderen Rechner (Clienten) online sind (über Ping)
- die Musik-JukeBox GiantDisc nicht im Wiedergabe-Modus ist
- innerhalb der nächsten 25 Minuten kein Aufwecken ansteht
VDR hab ich noch nicht implementiert, weil ich noch keinen hab
Vielleicht interessierts ja jemanden. Zur besseren Übersicht hab ich mal das Struktogramm angehängt.
EDIT: Achja, was mir noch vorschwebt: Wenn ich doch mal manuell (d.h. per Taster ) ausschalte dann werd ich mir verschiedene Init-Stufen einbauen. Bei einmal drücken auf die Aus-Taste macht er nix (könnt ja ein Versehen sein), bei zweimal drücken (Init-Level zwei sozusagen) wird runtergefahren wenn ein Rechner im Netzwerk online sein sollte. Init-Level 3 schaltet dann auch ab, wenn er aufgrund der RechnerAn Datei an sein sollte. Sind quasi unterschiedliche Prioritäten. Wozu das Ganze? Die Kiste soll so wenig wie möglich und doch so oft wie notwendig laufen und selbstständig abschalten.
Grüße
Fux