UseModWiki소스수정/TitleIndex액션

1. titleindex action 추가

• 모든 페이지 목록을 단순한 텍스트로 출력함
• 사용법
  • action=titleindex - 기본 인코딩으로 출력
  • action=titleindex&charset=EUC-KR - 원하는 인코딩을 명시할 수 있음

sub DoOtherRequest {
   ...
        } elsif ($action eq "index") {
            &DoIndex();
### 다음 단락 추가
        } elsif ($action eq "titleindex") {
            &DoTitleIndex();
###
        } elsif ($action eq "help") {               # luke added
            &DoHelp();
   ...
}

### 다음 함수를 통채로 추가
sub DoTitleIndex {
    my (@list, $page);
    my $charset = &GetParam("charset", "$HttpCharset");

    print "Content-type: text/plain; charset=$charset\n\n";

    @list = &AllPagesList();
    if ($charset ne $HttpCharset) {
        @list = split(/!/, &convert_encode(join('!',@list), "$HttpCharset", "$charset"));
    }
    foreach $page (@list) {
        print $page."\n";
    }
}

1.1. 추가 업데이트 내역

1.2. 사용자 의견