IMGPREFIX=>{S}/img STATPREFIX=>{S}/stc SITENAME=>{S}Foo.com SITEROOT=>{S}http://www.lj.com/ SECURITYPRIVATE=>{Ss} SECURITYPROTECTED=>{Ss} LJUSER=>{DRs}userinfo%%data%% LJCOMM=>{DRs}userinfo%%data%% LJUSERF=>{DRs}userinfo%%data%% HELP=>{DR}(help) INERR=>{DR}%%data%% SOERROR=>{DR}
%%data%%
NEEDLOGIN<= go login. p?> <=NEEDLOGIN BADINPUT<= <=BADINPUT REQUIREPOST<= {S}As a security precaution, the page you're viewing requires a POST request, not a GET. If you're trying to submit this form legitimately, please contact us. <=REQUIREPOST LOAD_PAGE_INFO<= 'Home', 'uri' => '/', 'match' => "^/(index\\.bml)?(\\?.*)?\$", 'children' => [ { 'name' => 'Create Journal', 'uri' => '/create.bml', }, { 'name' => 'Update', 'uri' => '/update.bml', 'extra' => '/update.bml?mode=full', # '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', }, { '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 BADCONTENT<= <=BADCONTENT DE<= %%data%% <=DE EMCOLOR=>{S}#c0c0c0 HOTCOLOR=>{S}#ff0000 EMCOLORLITE=>{S}#e2e2e2 screenedbarcolor=>{S}#d0d0d0 CHOICE=>{P}
%%data1%%
%%data3%% CHOICES<= {F}
%%items%%
%%itemsb%%
<=CHOICES PAGE<= {Fp} %%title%%%%head%% %%body%% <=PAGE CHALRESPJS<= <=CHALRESPJS