New script to manage servers

commands/first-install.sh

@@ -1,7 +1,7 @@
 #! /bin/bash
 
 # Install missing packets
-PACKAGES_LIST="libnet-ldap-perl libxml-libxml-perl libgearman-client-perl"
+PACKAGES_LIST="libnet-ldap-perl libxml-libxml-perl libgearman-client-perl libmailtools-perl libmail-sendmail-perl"
 
 if ! whereis dpkg > /dev/null 2> /dev/null
 then

commands/manage-server.sh

@@ -0,0 +1,26 @@
+#! /bin/sh
+
+cd $(dirname "$0")
+
+SRV_LIST="moore noyce hamano cpp"
+
+ACTIONS="start stop restart"
+
+for ACT in $ACTIONS
+do
+    if [ -n "$1" ] && [ "$1" == "$ACT" ]
+    then
+	ACTION="$ACT"
+	break
+    fi
+done
+
+if [ -z "$ACTION" ]
+then
+    echo "Usage: $0 [$ACTIONS]"
+fi
+
+for SRV in $SRV_LIST
+do
+    ssh root@$SRV ~/liblerdorf/process/launch.sh "$ACTION"
+done

process/launch.sh

@@ -30,20 +30,33 @@ launch_screen()
 
 if [ -z "$1" ]
 then
-    HOSTNAME=`/bin/hostname`
+    ACTION="restart"
 else
-    HOSTNAME="$1"
+    ACTION="$1"
 fi
 
-# Kill old liblersorf screen sessions
+if [ -z "$2" ]
-$SU -c "$SCREEN -ls" intradmin | $GREP '[0-9]+\.lerdorf_[a-zA-Z0-9_-]+' |
+then
-while read LINE
+    HOSTNAME=`/bin/hostname`
-do
+else
+    HOSTNAME="$2"
+fi
+
+if [ "$ACTION" == "stop" ] || [ "$ACTION" == "restart" ]
+then
+    # Kill old liblersorf screen sessions
+    $SU -c "$SCREEN -ls" intradmin | $GREP '[0-9]+\.lerdorf_[a-zA-Z0-9_-]+' |
+    while read LINE
+    do
 	SNAME=`echo $LINE | $SED "s/^[^0-9]*([0-9]+\.[^ \t]+).*$/\1/"`
 	$SU -c "$SCREEN -S \"$SNAME\" -X kill" intradmin
-done
+    done
+fi
 
-case $HOSTNAME in
+
+if [ "$ACTION" == "start" ] || [ "$ACTION" == "restart" ]
+then
+    case $HOSTNAME in
 
 	cpp)
 	    launch_screen "lerdorf_process_ldap_sync_ssh_keys_forge" "while true; do $PERL ~/liblerdorf/process/ldap/sync_ssh_keys_forge.pl; done" ~intradmin/.ssh/git
@@ -70,4 +83,5 @@ case $HOSTNAME in
 	    echo "No process to launch for $HOSTNAME" >&2
 	    exit 1
 	    ;;
-esac
+    esac
+fi