use ExtUtils::MakeMaker;
use strict;
# tests demande ?
my $ans =
prompt("Do you want make smbclient tests ?\n".
"(you will be prompted for server / worgroup / share / user / password\n".
"to make read write access.", "no");
if ($ans =~ /^y(es)?$/i)
{
my $server = prompt("Server ?","localhost");
my $share = prompt("Share ?","homes");
my $workgroup = prompt("Workgroup/Domain ?","");
my $user = prompt("Smb user ?",$ENV{'USER'});
my $pass = prompt("Smb password ?");
open(FILE,">.m") || warn "Can't create .m for test: $!\n";
print FILE $server,"\t",$share,"\t",$workgroup,"\t",$user,"\t",$pass;
close FILE;
}
# See lib/ExtUtils/MakeMaker.pm for details of how to influence
# the contents of the Makefile that is written.
WriteMakefile
(
'NAME' => 'Filesys::SmbClientParser',
'VERSION_FROM' => 'SmbClientParser.pm', # finds $VERSION
'PREREQ_PM' => { 'Test::Simple' => 0}, # e.g., Module::Name => 1.1
($] ge '5.005') ?
(
'AUTHOR' => 'Alain BARBET (alian@cpan.org)',
'ABSTRACT' => 'Perl client to reach Samba ressources '.
'with smbclient'
) : ()
);