X-Git-Url: http://git.osdn.net/view?p=fswiki%2Fsandbox.git;a=blobdiff_plain;f=kgsoft%2F_ex_spam_filter_light%2Ftags%2F_ex_spam_filter_light%2320070803%2Fplugin%2F_ex_spam_filter_light%2Fbugtrack.pm;fp=kgsoft%2F_ex_spam_filter_light%2Ftags%2F_ex_spam_filter_light%2320070803%2Fplugin%2F_ex_spam_filter_light%2Fbugtrack.pm;h=0000000000000000000000000000000000000000;hp=ed6a4c04d461f7c2e74a3c1f23377f1734c80196;hb=76cb0de4d0f86e82c5f9722dd572d1b737da5a5a;hpb=5493e7dc8f08aa4adf266cbe47ac9c4601d303b2

diff --git a/kgsoft/_ex_spam_filter_light/tags/_ex_spam_filter_light#20070803/plugin/_ex_spam_filter_light/bugtrack.pm b/kgsoft/_ex_spam_filter_light/tags/_ex_spam_filter_light#20070803/plugin/_ex_spam_filter_light/bugtrack.pm
deleted file mode 100644
index ed6a4c0..0000000
--- a/kgsoft/_ex_spam_filter_light/tags/_ex_spam_filter_light#20070803/plugin/_ex_spam_filter_light/bugtrack.pm
+++ /dev/null
@@ -1,96 +0,0 @@
-##########################################################################################
-#
-# ¥¹¥Ñ¥à¥Õ¥£¥ë¥¿¡¼¥×¥é¥°¥¤¥ó¡Ê³Ø½¬µ¡Ç½Ìµ¤·ÈÇ¡Ë
-#¡Êbugtrack¥×¥é¥°¥¤¥ó¤Î¥ª¡¼¥Ð¡¼¥é¥¤¥É¡Ë
-#
-##########################################################################################
-use strict;
-
-use plugin::bugtrack::BugTrackHandler;
-
-# plugin::bugtrack::BugTrackHandler¤Îdo_action¥á¥½¥Ã¥É¤ÎÃÖ¤­´¹¤¨
-package plugin::bugtrack::BugTrackHandler;
-
-sub do_action {
-	my $self = shift;
-	my $wiki = shift;
-	my $cgi = $wiki->get_CGI;
-	
-	my $project  = $cgi->param("project");
-	my $name     = $cgi->param("name");
-	my $category = $cgi->param("category");
-	my $priority = $cgi->param("priority");
-	my $status   = $cgi->param("status");
-	my $content  = $cgi->param("content");
-	my $subject  = $cgi->param("subject");
-	my $time     = time();
-	
-	if($name eq ""){
-		return $wiki->error("̾Á°¤¬ÆþÎϤµ¤ì¤Æ¤¤¤Þ¤»¤ó¡£");
-	} elsif($subject eq ""){
-		return $wiki->error("¥µ¥Þ¥ê¤¬ÆþÎϤµ¤ì¤Æ¤¤¤Þ¤»¤ó¡£");
-	} elsif($content eq ""){
-		return $wiki->error("¥Ð¥°ÆâÍƤ¬ÆþÎϤµ¤ì¤Æ¤¤¤Þ¤»¤ó¡£");
-	}
-	
-	# post_name¤È¤¤¤¦¥­¡¼¤Ç¥¯¥Ã¥­¡¼¤ò¥»¥Ã¥È¤¹¤ë
-	my $path   = &Util::cookie_path($wiki);
-	my $cookie = $cgi->cookie(-name=>'post_name',-value=>$name,-expires=>'+1M',-path=>$path);
-	print "Set-Cookie: ",$cookie->as_string,"\n";
-	
-#--------------------------------------------------------------------------------------------------
-  if($content){
-    unless(&plugin::_ex_spam_filter_light::Install::judgment_text($content)){
-      my $time = Util::format_date(time());
-      my $file = $wiki->config('log_dir')."/spam_bugtrack.txt";
-      if(open(SPAM_LOG, ">>$file")){
-        print SPAM_LOG "-" x 70 . "\n";
-        print SPAM_LOG "$project:$name:$category:$priority:$status:$time\n";
-        print SPAM_LOG "-" x 70 . "\n";
-        print SPAM_LOG "$content\n";
-        close(SPAM_LOG);
-      }
-      my $error_message = $wiki->error("Åê¹Æ¤µ¤ì¤¿Ê¸¾Ï¤Ï¥¹¥Ñ¥à¥á¥Ã¥»¡¼¥¸¤ÈȽÄꤵ¤ì¤Þ¤·¤¿¡£\n");
-      $subject = Util::escapeHTML($subject);
-      $content = Util::escapeHTML($content);
-      $content =~ s/\n/<br>/g;
-      $error_message .= "<p>\n";
-      $error_message .= "<div>Åê¹Æ¤µ¤ì¤¿Ê¸¾Ï¡§</div>\n";
-      $error_message .= "<div>¡ãÅê¹Æ¼Ô¡ä$name</div>\n";
-      $error_message .= "<div>¡ã¥«¥Æ¥´¥ê¡ä$category</div>\n";
-      $error_message .= "<div>¡ãÍ¥ÀèÅÙ¡ä$priority</div>\n";
-      $error_message .= "<div>¡ã¾õÂÖ¡ä$status</div>\n";
-      $error_message .= "<div>¡ãÆü»þ¡ä$time</div>\n";
-      $error_message .= "<div>¡ãËÜʸ¡ä</div>\n";
-      $error_message .= "<div>$content</div>\n";
-      $error_message .= "</p>\n";
-      return $error_message;
-    }
-  }
-#--------------------------------------------------------------------------------------------------
-
-	# ¥Õ¥©¡¼¥Þ¥Ã¥È¥×¥é¥°¥¤¥ó¤Ø¤ÎÂбþ
-	my $format = $wiki->get_edit_format();
-	$name     = $wiki->convert_to_fswiki($name    ,$format,1);
-	$category = $wiki->convert_to_fswiki($category,$format,1);
-	$priority = $wiki->convert_to_fswiki($priority,$format,1);
-	$status   = $wiki->convert_to_fswiki($status  ,$format,1);
-	$content  = $wiki->convert_to_fswiki($content ,$format);
-	
-	my $page = $self->make_pagename($wiki,$project);
-	
-	$content = "!!!$subject\n".
-	           "*Åê¹Æ¼Ô¡§ $name\n".
-	           "*¥«¥Æ¥´¥ê¡§ $category\n".
-	           "*Í¥ÀèÅÙ¡§ $priority\n".
-	           "*¾õÂÖ¡§ $status\n".
-	           "*Æü»þ¡§ ".Util::format_date($time)."\n".
-	           "{{bugstate}}\n".
-	           "!!ÆâÍÆ\n".$content."\n".
-	           "!!¥³¥á¥ó¥È\n{{comment}}";
-	
-	$wiki->save_page($page,$content);
-	$wiki->redirect($page);
-}
-
-1;