Tadashi Okoshi
slash****@users*****
2006年 4月 19日 (水) 20:32:41 JST
Index: affelio/lib/Affelio/Managing/MyNewsManager.pm
diff -u affelio/lib/Affelio/Managing/MyNewsManager.pm:1.7 affelio/lib/Affelio/Managing/MyNewsManager.pm:1.8
--- affelio/lib/Affelio/Managing/MyNewsManager.pm:1.7 Tue Mar 7 23:39:10 2006
+++ affelio/lib/Affelio/Managing/MyNewsManager.pm Wed Apr 19 20:32:41 2006
@@ -14,12 +14,13 @@
# along with this program; if not, write to the Free Software
# Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
#
-# $Id: MyNewsManager.pm,v 1.7 2006/03/07 14:39:10 slash5234 Exp $
+# $Id: MyNewsManager.pm,v 1.8 2006/04/19 11:32:41 slash5234 Exp $
package Affelio::Managing::MyNewsManager;
{
use strict;
use lib("../../../extlib");
+ use Digest::SHA1;
use Error qw(:try);
use DBI;
use Jcode;
@@ -89,6 +90,7 @@
#######################################################################
#post_news
+ # returns SHA-1 hash
# arg1 app_install_title (UTF-8)
# arg2 title (UTF-8)
# arg3 desc (UTF-8)
@@ -109,16 +111,40 @@
debug_print("MyNews:post_message: start.");
+
+ my $sha1digest = Digest::SHA1::sha1($datetime . $app_install_name . $title . $description . $creator . $URL);
+
##############################
#Insert a new record
- my $sth = "insert into $af->{site__dbtbl_prefix}_CORE_my_news(datetime, app_install_name, title, description, creator, URL) values ($datetime, '$app_install_name', '$title', '$description', '$creator', '$URL')";
+ my $sth = "insert into $af->{site__dbtbl_prefix}_CORE_my_news(datetime, app_install_name, title, description, creator, URL, sha1digest) values ($datetime, '$app_install_name', '$title', '$description', '$creator', '$URL', '$sha1digest')";
$sth = $af->getDB->prepare($sth) or die $af->getDB->errstr;
$sth->execute or die $af->getDB->errstr;
Affelio::misc::Debug::debug_print("MyNews::post_message: end.");
- return("");
+ return($sha1digest);
+ }
+
+ #######################################################################
+ #remove_news
+ # returns 1 or 0
+ # arg1 sha1digest
+ #######################################################################
+ sub remove_news{
+ my $self = shift;
+ my $af = $self->{af};
+ my %arg = @_;
+ my $digest = $arg{digest};
+
+ debug_print("MyNews:remove_message: start.");
+ debug_print("MyNews:remove_message: [$digest]");
+ my $sth = "delete from $af->{site__dbtbl_prefix}_CORE_my_news where sha1digest='$digest'";
+ $sth = $af->getDB->prepare($sth) or die $af->getDB->errstr;
+ $sth->execute or die $af->getDB->errstr;
+
+ return(1);
}
+
}#package
1;