Fix the click registration to store more data.

Start to support the admin pages.
davorg · Apr 8, 2012 · 0270578 · 0270578
1 parent a374ebb
commit 0270578
Showing 1 changed file with 10 additions and 1 deletion.
diff --git a/Shrtr/lib/Shrtr.pm b/Shrtr/lib/Shrtr.pm
@@ -10,6 +10,10 @@ get '/' => sub {
     template 'index';
 };
 
+get '/register' => sub {
+    template 'register';
+};
+
 get qr{ /(\w+)\+ }x => sub {
     my ($code) = splat;
 
@@ -25,7 +29,12 @@ get qr{ /(\w+) }x => sub {
     my ($code) = splat;
 
     if (my $url = $url_rs->find({code => $code})) {
-        $url->add_to_clicks({});
+        my $req = request;
+        $url->add_to_clicks({
+	    user_agent => $req->user_agent,
+            referrer   => $req->referer,
+            ip_address => $req->remote_address,
+        });
         template 'frame', {
             url => $url,
         }, {