sub ReplaceURL_urlalias {
# <-----
if (! $urlaliasloaded) {
- my $filetoload="$PluginDir/urlalias.txt";
# Load urlalias file
- open(URLALIASFILE,"$filetoload") or error("Error: Couldn't open UrlAlias file \"$filetoload\": $!");
+ my $filetoload='';
+ if ($SiteConfig && open(URLALIASFILE,"$PluginDir/urlalias.$SiteConfig.txt")) { $filetoload="$PluginDir/urlalias.$SiteConfig.txt"; }
+ elsif (open(URLALIASFILE,"$PluginDir/urlalias.txt")) { $filetoload="$PluginDir/urlalias.txt"; }
+ else { error("Couldn't open UrlAlias file \"$PluginDir/urlalias.txt\": $!"); }
# This is the fastest way to load with regexp that I know
%UrlAliases = map(/^([^\t]+)\t+([^\t]+)$/o,<URLALIASFILE>);
close URLALIASFILE;