#!/usr/bin/perl -w

use strict;
use Net::FTP;

no warnings;

my $USERNAME = "user";
my $PWD = "passw";
my $SERVER = "ip";
my $ARCHIVO = "LOGS";

my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst)=localtime(time);
$year=$year+1900;
$mon=$mon+1;

my $fecha = "YMD_$year-$mon-$mday\_HM_$hour:$min";

# Empaqueto todos los archivos de log´s del directorio /root/LOGS/
system("tar cvf ${ARCHIVO}_$fecha.tar /root/LOGS/");

# Comprimo el archivo .tar
system("gzip /root/LOGS/${ARCHIVO}_$fecha.tar");

# Subo el archivo comprimido a un FTP Server ... ( o eso intento je )

my $FTP = Net::FTP->new($SERVER) or die ("No se pudo conectar $!");
   $FTP->login($USERNAME,$PWD) or die ("Login incorrecto: $!");
   $FTP->cwd("/root/LOGS/") or die("No se pudo ejecutar cwd: $!");

$FTP->put("$ARCHIVO"."_$fecha.tar.gz") or die("No se pudo hacer upload del archivo: $!");

$FTP->quit();

#!/usr/bin/perl -w

use Net::FTP;

no warnings;

my $USERNAME = "user";
my $PWD = "pass";
my $SERVER = "ip_ftp_server";

my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst)=localtime(time);
$year=$year+1900;
$mon=$mon+1;

my $fecha = "$year-$mon-$mday";


# Acá se empaquetan todos los archivos que se encuentran dentro del dir " /root/LOGS/ "

system("tar cvf BACKUPS_$fecha.tar /root/LOGS/");

# Acá se comprime el archivo que se empaquetó con TAR en el paso anterior

system("gzip /root/BACKUPS_$fecha.tar");

#En esta parte se sube en Archivo empaquetado y comprimido a un Server de FTP

my $FTP = Net::FTP->new($SERVER) or die ("No se pudo conectar $!");
   $FTP->login($USERNAME,$PWD) or die ("Login incorrecto: $!");

$FTP->put("BACKUPS_$fecha.tar.gz") or die("No se pudo hacer upload del archivo: $!");

$FTP->quit();

#!/usr/bin/perl
use Net::FTP;
use strict;
no warnings;

use constant {
    USUARIO  => "user",
    PASSW    => "pass",
    SERVIDOR => "ip_ftp_server",
};

my ($dia,$mes,$anno) = (localtime)[3,4,5]; $anno+= 1900; $mes++;
my $fichero = "BACKUPS_$anno-$mes-$dia.tar.gz";

system("tar czvf $fichero /root/LOGS/");

my  $ftp= Net::FTP->new(SERVIDOR)  or die "No se pudo conectar: $!\n";
    $ftp->login(USUARIO, PASSW)    or die "Login incorrecto: $!\n";
    $ftp->put($fichero)            or die "No se pudo hacer upload del archivo: $!\n";
    $ftp->quit();

my $FTP = Net::FTP->new($SERVER) or die ("No se pudo conectar $!");
$FTP->login($USERNAME,$PWD) or die ("Login incorrecto: $!");
$FTP->put("BACKUPS_$fecha.zip") or die("No se pudo hacer upload del archivo: $!");
$FTP->quit();

system("ftp ip");

system("put BACKUPS_$fecha.zip");
system("bye");