43 lines
1,000 B
Perl
43 lines
1,000 B
Perl
|
#!/usr/bin/perl
|
||
|
|
#
|
||
|
|
# DW::Controller::Manage::Index
|
||
|
|
#
|
||
|
|
# /manage/index
|
||
|
|
#
|
||
|
|
# Authors:
|
||
|
|
# Jen Griffin <kareila@livejournal.com>
|
||
|
|
#
|
||
|
|
# Copyright (c) 2017 by Dreamwidth Studios, LLC.
|
||
|
|
#
|
||
|
|
# This program is free software; you may redistribute it and/or modify it under
|
||
|
|
# the same terms as Perl itself. For a copy of the license, please reference
|
||
|
|
# 'perldoc perlartistic' or 'perldoc perlgpl'.
|
||
|
|
#
|
||
|
|
|
||
|
|
package DW::Controller::Manage::Index;
|
||
|
|
|
||
|
|
use strict;
|
||
|
|
|
||
|
|
use DW::Controller;
|
||
|
|
use DW::Routing;
|
||
|
|
use DW::Template;
|
||
|
|
|
||
|
|
DW::Routing->register_string( "/manage/index", \&index_handler, app => 1 );
|
||
|
|
|
||
|
|
sub index_handler {
|
||
|
|
my ( $ok, $rv ) = controller( authas => 1 );
|
||
|
|
return $rv unless $ok;
|
||
|
|
|
||
|
|
my $u = $rv->{u}; # authas || remote
|
||
|
|
$u->preload_props('stylesys');
|
||
|
|
$u->{stylesys} ||= 2;
|
||
|
|
|
||
|
|
$rv->{use_s2} = $u->{stylesys} == 2 ? 1 : 0;
|
||
|
|
$rv->{use_invites} = $LJ::USE_ACCT_CODES;
|
||
|
|
$rv->{use_tags} = LJ::is_enabled('tags');
|
||
|
|
|
||
|
|
return DW::Template->render_template( 'manage/index.tt', $rv );
|
||
|
|
}
|
||
|
|
|
||
|
|
1;
|