56 lines
1.9 KiB
Plaintext
Executable File
56 lines
1.9 KiB
Plaintext
Executable File
<base target=_top>
|
|
<?_code
|
|
{
|
|
use strict;
|
|
use vars qw(%GET);
|
|
|
|
my $user = LJ::canonical_username($GET{'user'});
|
|
return "Enter a username." unless $user;
|
|
|
|
my $remote = LJ::get_remote();
|
|
my $dispuser = $remote ? $remote->{'user'} : $user;
|
|
my $styu = LJ::load_user($user);
|
|
my $styles;
|
|
if ($user eq 'system') {
|
|
$styles = LJ::S1::get_public_styles();
|
|
} else {
|
|
$styles = LJ::S1::get_user_styles($user);
|
|
}
|
|
|
|
my $admin = $remote &&
|
|
(LJ::check_priv($remote, 'canview', 'styles') ||
|
|
LJ::check_priv($remote, 'canview', '*'));
|
|
|
|
my ($dday,$dmon,$dyear) = (localtime(time))[3..5];
|
|
$dyear+=1900; $dmon++;
|
|
my %extra = ( 'day' => "&month=$dmon&day=$dday&year=$dyear" );
|
|
|
|
my $ret = "Styles for " . LJ::ljuser($user) . ":<br /><br />";
|
|
|
|
my $last;
|
|
STY:
|
|
foreach my $sty (sort { $a->{'type'} cmp $b->{'type'} || $a->{'styledes'} cmp $b->{'styledes'} }
|
|
values %$styles) {
|
|
|
|
next STY unless $sty->{is_public} eq 'Y' || # public is always visible
|
|
LJ::u_equals($remote, $styu) || # yours are visible to you
|
|
LJ::can_manage($remote, $styu) ||# you can view things you manage
|
|
$admin; # you have appropriate canview
|
|
|
|
if ($last ne $LJ::viewinfo{$sty->{'type'}}->{'des'}) {
|
|
$last = $LJ::viewinfo{$sty->{'type'}}->{'des'};
|
|
$ret .= "<b>$last</b><br />\n";
|
|
}
|
|
|
|
$ret .= "<nobr> [<a target='main' href='styleinfo.bml?styleid=$sty->{'styleid'}'>info</a>] ";
|
|
$ret .= "<a target='main' href='/customview.cgi?styleid=$sty->{'styleid'}&user=$dispuser&";
|
|
$ret .= "nooverride=1$extra{$sty->{'type'}}'>$sty->{'styledes'}</a></nobr><br />\n";
|
|
}
|
|
|
|
$ret .= ".";
|
|
return $ret;
|
|
}
|
|
_code?><?_c <LJDEP>
|
|
link: htdocs/styles/browse/styleinfo.bml, htdocs/customview.cgi
|
|
</LJDEP> _c?>
|