diff --git a/lib/admin/Controller/dashboard.pm b/lib/admin/Controller/dashboard.pm index efb1516..934751c 100644 --- a/lib/admin/Controller/dashboard.pm +++ b/lib/admin/Controller/dashboard.pm @@ -127,4 +127,26 @@ sub index : Private { return 1; } +sub subdir_list :Local { + my( $self, $c ) = @_; + + my $subdirs; + return unless $c->model('Provisioning') + ->call_prov($c, + 'system', + 'get_host_subdirs', + { host => $c->request->param('host') }, + \$subdirs + ); + my $options = qw(); + + foreach my $option (@$subdirs) { + $options .= '\n"; + } + + $c->response->body( $options ); + + return 1; +} + 1; diff --git a/root/tt/dashboard.tt b/root/tt/dashboard.tt index cdc48d4..7d95357 100644 --- a/root/tt/dashboard.tt +++ b/root/tt/dashboard.tt @@ -7,6 +7,13 @@ +