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"; } }