_parent=>../../lj-bml-blocks.pl
loginboxstyle=>{Ss}background: url(/userinfo.gif) no-repeat; background-color: #fff; background-position: 0px 1px; padding-left: 18px; color: #00C; font-weight: bold;
commloginboxstyle=>{Ss}background: url(/community.gif) no-repeat; background-color: #fff; background-position: 0px 2px; padding-left: 19px; color: #00C; font-weight: bold;
SECURITYPRIVATE=>{Ss}
SECURITYPROTECTED=>{Ss}
LJUSER=>{DRs}
%%data%%
LJCOMM=>{DRs}
%%data%%
LJUSERF=>{DRs}
%%data%%
HELP=>{DR}(help)
INERR=>{DR}%%data%%
SOERROR=>{DR}
%%data%%
EMAILEX=>%%data%%
ENTRYFORMCSS<=
{Ss}
<=ENTRYFORMCSS
NEEDLOGIN<=
 h1?>
 p?>
<=NEEDLOGIN
BADINPUT<=
 h1?>
 p?>
<=BADINPUT
REQUIREPOST=>
LOAD_PAGE_INFO<=
 'Home',
	       'uri' => '/',
	       'match' => "^/(index\\.bml)?(\\?.*)?\$",
	       'children' => [
			      { 'name' => 'Create Journal',
				'uri' => '/create.bml', },
			      { 'name' => 'Update',
				'uri' => '/update.bml', 
				'children' => [
					       { 'name' => 'Full Update',
						 'uri' => '/update.bml?mode=full', }
					       ],
			    },
#			      { 'name' => 'Download',
#				'uri' => '/download/', },
			      ],
	       },
	     { 'name' => 'LiveJournal',
	       'children' => [
			      { 'name' => 'News',
				'match' => '^/news\\.bml\$',
				'uri' => '/news.bml', },
#			      { 'name' => 'Paid Accounts',
#				'uri' => '/paidaccounts/', 
#                                'recursematch' => '^/paidaccounts/',
#				'children' => [ 
#						{ 'name' => 'Is this safe?',
#						  'uri' => '/paidaccounts/whysafe.bml', },
#						{ 'name' => 'Progress',
#						  'uri' => '/paidaccounts/progress.bml', },
#						],
#				},
			      { 'name' => 'To-Do list',
				'uri' => '/todo.bml', },
#			      { 'name' => 'Contributors',
#				'uri' => '/contributors.bml', },
			      ],
	       },
	     { 'name' => 'Customize',
	       'children' => [
			      { 'name' => 'Modify Journal',
				'uri' => '/modify.bml', 
				'children' => [
						{ 'name' => 'Customize S2',
						  'uri' => '/customize/', },
						],
				},
			      { 'name' => 'Create Style',
				'uri' => '/createstyle.bml', },
			      { 'name' => 'Edit Style',
				'uri' => '/editstyle.bml', },
			      ],
	   },
	     { 'name' => 'Find Users',
	       'children' => [
       			      { 'name' => 'Random!',
				'uri' => '/random.bml', },
       			      { 'name' => 'By Region',
				'uri' => '/directory.bml', },
       			      { 'name' => 'By Interest',
				'uri' => '/interests.bml', },
                              { 'name' => 'Search',	
				'uri' => '/directorysearch.bml', }  
	              ], },
	     { 'name' => 'Edit ...',
	       'children' => [
			      { 'name' => 'Personal Info &',
				'uri' => '/editinfo.bml', },
			      { 'name' => 'Settings', cont => 1,
				'uri' => '/editinfo.bml', },
			      { 'name' => 'Your Friends',
				'uri' => '/editfriends.bml', },
			      { 'name' => 'Old Entries',
				'uri' => '/editjournal.bml', },
			      { 'name' => 'Your Pictures',
				'uri' => '/editpics.bml', },
			      { 'name' => 'Your Password',
				'uri' => '/changepassword.bml', },
			      ],
	   },
