protocol independent url

This commit is contained in:
Wolfram Schneider 2014-08-19 15:44:26 +00:00
parent fe535fea8f
commit 5b4fabdaa0
Notes: svn2git 2020-12-08 03:00:23 +00:00
svn path=/head/; revision=45478

View file

@ -77,7 +77,7 @@ sub MethGet {
# MyURL
# Returns a URL to the script
sub MyURL {
return 'http://' . $ENV{'SERVER_NAME'} . $ENV{'SCRIPT_NAME'};
return '//' . $ENV{'SERVER_NAME'} . $ENV{'SCRIPT_NAME'};
}
# CgiError
# Prints out an error message which containes appropriate headers,