<%perl> my $title = "WWW::Streamripper::WebUI::Admin";
<& inc/header.inc, title => $title &>

# <% $title %>

List ripped files
List incoming
List sources
List schedules
BACKEND:
Status
Run as daemon
USER'S HOME
| % if($ARGS{c} eq 'lf'){ <& inc/listfiles.inc, is_admin => 1, %ARGS &> % } elsif( $ARGS{c} eq 'li'){ <& inc/incoming.inc, is_admin => 1, %ARGS &> % } elsif( $ARGS{c} eq 'ls'){ <& inc/sources.inc, is_admin => 1, %ARGS &> % } elsif( $ARGS{c} eq 'rb' ){ <& inc/run_ripper.inc, is_admin => 1, %ARGS &> % } elsif( $ARGS{c} eq 'shb' ){ <& inc/show_process.inc, is_admin => 1, %ARGS &> % } elsif( $ARGS{c} eq 'rsch' ){ <& inc/reschedule.inc, is_admin => 1, %ARGS &> % } elsif( $ARGS{c} eq 'lsch' ){ <& inc/listschedule.inc, is_admin => 1, %ARGS &> % }
<& inc/postamble.inc &>