UseModWiki소스수정/로그인후직전페이지로이동

1. 로그인을 하면, 로그인하기 직전에 보고 있던 페이지로 바로 이동

1.1. 사용법

1.2. 부작용 & 알려진 문제점

1.3. wiki.pl 수정

1.4. 추가 업데이트 내역

1.5. 사용자 의견

1. 로그인을 하면, 로그인하기 직전에 보고 있던 페이지로 바로 이동

• 필수 요구 사항:
• 선택 요구 사항:

1.1. 사용법

• 평범하게 페이지를 보고 있거나,
• 북마크를 통한 diff화면을 보고 있는 경우

1.2. 부작용 & 알려진 문제점

• 별 문제는 없어 보이는데... 로그인 처리가 끝났을때 BrowsePage()를 불러서 화면을 보이는 식으로 구현했는데... 이렇게 막 불러도 되던건가 잘 모르겠음 -_-;
• 로그인에 실패(암호를 잘못 넣었다던가)했을 때부터는 제대로 안 된다. 귀찮아서 신경쓰지 않기로 했음
• 로그아웃했을 때도 이런 식으로 돌아가게 하고 싶은데, 쿠키 경로 문제 때문에 도저히 쉽게 안 되어서 포기. /SlashLinks처리때와 같은 상황인데, 이번에는 URL뒤에 "&pageid=페이지명"이 추가되면서 이 페이지명이 한글이면 제거가 안 된다. (CGI->url()은 디코딩된 값을 반환하는데 환경변수 PATH_INFO에는 %-인코딩된 형태로 들어 있어서 매치를 못 시킴)

1.3. wiki.pl 수정

sub GetHttpHeader {
    ...
### slashlinks 지원 - 로긴,로그아웃시에 쿠키의 path를 동일하게 해줌
        my $cookie_path = $q->url(-absolute=>1);
        if ((my $postfix = $q->script_name()) eq $cookie_path) {    # mod_rewrite 가 사용되지 않은 경우
            $cookie_path =~ s/[^\/]*$//;                            # 스크립트 이름만 제거
        } else {                                        # mod_rewrite
            if ((my $postfix = $q->path_info()) ne '') {    # wiki.pl/ 로 rewrite 된 경우
                $cookie_path =~ s/$postfix$//;
            } else {                                        # wiki.pl? 로 rewrite 된 경우
                my $postfix = $q->query_string();
                $cookie_path =~ s/$postfix$//;
            }
        }
        $cookie .= "path=$cookie_path;";
    ...
}

sub GetHtmlHeader {
    ...
### 단축키
    my $headExtra;
    if ($UseShortcut) {
        my $shortCutUrl = "$ScriptName".&ScriptLinkChar();
# 다음 줄 수정
        my $shortCutLogin = (&LoginUser()?"logout":"login&pageid=$pageid");
        my $shortCutHome = &FreeToNormal($HomePage);
    ...
}

    if (!&LoginUser()) {
        $bar_user .= "<LI>"
                    . &ScriptLink("action=login&pageid=$pageid", T('Login')."[l]")
                    . "</LI>\n";
    }

sub DoEnterLogin {
    ...
    print &ScriptLink("action=newlogin", T('Create new UserName') . "<br>");
    print &GetHiddenValue('enter_login', 1), "\n";
# 여기 한 줄 추가
    print &GetHiddenValue('pageid', &GetParam("pageid"));
    print '<br>', T('UserName:'), ' ',
    ...

sub DoLogin {
    ...
    if ($success) {
# 여기 if 단락 수정
        %UserCookie = %SetCookie;
        if (&GetParam("pageid","") ne "") {
            BrowsePage(&GetParam("pageid"));
            return;
        }
        print &GetHeader('', T('Login completed'), '');
        print Ts('Login for user ID %s complete.', $uid);
# 여기까지
    }
    else {
        print &GetHeader('', T('Login failed'), '');
        print Ts('Login for user ID %s failed.', $uid);
        %UserCookie = %SetCookie;
        $UserID = "";
        print "<br>" . &ScriptLink("action=login", T('Try Again'));
    }

# 여기 추가
    if (&GetParam("pageid","") ne "") {
        print "<BR>" . Ts( 'Return to %s' , &GetPageLink(&GetParam("pageid")) );
    }

# 마지막 수정
    print "<hr class='footer'>\n";
    print &GetMinimumFooter();
}

sub DoLogout {
    $SetCookie{'id'} = "";
    $SetCookie{'randkey'} = $UserData{'randkey'};
    $SetCookie{'rev'} = 1;

    my $tempUserID = $UserID;
    %UserCookie = %SetCookie;
    $UserID = "113";

    print &GetHeader('', T('Logout Results'), '');

    print Ts('Logout for user ID %s complete.', $tempUserID);

    print "<hr class='footer'>\n";
    print $q->endform;
    print &GetMinimumFooter();
}

1.4. 추가 업데이트 내역

1.5. 사용자 의견

UseModWiki소스수정/Comments매크로 보시면 되겠습니다~

-- Raymundo 2007-9-25 12:39 pm