plugin/attach/RefImage.pm

   1 ############################################################
   2 #
   3 # <p>ÅºÉÕ¤·¤¿²èÁü¥Õ¥¡¥¤¥ë¤òÉ½¼¨¤·¤Þ¤¹¡£</p>
   4 # <pre>
   5 # {{ref_image ¥Õ¥¡¥¤¥ëÌ¾}}
   6 # </pre>
   7 # <p>ÊÌ¤Î¥Ú¡¼¥¸¤ËÅºÉÕ¤µ¤ì¤¿¥Õ¥¡¥¤¥ë¤ò»²¾È¤¹¤ë¤³¤È¤â¤Ç¤¤Þ¤¹¡£</p>
   8 # <pre>
   9 # {{ref_image ¥Õ¥¡¥¤¥ëÌ¾,¥Ú¡¼¥¸Ì¾}}
  10 # </pre>
  11 #
  12 ############################################################
  13 package plugin::attach::RefImage;
  14 use strict;
  15 #===========================================================
  16 # ¥³¥ó¥¹¥È¥é¥¯¥¿
  17 #===========================================================
  18 sub new {
  19         my $class = shift;
  20         my $self = {};
  21         return bless $self,$class;
  22 }
  23
  24 #===========================================================
  25 # ¥Ñ¥é¥°¥é¥Õ¥á¥½¥Ã¥É
  26 #===========================================================
  27 sub paragraph {
  28         my $self = shift;
  29         my $wiki = shift;
  30         my $file = shift;
  31         my $page = shift;
  32
  33         if($file eq ""){
  34                 return &Util::paragraph_error("¥Õ¥¡¥¤¥ë¤¬»ØÄê¤µ¤ì¤Æ¤¤¤Þ¤»¤ó¡£","WIKI");
  35         }
  36         if($page eq ""){
  37                 $page = $wiki->get_CGI()->param("page");
  38         }
  39         unless($wiki->can_show($page)){
  40                 return &Util::paragraph_error("¥Ú¡¼¥¸¤Î»²¾È¸¢¸Â¤¬¤¢¤ê¤Þ¤»¤ó¡£","WIKI");
  41         }
  42
  43         my $filename = $wiki->config('attach_dir')."/".&Util::url_encode($page).".".&Util::url_encode($file);
  44         unless(-e $filename){
  45                 return &Util::paragraph_error("¥Õ¥¡¥¤¥ë¤¬Â¸ºß¤·¤Þ¤»¤ó¡£","WIKI");
  46         }
  47
  48         $wiki->get_current_parser()->l_image($page,$file);
  49         return undef;
  50 }
  51
  52 1;