ajout dump-dp a phafi

git-svn-id: http://afi-forge.afi-sa.fr/svn/opacce/trunk@3421 e3cc70dd-a52f-4065-8a26-0e09943c8c5c

scripts/emacs/phafi-mode.el

@@ -503,3 +503,10 @@
 	(message (concat "Current direcotry= " (phafi-cur-dir)))
 )
 
+(defun dump-db(dbname)
+  (interactive (list (read-string "DB name: ")))
+  (async-shell-command 
+   (concat 
+    "echo 'drop database if exists " dbname "; create database " dbname "'|mysql -uroot -ppassword;"
+    "ssh webmaster@web.afi-sa.net -p 2952 'sh ~/dump_db.sh' " dbname "|mysql -uroot -ppassword " dbname))
+)