From 48cd11e7ce34348bc91b144ffbcd46e0e90a8bc0 Mon Sep 17 00:00:00 2001
From: Benjamin Kellermann <Benjamin.Kellermann@gmx.de>
Date: Mon, 7 Dec 2009 23:24:40 +0100
Subject: create poll alias automatically if containing no special chars

---
 index.cgi | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

(limited to 'index.cgi')

diff --git a/index.cgi b/index.cgi
index df0a607..590e864 100755
--- a/index.cgi
+++ b/index.cgi
@@ -34,7 +34,11 @@ $d = Dudle.new("Home")
 if $cgi.include?("create_poll") && $cgi.include?("poll_url")
 	POLLNAME=$cgi["create_poll"]
 	if $cgi["poll_url"] == ""
-		POLLURL = `pwgen -1`.chomp
+		if $cgi["create_poll"] =~ /^[\w\-_]*$/
+			POLLURL = $cgi["create_poll"]
+		else
+			POLLURL = `pwgen -1`.chomp
+		end
 	else
 		POLLURL=$cgi["poll_url"]
 	end
-- 
cgit v1.2.3