}
$sys_default_domain = &forge_get_config ('web_host') ;
+$sys_return_domain = &forge_get_config ('forum_return_domain') ;
$sys_scm_host = &forge_get_config ('web_host') ;
$domain_name = &forge_get_config ('web_host') ;
$sys_users_host = &forge_get_config ('users_host') ;
$homedir_prefix = &forge_get_config ('homedir_prefix') ;
$grpdir_prefix = &forge_get_config ('groupdir_prefix') ;
$file_dir = &forge_get_config ('data_path') ;
+$sys_use_ssl = &forge_get_config('use_ssl');
+$sys_urlprefix = &forge_get_config('url_prefix');
##############################
# Database Connect Functions
" in function " . $call_details[3] . "\n";
}
}
+
+#############################
+# Compatibility functions.
+#############################
+sub util_make_url {
+ my ($path) = @_;
+ my $url;
+
+ if (($sys_use_ssl eq 'true') || ($sys_use_ssl eq '1')) {
+ $url = 'https://';
+ } else {
+ $url = 'http://';
+ }
+
+ $url .= $sys_default_domain . $sys_urlprefix;
+ $url =~ s,/$,,;
+ $path =~ s,^/,,;
+ $url .= '/' . $path;
+
+ return $url;
+}