[Savannah-cvs] administration/infra/elisp savannah.el

[Sylvain Beucler]

CVSROOT:        /cvsroot/administration
Module name:    administration
Branch:         
Changes by:     Sylvain Beucler <address@hidden>        04/11/14 08:47:48

Modified files:
        infra/elisp    : savannah.el 

Log message:
        Added sv-ping

CVSWeb URLs:
http://savannah.gnu.org/cgi-bin/viewcvs/administration/administration/infra/elisp/savannah.el.diff?tr1=1.2&tr2=1.3&r1=text&r2=text

Patches:
Index: administration/infra/elisp/savannah.el
diff -u administration/infra/elisp/savannah.el:1.2 
administration/infra/elisp/savannah.el:1.3
--- administration/infra/elisp/savannah.el:1.2  Fri Sep 17 11:52:17 2004
+++ administration/infra/elisp/savannah.el      Sun Nov 14 08:47:48 2004
@@ -65,7 +65,7 @@
 ;;   sv-closing-resubmit, and added sv-deleted-pending and
 ;;   sv-problem-fdl-info.
 ;;
-;; $Id: savannah.el,v 1.2 2004/09/17 11:52:17 Beuc Exp $
+;; $Id: savannah.el,v 1.3 2004/11/14 08:47:48 Beuc Exp $
 
 ;;
 ;; General
@@ -115,18 +115,42 @@
   (message "Inserted sv-closing-reply text.")
   )
 
-;; Inform the user that their pending project has been deleted due to
-;; lack of response
+;; Inform the user of the status of their pending project due to lack
+;; of response
 
-(defun sv-deleted-pending ()
+(defun sv-ping ()
   (interactive)
   ""
-  (insert "As we have not had a response from you, we have deleted your project
-from the pending queue.  If you would still like to have your project
-hosted at Savannah, please re-submit it for evaluation.
+  (insert "Hi,
+
+I am waiting for an answer from you.
+
+If within one week I still do not get a reply, I will remove your
+project. You will still be able to register it again once you have the
+time to deal with the registration issues.
+
+Regards,\n\n")
+  (message "Inserted sv-ping text.")
+  )
+
+(defun sv-deleted-pending () (interactive) (sv-timeout))
+(defun sv-timeout ()
+  (interactive)
+  ""
+  (insert "Hi,
+
+We did not get a response from you, so we deleted your project from
+the pending queue.
+
+If you would still like to have your project hosted at Savannah,
+please register it again.
+
+The re-registration URL found in our acknowledgment of your earlier
+registration will direct you to the proper location where you can
+re-register your project.
 
 Regards,\n\n")
-  (message "Inserted sv-deleted-pending text.")
+  (message "Inserted sv-timeout text.")
   )
 
 ;;