Criar tópicos no TWiki automaticamente pode ser útil pra muita coisa... Fica aí o registro.
TopicoXXXXXXXXXX cria um novo tópico numerado. Isso impede conflito de nome e não precisamos ficar criando tópicos com data.
O exemplo adiciona também um
TWikiForm? no tópico crado. (Digamos que
Data é um capo do TWikiForm)
Criando pela linha de comando:
cd <diretório do TWiki>/bin
./save -topic UmaWeb.TopicoXXXXXXXXXX \
-user AurelioAHeckert \
-formtemplate UmTWikiForm \
-Data "$(date)" \
-text "Bla bla bla..."
Criando o mesmo tópico com código perl:
@args = (
'./save',
'-topic', 'UmaWeb.TopicoXXXXXXXXXX',
'-user', 'AurelioAHeckert',
'-formtemplate', 'UmTWikiForm',
'-Data', "$year-$mon-$mday $hour:$min:$sec",
'-text', 'Bla bla bla...'
);
system(@args) == 0 or die "system @args failed: $?";
Isso pode ser útil para criar/editar tópicos do TWiki quando alguém der algum comando, quando o cron mandar ou quando algo acontecer na máquina... Imagine.
Mas isso pode ser útil também para permitir a criação de tópicos quando um visitante do site fizer um cadastro no site, ou postar alguma notícia, sei lá... Usando algo assim a pessoa pode criar um tópico controlado, em uma web qualquer, como se fosse um usuário cadastrado. Isso não abre brechas de segurança, pois o visitante não pode fazer nada além de criar tópicos no local X com nome Y e você ainda pode colocar restrição de acesso nos tópicos criados
(se conhece TWiki, sabe do que estou falando) para analizar o conteúdo antes de liberar
(se a intenção for liberar).
