OVH Cloud OVH Cloud

Script Perl et CGI

2 réponses
Avatar
RedLums
Bonjour !

Je cherche a creer un script cgi, perl permettant de copier un repertoire
d'un utilisateur vers tout les autres utilisateur ex:
cp /home/userexemple/Repertoire vers /home/user1 /home/user2 /home/user....
etc..
sachant que je vais avoir beaucoup d'utilisateur

Merci pour tout hou hou ! :-)

RedLums

2 réponses

Avatar
TiChou
Dans l'article news:<3f731ce4$0$10438$,
RedLums écrivait :

Bonjour !


Bonsoir,

Je cherche a creer un script cgi, perl permettant de copier un
repertoire d'un utilisateur vers tout les autres utilisateur ex:


Les questions perl ont leur place sur fr.comp.lang.perl

cp /home/userexemple/Repertoire vers /home/user1 /home/user2
/home/user.... etc..
sachant que je vais avoir beaucoup d'utilisateur


Pourquoi ne pas faire tout simplement un script shell ?

Exemple d'idée de script :

#!/bin/sh

# activation des opérateurs de correspondance étendue
shopt -s extglob

# tous les homes sauf /home/userexemple
for user in /home/!(userexemple)do
cp -a /home/userexemple/Repertoire $user/
# On rectifie le propriétaire dans l'arborescence ~/Repertoire
chown -R ${user##*/} $user/Repertoire
done

--
TiChou

Avatar
TiChou
Dans l'article news:3f731ce4$0$10438$,
RedLums écrivait :

Bonjour !


Bonsoir,

Je cherche a creer un script cgi, perl permettant de copier un
repertoire d'un utilisateur vers tout les autres utilisateur ex:


Les questions perl ont leur place sur fr.comp.lang.perl

cp /home/userexemple/Repertoire vers /home/user1 /home/user2
/home/user.... etc..
sachant que je vais avoir beaucoup d'utilisateur


Pourquoi ne pas faire tout simplement un script shell ?

Exemple d'idée de script :

#!/bin/sh

# activation des opérateurs de correspondance étendue
shopt -s extglob

# tous les homes sauf /home/userexemple
for user in /home/!(userexemple)
do
cp -a /home/userexemple/Repertoire $user/
# On rectifie le propriétaire dans l'arborescence ~/Repertoire
chown -R ${user##*/}:users $user/Repertoire
done

Selon la distribution, adapter le groupe de la commande chown
(${user##*/}:users ou ${user##*/}:${user##*/}).

Voir aussi le man de useradd et l'utilisation du répertoire /etc/skel pour
la création des nouveaux comptes devant contenir certains fichiers et
répertoires.

--
TiChou