Automatizando o envio de arquivo p/ o FTP !

Descrição

Esconder código-fonte

#!/usr/bin/perl -w
#+++++++++++++++++++++++++++++++++++++++++++
#+ Script de Perl com a intencao de mandar arquivos 
#+ para o servidor sem necessariamente ter que digitar
#+ todos os comandos... ! Resumindo: criei esse 
#+ script para automatizar as tarefas diarias de um 
#+ webmaster !                                                                               
#+                                                  
#+ E-mail: virose@bol.com.br                                                                        
#+    * Em breve pretendo melhorar esse script *    
#+++++++++++++++++++++++ THANKS ;) ++++++++++

use Net::FTP;
my $filename;

$hostname='DEFINA AQUI O HOSTNAME';
$username='DEFINA O USUARIO';
$password='DEFINA O PASSWORD';

print "\n\n                   #########################################\n";
print "                   TENTANDO CONECTAR-SE EM $hostname \n";
print "                   USER: $username  PASS: $password \n";
print "                   #########################################\n";

$ARGC=@ARGV;
if ($ARGC < 1){
print "\nCOMO USAR: $0 <arquivo a ser enviado>\n\n";
exit;
}

$home='/';
$filename=$ARGV[0];

print "\n. . . .:. Conectandoooooo .:. . . . \n";
$ftp=Net::FTP->new($hostname);
$ftp->login($username, $password) or die "Error $! ";
print "  . . . .:. ... . C O N E C T A D O . ... .:. . .. \n";
print "  . . . .:. Enviando o arquivo $filename  .:. . . . \n";
$ftp->put($filename) or die "Error $! ";
print ". . . . .:. Arquivo $filename enviado com sucesso .:. . . . \n";
print ". . . . . .:. Saindooooooooooooo do FTP........ .:. ... \n";
$ftp->quit;
print " . . . . . . .:. DESCONECTADO .:. . . . . . . \n\n\n";
exit;