#!/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