(장기적으로는, intermap 파일을 계정에 텍스트 파일로 둘 것이 아니라, 위키 페이지를 이용하여 여러 사람이 같이 수정할 수 있게 하는 게 낫지 않을까 함.)
사용한 결과는 InterMap 페이지를 참조
# <showintermap> # intermap 파일의 내용을 출력함 sub showintermap { my ($txt) = @_; $txt =~ s/&__LT__;showintermap&__GT__;/&MacroShowInterMap()/gei; return $txt; } sub MacroShowInterMap() { my ($status, $data) = &ReadFile($InterFile); if ($status) { $data =~ s/(#.*)/&StoreRaw("<SPAN style='color: blue;'>$1<\/SPAN>")/ge; $data =~ s/\|([^\|\n]+\.$ImageExtensions)/ <IMG class='inter' src='$InterIconDir\/$1' alt='$1'>/g; $data =~ s/\|([^\|\n]+)/ <SPAN style='color: green;'>$1<\/SPAN>/g; $data =~ s/\|//g; $data = &RestoreSavedText($data); } else { $data = "Can't read intermap file"; } return &StoreRaw("<PRE class='code'>\n".$data."</PRE>"); } 1;
ext1.111