Discussion :

[dubis]

Bonjour,

J'ai un petit soucis dans la boucle de mon script lié à mon inexpérience :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
 
my @ldap = (`ldapsearch`) ;# Cette commande est volontairement tronquée list de tous les utilisateurs
foreach my $ldap (@ldap) {
	if ($ldap =~ /uid\=/) {
		my @uid= split/,/,$ldap;
		my @user = split /=/,$uid[0]; 
		$login = $user[1];
		print "Login : $login\n";
		my $pid = `ps \-fu $login | grep GTK2_passwd`;
		print "$pid\n";
			if ($pid =~ /GTK2_passwd/){
			next ;
			}
	}
 
	if ($ldap =~ /shadowLastChange/) {
		my @shdw = split/:/,$ldap;
		chomp ($shdw[1]);
		$shadow= mktime (0, 0, 0, $shdw[1], 0, 70);
		if (($local_unixtime - $shadow) > $unix_expire) {
			#print " on lance le GTK pour $login\n";
			my $cmd_disp_nb = `/usr/NX/bin/nxserver --list $login | grep localhost` ;
			chomp ($cmd_disp_nb);
			my @disp_nb = split /\s/,$cmd_disp_nb  ;
			#print "$disp_nb[0]\n";
			system ("su - $login -c \"export DISPLAY=:$disp_nb[0].0 && /usr/sbin/GTK2_script.pl\"");			
 
		}	
	}
}

Comme vous avez pu l'observer ce script démarre un autre script qui contient des object GTK. Je les ai séparés en deux car cette partie doit aller dans la crontab et c'est mieux s'ils sont idépendant. C'est pour cela que je fait un test avec la commande `ps` pour ne pas démarrer à chaque fois le script dans le bureau de l'utilisateur dont l'apparition de 50 fenêtre risquent de les perturber.

Comment faire pour faire le next proprement sans cassé la boucle? J'ai essayé de nommé la boucle sans succès.

Merci de votre aide.

[Lolo78]

Je n'ai pas bien compris ce que tu voulais faire, mais si ton code passe bien dans le next de la ligne 12, alors tu repasseras à la ligne 3 avec l'élément suivant du tableau @ldap.

Donc, pour moi, le next et la boucle foreach sont construits correctement, le problème est sans doute ailleurs.

[dubis]

Merci Lolo,

En fait ce n'est pas le cas car quoi qu'il en soit l'application lancée par la commande "system" est toujours lancée (ligne 26), et donc l'utilisateur à une nouvelle fenêtre.
J'ai essayé de modifier le code par celui-ci mais cela ne fonctionne pas non plus :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
my @ldap = (`ldapsearch`) ;# Cette commande est volontairement tronquée list de tous les utilisateurs
foreach my $ldap (@ldap) {
	my $pid="";
	if ($ldap =~ /uid\=/) {
		my @uid= split/,/,$ldap;
		my @user = split /=/,$uid[0]; 
		$login = $user[1];
		print "Login : $login\n";
		my $pid = `ps \-fu $login | grep GTK2_passwd`;
		print "$pid\n";
			if ($pid =~ /GTK2_passwd/){
			$pid ="TRUE";
			print "$pid\n";
			}
	}
	unless ($pid eq "FALSE") {  
		if ($ldap =~ /shadowLastChange/) {
			my @shdw = split/:/,$ldap;
			chomp ($shdw[1]);
			$shadow= mktime (0, 0, 0, $shdw[1], 0, 70);
				if (($local_unixtime - $shadow) > $unix_expire) {
					#print " on lance le GTK pour $login\n";
					my $cmd_disp_nb = `/usr/NX/bin/nxserver --list $login | grep localhost` ;
					chomp ($cmd_disp_nb);
					my @disp_nb = split /\s/,$cmd_disp_nb  ;
					#print "$disp_nb[0]\n";
					system ("su - $login -c \"export DISPLAY=:$disp_nb[0].0 && /usr/sbin/GTK2_script.pl\"");	
					next;
				}	
		}
	}
}

