Script Perl pour VNC

Bonjour,

J'ai un script perl pour configurer l'environnement VNC (Celui de RealVNC que j'ai modifié pour mes propres besoin). J'ai un soucis au niveau d'un contrôle du fichier $HOME/.vnc/passwd. En effet quand je lance vncserver j'ai le message d'erreur suivant :
cat: /export/home/user/.vnc/passwd: Aucun fichier ou répertoire de ce type

J'incrimine les lignes suivantes :

Code:

---

1 2 3 4 5 6 7 8 9 10

# Make sure the user has a password. ($z,$z,$mode) = stat("$vncUserDir/passwd"); if (!(-e "$vncUserDir/passwd") || ($mode & 077)) { warn "\nYou will require a password to access your desktops.\n\n"; system("vncpasswd"); if (($? >> 8) != 0) { exit 1; } }

---

J'ai fais un script à part avec ces lignes en ajoutant la valeur de la variable $vncUserDir, et cela fonctionne très bien. Le vncpasswd me demande d'entrer un mot de passe lors de l'absence du fichier $HOME/.vnc/passwd.

Merci de votre aide.