[Savannah-cvs] administration/infra savannah.el

[Sylvain Beucler]

CVSROOT:        /cvsroot/administration
Module name:    administration
Branch:         
Changes by:     Sylvain Beucler <address@hidden>        04/08/31 21:38:30

Modified files:
        infra          : savannah.el 

Log message:
        Fixed typos;
        added draft section about cracking-aimed projects

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

Patches:
Index: administration/infra/savannah.el
diff -u administration/infra/savannah.el:1.16 
administration/infra/savannah.el:1.17
--- administration/infra/savannah.el:1.16       Fri Aug 27 15:33:38 2004
+++ administration/infra/savannah.el    Tue Aug 31 21:38:30 2004
@@ -53,7 +53,7 @@
 ;;   the changes that Paul A. Crable suggested and added the sections
 ;;   about the LGPL.
 ;;
-;; $Id: savannah.el,v 1.16 2004/08/27 15:33:38 Beuc Exp $
+;; $Id: savannah.el,v 1.17 2004/08/31 21:38:30 Beuc Exp $
 
 ;; GENERAL
 
@@ -115,9 +115,10 @@
 (defun sv-problem-details ()
   (interactive)
   "The description of your project is too vague"
-  (insert "Please resubmit your project with a detailed technical
-description that specifies such requirements as programming languages
-and external libraries.  It should be at least one-half a page.\n\n")
+  (insert
+"We need a detailed technical description that specifies such
+requirements as programming languages and external libraries.  It
+should be at least one-half a page.\n\n")
   (message "Inserted \(savannah.el\)")
   )
 
@@ -419,6 +420,25 @@
   (message "Inserted \(savannah.el\)")
   )
 
+(defun sv-reject-cracking ()
+  (interactive)
+  "This project is primarily aimed at cracking purposes"
+  (insert
+"You described your project as a piece of software primarily aimed at
+cracking purposes. We do not want to encourage such practice, and
+hence cannot approve your project.
+
+However, if you think this project can be modified to primarily serve
+system administrators aims instead of the crackers', and if you want
+to keep the development in that direction, we may reconsider your
+project. Please then resubmit your project with a description fitting
+this goal.
+
+Regards,\n\n")
+  (message "Inserted \(savannah.el\)")
+  )
+
+
 ;; APPROVE
 
 (defun sv-approve-as-nongnu ()
@@ -443,7 +463,7 @@
   ""
   (insert "Hi,
 
-I have approved your project.  You will receive an automated e-mail
+I approved your project.  You will receive an automated e-mail
 containing detailed information about the approval.
 
 Regards,