web: Add hack to allow creating a plain page.
authorWerner Koch <wk@gnupg.org>
Wed, 3 May 2017 11:36:02 +0000 (13:36 +0200)
committerWerner Koch <wk@gnupg.org>
Wed, 3 May 2017 11:36:02 +0000 (13:36 +0200)
Not tested!

web/donate/index.org
web/share/gpgweb.el

index b1b383c..de59bf1 100644 (file)
@@ -5,49 +5,21 @@
 # Note: Do not use relative links because this page is also used as a
 #       template from cgi-bin/.  Using https://www.gnupg.org/... is
 #       fine as it is stripped before publishing.
+# Note: These special comments are used
+#       custom-head-section - Neither a meta tag for a stylesheet is
+#                             inserted nor the </head> and <body>.
+#       disable-menu - No menu is generated.
 
+#+BEGIN_HTML
+<!--custom-head-section->
+<link rel="stylesheet" href="/share/site.css" type="text/css" />
+</head>
+<body>
+<!--disable-menu-->
 
-* Donate
-
-  Maintaining and improving GnuPG is costly. For more than a decade,
-  [[https://g10code.com][g10^code]] GmbH, a company owned and headed by GnuPG's principal
-  author Werner Koch, is bearing the majority of these costs. To help
-  them carry on this work, they need your support.  Note that despite
-  GnuPG carries an [[https://www.fsf.org][FSF]] copyright notice, they never funded the
-  development or hosting costs.
-
-  If you are using [[../index.org][GnuPG]], [[../software/libgcrypt/index.org][Libgcrypt]], [[../software/gpgme/index.org][GPGME]], or [[https://www.gpg4win.org][Gpg4win]] and would like
-  to help with development and maintenance please consider to make a
-  donation.
-
-** Ways to donate
-
-  Paying using a credit card is currently our preferred choice.  If
-  you have a Paypal account you may use that too.
-
-  Because the GnuPG project is not tax exempted, we are not able to
-  send you a respective donation receipt.  If you can benefit from a
-  donation receipt by a Germany charity you may donate to the GnuPG
-  account at the [[https://www.wauland.de/en/donation.html#61][Wau Holland Stiftung]]; they will use the money raised
-  to pay for development work on GnuPG and Enigmail.  If you want to
-  be listed on our [[https://www.gnupg.org/donate/kudos.html][thank you]] page you should indicate this by adding a
-  comment of the form =List me as: NAME= to your donation.
-
-  If you like to donate Bitcoins you may use the [[https://www.wauland.de/en/donation.html#61][Wau Holland Stiftung]]
-  account too.
-
-  If you represent a company, you may also enter into a support
-  contract with [[https://g10code.com][g10^code]] or ask for other service options.
-
-** Donation form
 
-  To process your donation we need to collect some information.  This
-  information is only used for the purpose of the donation and no data
-  will ever be send to any entity not directly involved in the
-  donation process.  Not giving a name makes the donation “anonymous”
-  in that the name won’t be listed on the public [[https://www.gnupg.org/donate/kudos.html][thank you]] page.
+<!-- Write whatever HTML code you like -->
 
-#+BEGIN_HTML
   <!--ERRORPANEL-->
 
   <form action="/cgi-bin/procdonate.cgi" method="post" class="inputpanel">
     </tr>
    </table>
   </form>
+
+
 #+END_HTML
 
 ** Recent donors
index d992d55..46bbcdd 100644 (file)
@@ -81,10 +81,14 @@ if not available."
 <meta name=\"DC.Publisher\" content=\"The GnuPG Project\" />
 <meta name=\"DC.Identifier\" content=\"https://gnupg.org/\" />
 <meta name=\"DC.Rights\" content=\"https://gnupg.org/copying.html\" />
-<link rel=\"stylesheet\" href=\"/share/site.css\" type=\"text/css\" />
+")
+(goto-char (point-min))
+(unless (search-forward "<!--custom-head-section-->" nil t)
+ (goto point-max)
+ (insert "<link rel=\"stylesheet\" href=\"/share/site.css\" type=\"text/css\" />
 </head>
 <body>
-"))
+")))
 
 (defconst gpgweb-gnupg-menu-alist
   '(("/index.html"
@@ -399,7 +403,9 @@ to create the previous and Next links for an entry."
                    (title (gpgweb-publish-find-title orgfile)))
                ;; Insert header, menu, and footer.
                (gpgweb-insert-header title committed-at)
-               (gpgweb-insert-menu fname-2)
+               (goto-char (point-min))
+               (unless (search-forward "<!--disable-menu-->" nil t)
+                 (gpgweb-insert-menu fname-2))
                (if blogmode
                    (gpgweb-fixup-blog plist
                                       (file-name-nondirectory orgfile)