SMB - A humble SMB network protocol implementation in Perl
# usage #1 - custom server use SMB::Server; my $server = SMB::Server->new(port => 10445); $server->run; # usage #2 - custom client use SMB::Client; my $client = SMB::Client->new('//10.0.2.2/test', username => 'test', password => 'secret', log_level => SMB::LOG_LEVEL_DEBUG, ); my $tree = $client->connect_tree; # try another share if the first is not available $tree ||= $client->connect_tree(share => 'test2') or die; # list all txt files in the share for my $file ($tree->find("*.txt")) { printf "%-40s %9s %s\n", $file->name, $file->size_string, $file->mtime_string; } # rotate, download and remove remote log use POSIX qw(strftime); my $new_filename = strftime("%Y%m%d-%H%M%S.log", localtime); $tree->rename("my.log", $new_filename) or die "Failed to rotate"; $tree->dnload($new_filename) or die "Failed to download"; $tree->remove($new_filename) or die "Failed to remove";
SMB is a network protocol created by Microsoft used to provide shared access to files. It stands for Server Message Block, also called CIFS - Common Internet File System.
This SMB framework in written in pure perl. It allows to receive and send SMB commands, implements authentication protocols used in SMB, provides an object model to conveniently work with local and remote files, trees and more. Some basic SMB server and client functionality is available.
The main purpose of this framework is to simplify creation of automatic tools for serving and fetching files using SMB protocol and for testing existing SMB server and client implementations.
SMB-Perl library is an implementation of SMB protocol, including simple SMB client and server functionality.
SMB is a base class for many SMB::* classes. The following documents this super-class only. See corresponding sub-classes for their own description.
SMB class provides common logging and debugging functionality, and some sugar, like auto-created getter and setter methods for all object fields. It also defines some core SMB protocol constants, like status codes.
Class constructor. Creates an instance of the concrete class and initilizes it from FIELDS hash.
The sub-classes may omit a constructor, then this one is used, or they may overload it and call $class->SUPER::new(%options) to obtain the newly created object.
Common fields:
* log_level - maximal log level to expose to the caller, per object
The default log_level value is 2 (INFO level). To disable logs emitted by the object, pass (log_level => 0) in its constructor.
The log levels are:
* 0 (SMB::LOG_LEVEL_NONE) * 1 (SMB::LOG_LEVEL_ERROR) * 2 (SMB::LOG_LEVEL_INFO) * 3 (SMB::LOG_LEVEL_DEBUG) * 4 (SMB::LOG_LEVEL_TRACE)
This method is used for logging. The message is composed by "sprintf" FORMAT and ARGS, and is by default written to standard output.
The sub-classes may overload this method, to write logs to a file or implement a custom logic when and what to log.
The logging is enabled by default on at most INFO level, this is controllable by passing log_level in the constructor.
The error messages (LEVEL=1) are prefixed with "! ", the normal messages are prefixed with "* ".
The same as log with LEVEL=1.
The same as log with LEVEL=2.
The same as log with LEVEL=3.
The same as log with LEVEL=4.
If the logging on TRACE (or other explicitely passed) level is enabled, logs a message containg LABEL and BUFFER size in bytes and then a nice memory dump, looking like:
* NBSS + SMB Negotiate Request (216 bytes): 000 | 00 00 00 d4 ff 53 4d 42 72 00 00 00 00 18 43 c8 | ___..SMB r____.C. | 001 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 fe ff | ________ ______.. | 002 | 00 00 00 00 00 b1 00 02 50 43 20 4e 45 54 57 4f | _____._. PC NETWO | 003 | 52 4b 20 50 52 4f 47 52 41 4d 20 31 2e 30 00 02 | RK PROGR AM 1.0_. | 004 | 4d 49 43 52 4f 53 4f 46 54 20 4e 45 54 57 4f 52 | MICROSOF T NETWOR | 005 | 4b 53 20 31 2e 30 33 00 02 4d 49 43 52 4f 53 4f | KS 1.03_ .MICROSO | 006 | 46 54 20 4e 45 54 57 4f 52 4b 53 20 33 2e 30 00 | FT NETWO RKS 3.0_ | 007 | 02 4c 41 4e 4d 41 4e 31 2e 30 00 02 4c 4d 31 2e | .LANMAN1 .0_.LM1. | 008 | 32 58 30 30 32 00 02 44 4f 53 20 4c 41 4e 4d 41 | 2X002_.D OS LANMA | 009 | 4e 32 2e 31 00 02 4c 41 4e 4d 41 4e 32 2e 31 00 | N2.1_.LA NMAN2.1_ | 00a | 02 53 61 6d 62 61 00 02 4e 54 20 4c 41 4e 4d 41 | .Samba_. NT LANMA | 00b | 4e 20 31 2e 30 00 02 4e 54 20 4c 4d 20 30 2e 31 | N 1.0_.N T LM 0.1 | 00c | 32 00 02 53 4d 42 20 32 2e 30 30 32 00 02 53 4d | 2_.SMB 2 .002_.SM | 00d | 42 20 32 2e 3f 3f 3f 00 | B 2.???_ |
Returns a neat object's presentation as a multi-line string, like:
SMB::v2::Command::Close { fid => [ 2, 0, ], flags => 0, header => SMB::v2::Header { aid => 0, code => 6, credit_charge => 1, credits => 7802, flags => 0, log_level => 2, mid => 15, signature => [ ("\x00") x 16, ], status => 0, struct_size => 24, tid => 2, uid => 1, }, log_level => 2, name => "Close", openfile => undef, smb => 2, }
The returned string looks mostly as a valid perl with a minimal overhead. Huge arrays, hashes and strings are neatly cut with some info preserved about what was omitted.
For each field in the object, the method of this name is auto-created on demand. This method returns the field value if there are no arguments (getter) and sets NEW_VALUE if there is a single argument (setter).
No functions are exported, so functions and constants (status codes and log levels) should be prefixed by the package namespace, like:
print SMB::dump_value($nested_array); $status = SMB::STATUS_CANNOT_DELETE if $status == SMB::STATUS_ACCESS_DENIED; my $obj = SMBx::MyClass->new(log_level => SMB::LOG_LEVEL_DEBUG);
Returns a neat PERL_VALUE presentation as a multi-line string.
Used by dump method.
Returns a printable STRING presentation as a one-line string. Long strings over 50 characters are cut, like "very lon..+8". Backslash and quote characters are prefixed with a backslash, and non printable or non-ascii characters are presented in hex, like "\x0a\xa0".
Used by dump_value function.
http://migo.sixbit.org/software/smb-perl/
This program is free software: you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation, either version 3 of the License, or (at your option) any later version.
This program is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details.
You should have received a copy of the GNU General Public License along with this program. If not, see <http://www.gnu.org/licenses/>.
Mikhael Goikhman <migo@cpan.org>
To install SMB, copy and paste the appropriate command in to your terminal.
cpanm
cpanm SMB
CPAN shell
perl -MCPAN -e shell install SMB
For more information on module installation, please visit the detailed CPAN module installation guide.