Read and delete file from Samba

[Kevin Old]

Hello everyone,

I'm using the Filesys-SmbClient-1.4 to connect to a NT server via
Samba.  With the code below, I am able to read & write the file without
any problems.  The problem comes when I want to delete the file after
I'm done with it.  All of this code was taken from the man page, so it
should work.  The error message I get is:

Can't unlink file:Device or resource busy

Here's the code:

#!/usr/bin/perl 

  use POSIX;
  use Filesys::SmbClient;

$myfile = "Ivrweb.csv";

  open(FH, ">$myfile");
  my $smb = new Filesys::SmbClient(username  => "kdo",
                                   password  => "", #no password for
security reasons
                                   debug     => 0);

  # Read a file
  my $fd = $smb->open("smb://NTFS1/temp/web/$myfile", '0666');
  while (defined(my $l= $smb->read($fd,50))) {print FH $l; }
  $smb->close(fd);

close(FH);


  # Delete the file
  $smb->unlink("smb://NTFS1/temp/web/$myfile")
    or print "Can't unlink file:", $!, "\n";


Any ideas what could be causing this?

The "$smb->close(fd);" call is closing the file connection correct?

Thanks,
Kevin

-- 
Kevin Old <[EMAIL PROTECTED]>


-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]