[Affelio-cvs 249] CVS update: affelio/lib/Affelio/SNS

Back to archive index

Tadashi Okoshi slash****@users*****
2005年 6月 28日 (火) 21:32:24 JST


Index: affelio/lib/Affelio/SNS/Handshaker_s.pm
diff -u affelio/lib/Affelio/SNS/Handshaker_s.pm:1.10 affelio/lib/Affelio/SNS/Handshaker_s.pm:1.11
--- affelio/lib/Affelio/SNS/Handshaker_s.pm:1.10	Tue Jun 28 21:01:33 2005
+++ affelio/lib/Affelio/SNS/Handshaker_s.pm	Tue Jun 28 21:32:24 2005
@@ -4,7 +4,7 @@
 #    http://affelio.jp/ (Japan)
 #    http://affelio.jp/ (USA and other area)
 #
-# $Id: Handshaker_s.pm,v 1.10 2005/06/28 12:01:33 slash5234 Exp $
+# $Id: Handshaker_s.pm,v 1.11 2005/06/28 12:32:24 slash5234 Exp $
 
 use strict;
 use XMLRPC::Transport::HTTP;
@@ -191,7 +191,8 @@
 	$af->{mesgm}->post_message($msg_from,
 				   $msg_title,
 				   "UserToUser/OneToOne",
-				   "$msg_body");
+				   $msg_body);
+	undef($af);
 	
         ###########################################
         # Reply to client
@@ -216,11 +217,12 @@
 	#Distill args
         ##################################################
 	my ($proto_ver, $timestamp, $peer_nickname, 
-	    $peer_af_id, $peer_DH_pub_key_str, $mesg) = @_;
+	    $peer_af_id, $peer_DH_pub_key_str, $MIMed_mesg) = @_;
 	my $peer_domain = Affelio::misc::NetMisc::get_remote_domain(%ENV);
 	my $sessionid = "$$" . "$timestamp";
-	$mesg = MIME::Base64::Perl::decode_base64($mesg);
-	Affelio::misc::Debug::debug_print("server.HandShake: $proto_ver, $timestamp, $peer_domain, $peer_nickname, $peer_af_id, $peer_DH_pub_key_str $mesg\n");
+	my $my_mesg = MIME::Base64::Perl::decode_base64($MIMed_mesg);
+	my $my_mesg = "てすとなりよ。てすと。";
+	Affelio::misc::Debug::debug_print("server.HandShake: $proto_ver, $timestamp, $peer_domain, $peer_nickname, $peer_af_id, $peer_DH_pub_key_str $my_mesg\n");
 	##################################################
 	#Version check
 	##################################################
@@ -239,7 +241,7 @@
         ###########################################
         # Send a message to MessageManager
         ###########################################
-	my $message_body="You got a link request from $peer_af_id ($peer_nickname)</A>. Click following link to approve this request.\n\n$af->{site__web_root}/bin/recv_mail_ack.cgi?id=$sessionid\n$mesg";
+	my $message_body="$my_mesg You got a link request from $peer_af_id ($peer_nickname). Click following link to approve this request.\n\n$af->{site__web_root}/bin/recv_mail_ack.cgi?id=$sessionid";
 	$af->{mesgm}->post_message("Your Affelio",
 				   "Link Request from $peer_nickname",
 				   "SystemToUser/LinkRequest",
@@ -257,6 +259,7 @@
 
 	Affelio::misc::Debug::debug_print("server.HandShake: DB(W) $sessionid\n");
 
+	undef($af);
         ###########################################
         # Reply to client
         ###########################################


Affelio-cvs メーリングリストの案内
Back to archive index