#!/usr/bin/perl

#variable guardem parametres entrada, ex: "script.pl Usr"
$carpeta = $ARGV[0];

        if (ARGV[0] != 'Usr' || 'Adm' || 'Pub' || 'Prd'){
                printf("Valors acceptats: 'Usr','Adm', 'Pub', 'Prd' ");
        }
                       
        #       mount retorna codis de error (varis) si es 0 tot a anat be, si es un altre codi d'error algo ha anat mal
                        if ( mount -t smbfs -o username=peptio,password=1234,rw,lfs,sockopt=TCP_NODELAY //192.168.0.2/Backups /mnt/smb/ ) !=0 ) {
                                printf("Error al muntatge unitat");
                        }
        #       system retorna codis de error, si es 0 tot ha anat be, en cas contrari algun error hi ha aparegut
                        if ( system("tar -cvf /Empresa/$carpeta /mnt/smb/$carpeta/backup_${carpeta}_`date +%d%b%y`.tar") != 0 ) {
                                printf("Error al copiar el fitxer de backup al lloc remot");
                        }
                        `umount /mnt/smb`;

use warnings;
use strict;

#!/usr/bin/perl
use POSIX 'strftime';
use warnings;
use strict;

# Carpetas de las que podemos hacer copia de seguridad
my %carpetas_disponibles = (
    Usr => 1,
    Adm => 1,
    Pub => 1,
    Prd => 1,
);

# Carpeta destino
my $carpeta_destino = '/mnt/smb';

# El día de hoy
my $hoy = strftime("%d%b%y",localtime);

# Leemos la entrada del usuario.
# Consiste en una o más nombres de carpetas, unidas por ','
@ARGV or die "Uso: $0 [" . join(q{,}, keys %carpetas_disponibles) . "]\n";
my $carpetas_indicadas = shift @ARGV;

# Hacemos el montaje del directorio destino
if ( system("mount -t smbfs -o username=peptio,password=1234,rw,lfs,sockopt=TCP_NODELAY //192.168.0.2/Backups $carpeta_destino") == 0 ) {

    # Recorremos todas las carpetas indicadas por el usuario
    for my $carpeta_a_copiar ( split(q{,}, $carpetas_indicadas) ) {

        # Comprobamos que esa carpeta es de las conocidas y además está montada como directorio
        if ( $carpetas_disponibles{$carpeta_a_copiar} and -d "${carpeta_destino}/${carpeta_a_copiar}" ) {

            # Hacemos la copia de los ficheros
            system("tar -cvf /Empresa/$carpeta ${carpeta_destino}/${carpeta_a_copiar}/backup_${carpeta_a_copiar}_${hoy}.tar");
        }
        else {
            print STDERR "ERROR: La carpeta $carpeta_a_copiar es desconocida para este programa o no existe como carpeta destino\n";
        }
    }

    # Desmontaje, al final de la copia de todas las carpetas
    system("umount $carpeta_destino");
}
else {
    print STDERR "ERROR: No se pudo montar $carpeta_destino\n";
}