Context Navigation

HTTP-MobileAgent

Timestamp:

03/31/08 19:28:28 (5 years ago)

Author:

clouder

Message:

lang/perl/H-MA/branches: changed api

Location:

lang/perl/HTTP-MobileAgent/branches/feature-mobileid

Files:

r8562	r8564
199	199	L<HTTP::MobileAgent::Display> for details.
200	200
201		=item guid
202
203		my $~~guid = $agent->gu~~id;
	201	=item user_id
	202
	203	my $user_id = $agent->user_id;
204	204
205	205	return X-DCMGUID, X-UP-SUBNO or X-JPHONE-UID.

r8562	r8564
153	153	}
154	154
155		sub guid {
	155	sub user_id {
156	156	my $self = shift;
157	157	return $self->get_header( 'x-dcmguid' );

r8562	r8564
76	76	}
77	77
78		sub guid {
	78	sub user_id {
79	79	my $self = shift;
80	80	return $self->get_header( 'x-up-subno' );

r8562	r8564
170	170	}
171	171
172		sub guid {
173		my $self = shift;
174		return $self->get_header( 'x-jphone-uid' );
	172	sub user_id {
	173	my $self = shift;
	174	return $self->get_header( 'x-jphone-uid' ) unless $self->is_type_c;
175	175	}
176	176

r8563	r8564
18	18	for keys %{ $inputs_ref->{ headers } };
19	19	my $ma = HTTP::MobileAgent->new( $header );
20		my @keys = qw/carrier guid/;
	20	my @keys = qw/carrier user_id/;
21	21	+{ map { $_ => $ma->$_ } @keys };
22	22	}
…	…
31	31	--- expected
32	32	carrier: I
33		guid: abcdef0
	33	user_id: abcdef0
34	34
35	35	=== SoftBank
…	…
40	40	--- expected
41	41	carrier: V
42		guid: abcdef0123456789
	42	user_id: abcdef0123456789
43	43
44	44	=== KDDI
…	…
49	49	--- expected
50	50	carrier: E
51		guid: abcdef0123_45.ezweb.ne.jp
	51	user_id: abcdef0123_45.ezweb.ne.jp