$LogoPage = "대문"; # 자기가 로고 페이지로 사용할 페이지 이름.
... ### $LogoPage 변수를 추가한다. use vars qw( $UserGotoBar $UserGotoBar2 $UserGotoBar3 $UserGotoBar4 $ConfigFile $SOURCEHIGHLIGHT %SRCHIGHLANG $LinkFirstChar $EditGuideInExtern $SizeTopFrame $SizeBottomFrame $LogoPage # 요거 ); ### ...
sub DoCacheBrowse { my ($query, $idFile, $text); return 0 if (!$UseCache); $query = $ENV{'QUERY_STRING'}; if (($query eq "") && ($ENV{'REQUEST_METHOD'} eq "GET")) { ############### ### replaced by gypark ### LogoPage 가 있으면 이것을 embed 형식으로 출력 # $query = $HomePage; # Allow caching of home page. if ($LogoPage eq "") { $query = $HomePage; # Allow caching of home page. } else { $query = $LogoPage; } ### ############### } ############### ### added by gypark ### LogoPage 가 있으면 이것을 embed 형식으로 출력 return 0 if ($query eq $LogoPage); ### ############### if (!($query =~ /^$LinkPattern$/)) { if (!($FreeLinks && ($query =~ /^$FreeLinkPattern$/))) { ... }
sub DoBrowseRequest { my ($id, $action, $text); if (!$q->param) { # No parameter ############### ### replaced by gypark ### LogoPage 가 있으면 이것을 embed 형식으로 출력 # &BrowsePage($HomePage); if ($LogoPage eq "") { &BrowsePage($HomePage); } else { $EmbedWiki = 1; &BrowsePage($LogoPage); } ### ############### return 1; } $id = &GetParam('keywords', ''); ... }
sub GetHeader { ... # $header = &ScriptLink($HomePage, "<$logoImage>"); # K3 버전의 오리지널 코드 # $header = "<a accesskey=\"w\" href=\"$ScriptName?$HomePage\"><$logoImage></a>"; # 단축키를 지정하는 패치의 코드 $header = "<a accesskey=\"w\" href=\"$ScriptName\"><$logoImage></a>"; # 이렇게 다시 수정한다. ... }