Tadashi Okoshi
slash****@users*****
2005年 12月 19日 (月) 10:59:02 JST
Index: affelio/bin/recv_mail_ack.cgi
diff -u affelio/bin/recv_mail_ack.cgi:1.10 affelio/bin/recv_mail_ack.cgi:1.11
--- affelio/bin/recv_mail_ack.cgi:1.10 Fri Dec 16 18:04:31 2005
+++ affelio/bin/recv_mail_ack.cgi Mon Dec 19 10:59:02 2005
@@ -16,7 +16,7 @@
# along with this program; if not, write to the Free Software
# Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
-# $Id: recv_mail_ack.cgi,v 1.10 2005/12/16 09:04:31 slash5234 Exp $
+# $Id: recv_mail_ack.cgi,v 1.11 2005/12/19 01:59:02 slash5234 Exp $
use strict;
use lib("../extlib");
@@ -26,7 +26,6 @@
use CGI::Session; #qw(-ip_match);
use HTML::Template;
use File::Copy;
-use Math::BigInt;
use Crypt::DH;
use Error qw(:try);
@@ -190,13 +189,17 @@
#Save the F2 list into my DB
#$af->{fm}->save_F2List($ret, $peer_af_id);
+my $urlencoded_title = url_encode($af->translate_templateL10N('<AF_M text="_HandshakeReply_SentBack_message_title">'));
+
############################################################################
#print output HTML
my $TMPL_FILE = "../templates/$af->{site__template}/owner_side/mail_ack_recved.tmpl";
my $tmpl = new HTML::Template( filename => $TMPL_FILE);
-$tmpl->param(peer_af_id => $peer_af_id);
+$tmpl->param(peer_af_id => $af->{site__web_root} . "/outgoing.cgi?dest=".$peer_af_id);
$tmpl->param(peer_nickname => $peer_nickname);
-$tmpl->param(home_url => $af->{site__web_root});
+
+$tmpl->param(next_url => $af->{site__web_root} . "/admin.cgi?mode=messages&action=compose&to_url=" . $peer_af_id . "&title=" . $urlencoded_title);
+
$tmpl->param("tmpl_path" => "$af->{site__web_root}/templates/$af->{site__template}");
print "Content-type: text/html; charset=UTF-8\n\n";