#	     { 'name' => 'Developer Area',
#	       'uri' => '/developer/',
#	       'match' => "^/developer/\$",
#	       'recursematch' => "^/developer/",
#	       'children' => [
#			      { 'name' => 'Style System',
#				'uri' => '/developer/styles.bml', 
#				'children' => [
#					       { 'name' => 'View Types',
#						 'uri' => '/developer/views.bml', },
#					       { 'name' => 'Variable List',
#						 'uri' => '/developer/varlist.bml', },
#					       ],
#				},
#			      { 'name' => 'Embedding',
#				'uri' => '/developer/embedding.bml', },
#			      { 'name' => 'Protocol',
#				'uri' => '/developer/protocol.bml', 
#				'children' => [
#					       { 'name' => 'Mode List',
#						 'uri' => '/developer/modelist.bml', }
#					       ],
#			    },
#			      ],
#	   },
         { 'name' => 'Need Help?',
	       'children' => [
			      { 'name' => 'Lost Password?',
				'uri' => '/lostinfo.bml', },
			      { 'name' => 'Freq. Asked',
				'uri' => '/support/faq.bml', },
			      { 'name' => 'Questions',
				'uri' => '/support/faq.bml', cont => 1, },
			      { 'name' => 'Support Area',
				'uri' => '/support/', },
			      ],
	   },
 );
 
 my $remote = LJ::get_remote();
 my $remuser = $remote ? $remote->{'user'} : "";
 my $uri = BML::get_uri();        
 if ($remuser ne "" && $uri ne "/logout.bml") 
 {
     my $subdomain = $remuser;
     $subdomain =~ s/_/-/g;
     unshift @sidebar, { 'name' => "Hello, $remuser!",
			 'children' => [
					{ 'name' => 'Your Journal', 
					  'children' => [
							 { 'name' => 'Recent',
							   'uri' => "/users/$remuser/", },
							 { 'name' => 'Calendar',
							   'uri' => "/users/$remuser/calendar", },
							 { 'name' => 'Friends',
							   'uri' => "/users/$remuser/friends",
							   'extra' => "/friendsfilter.bml",
						       },
							 ],
					  },
					{ 'name' => 'User Info',
					  'uri' => "/userinfo.bml?user=$remuser", },
					{ 'name' => 'Memories',
					  'uri' => "/memories.bml?user=$remuser", },
					{ 'name' => 'Logout',
					  'uri' => '/logout.bml', },
					]
					};
 } elsif ($uri ne "/login.bml") {
     unshift @sidebar, { 'name' => "Log In",
			 'uri' => '/login.bml', }
 }
return "";
_code?>
<=LOAD_PAGE_INFO
AL=>{P}%%data2%% 
AWAYLINK=>{P}%%data2%% 
H1=>{D}%%data%%
H2=>{D}%%data%%
# Banner Header: search results banner, content desriptor, etc...
BH=>{D}%%data%%
GRIN=>{S}<grin>
HR=>{S}
NEWLINE=>{S}
    
P=>{D}%%data%%
STANDOUT<=
{D}
%%data%%
<=STANDOUT
ERRORBAR<=
{D}
%%data%%
<=ERRORBAR
WARNINGBAR<=
{D}
%%data%%
<=WARNINGBAR
BADCONTENT<=
 h1?>
 p?>
<=BADCONTENT
DE<=
%%data%%
<=DE
EMCOLOR=>{S}#c0c0c0
HOTCOLOR=>{S}#ff0000
EMCOLORLITE=>{S}#e2e2e2
ALTCOLOR1=>{S}#eeeeee
ALTCOLOR2=>{S}#dddddd
screenedbarcolor=>{S}#d0d0d0
CHOICE=>{P}%%data1%%%%data3%%
CHOICES<=
{F}
<=CHOICES
PAGE<=
{Fp}
%%title%%%%head%%
%%body%%
<=PAGE
BREADCRUMBS<=
{Fp}[3]; # no blank crumbs
        if ($crumb->[3] eq 'dynamic') {
            # dynamic
            unshift @ret, "$crumb->[0]";
            $count++;
        } else {
            # non-dynamic
            unshift @ret, $count++ == 0 ?
                "$ML{'crumb.'.$crumb->[3]}" :
                $crumb->[1] ne '' ?
                    "[1]\">$ML{'crumb.'.$crumb->[3]}" :
                    "$ML{'crumb.'.$crumb->[3]}";
        }
    }
    return "" . join(" : ", @ret) . "
";
_code?>
<=BREADCRUMBS