[livejournal] r22033: LJSUP-12290: Implement auth_type paramet...

U   trunk/cgi-bin/LJ/Identity.pm

Modified: trunk/cgi-bin/LJ/Identity.pm
===================================================================
--- trunk/cgi-bin/LJ/Identity.pm	2012-05-23 08:54:07 UTC (rev 22032)
+++ trunk/cgi-bin/LJ/Identity.pm	2012-05-23 09:23:14 UTC (rev 22033)
@@ -259,6 +259,9 @@
             warn 'invalid format ' . $extra;
             die;
         }
+    } elsif ( $forwhat =~ /^oauth\-([a-z0-9]+)$/i ) {
+        $returl = "$LJ::SSLROOT/oauth/authorize_token.bml?oauth_token=$1";
+        $returl_fail = $returl;
     } else {
         # the warning will sit in error logs, and the exception
         # will be handled