<%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 &> % } elsif( $ARGS{c} eq 'ls'){ <& inc/sources.inc &> % } elsif( $ARGS{c} eq 'sa'){ <& inc/seealso.inc &> % } elsif( $ARGS{c} eq 'lsch'){ <& inc/listschedule.inc &> % } % else { <& inc/listfiles.inc &> % }
<& inc/postamble.inc &>