Diary/2018-12-8

FSWikiのattach

読んだ論文をどう管理しようかなー，と，いろんな方法を試しつつ，
昔やってたFSWikiで管理する方法にもどってみることに．
久しぶり昔のデータを開いていみると，読んでた論文リストが懐しい．

ところで，FSWikiだと，filesとかrefとかで，ページに添付したファイルへのリンクがはれるのだけど，
ブラウザで直接開けないのが，ちょっと不便．
というわけで，リンク作ってるRef.pmとFiles.pmで，
attach以下のファイルを直接アクセスするリンクを追加．ちょっと便利になった．

Ref.pm

57                 my $buf = "<a href=\"".$wiki->config('script_name')."?action=ATTACH&amp;page=".
58                           &Util::url_encode($page)."&amp;file=".&Util::url_encode($file)."\">".&Util::escapeHTML($alias)."</a>";
59                 my $attached_file_name = $filename;
60                 $attached_file_name =~ s/%/%25/g;
61                 $buf = $buf."<a href=\"".$attached_file_name."\">"."[View]</a>";
62

Files.pm

60                 my $attached_file_name = &Util::url_encode($pagename).".".&Util::url_encode($file);
61                 $attached_file_name =~ s/%/%25/g;
62                 if($way eq "V" || $way eq "v"){
63                         $buf = $buf."<li><a href=\"".$wiki->config('script_name')."?action=ATTACH&amp;page=".
64                                &Util::url_encode($pagename)."&amp;file=".&Util::url_encode($file)."\">".
65                                $cgi->escapeHTML($file)."</a>";
66                         $buf = $buf."<a href=\""."./attach/".$attached_file_name."\">"."[View]</a>";
67                 } else {
68                         $buf = $buf."<a href=\"".$wiki->config('script_name')."?action=ATTACH&amp;page=".
69                                &Util::url_encode($pagename)."&amp;file=".&Util::url_encode($file)."\">".
70                                $cgi->escapeHTML($file)."</a>";
71                         $buf = $buf."<a href=\""."./attach/".$attached_file_name."\">"."[View]</a>";
72                 }