From dc1650ab3c8ff8732f2115f99e464763bd497e9d Mon Sep 17 00:00:00 2001
From: Guilhem Moulin <guilhem@fripost.org>
Date: Fri, 11 Dec 2015 14:29:23 +0100
Subject: Add licensing headers.

---
 acme-webserver | 20 +++++++++++++++++++-
 1 file changed, 19 insertions(+), 1 deletion(-)

(limited to 'acme-webserver')

diff --git a/acme-webserver b/acme-webserver
index 57ea789..e5e040d 100755
--- a/acme-webserver
+++ b/acme-webserver
@@ -1,5 +1,23 @@
 #!/usr/bin/perl -T
 
+#----------------------------------------------------------------------
+# Let's Encrypt ACME client (minimal webserver for answering challenges)
+# Copyright © 2015 Guilhem Moulin <guilhem@fripost.org>
+#
+# This program is free software: you can redistribute it and/or modify
+# it under the terms of the GNU General Public License as published by
+# the Free Software Foundation, either version 3 of the License, or
+# (at your option) any later version.
+#
+# This program is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+# GNU General Public License for more details.
+#
+# You should have received a copy of the GNU General Public License
+# along with this program.  If not, see <http://www.gnu.org/licenses/>.
+#----------------------------------------------------------------------
+
 use strict;
 use warnings;
 
@@ -13,7 +31,7 @@ my $method = s/\A(GET|HEAD) //          ? $1 : die "Error: Bad request\n";
 while (defined (my $h = <STDIN>)) { last if $h eq "\r\n" };
 
 my ($status_line, $content_type, $content);
-if (/\A\Q$ROOT\E\/([A-Za-z0-9_-]+)\z/ and -f $1) {
+if (/\A\Q$ROOT\E\/([A-Za-z0-9_\-]+)\z/ and -f $1) {
     if (open my $fh, '<', $1) {
         ($status_line, $content_type) = ('200 OK', 'application/jose+json');
         $content = do { local $/ = undef; <$fh> };
-- 
cgit v1.2.3