mr_evans2u
09-09-2003, 07:38 PM
I'm having problems with trying to get my code to send a lock to multiple servers. The @lock is not getting over to the .pm file correctly. It won't send the lock to any servers.
Can anyone see what I'm doing wrong?
Thanks
######In my cgi file:
if ($hostname =~ /^server5/i)
{
@lock = ("server51.bogus.com", "server52.bogus.com");
}
($uid, $pass) = sieve_util_set_flagfile($relay_dir,$home_dir,$filename,$relay,@lock);
#########In a .pm file
sub sieve_util_set_flagfile
{
my($relay_dir,$home_dir,$filename,$relay,@lock) = @_;
foreach my $lock (@lock)
{
my $ftp = Net::FTP->new("$lock",Debug=>0,Timeout=>30);
....
....
}
}
Can anyone see what I'm doing wrong?
Thanks
######In my cgi file:
if ($hostname =~ /^server5/i)
{
@lock = ("server51.bogus.com", "server52.bogus.com");
}
($uid, $pass) = sieve_util_set_flagfile($relay_dir,$home_dir,$filename,$relay,@lock);
#########In a .pm file
sub sieve_util_set_flagfile
{
my($relay_dir,$home_dir,$filename,$relay,@lock) = @_;
foreach my $lock (@lock)
{
my $ftp = Net::FTP->new("$lock",Debug=>0,Timeout=>30);
....
....
}
}