1#!/usr/bin/perl
2#
3# DW::Controller::Index
4#
5# Controller for the site homepage.
6
7
8package DW::Controller::Index;
9
10use strict;
11use warnings;
12
13use DW::Routing;
14use DW::Template;
15use DW::Controller;
16use DW::Panel;
17use DW::Widget::QuickUpdate;
18
19DW::Routing->register_string( '/index', \&indexfree_handler, app => 1 );
20
21sub indexfree_handler {
22 my ( $ok, $rv ) = controller( anonymous => 1 );
23 return $rv unless $ok;
24
25 my $remote = $rv->{remote};
26 my $stuff;
27 my $widget;
28
29 if ($remote) {
30 $stuff->{remote} = $remote;
31 $stuff->{panel} = DW::Panel->init( u => $remote );
32 #$stuff->{widget} = DW::Widget::QuickUpdate->render_body( $remote );
33
34 $widget->{primary} = DW::Widget::QuickUpdate->render_body;
35 $stuff->{helpme} = DW::Panel->_render( $widget );
36 }
37
38 else {
39 $stuff->{panel} = DW::Panel->init( u => $remote );
40 }
41
42 return DW::Template->render_template( 'index-free.tt', $stuff );
43}
44
45#DW::Routing->register_static( '/index', 'index-free.tt', app => 1 );
46
471;