Tadashi Okoshi
slash****@users*****
2005年 6月 28日 (火) 23:07:22 JST
Index: affelio/lib/Affelio/SNS/Handshaker_s.pm diff -u affelio/lib/Affelio/SNS/Handshaker_s.pm:1.11 affelio/lib/Affelio/SNS/Handshaker_s.pm:1.12 --- affelio/lib/Affelio/SNS/Handshaker_s.pm:1.11 Tue Jun 28 21:32:24 2005 +++ affelio/lib/Affelio/SNS/Handshaker_s.pm Tue Jun 28 23:07:22 2005 @@ -4,11 +4,11 @@ # http://affelio.jp/ (Japan) # http://affelio.jp/ (USA and other area) # -# $Id: Handshaker_s.pm,v 1.11 2005/06/28 12:32:24 slash5234 Exp $ +# $Id: Handshaker_s.pm,v 1.12 2005/06/28 14:07:22 slash5234 Exp $ use strict; -use XMLRPC::Transport::HTTP; use lib("../../../extlib/"); +use XMLRPC::Transport::HTTP; use DBI; use Crypt::RC5; use Crypt::DH; @@ -220,9 +220,10 @@ $peer_af_id, $peer_DH_pub_key_str, $MIMed_mesg) = @_; my $peer_domain = Affelio::misc::NetMisc::get_remote_domain(%ENV); my $sessionid = "$$" . "$timestamp"; - 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"); + Affelio::misc::Debug::debug_print("server.HandShake: size=[" + . length($MIMed_mesg)); + + Affelio::misc::Debug::debug_print("server.HandShake: $proto_ver, $timestamp, $peer_domain, $peer_nickname, $peer_af_id, $peer_DH_pub_key_str [$MIMed_mesg]\n"); ################################################## #Version check ################################################## @@ -241,10 +242,14 @@ ########################################### # Send a message to MessageManager ########################################### - 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"; + my $message_body= + MIME::Base64::Perl::encode_base64("You got a link request from $peer_nickname ($peer_af_id). \n\nMessage from the user is...\n") + . "$MIMed_mesg\n" + . MIME::Base64::Perl::encode_base64("\n\nClick 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", + "SystemToUser/LinkRequest/Encode-Base64", $message_body); ###########################################
