Now awredir need a key

diff --git a/wwwroot/cgi-bin/awredir.pl b/wwwroot/cgi-bin/awredir.pl
index 4a9171562a912af49552920019ab2662d396a45b..88a527e938dcbe6ce07cb8b0b4e48f323470d6af 100644 (file)
--- a/wwwroot/cgi-bin/awredir.pl
+++ b/wwwroot/cgi-bin/awredir.pl
@@ -113,19 +113,19 @@ if ($ENV{QUERY_STRING} =~ /key=\"?([^\"&]+)\"?/) { $Key=$1; }
 $Url=$ENV{QUERY_STRING};
 if ($Url =~ /url=\"([^\"]+)\"/) { $Url=$1; }
 elsif ($Url =~ /url=(.+)$/) { $Url=$1; }
+$Url = DecodeEncodedString($Url);
+$UrlParam=$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>");
+if (! $UrlParam) {
+        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>");
 }
-$Url=DecodeEncodedString($Url);
+
+if ($Url !~ /^http/i) { $Url = "http://".$Url; }
 if ($DEBUG) { print LOGFILE "Url=$Url\n"; }
 
-if ($KEYFORMD5 eq 'YOURKEYFORMD5') {
-        error("Error: You must change value of constant KEYFORMD5");
-}
-if ($Key ne md5($KEYFORMD5.$Url)) {
-        error("Error: Bad value for key= parameter");
+if ($Key ne md5_hex($KEYFORMD5.$UrlParam)) {
+#       error("Error: Bad value key=".$Key." to have a redirect to ".$UrlParam." - ".$KEYFORMD5." - ".md5_hex($KEYFORMD5.$UrlParam) );
+        error("Error: Bad value key=".$Key." to have a redirect to ".$UrlParam);
 }