Problem with BML: lj_dev

Problem with BML

Okay this is driving me nuts. I am trying to write a new generic.look file, and all this block of code is returning is the word nothing, rather than the sidebar (I have it returning to the word nothing just to make sure it is returning somthing.

<?_code

$ret = "";

sub dump_entry
{
my ($ret, $listref, $depth) = @_;

foreach my $mi (@$listref)
{
if ($depth==0) {
$$ret .= "<IMG SRC=\"<?imgprefix>/insane/bullet.gif\" WIDTH=10 HEIGHT=10 HSPACE=2 ALIGN=ABSMIDDLE>";
} else {
$$ret .= " " x ($depth*3+1);
$$ret .= $mi->{'cont'} ? " " : "- ";
}

my $name = $mi->{'name'};
$name =~ s/ / /g;
if (! defined $mi->{'uri'}) {
if ($depth == 0) {
$$ret .= "$name ";
} else {
$$ret .= "$name ";
}
} elsif ($mi->{'match'} ?
(BML::get_uri() =~ /$mi->{'match'}/) :
(BML::get_uri() eq $mi->{'uri'})
){
$$ret .= "$name ";
} else {
$$ret .= "<A HREF=\"$mi->{'uri'}\">$name</A> ";
}

if ($mi->{'children'} &&
($mi->{'recursematch'} ? $ENV{'REQUEST_URI'} =~ /$mi->{'recursematch'}/ : 1)) {
&dump_entry($ret, $mi->{'children'}, $depth+1);
}
}

}

&dump_entry(\$ret, \@sidebar, 0);

$ret .= "\nnothing\n";
return $ret;

_code?>

Here is an example of what it looks like http://insanejournal.com/?usescheme=insanelooknew

Problem with BML

"Invalid password" when calling login method over XML-RPC

cl-journal livejournal client

SessionGenerate and ljloggedin

Error