awredir support ohter protocols than http

diff --git a/wwwroot/cgi-bin/awredir.pl b/wwwroot/cgi-bin/awredir.pl
index d45e2dd9a801496aab4771fafb63f766605284b6..ee66ab085cbe92149924b4881dee07eb4db29e8a 100644 (file)
--- a/wwwroot/cgi-bin/awredir.pl
+++ b/wwwroot/cgi-bin/awredir.pl
@@ -93,7 +93,7 @@ $Url=$ENV{QUERY_STRING};
 if ($Url =~ /url=\"([^\"]+)\"/) { $Url=$1; }
 elsif ($Url =~ /url=(.+)$/) { $Url=$1; }
 
-if ($Url !~ /^http/i) { $Url = "http://".$Url; }
+if ($Url !~ /^\w+:/i) { $Url = "http://".$Url; }
 if (! $Url) {
        error("Error: Bad use of $PROG. To redirect an URL with $PROG, use the following syntax:<br><i>/cgi-bin/$PROG.pl?url=http://urltogo</i>");
 }