The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
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'
		  ) : ()
		 );