[ljcom] r11467: LJSUP-11080: Collecting user's registrat...

U   trunk/cgi-bin/LJ/Hooks/Userinfo.pm

Modified: trunk/cgi-bin/LJ/Hooks/Userinfo.pm
===================================================================
--- trunk/cgi-bin/LJ/Hooks/Userinfo.pm	2012-02-10 14:31:54 UTC (rev 11466)
+++ trunk/cgi-bin/LJ/Hooks/Userinfo.pm	2012-02-13 12:48:28 UTC (rev 11467)
@@ -3,6 +3,24 @@
 
 use LJ::WishList;
 
+LJ::register_hook("post_create", sub {
+    my $args = shift;
+
+    my $sclient = LJ::theschwartz();
+    my $u = LJ::load_user ($args->{'user'});
+
+    $sclient->insert( TheSchwartz::Job->new(
+        'funcname' => 'TheSchwartz::Worker::CollectUserInfoData',
+        'arg'      => {
+            'username'  => $u->username,
+            'user_ip'   => LJ::get_remote_ip(),
+            'uniq'      => LJ::UniqCookie->current_uniq,
+            'email'     => $args->{'email'},
+            'ua'        => LJ::Request->header_in ('User-Agent'),
+        },
+    ) ) if $u;		
+});
+
 LJ::register_hook("userinfo_rows", sub {
     my $args = shift;
     my $u = $args->{'u'};