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

# <% $title %>

< List ripped files > | < List incoming > | < List sources > | < List schedules > | < See also >
% if( $ARGS{c} eq 'li'){ <& inc/incoming.inc, %ARGS &> % } elsif( $ARGS{c} eq 'ls'){ <& inc/sources.inc, %ARGS &> % } elsif( $ARGS{c} eq 'sa'){ <& inc/seealso.inc, %ARGS &> % } elsif( $ARGS{c} eq 'lsch'){ <& inc/listschedule.inc, %ARGS &> % } % else { <& inc/listfiles.inc, %ARGS &> % }

<& inc/postamble.inc &>