Comme je le montre ici, j'essaye que le GTK ne soit pas lancé s'il est trouvé dans la commande système "ps".
En espérant être plus clair....

[Philou67430]

Le problème de ta dernière version, est que tu testes $pid avec "FALSE", alors que tu l'initialises avec "", donc ton test unless ($pid eq "FALSE") réussi toujours.

Je te conseille donc d'écrire ainsi :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
my $pid; # vaut par défaut "undef"
if ($ldap =~ /uid\=/) {
  ...
  $pid = `ps \-fu $login | grep GTK2_passwd`;
  print "PID found: $pid\n";
}
if (!$pid) {
  ...
}

[dubis]

Merci Philou,

Mais le test de $pid n'est toujours pas validé même avec ta façon ....

J'ai essayé aussi celle -ci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
foreach my $ldap (@ldap) {
	my $pid;
	if ($ldap =~ /uid\=/) {
		my @uid= split/,/,$ldap;
		my @user = split /=/,$uid[0]; 
		$login = $user[1];
		print "Login : $login\n";
		$pid = `ps \-fu $login | grep GTK2_passwd`;
 
	}
	if ($ldap =~ /shadowLastChange/) {
			my @shdw = split/:/,$ldap;
			chomp ($shdw[1]);
			$shadow= mktime (0, 0, 0, $shdw[1], 0, 70);
				if (($local_unixtime - $shadow) > $unix_expire) {
					#print " on lance le GTK pour $login\n";
					my $cmd_disp_nb = `/usr/NX/bin/nxserver --list $login | grep localhost` ;
					chomp ($cmd_disp_nb);
					my @disp_nb = split /\s/,$cmd_disp_nb  ;
					#print "$disp_nb[0]\n";
					if (!$pid) { 	
						print "PID not found\n";
						system ("su - $login -c \"export DISPLAY=:$disp_nb[0].0 && /usr/sbin/GTK2_passwd.pl\" &");
						next;
					}else{
						print "PID found\n";
					}	
				}
	}
}

En plus de démarrer le GTK voici ce que j'ai sur le prompt :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
ldapclient:~# ./ShadowLastChange_extract.pl
Login : ckiki
PID not found
Login : ckoko
PID not found
ldapclient:~# ./ShadowLastChange_extract.pl
Login : ckiki
PID not found
Login : ckoko
PID not found
ps -fu ckiki | grep GTK
ckiki     9690     1  0 13:35 pts/0    00:00:00 su - ckiki -c export DISPLAY=:1025.0 && /usr/sbin/GTK2_passwd.pl
ckiki     9694  9690  0 13:35 pts/0    00:00:00 -su -c export DISPLAY=:1025.0 && /usr/sbin/GTK2_passwd.pl
ckiki     9700  9694  0 13:35 pts/0    00:00:00 /usr/bin/perl -w /usr/sbin/GTK2_passwd.pl
ckiki     9728     1  0 13:35 pts/0    00:00:00 su - ckiki -c export DISPLAY=:1025.0 && /usr/sbin/GTK2_passwd.pl
ckiki     9732  9728  0 13:35 pts/0    00:00:00 -su -c export DISPLAY=:1025.0 && /usr/sbin/GTK2_passwd.pl
ckiki     9738  9732  0 13:35 pts/0    00:00:00 /usr/bin/perl -w /usr/sbin/GTK2_passwd.pl

A voit 2 PID 9694 et 9732 alors que le script n'aurait pas du envoyer le processus 9732...... Pareil pour le login ckoko

[Philou67430]

Pourrais-tu poster exactement le code que tu as testé avec ma méthode ?
et poste également le résultat de cette expression :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

print "LDAP content:\n", @ldap, "END of LDAP\n";

que tu insèreras avant le foreach, afin que l'on puisse tester en mode debug, comme tu pourrais d'ailleurs le faire (perl -d ShadowLastChange_extract.pl).