#!/usr/bin/perl

use strict;

use Filesys::SmbClientParser;

my $smbclientPath = '/usr/bin';
my $username = 'files';
my $password = 'sadfiles';
my $ipaddress = '209.242.113.69';
my $host = 'data';
my $share = 'files';
my $dir ='/cmdconf.xml';
#my $dir ='/Ops';

print "Initializing Filesys::SmbClientParser object... ";
my $smb = Filesys::SmbClientParser->new(
	undef,
	(
		user      => $username,
		password  => $password,
		host      => $host,
		share     => $share,
		ipadress => $ipaddress
	)
);

print "done\nEnabling debugging... ";

$smb->Debug(10);

print "done\nChanging directory to '$dir'...";

if ( (($smb->cd($dir))[0]) )
{
	print "done\n";
}
else
{
	print "failure!\n### ERROR: couldn't change to directory\n";
	exit;
}

print "Retrieving directory listing... ";

my @dirListing = $smb->dir($dir);

if ( $smb->err() ) 
{
	print "error: " . $smb->err() . "\n";
}

print "done\n";

foreach my $dirItem (@dirListing)
{
	my $name = $dirItem->{'name'};
	my $attr = $dirItem->{'attr'};
	my $size = $dirItem->{'size'};
	my $date = $dirItem->{'date'};

	print "$name \t $size \t [$date] \t $attr\n";
}