From 34b72a4f4eb522db9d1578af13c70c6e2e41dd07 Mon Sep 17 00:00:00 2001 From: Mercier Pierre-Olivier Date: Sun, 15 Sep 2013 13:23:04 +0200 Subject: [PATCH] Deployment script ok --- process/launch.sh | 37 +++++++++++++++++++++++++++++-------- 1 file changed, 29 insertions(+), 8 deletions(-) diff --git a/process/launch.sh b/process/launch.sh index 65ca9df..a8fa970 100755 --- a/process/launch.sh +++ b/process/launch.sh @@ -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" ;; *)