Thread hab probleme einfachen php code in perl nachzubauen
(5 answers)
Opened by SLFraggeR at 2008-07-29 10:51
Aloha,
hab hier ein kleines PHP Script gebaut, dass je nach Serverload eine gewisse Zahl zurückgibt. Nun durfte ich feststellen, dass die Loadbalancingsoftware (feedbackd) nur perl Scripte unterstützt. Nun habe ich leider nahezu keinen Peil von Perl und es wäre echt nett, wenn jemand die Zeit hätte, mir das schnell umzuschreiben. vg und danke im vorraus Michael Das Skript tut folgendes 1. IP Adresse des Webservers aus der config holen, inhalt der config: server.bind = "80.242.135.108" 2. versuchen via http eine datei zu holen, klappt dies nicht, wird 0 ausgegeben, da der webserver wohl nicht läuft 3. die load via uptime feststellen, ausgabe hier loweb8:/usr/local/sbin# uptime 08:49:34 up 139 days, 20:53, 1 user, load average: 0.10, 0.07, 0.08 wichtig ist hier die 1minuten Load (0.10) 4. die load mal 100 nehmen und dann je nach Wert eine bestimmte Zahl ausgeben, um genau zu sein nach folgendem Schema bei load von 0-3 => 100 4-7 => 99 8-11 => 98 usw, ist die load >= 400 wird eine 1 ausgegeben 5. falls irgendwas schief läuft, warum auch immer (denke nicht dass es nötig ist) wird am ende eine 0 ausgegeben, weil irgendwas MUSS rauskommen..... Code: (dl
)
1 <? |