UseModWiki소스수정/TitleIndex액션

titleindex action 추가

• 모든 페이지 목록을 단순한 텍스트로 출력함
• 사용법 - 주소창에서, http...wiki.pl?action=titleindex

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

### 다음 함수를 통채로 추가
sub DoTitleIndex {
    my (@list);
    my $index;
    print "Content-type: text/plain\n\n";
    @list = &AllPagesList();
    foreach $index (@list) {
        print $index."\r\n";
    }
}