Tadashi Okoshi
slash****@users*****
2005年 7月 1日 (金) 07:16:04 JST
Index: affelio/lib/Affelio/SNS/Handshaker_s.pm diff -u affelio/lib/Affelio/SNS/Handshaker_s.pm:1.15 affelio/lib/Affelio/SNS/Handshaker_s.pm:1.16 --- affelio/lib/Affelio/SNS/Handshaker_s.pm:1.15 Fri Jul 1 06:15:48 2005 +++ affelio/lib/Affelio/SNS/Handshaker_s.pm Fri Jul 1 07:16:04 2005 @@ -4,7 +4,7 @@ # http://affelio.jp/ (Japan) # http://affelio.jp/ (USA and other area) # -# $Id: Handshaker_s.pm,v 1.15 2005/06/30 21:15:48 slash5234 Exp $ +# $Id: Handshaker_s.pm,v 1.16 2005/06/30 22:16:04 slash5234 Exp $ use strict; use lib("../../../extlib/"); @@ -44,11 +44,46 @@ use strict; use Exporter; @Affelio::SNS::Handshaker_s::ISA = "Exporter"; - @Affelio::SNS::Handshaker_s::EXPORT = qw (HandShake HandShakeReply F2List post_Message); + @Affelio::SNS::Handshaker_s::EXPORT = qw (HandShake HandShakeReply F2List post_Message get_services); use vars qw( $AF_DIR); ################################################################## + #server.get_services + # proto_ver: 1 + ################################################################## + sub get_services{ + my $self = shift; + my ($proto_ver) = @_; + + if($proto_ver > 1.0){ + return { + flerror => XMLRPC::Data->type('boolean', 1), + message => "ERR:102 UnsupportedProtoVer 1.0" + }; + } + + my $msg= <<EOT; +<?xml version="1.0"?> +<services type="core"> +<service name="AffelioHandshaker"> +<version>1.1</version> +</service> +<service name="AffelioMessaging"> +<version>1.0</version> +</service> +<service name="AffelioFriendList"> +<version>1.0</version> +</service> +</services> +EOT + return { + flerror => XMLRPC::Data->type('boolean', 0), + message => $msg + }; + } + + ################################################################## #server.F2List # proto_ver: 1 ##################################################################
