create poll alias automatically if containing no special chars

1 files changed, 5 insertions, 1 deletions

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