<%init> my @edicoes; my $index = "/news/arquivo/index.txt"; if ($m->comp_exists($index)){ my $indextxt = $m->scomp($index); @edicoes = split /\n/, $indextxt; } my $edicao = pop @edicoes; ($edicao, my $title) = split /\,/, $edicao; $m->comp("/_shared/procs/utils/redirect.m", url=>"/news/$edicao"); <%flags> inherit => undef