From: Peter Palfrader <peter@palfrader.org>
Date: Sun, 21 Sep 2014 12:34:39 +0000 (+0200)
Subject: Allow dash (-) in hostnames
X-Git-Tag: release-0.3.40~37
X-Git-Url: https://git.adam-barratt.org.uk/?p=mirror%2Fuserdir-ldap-cgi.git;a=commitdiff_plain;h=2833afc99423e6cc0abe0fa6d0fafbf9275c8f2d

Allow dash (-) in hostnames
---

diff --git a/update.cgi b/update.cgi
index c264eaf..ddb8052 100755
--- a/update.cgi
+++ b/update.cgi
@@ -146,7 +146,7 @@ if (!($query->param('doupdate'))) {
   my $confirmstring = '';
   my $sudopassword = '';
   for my $e(@{$entry->{'sudopassword'}}) {
-    my ($uuid, $status, $hosts, $crypted) = ($e =~ /^([0-9a-f]{8}-[0-9a-f]{4}-[0-9a-f]{4}-[0-9a-f]{4}-[0-9a-f]{12}) (confirmed:[0-9a-f]{40}|unconfirmed) ([a-z0-9.,*]+) ([^ ]+)$/);
+    my ($uuid, $status, $hosts, $crypted) = ($e =~ /^([0-9a-f]{8}-[0-9a-f]{4}-[0-9a-f]{4}-[0-9a-f]{4}-[0-9a-f]{12}) (confirmed:[0-9a-f]{40}|unconfirmed) ([a-z0-9.,*-]+) ([^ ]+)$/);
     unless (defined $uuid) {
       $sudopassword .= "<tr><td>Unparseable line!</td></tr>\n";
       next;