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

[Sylvain Beucler]

CVSROOT:        /cvsroot/administration
Module name:    administration
Branch:         
Changes by:     Sylvain Beucler <address@hidden>        05/05/02 21:10:17

Modified files:
        infra/elisp    : savannah.el 

Log message:
        Moved sv-problem-linux-vs-gnu to sv-confusion-linux-vs-gnu
        Added GNU Eval-related canned answers

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

Patches:
Index: administration/infra/elisp/savannah.el
diff -u administration/infra/elisp/savannah.el:1.20 
administration/infra/elisp/savannah.el:1.21
--- administration/infra/elisp/savannah.el:1.20 Mon May  2 21:03:01 2005
+++ administration/infra/elisp/savannah.el      Mon May  2 21:10:17 2005
@@ -65,7 +65,7 @@
 ;;   sv-closing-resubmit, and added sv-deleted-pending and
 ;;   sv-problem-fdl-info.
 ;;
-;; $Id: savannah.el,v 1.20 2005/05/02 21:03:01 Beuc Exp $
+;; $Id: savannah.el,v 1.21 2005/05/02 21:10:17 Beuc Exp $
 
 ;;
 ;; General
@@ -119,6 +119,17 @@
   (message "Inserted sv-closing-reply text.")
   )
 
+(defun sv-closing-eval ()
+  (interactive)
+  ""
+  (insert "Since you do not request a Savannah project, but a GNU Evaluation, 
please tell address@hidden that you would like your project to be evaluated. 
They will reply with a form to fill in, where you will have to describe your 
project in detail and answer a few questions.
+
+You might want to keep a bookmark to this tracker item (it remains accessible 
even after it is closed); you are likely to copy/paste some of your answers 
from it to the GNU Evaluation form.
+
+Regards.\n")
+  (message "Inserted sv-closing-eval text.")
+  )
+
 ;; Inform the user of the status of their pending project due to lack
 ;; of response
 
@@ -369,18 +380,6 @@
   (message "Inserted sv-problem-gpl-two-only text.")
   )
 
-;; Ask the user to change "Linux" to "GNU/Linux"
-
-(defun sv-problem-linux-vs-gnu ()
-  (interactive)
-  ""
-  (insert "\"Linux\" is just a kernel of a more complex system that we like to 
refer to as GNU/Linux, to emphasize the ideals of the Free Software movement.
-
-Would you mind changing references to Linux as an OS to GNU/Linux?
-
-For more information, see http://www.gnu.org/gnu/linux-and-gnu.html.\n\n";)
-  (message "Inserted sv-problem-linux-vs-gnu text.")
-  )
 
 ;; Ask the user to remove GIF files and replace them with free image format
 
@@ -554,4 +553,42 @@
   (message "Inserted sv-confusion-open-and-free text.")
   )
 
+;; The user confuses open with free
+
+(defun sv-confusion-open-and-free ()
+  (interactive)
+  ""
+  (insert "Note that Savannah supports projects of the Free Software movement, 
not projects of the Open Source movement.
+
+We are careful about ethical issues and insist on producing software that is 
not dependent on proprietary software.
+
+While Open Source as defined by its founders means something pretty close to 
Free Software, it's frequently misunderstood.  For more information, please see 
http://www.gnu.org/philosophy/free-software-for-freedom.html.\n\n";)
+  (message "Inserted sv-confusion-open-and-free text.")
+  )
+
+;; Ask the user to change "Linux" to "GNU/Linux"
+
+(defun sv-confusion-linux-vs-gnu ()
+  (interactive)
+  ""
+  (insert "\"Linux\" is just a kernel of a more complex system that we like to 
refer to as GNU/Linux, to emphasize the ideals of the Free Software movement.
+
+Would you mind changing references to Linux as an OS to GNU/Linux?
+
+For more information, see http://www.gnu.org/gnu/linux-and-gnu.html.\n\n";)
+  (message "Inserted sv-confusion-linux-vs-gnu text.")
+  )
+
+;; Points the user to GNU Eval if (s)he doesn't need a Savannah account.
+
+(defun sv-confusion-eval ()
+  (interactive)
+  (insert "Please note that this is not the GNU Evaluation. This is the 
Savannah evaluation, to check whether your project complies with the Savannah 
hosting rules (a subset of the GNU Evaluation policies), and get a place to 
host your project. If you are approved at Savannah then we usually approve your 
project as non-GNU and forward your submission to the GNU Eval team.
+
+If you do not want to host your project here, but want to have your project 
evaluated by the GNU Eval team, then you only need to write to address@hidden
+
+Can you clarify this point?\n\n")
+  (message "Inserted sv-confusion-eval text.")
+  )
+
 (provide 'savannah)