epita-std/ACU
Archived
1
0
Fork 0
Code Releases Activity

Deployment script ok

Browse source
This commit is contained in:
Mercier Pierre-Olivier 2013-09-15 13:23:04 +02:00
parent 59d27b9575
commit 34b72a4f4e
1 changed files with 29 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

37
process/launch.sh
View file

@ -10,9 +10,30 @@ PERL='/usr/bin/env perl'
launch_screen()
{
CMD=$2
if [ -n "$3" ] && [ -f "$3" ]
then
CMD="source $3; $CMD"
fi
$SU -c "$SCREEN -S '$1' -d -m bash -c '$2'" intradmin
}
ask_ssh_key()
{
TMP=`mktemp`
ssh-agent > "$TMP"
. "$TMP" > /dev/null
chown intradmin "$TMP"
if ssh-add "$1"
then
chown intradmin "$SSH_AUTH_SOCK"
chown intradmin `dirname "$SSH_AUTH_SOCK"`
echo "$TMP"
fi
}
if [ -z "$1" ]
then
HOSTNAME=`/bin/hostname`
@ -31,24 +52,24 @@ done
case $HOSTNAME in
cpp)
launch_screen "lerdorf_process_ldap_sync_ssh_keys_forge" "while true; do $PERL process/ldap/sync_ssh_keys_forge.pl; done"
launch_screen "lerdorf_process_ldap_sync_ssh_keys_forge" "while true; do $PERL ~/liblerdorf/process/ldap/sync_ssh_keys_forge.pl; done" `ask_ssh_key "$HOME/.ssh/git"`
;;
hamano)
launch_screen "lerdorf_process_ldap_sync_ssh_keys_git" "while true; do $PERL process/ldap/sync_ssh_keys_git.pl; done"
launch_screen "lerdorf_process_ldap_sync_ssh_keys_git" "while true; do $PERL ~/liblerdorf/process/ldap/sync_ssh_keys_git.pl; done" `ask_ssh_key "$HOME/.ssh/git"`
;;
moore)
launch_screen "lerdorf_process_ldap_check_ssh_key" "while true; do $PERL process/ldap/check_ssh_key.pl; done"
launch_screen "lerdorf_process_ldap_sync_ssh_keys" "while true; do $PERL process/ldap/sync_ssh_keys.pl; done"
launch_screen "lerdorf_process_ldap_update_group" "while true; do $PERL process/ldap/update_group.pl; done"
launch_screen "lerdorf_process_ldap_update_user" "while true; do $PERL process/ldap/update_user.pl; done"
launch_screen "lerdorf_process_ldap_check_ssh_key" "while true; do $PERL ~/liblerdorf/process/ldap/check_ssh_key.pl; done"
launch_screen "lerdorf_process_ldap_sync_ssh_keys" "while true; do $PERL ~/liblerdorf/process/ldap/sync_ssh_keys.pl; done"
launch_screen "lerdorf_process_ldap_update_group" "while true; do $PERL ~/liblerdorf/process/ldap/update_group.pl; done"
launch_screen "lerdorf_process_ldap_update_user" "while true; do $PERL ~/liblerdorf/process/ldap/update_user.pl; done"
launch_screen "lerdorf_process_files_intradata_get" "while true; do $PERL process/files/intradata_get.pl; done"
launch_screen "lerdorf_process_files_intradata_get" "while true; do $PERL ~/liblerdorf/process/files/intradata_get.pl; done"
;;
noyce)
launch_screen "lerdorf_process_files_intradata_get" "while true; do $PERL process/files/intradata_get.pl; done"
launch_screen "lerdorf_process_files_intradata_get" "while true; do $PERL ~/liblerdorf/process/files/intradata_get.pl; done"
;;
*)