[livejournal] r17521: LJSUP-7092. Short links must be fought o...

U   trunk/cgi-bin/LJ/Event/JournalNewComment.pm

Modified: trunk/cgi-bin/LJ/Event/JournalNewComment.pm
===================================================================
--- trunk/cgi-bin/LJ/Event/JournalNewComment.pm	2010-10-08 09:53:50 UTC (rev 17520)
+++ trunk/cgi-bin/LJ/Event/JournalNewComment.pm	2010-10-08 10:52:17 UTC (rev 17521)
@@ -272,7 +272,11 @@
         }
     }
 
-    my $tinyurl = LJ::API::BitLy->shorten($self->comment->url);
+    warn $self->comment->url;
+    #/read/user/%username%/%post_ID%/comments/%comment_ID%#comments
+    my $url = "http://m.livejournal.com/read/user/".$self->event_journal->user."/".$self->comment->entry->ditemid."/comments/".$self->comment->dtalkid."#comments";
+    warn $url;
+    my $tinyurl = LJ::API::BitLy->shorten($url);
     return undef if $tinyurl =~ /^500/;
     return $msg . " " . $tinyurl; 
 }