NAME
Filesys::SmbClientParser - Perl client to reach Samba ressources
SYNOPSIS
use Filesys::SmbClientParser;
my $smb = Filesys::SmbClientParser;
# Set parameters for connect
$smb->User('Administrateur');
$smb->Password('password');
$smb->Host('jupiter');
# List host available on this network machine
my @l = $smb->GetHosts;
foreach (@l) {print $_->{name},"\t",$_->{comment},"\n";}
# List share disk available
my @l = $smb->GetShr;
foreach (@l) {print $_->{name},"\n";}
# Choose a shared disk
$smb->Share('games2');
# List content
my @l = $smb->dir;
foreach (@l) {print $_->{name},"\n";}
# Send a Winpopup message
$smb->sendWinpopupMessage('jupiter',"Hello world !");
# File manipulation
$smb->cd('jdk1.1.8');
$smb->get("COPYRIGHT");
$smb->mkdir('tata');
$smb->cd('tata');
$smb->put("COPYRIGHT");
$smb->del("COPYRIGHT");
$smb->cd('..');
$smb->rmdir('tata');
# Archive method
$smb->tar('c','/tmp/jdk.tar');
$smb->cd('..');
$smb->mkdir('tatz');
$smb->cd('tatz');
$smb->tar('x','/tmp/jdk.tar');DESCRIPTION
SmbClientParser work with output of bin smbclient, so it doesn't work on win platform. (but query of win platform work of course)
A best method is work with a samba shared librarie and xs language, but on Nov.2000 (Samba version prior to 2.0.8) there is no public interface and shared library defined in Samba projet.
Request has been submit and accepted on Samba-technical mailing list, so a new module with name SmbClient will be done as soon as the public interface has been known.
For Samba client prior to 2.0.8, use this module !
SmbClientParser is adapted from SMB.pm make by Remco van Mook mook@cs.utwente.nl on smb2www project.
AUTHOR
Alain BARBET alian@alianwebserver.com
SEE ALSO
smbclient(1) man pages.
new([$path_of_smbclient])
Network methods
GetShr
Return an array with sorted share listing
Syntax: @output = $smb->GetShr
array contains hashes; keys: name, type, comment
GetHosts
Return an array with sorted host listing
Syntax: @output = $smb->GetHosts
array contains hashes; keys: name, comment
sendWinpopupMessage($dest,$text)
This method allows you to send messages, using the "WinPopup" protocol, to another computer. If the receiving computer is running WinPopup the user will receive the message and probably a beep. If they are not running WinPopup the message will be lost, and no error message will occur.
The message is also automatically truncated if the message is over 1600 bytes, as this is the limit of the protocol.
Parameters :
$dest: name of host or user to send message
$text: text to sendOperations
cd [$dir]
cd [directory name] If "directory name" is specified, the current working directory on the server will be changed to the directory specified. This operation will fail if for any reason the specified directory is inaccessible. Return list.
If no directory name is specified, the current working directory on the server will be reported.
dir
Return an array with sorted dir and filelisting
Syntax: @output = $smb->dir (host,share,dir,user,pass)
Array contains hashes; keys: name, attr, size, date
mkdir($masq)
mkdir <mask> Create a new directory on the server (user access privileges permitting) with the specified name.
rmdir($masq)
Remove the specified directory (user access privileges permitting) from the server.
get($file, $target, [$dir])
Gets the file $file, using $user and $pass, to $target on courant SMB server and return the error code. If $target is unspecified, courant directory will be used For use STDOUT, set target to '-'.
Syntax: $error = $smb->get ($file,$target,[$dir])
put$($orig,$file,[$dir])
Puts the file $orig to $file, using $user and $pass on courant SMB server and return the error code. If $orig is unspecified, STDIN is used (-).
Syntax: $error = $smb->PutFile ($host,$share,$file,$user,$pass,$orig)
del($mask)
del <mask> The client will request that the server attempt to delete all files matching "mask" from the current working directory on the server
Archives methods
tar($command,$target)
Execute TAR commande on //$host/$share/$dir, using $user and $pass, to $target. and return the error code. If $target is unspecified, current directory will be used.
Syntax: $error = $smb->tar ($command) where command in ('x','c',...) See smbclient man page
Private methods
byname
sort an array of hashes by $_->{name} (for GetSMBDir et al)