I spent some time looking into this bug this week:

http://bugs.activestate.com/show_bug.cgi?id=49758

It seems to be a problem with tied hashes, which are used in both DBI
and Config. At some point the PL_hv_fetch_ent_mh variable gets set
incorrectly, which causes a hash key sv to be overwritten, etc.

DBI.xs contains a block dealing with PL_hv_fetch_ent_mh, but it is
ifdef'ed to only compile in 5.8.0 and earlier. When I compile a version
myself and run the 'issue' script, the warning does not occur. Does the
ActiveState PPM version have this somehow forced on?

-Jeff



** ** ** PRIVILEGED AND CONFIDENTIAL ** ** **
This email transmission contains privileged and confidential information intended only for the use of the individual or entity named above. Any unauthorized review, use, disclosure or distribution is prohibited and may be a violation of law. If you are not the intended recipient or a person responsible for delivering this message to an intended recipient, please delete the email and immediately notify the sender via the email return address or mailto:postmaster [at] priority-health.com. Thank you.

- end -

_______________________________________________
ActivePerl mailing list
ActivePerl [at] listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs

I'm trying to finish this script which should upload files
to a secure ftp site.

When I removed the win32::autoglob, the script doesn't read
the path or the files passed in the [at] filemask.

When I added it back in, it only captures what I had passed, ex:
c:\test\*.txt
But what I want to use it as is a file list. So I would like it to have
a list of files such as:
test1.txt
test2.txt
test3.txt

Please help.

Thanks,
Liza




#!/usr/bin/perl use warnings;

use Net::FTPSSL;
use Win32::Autoglob;
use File::Copy;
use File::Basename;


my $ftpaddress;
my $username;
my $password;
my $port;
my $remotedir;
my $newpath;
my [at] filemask;

$ftpaddress = shift ( [at] ARGV ); # Example: ftp.ftptest.com
$username = shift ( [at] ARGV ) ; # Example: ftptest
$password = shift ( [at] ARGV ); # Example: test123
#$port = shift ( [at] ARGV); # Example: 21
$remotedir= shift ( [at] ARGV ); # Example: upload
$newpath = shift ( [at] ARGV); # Example: c:\ftp\uploaded
[at] filemask = shift ( [at] ARGV ); # Example: c:\ftp\test*

print "***************************BEGIN FTP
LOG**************************************\n";

my $ftps = Net::FTPSSL->new($ftpaddress,Port => 990 ,Encryption => 'I',
Debug => 0)
or die "Can't open $ftpaddress";

$ftps->login($username,$password)
or die "Can't login, check username and password.\n";

$ftps->binary;

$ftps->cwd($remotedir) or die "Can't change directory.\n";


foreach $file ( [at] filemask){

print "Uploading $file\n";
$ftps->put($file) || die "Error: Upload Failed! Unable to upload $filemask
to $ftpaddress \n";


#print "Moving $filemask to $newpath\n";

#move($filemask,$newpath) || die "Unable to move $filemask to $newpath.\n";

}

#print "File uploads completed\n";


$ftps->quit();

print "***************************END FTP
LOG**************************************\n";






_______________________________________________
ActivePerl mailing list
ActivePerl [at] listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs

You can expand the filename patterns yourself as follows:

[at] files = map glob, [at] ARGV;


Eric J. Roode

-----Original Message-----
From: activeperl-bounces [at] listserv.ActiveState.com
[mailto:activeperl-bounces [at] listserv.ActiveState.com] On Behalf Of Liza
Das
Sent: Friday, January 05, 2007 1:02 PM
To: activeperl [at] listserv.ActiveState.com
Subject: FTPSSL help

I'm trying to finish this script which should upload files to a secure
ftp site.

When I removed the win32::autoglob, the script doesn't read the path or
the files passed in the [at] filemask.

When I added it back in, it only captures what I had passed, ex:
c:\test\*.txt
But what I want to use it as is a file list. So I would like it to have
a list of files such as:
test1.txt
test2.txt
test3.txt
_______________________________________________
ActivePerl mailing list
ActivePerl [at] listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs

Liza Das wrote:
> I'm trying to finish this script which should upload files
> to a secure ftp site.
>
> When I removed the win32::autoglob, the script doesn't read
> the path or the files passed in the [at] filemask.
>
> When I added it back in, it only captures what I had passed, ex:
> c:\test\*.txt
> But what I want to use it as is a file list. So I would like it to have
> a list of files such as:
> test1.txt
> test2.txt
> test3.txt
>
> Please help.

This should work with or without Autoglob:

#!/usr/bin/perl

use strict;
use warnings;
use Net::FTPSSL;
# use Win32::Autoglob;
use File::Copy;
use File::Basename;

my $ftpaddress = shift; # Example: ftp.ftptest.com
my $username = shift; # Example: ftptest
my $password = shift; # Example: test123
# my $port = shift; # Example: 990
my port = 990; # hardcode 990
my $remotedir = shift; # Example: upload
my $newpath = shift; # Example: c:/ftp/uploaded
my [at] filemask = [at] ARGV; # Example: c:/ftp/test*, ...

print "************************BEGIN FTP LOG*******************************\n";

my $ftps = Net::FTPSSL->new($ftpaddress, Port => $port, Encryption => 'I',
Debug => 0) or die "new FTPSSL $ftpaddress: $!($^E)";
$ftps->login($username, $password) or die "login failed: $!($^E)";
$ftps->binary;
$ftps->cwd($remotedir) or die "cwd $remotedir: $!($^E)";

foreach ( [at] filemask) {
foreach my $file (glob $_) {
print "Uploading $file\n";
$ftps->put($file) or die "put $file: $!($^E)";
print "Moving $file to $newpath\n";
move ($file, $newpath) or die "move ($file, $newpath)";
}
}

print "File uploads completed\n";
$ftps->quit();

print "*************************END FTP LOG********************************\n";

__END__
_______________________________________________
ActivePerl mailing list
ActivePerl [at] listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs