#!/usr/bin/perl

use strict;
use warnings;

# Função que remove todos os ficheiros criados pelo 
# txt2cqp.pl de todas as directorias onde ele as cria.
# 
# Recebe como parâmetroo ficheiro do corpus, sem 
# a extensão e faz a devida remoção.
#
my $corpus = shift or die("usage: rmcorpusFiles <corpusfile> [<fileformat>]");
my $opcao = shift;

if ($opcao) {
   system("rm -R /corpora/$corpus-$opcao");
   system("rm /usr/local/share/cwb/registry/$corpus-$opcao");
   system("rm $corpus-$opcao.corpus");
} 
else {
   system("rm -R /corpora/$corpus");
   system("rm /usr/local/share/cwb/registry/$corpus");
   system("rm $corpus.corpus");
}