<%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 &>