Revision 370
- Date:
- 2013/07/16 16:27:05
- Files:
Legend:
- Added
- Removed
- Modified
-
utf8/plugins/session/lib/session/AUTH/Google.pm
163 163 unless ( ref $user ) { 164 164 my $user_class = $state->{users}->profile_document_class; 165 165 $user = $user_class->new( $keeper ); 166 my %props = map { $_->{attr} => $_ } $user->structure; 166 167 $user->login( $info->{email} || 'google:'.$info->{id} ); 167 168 $user->name( $name ); 168 169 $user->status( 1 ); 169 170 $user->type( 0 ); 170 171 $user->login_method('google'); 171 if ( $info->{locale} ) { 172 if ( exists $props{country} && $info->{locale} ) { 172 173 $user->country( $info->{locale} ); 173 174 } 174 175 if ( $info->{birthday} && $info->{birthday} =~ /(\d{2})\.(\d{2})\.(\d{4})/ ) { -
utf8/plugins/session/lib/session/AUTH/Mailru.pm
179 179 unless ( ref $user ) { 180 180 my $user_class = $state->{users}->profile_document_class; 181 181 $user = $user_class->new( $keeper ); 182 my %props = map { $_->{attr} => $_ } $user->structure; 182 183 $user->login( $info->{email} || 'mailru:'.$info->{uid} ); 183 184 $user->name( $name ); 184 185 $user->nickname( $info->{nick} ); 185 186 $user->status( 1 ); 186 187 $user->type( 0 ); 187 188 $user->login_method('mailru'); 188 if ( $info->{location} ) { 189 if ( exists $props{country} && $info->{location} ) { 189 190 $user->country( Encode::encode('utf-8', $info->{location}{country}{name}) ); 190 191 } 191 192 if ( $info->{birthday} && $info->{birthday} =~ /(\d{2})\.(\d{2})\.(\d{4})/ ) { -
utf8/plugins/session/lib/session/AUTH/VKontakte.pm
160 160 unless ( ref $user ) { 161 161 my $user_class = $state->{users}->profile_document_class; 162 162 $user = $user_class->new( $keeper ); 163 my %props = map { $_->{attr} => $_ } $user->structure; 163 164 $user->login( 'vkontakte:'.$user_info->{uid} ); 164 165 $user->name( $user_info->{last_name}.', '.$user_info->{first_name} ); 165 166 $user->nickname( $user_info->{nickname} ); 166 167 $user->status( 1 ); 167 168 $user->type( 0 ); 168 169 $user->login_method('vkontakte'); 169 $user->country( $user_info->{country} ); 170 if ( exists $props{country} ) { 171 $user->country( $user_info->{country} ); 172 } 170 173 $user->email( undef ); 171 174 172 175 my ($prop_ava) = grep { $_->{attr} eq 'avatar' && $_->{type} eq 'image' } $user->structure;