sub GetSiteUrl { my ($site) = @_; my ($data, $url, $status); if (!$InterSiteInit) { $InterSiteInit = 1; ############### ### replaced by gypark ### file upload # ($status, $data) = &ReadFile($InterFile); # return "" if (!$status); # %InterSite = split(/\s+/, $data); # Later consider defensive code ($status, $data) = &ReadFile($InterFile); if ($status) { %InterSite = split(/\s+/, $data); } $InterSite{'Upload'} = "$UploadUrl\/"; ### ############### ############### ### added by gypark ### Local, LocalWiki 인터위키 from usemod 1.0 if (!defined($InterSite{'LocalWiki'})) { $InterSite{'LocalWiki'} = $ScriptName . &ScriptLinkChar(); } if (!defined($InterSite{'Local'})) { $InterSite{'Local'} = $ScriptName . &ScriptLinkChar(); } ### ############### } $url = $InterSite{$site} if (defined($InterSite{$site})); return $url; }