改行コードをLFに統一。

[fswiki/fswiki.git] / plugin / attach / RefImage.pm

diff --git a/plugin/attach/RefImage.pm b/plugin/attach/RefImage.pm
index 31409ef..a144540 100644 (file)
--- a/plugin/attach/RefImage.pm
+++ b/plugin/attach/RefImage.pm
@@ -1,52 +1,52 @@
-############################################################\r
-#\r
-# <p>źÉÕ¤·¤¿²èÁü¥Õ¥¡¥¤¥ë¤òɽ¼¨¤·¤Þ¤¹¡£</p>\r
-# <pre>\r
-# {{ref_image ¥Õ¥¡¥¤¥ë̾}}\r
-# </pre>\r
-# <p>Ê̤Υڡ¼¥¸¤ËźÉÕ¤µ¤ì¤¿¥Õ¥¡¥¤¥ë¤ò»²¾È¤¹¤ë¤³¤È¤â¤Ç¤­¤Þ¤¹¡£</p>\r
-# <pre>\r
-# {{ref_image ¥Õ¥¡¥¤¥ë̾,¥Ú¡¼¥¸Ì¾}}\r
-# </pre>\r
-#\r
-############################################################\r
-package plugin::attach::RefImage;\r
-use strict;\r
-#===========================================================\r
-# ¥³¥ó¥¹¥È¥é¥¯¥¿\r
-#===========================================================\r
-sub new {\r
-       my $class = shift;\r
-       my $self = {};\r
-       return bless $self,$class;\r
-}\r
-\r
-#===========================================================\r
-# ¥Ñ¥é¥°¥é¥Õ¥á¥½¥Ã¥É\r
-#===========================================================\r
-sub paragraph {\r
-       my $self = shift;\r
-       my $wiki = shift;\r
-       my $file = shift;\r
-       my $page = shift;\r
-       \r
-       if($file eq ""){\r
-               return &Util::paragraph_error("¥Õ¥¡¥¤¥ë¤¬»ØÄꤵ¤ì¤Æ¤¤¤Þ¤»¤ó¡£","WIKI");\r
-       }\r
-       if($page eq ""){\r
-               $page = $wiki->get_CGI()->param("page");\r
-       }\r
-       unless($wiki->can_show($page)){\r
-               return &Util::paragraph_error("¥Ú¡¼¥¸¤Î»²¾È¸¢¸Â¤¬¤¢¤ê¤Þ¤»¤ó¡£","WIKI");\r
-       }\r
-       \r
-       my $filename = $wiki->config('attach_dir')."/".&Util::url_encode($page).".".&Util::url_encode($file);\r
-       unless(-e $filename){\r
-               return &Util::paragraph_error("¥Õ¥¡¥¤¥ë¤¬Â¸ºß¤·¤Þ¤»¤ó¡£","WIKI");\r
-       }\r
-       \r
-       $wiki->get_current_parser()->l_image($page,$file);\r
-       return undef;\r
-}\r
-\r
+############################################################
+#
+# <p>źÉÕ¤·¤¿²èÁü¥Õ¥¡¥¤¥ë¤òɽ¼¨¤·¤Þ¤¹¡£</p>
+# <pre>
+# {{ref_image ¥Õ¥¡¥¤¥ë̾}}
+# </pre>
+# <p>Ê̤Υڡ¼¥¸¤ËźÉÕ¤µ¤ì¤¿¥Õ¥¡¥¤¥ë¤ò»²¾È¤¹¤ë¤³¤È¤â¤Ç¤­¤Þ¤¹¡£</p>
+# <pre>
+# {{ref_image ¥Õ¥¡¥¤¥ë̾,¥Ú¡¼¥¸Ì¾}}
+# </pre>
+#
+############################################################
+package plugin::attach::RefImage;
+use strict;
+#===========================================================
+# ¥³¥ó¥¹¥È¥é¥¯¥¿
+#===========================================================
+sub new {
+       my $class = shift;
+       my $self = {};
+       return bless $self,$class;
+}
+
+#===========================================================
+# ¥Ñ¥é¥°¥é¥Õ¥á¥½¥Ã¥É
+#===========================================================
+sub paragraph {
+       my $self = shift;
+       my $wiki = shift;
+       my $file = shift;
+       my $page = shift;
+       
+       if($file eq ""){
+               return &Util::paragraph_error("¥Õ¥¡¥¤¥ë¤¬»ØÄꤵ¤ì¤Æ¤¤¤Þ¤»¤ó¡£","WIKI");
+       }
+       if($page eq ""){
+               $page = $wiki->get_CGI()->param("page");
+       }
+       unless($wiki->can_show($page)){
+               return &Util::paragraph_error("¥Ú¡¼¥¸¤Î»²¾È¸¢¸Â¤¬¤¢¤ê¤Þ¤»¤ó¡£","WIKI");
+       }
+       
+       my $filename = $wiki->config('attach_dir')."/".&Util::url_encode($page).".".&Util::url_encode($file);
+       unless(-e $filename){
+               return &Util::paragraph_error("¥Õ¥¡¥¤¥ë¤¬Â¸ºß¤·¤Þ¤»¤ó¡£","WIKI");
+       }
+       
+       $wiki->get_current_parser()->l_image($page,$file);
+       return undef;
+}
+
 1;
\ No newline at end of file