Hallo Alain,
gibts da auch was in perl einen standard code dafür ,das
erst die server last prüft?
Nein. Ich hatte damals schlicht per uptime
geprueft, wieviel
Last auf dem Server ist.
Oder kann ich dieses c-programm irgendwo runterladen?
Nein. Aber ich kann es mal posten:
#include <stdio.h>
#include <stdlib.h>
#define REDIRECT_URI "http://selfsuche.teamone.de/fehler/suche_max.htm"
#define PROGRAM "/home/www/teamone.de/selfsuche/cgi-bin/such.pl"
void run_script(const char *argv[],const char *envp[]) {
if(execve(PROGRAM,argv,envp) == -1) {
perror("execve");
}
}
void redirect_to_error() {
printf("Status: 302\015\012Location: "REDIRECT_URI"\015\012");
}
int main(int argc,const char *argv[],const char *envp[]) {
double x[3];
int return_values;
if((return_values = getloadavg(x,3)) == -1) {
perror("getloadavg");
run_script(argv,envp);
}
else {
if(x[0] > 2.5) {
fprintf(stderr,"load last minute: %f\n",x[0]);
redirect_to_error();
}
else {
run_script(argv,envp);
}
}
return EXIT_SUCCESS;
}
Wie du siehst ein sehr einfaches Programm.
Gruesse,
CK
http://cforum.teamone.de/
http://wishlist.tetekum.de/
If God had meant for us to be in the Army, we would have been born with green, baggy skin".