plugin/pdf/PDFDelete.pm

   1 ###############################################################################\r
   2 #\r
   3 # ¥Ú¡¼¥¸ºï½ü»þ¤ËºîÀ®ºÑPDF¤òºï½ü¤¹¤ë¥Õ¥Ã¥¯¥×¥é¥°¥¤¥ó\r
   4 #\r
   5 ###############################################################################\r
   6 package plugin::pdf::PDFDelete;\r
   7 use strict;\r
   8 #==============================================================================\r
   9 # ¥³¥ó¥¹¥È¥é¥¯¥¿\r
  10 #==============================================================================\r
  11 sub new {\r
  12         my $class = shift;\r
  13         my $self = {};\r
  14         return bless $self,$class;\r
  15 }\r
  16 \r
  17 #==============================================================================\r
  18 # ¥Õ¥Ã¥¯¥á¥½¥Ã¥É\r
  19 #==============================================================================\r
  20 sub hook {\r
  21         my $self = shift;\r
  22         my $wiki = shift;\r
  23         my $cgi = $wiki->get_CGI;\r
  24         my $pagename = $cgi->param("page");\r
  25         my $encode_page = &Util::url_encode($pagename);\r
  26         \r
  27         opendir(DIR,$wiki->config('pdf_dir')) or die $!;\r
  28         while(my $entry = readdir(DIR)){\r
  29                 if(index($entry,$encode_page)==0){\r
  30                         unlink($wiki->config('pdf_dir')."/$entry");\r
  31                 }\r
  32         }\r
  33         closedir(DIR);\r
  34 }\r
  35 \r
  36 1;\r