--- /dev/null
+#!/usr/bin/perl -T
+
+=head1 NAME
+
+vjuserinfo - return current user info as json
+
+=head1 SYNOPSIS
+
+ http://your.server.org/cgi-bin/vjuserinfo/your-blog-top
+
+=head1 DESCRIPTION
+
+Returns info about current user using following format
+
+ {
+ url:"somebody.livejournal.com",
+ displayname:"somebody@lj",
+ state: "guest",
+ avatar: {src: "http://your.server.org/avatars/somebody@lj.gif",
+ width:100, height:100},
+ }
+
+B<state> can be B<owner>, B<guest> or B<banned>.
+
+If user is not logged in, returns following structure:
+
+ {
+ state: "notlogged",
+ providers: [
+ {name: "Live journal",icon:"/avatars/lj.gif",format: "%s.livejournal.com"}
+ ...
+ }
+
+=cut