Tadashi Okoshi
slash****@users*****
2005年 6月 28日 (火) 23:07:46 JST
Index: affelio/lib/Affelio/App/Admin/SendHandshake.pm diff -u affelio/lib/Affelio/App/Admin/SendHandshake.pm:1.1 affelio/lib/Affelio/App/Admin/SendHandshake.pm:1.2 --- affelio/lib/Affelio/App/Admin/SendHandshake.pm:1.1 Tue Jun 28 20:51:34 2005 +++ affelio/lib/Affelio/App/Admin/SendHandshake.pm Tue Jun 28 23:07:46 2005 @@ -4,7 +4,7 @@ # http://affelio.jp/ (Japan) # http://affelio.jp/ (USA and other area) # -# $Id: SendHandshake.pm,v 1.1 2005/06/28 11:51:34 slash5234 Exp $ +# $Id: SendHandshake.pm,v 1.2 2005/06/28 14:07:46 slash5234 Exp $ package Affelio::App::Admin::SendHandshake; { @@ -13,6 +13,7 @@ use lib("../../../../extlib/"); use Error qw(:try); use Crypt::DH; + use MIME::Base64::Perl; use lib("../../../"); use Affelio; use Affelio::misc::CGIError; @@ -49,7 +50,6 @@ #Remove "/" from the end of $dest_uri ###################### $dest_uri =~ s/\/$//; - debug_print("SendHandshake::send: $dest_uri\n"); my $dest_xml_uri = $dest_uri . "/bin/xml-rpc-serv.cgi"; debug_print("SendHandshake::send: $dest_xml_uri\n"); @@ -90,6 +90,9 @@ }catch Affelio::exception::NetworkException with{ my $E = shift; throw Affelio::exception::CommunicationException($E); + }catch Affelio::exception::Exception with{ + my $E = shift; + throw Affelio::exception::CommunicationException($E); }; if($ret->{flerror} == 1){ #XML-RPC communication was successful.
