Perhaps I misunderstood the OP, but it sounds to me like there is a CSV file in one location (local) and it must be compared with a directory structure on a remote machine.
Even if I misunderstood that, I can't see where files are being sent (that is, pushed). Run the script wherever the CSV files exist, and use Net::FTP to deal with the listing. I still see no need for file transfer, here. Thus the request for clarification.
<-radiant.matrix->
Larry Wall is Yoda: there is no try{} (ok, except in Perl6; way to ruin a joke, Larry! ;P)
The Code that can be seen is not the true Code
"In any sufficiently large group of people, most are idiots" - Kaa's Law
| [reply] [Watch: Dir/Any] |
I read the OP as saying there are 3 computers involved. An XP file server, the users laptop, and a Solaris box. The current state is that a user must access the XP box with their laptop to FTP the file to the Solaris box. I belive the OP wants the Solaris box to pull the CSV file from the XP box via SMB. (I would assume the XP box does not have a FTP service running.)
My only experiance using Samba is either sharing files from Linux or using smbmount (or mount with an appropriate -t setting) to access windows files. smbmount //host/share /mount/point has worked for me, but it prompts for username and password if needed. There should be command line options to set those if needed.
| [reply] [Watch: Dir/Any] [d/l] |
Hm, yes I understand that. It seems that the OP wants to reduce it to two machines: the Solaris machine and the XP server. The original question involves replacing an FTP send from XP->Solaris to a SMB pull from Solaris->XP.
What I don't understand is why that is the required solution. If the Perl script runs on XP instead of Solaris, then the CSV file is already available, and FTP can be used to obtain the dir listing. No notebook required, no file transfer.
If, for some reason, I'm still missing something, the smbmount DOES have login options: smbmount //host/share /mnt/point -o username=user,password=pass
<-radiant.matrix->
Larry Wall is Yoda: there is no try{} (ok, except in Perl6; way to ruin a joke, Larry! ;P)
The Code that can be seen is not the true Code
"In any sufficiently large group of people, most are idiots" - Kaa's Law
| [reply] [Watch: Dir/Any] |