#!/usr/bin/perl print "Configurando clamav (Anti-virus):"; if(! -e '/etc/clamd.conf.wbk'){ system("cp -rf /etc/clamd.conf /etc/clamd.conf.wbk"); } open(CLAMD,"/etc/clamd.conf"); @CLAMD=<CLAMD>; close(CLAMD); foreach $line(@CLAMD) { $line =~ s/Example/\#Example/ig; $line =~ s/\#LogFile \/tmp\/clamd.log/LogFile \/tmp\/clamd.log/ig; $line =~ s/\#LogFileMaxSize 2M/LogFileMaxSize 5M/ig; $line =~ s/\#LogTime/LogTime/ig; $line =~ s/\#LogVerbose/LogVerbose/ig; $line =~ s/\#User clamav/User qscand/ig; $line =~ s/\#ScanMail/ScanMail/ig; $line =~ s/\#DatabaseDirectory \/var\/lib\/clamav/DatabaseDirectory \/usr\/share\/clamav/ig; } open(NCLAMD, ">/etc/clamd.conf"); print NCLAMD qq~@CLAMD~; close(NCLAMD); print "Concluido!\n";
Ai se eu editar o arquivo /etc/clamd.conf você nota que ele colocou um espaço quando não deveria ter, por exemplo:
# -> Correto (como deve ficar o conteúdo do arquivo) _# -> Incorreto (Como fica ao executar o código acima no shell)
Obs.: Coloquei o "_" pq o forum nõa aceita espaço no começo dos parágrafos, mas no caso ele coloca como ESPAÇO no arquivo
Ele tem que ficar sem espaço no começo das variáveis pra poder funcionar ...
Alguem sabe o que pode estar errado no código ou o que pode estar faltando?
Valeu!