Programmation HTML
Fermé
pierre
-
16 mars 2007 à 13:51
zangre01 Messages postés 7 Date d'inscription jeudi 24 janvier 2008 Statut Membre Dernière intervention 2 octobre 2012 - 10 févr. 2008 à 18:44
zangre01 Messages postés 7 Date d'inscription jeudi 24 janvier 2008 Statut Membre Dernière intervention 2 octobre 2012 - 10 févr. 2008 à 18:44
A voir également:
- Programmation HTML
- Editeur html - Télécharger - HTML
- Application de programmation - Guide
- &Nbsp html - Forum HTML
- Br html - Forum HTML
3 réponses
benkeeper
Messages postés
81
Date d'inscription
samedi 4 septembre 2004
Statut
Membre
Dernière intervention
26 janvier 2008
45
16 mars 2007 à 14:51
16 mars 2007 à 14:51
J'essaierai peut être de découper la grosse boucle en plusieurs petites, mais c'est pas garanti que ça marche.
Les images ne sont misent à jour qu'à la fin de la boucle?
Les images ne sont misent à jour qu'à la fin de la boucle?
Reivax962
Messages postés
3672
Date d'inscription
jeudi 16 juin 2005
Statut
Membre
Dernière intervention
11 février 2021
1 011
16 mars 2007 à 14:59
16 mars 2007 à 14:59
Tu pourrais nous donner le code source JavaScript qu'on regarde ça un peu plus précisément ?
En fait, il s'agit d'une sous-routine en Perl (pour des questions de simplicité et de multi-environnements):
---------------------------------------------------------------------------
use Win32;
use Win32::PingICMP;
sub doRestart {
$TheForm = $_[0];
my $p = Win32::PingICMP->new();
for ($i = 0 ; $i < $TheForm->selection->length ; $i++) {
if (($TheForm->selection($i)->type eq "radio") && ($TheForm->selection($i)->checked)) {
if ($TheForm->selection($i)->value eq "all") {
for ($j = 1 ; $j < $TheForm->selection->length ; $j++) {
$application = $TheForm->selection($j)->value;
$server = $application."server"; $machine = $TheForm->$server->value;
if(Win32::InitiateSystemShutdown($TheForm->$server->value,"",0,1,1)) {
$t = 0;
do {
sleep(5);
$result = $p->ping($machine);
$t = $t + 1;
} until(($result == 0) || ($t == 40));
if($t != 40) {
$IMG = '../../images/stopped.gif';
$flag = "img".$application;
$TheForm->$flag->{src} = $IMG;
$t = 0;
do {
sleep(5);
$result = $p->ping($machine);
$t = $t + 1;
} until(($result == 1) && ($t == 40));
if($t != 40) {
$IMG = '../../images/started.gif';
$flag = "img".$application;
$TheForm->$flag->{src} = $IMG;
}
else {
alert("ERROR: Server cannot be restarted.");
}
}
else {
alert("ERROR: Server cannot be stopped.");
}
}
else {
alert("ERROR: Server cannot be stopped.");
}
}
}
else {
$application = $TheForm->selection($i)->value;
$server = $application."server"; $machine = $TheForm->$server->value;
if(Win32::InitiateSystemShutdown($TheForm->$server->value,"",0,1,1)) {
$t = 0;
do {
sleep(5);
$result = $p->ping($machine);
$t = $t + 1;
} until (($result == 0) || ($t == 40));
if($t != 40) {
$IMG = '../../images/stopped.gif';
$flag = "img".$application;
$TheForm->$flag->{src} = $IMG;
$t = 0;
do {
sleep(5);
$result = $p->ping($machine);
$t = $t + 1;
} until (($result == 1) || ($t == 40));
if($t != 40) {
$IMG = '../../images/started.gif';
$flag = "img".$application;
$TheForm->$flag->{src} = $IMG;
}
else {
alert("ERROR: Server cannot be restarted.");
}
}
else {
alert("ERROR: Server cannot be stopped.");
}
}
else {
alert("ERROR: Server cannot be stopped.");
}
}
last;
}
}
if ($i >= $TheForm->selection->length) {
alert("Please select a server to restart.");
}
}
sub doStop {
$TheForm = $_[0];
my $p = Win32::PingICMP->new();
for ($i = 0 ; $i < $TheForm->selection->length ; $i++) {
if (($TheForm->selection($i)->type eq "radio") && ($TheForm->selection($i)->checked)) {
if ($TheForm->selection($i)->value eq "all") {
for ($j = 1 ; $j < $TheForm->selection->length ; $j++) {
$application = $TheForm->selection($j)->value;
$server = $application."server"; $machine = $TheForm->$server->value;
if(Win32::InitiateSystemShutdown($TheForm->$server->value,"",0,1,0)) {
$t = 0;
do {
sleep(5);
$result = $p->ping($machine);
$t = $t + 1;
} until(($result == 0) && ($t == 40));
if($t != 40) {
$IMG = '../../images/stopped.gif';
$flag = "img".$application;
$TheForm->$flag->{src} = $IMG;
}
else {
alert("ERROR: Server cannot be stopped.");
}
}
else {
alert("ERROR: Server cannot be stopped.");
}
}
}
else {
$application = $TheForm->selection($i)->value;
$server = $application."server"; $machine = $TheForm->$server->value;
if(Win32::InitiateSystemShutdown($TheForm->$server->value,"",0,1,0)) {
$t = 0;
do {
sleep(5);
$result = $p->ping($machine);
$t = $t + 1;
} until(($result == 0) && ($t == 40));
if($t != 40) {
$IMG = '../../images/stopped.gif';
$flag = "img".$application;
$TheForm->$flag->{src} = $IMG;
}
else {
alert("ERROR: Server cannot be stopped.");
}
}
else {
alert("ERROR: Server cannot be stopped.");
}
}
last;
}
}
if ($i >= $TheForm->selection->length) {
alert("Please select a server to stop.");
}
}
---------------------------------------------------------------------------
use Win32;
use Win32::PingICMP;
sub doRestart {
$TheForm = $_[0];
my $p = Win32::PingICMP->new();
for ($i = 0 ; $i < $TheForm->selection->length ; $i++) {
if (($TheForm->selection($i)->type eq "radio") && ($TheForm->selection($i)->checked)) {
if ($TheForm->selection($i)->value eq "all") {
for ($j = 1 ; $j < $TheForm->selection->length ; $j++) {
$application = $TheForm->selection($j)->value;
$server = $application."server"; $machine = $TheForm->$server->value;
if(Win32::InitiateSystemShutdown($TheForm->$server->value,"",0,1,1)) {
$t = 0;
do {
sleep(5);
$result = $p->ping($machine);
$t = $t + 1;
} until(($result == 0) || ($t == 40));
if($t != 40) {
$IMG = '../../images/stopped.gif';
$flag = "img".$application;
$TheForm->$flag->{src} = $IMG;
$t = 0;
do {
sleep(5);
$result = $p->ping($machine);
$t = $t + 1;
} until(($result == 1) && ($t == 40));
if($t != 40) {
$IMG = '../../images/started.gif';
$flag = "img".$application;
$TheForm->$flag->{src} = $IMG;
}
else {
alert("ERROR: Server cannot be restarted.");
}
}
else {
alert("ERROR: Server cannot be stopped.");
}
}
else {
alert("ERROR: Server cannot be stopped.");
}
}
}
else {
$application = $TheForm->selection($i)->value;
$server = $application."server"; $machine = $TheForm->$server->value;
if(Win32::InitiateSystemShutdown($TheForm->$server->value,"",0,1,1)) {
$t = 0;
do {
sleep(5);
$result = $p->ping($machine);
$t = $t + 1;
} until (($result == 0) || ($t == 40));
if($t != 40) {
$IMG = '../../images/stopped.gif';
$flag = "img".$application;
$TheForm->$flag->{src} = $IMG;
$t = 0;
do {
sleep(5);
$result = $p->ping($machine);
$t = $t + 1;
} until (($result == 1) || ($t == 40));
if($t != 40) {
$IMG = '../../images/started.gif';
$flag = "img".$application;
$TheForm->$flag->{src} = $IMG;
}
else {
alert("ERROR: Server cannot be restarted.");
}
}
else {
alert("ERROR: Server cannot be stopped.");
}
}
else {
alert("ERROR: Server cannot be stopped.");
}
}
last;
}
}
if ($i >= $TheForm->selection->length) {
alert("Please select a server to restart.");
}
}
sub doStop {
$TheForm = $_[0];
my $p = Win32::PingICMP->new();
for ($i = 0 ; $i < $TheForm->selection->length ; $i++) {
if (($TheForm->selection($i)->type eq "radio") && ($TheForm->selection($i)->checked)) {
if ($TheForm->selection($i)->value eq "all") {
for ($j = 1 ; $j < $TheForm->selection->length ; $j++) {
$application = $TheForm->selection($j)->value;
$server = $application."server"; $machine = $TheForm->$server->value;
if(Win32::InitiateSystemShutdown($TheForm->$server->value,"",0,1,0)) {
$t = 0;
do {
sleep(5);
$result = $p->ping($machine);
$t = $t + 1;
} until(($result == 0) && ($t == 40));
if($t != 40) {
$IMG = '../../images/stopped.gif';
$flag = "img".$application;
$TheForm->$flag->{src} = $IMG;
}
else {
alert("ERROR: Server cannot be stopped.");
}
}
else {
alert("ERROR: Server cannot be stopped.");
}
}
}
else {
$application = $TheForm->selection($i)->value;
$server = $application."server"; $machine = $TheForm->$server->value;
if(Win32::InitiateSystemShutdown($TheForm->$server->value,"",0,1,0)) {
$t = 0;
do {
sleep(5);
$result = $p->ping($machine);
$t = $t + 1;
} until(($result == 0) && ($t == 40));
if($t != 40) {
$IMG = '../../images/stopped.gif';
$flag = "img".$application;
$TheForm->$flag->{src} = $IMG;
}
else {
alert("ERROR: Server cannot be stopped.");
}
}
else {
alert("ERROR: Server cannot be stopped.");
}
}
last;
}
}
if ($i >= $TheForm->selection->length) {
alert("Please select a server to stop.");
}
}
zangre01
Messages postés
7
Date d'inscription
jeudi 24 janvier 2008
Statut
Membre
Dernière intervention
2 octobre 2012
14
>
pierre
10 févr. 2008 à 18:44
10 févr. 2008 à 18:44
BONJOUR PIERRE
Moi c'est zangre aboubacar , je suis un jeune africain et je suis lycéen ,je frequente et je fait l'enseignement general et je trouve que tu est beaucoup fort tu en connait assez en informatique tu l'ecole informatique ca me plait beaucoup ce domene j'ai meme envie par moment de devenir informaticien et je profite pour te demande quand on n'est iformaticien et que on fort dans la programmation quel metier peut faire dans l'avenir .
Je serais enchanter de faire ta connaissance moi je cherche un amis avec qui ont pourras toujour rester en contact et aussi qui va m'apprendre un peu desa connaissance comme le maitre et son eleve
ok merci
mon email: zangre.aboubacar@yahoo.fr
Moi c'est zangre aboubacar , je suis un jeune africain et je suis lycéen ,je frequente et je fait l'enseignement general et je trouve que tu est beaucoup fort tu en connait assez en informatique tu l'ecole informatique ca me plait beaucoup ce domene j'ai meme envie par moment de devenir informaticien et je profite pour te demande quand on n'est iformaticien et que on fort dans la programmation quel metier peut faire dans l'avenir .
Je serais enchanter de faire ta connaissance moi je cherche un amis avec qui ont pourras toujour rester en contact et aussi qui va m'apprendre un peu desa connaissance comme le maitre et son eleve
ok merci
mon email: zangre.aboubacar@yahoo.fr
Reivax962
Messages postés
3672
Date d'inscription
jeudi 16 juin 2005
Statut
Membre
Dernière intervention
11 février 2021
1 011
16 mars 2007 à 16:20
16 mars 2007 à 16:20
Ah d'accord !
Mais dans ce cas, c'est normal que la page soit bloquée pendant son exécution : le pearl est exécuté du côté du serveur et pas chez le client !
Pour modifier la page elle-même, il n'y a pas vriament d'autres solutions que le javascript...
Mais dans ce cas, c'est normal que la page soit bloquée pendant son exécution : le pearl est exécuté du côté du serveur et pas chez le client !
Pour modifier la page elle-même, il n'y a pas vriament d'autres solutions que le javascript...