#!/usr/bin/perl
#
# baja_fichero_smb.pl
#
# Joaquín Ferrero. LATUV
#
# Descripción:
#       Baja un fichero por smb y lo deja en directorio destino.
#       No se comprueba que el destino exista.
#
# Entradas:
#       Origen : smb://usuario:contraseña@host/directorios/fichero
#       Destino: directorio y fichero
#
# Parámetros:
#
#
# Salidas:
#
#
# Ejemplo:
#       baja_fichero_smb.pl smb://joaquin:ponzo@xpstore/almacen1/img/2005/0601/img.png imagen_actual.png
#
# Historial:
#       31-may-2005 : Versión inicial
#

use Filesys::SmbClientParser;

## Esperamos dos argumentos, o morimos en el intento
scalar @ARGV == 2
        or die "Uso: $0 <smb://user:pass\@host/dir/file> <dir destino/fichero>";

## Los leemos
my ($smb_url, $dir_destino) = @ARGV;

## Del primer argumento, extraemos todos sus componentes
my ($smb_user, $smb_pass, $smb_host, $smb_dirs, $smb_file)
    = $smb_url =~ m{^smb://(.+):(.+)@([^/]+)(/.+)/([^/]+)$};

## El recurso compartido en Windows está en la primera parte del path
my  $smb_share = (split '/',$smb_dirs)[1];

## Extraemos el resto del path, quitando el nombre del recurso compartido
($smb_dirs) = $smb_dirs =~ m{^/[^/]+(.+)?$};

## Nos conectamos
my $smb = new Filesys::SmbClientParser (
    undef,
    (
        user     => $smb_user ,
        password => $smb_pass ,
        host     => $smb_host ,
        share    => $smb_share,
    )
);

## No nos interesan los mensajes de depurado
$smb->Debug(0);

## Nos metemos dentro del path indicado
$smb->cd($smb_dirs);

## Copiamos el fichero remoto a nuestro sitio
$smb->get($smb_file, $dir_destino);

#!/usr/bin/perl -l
use POSIX;
use Filesys::SmbClient;

my $smb = new Filesys::SmbClient(
    username  => "ingresos",
    password  => "ingresos",
#   workgroup => "alian",
    debug     => 10);

# Read a file
my $fd = $smb->open("smb://192.1.47.105/logos/ajax/Libreria-ajax.js", '0666');
while (defined(my $l= $smb->read($fd,50))) {print $l; }
$smb->close(fd);

my $fd = $smb->open("smb://192.1.47.105/logos/ajax/Libreria-ajax.js")
    or die "No puedo leer el fichero: $!\n";