Perl Server Side CGI Scripting Forum

If $cwd_performed is always 0 you would always ftp to the same directory (the second one in your latest post)

I'm just an amateur programmer but I have never seen this notation:
if (!$cwd_performed++)

$cwd_performed++ means "Add 1 to $cwd_performed"

I wonder what
if (!$cwd_performed++)
is supposed to do?
I read it as "if 1 can not be added to $cwd_performed" which seems strange.

thanks for HELP
the whole script looks:

#!/usr/bin/perl -w
use strict;
use warnings;
use Net::FTP;

# change directory
chdir "/ftp/files" or die "/ftp/files: $!\n";

# DO NOT transfer without info file
-f "/ftp/files/info" or die "info file is missing\n";

open(FILE, "<info>");
while (<FILE> ) {
s/\W*$//;
next if (!$_);
/^(.+?) \s+ (.+?)$/x;

my ($old, $new) = ($1, $2);
rename $old, $new;

# ftp transfer
my $server = "X.X.X.X";
my $ftp = Net::FTP->new ($server, Timeout => 9000, Debug => 3);
$ftp or die "$server: cannot connect: $@";
# If you don't use ~/.netrc
$ftp->login ('anonymous', '****@domain.net') or
die "$_: cannot logon: " . $ftp->message;

# change remote directories
my $cwd_performed = 0;
if ($cwd_performed) {
$ftp->cwd("FTP/IN/FIRST")
}
else {
$ftp->cwd("FTP/IN/SECOND") if (!$cwd_performed++)
}

# Put first file to the ftp server
$ftp->put ($2) or
die "$server: cannot put $2: " . $ftp->message;
$ftp->quit;

sleep (15 * 60)
}

Substitute
[perl]
# change remote directories
my $cwd_performed = 0;
if ($cwd_performed) {
$ftp->cwd("FTP/IN/FIRST")
}
else {
$ftp->cwd("FTP/IN/SECOND") if (!$cwd_performed++)
}

by

# change remote directories
my $cwd_performed;
if ($cwd_performed ne "1") { # if $cwd_performed is not 1
$ftp->cwd("FTP/IN/FIRST"); # ftp to first
$cwd_performed = "1"; # set $cwd_performed to 1
}
else { # $cwd_performed is 1
$ftp->cwd("FTP/IN/SECOND"); # ftp to the second
undef $cwd_performed; #undef $cwd_performed just to be sure
}

Net::FTP=GLOB(0x838c82c)<<< 220 szhstorage Microsoft FTP Service (Version 5.0).
Net::FTP=GLOB(0x838c82c)>>> user anonymous
Net::FTP=GLOB(0x838c82c)<<< 331 Anonymous access allowed, send identity (e-mail name) as password.
Net::FTP=GLOB(0x838c82c)>>> PASS ....
Net::FTP=GLOB(0x838c82c)<<< 230 Anonymous user logged in.
[Sat Mar 6 15:25:09 2004] ftp5.cgi: Use of uninitialized value in string ne at ftp5.cgi line 47, <FILE> line 1.
Net::FTP=GLOB(0x838c82c)>>> CWD FTP/IN/FIRST
Net::FTP=GLOB(0x838c82c)<<< 250 CWD command successful.
Net::FTP=GLOB(0x838c82c)>>> PORT 192,168,0,1,142,8
Net::FTP=GLOB(0x838c82c)<<< 200 PORT command successful.
Net::FTP=GLOB(0x838c82c)>>> STOR AA3200204
Net::FTP=GLOB(0x838c82c)<<< 150 Opening ASCII mode data connection for AA3200204.
Net::FTP=GLOB(0x838c82c)<<< 226 Transfer complete.
Net::FTP=GLOB(0x838c82c)>>> QUIT
Net::FTP=GLOB(0x838c82c)<<< 221
Net::FTP=GLOB(0x83dfc64)<<< 220 szhstorage Microsoft FTP Service (Version 5.0).
Net::FTP=GLOB(0x83dfc64)>>> user anonymous
Net::FTP=GLOB(0x83dfc64)<<< 331 Anonymous access allowed, send identity (e-mail name) as password.
Net::FTP=GLOB(0x83dfc64)>>> PASS ....
Net::FTP=GLOB(0x83dfc64)<<< 230 Anonymous user logged in.
[Sat Mar 6 15:25:19 2004] ftp5.cgi: Use of uninitialized value in string ne at ftp5.cgi line 47, <FILE> line 2.
Net::FTP=GLOB(0x83dfc64)>>> CWD FTP/IN/FIRST
Net::FTP=GLOB(0x83dfc64)<<< 250 CWD command successful.
Net::FTP=GLOB(0x83dfc64)>>> PORT 192,168,0,1,142,10
Net::FTP=GLOB(0x83dfc64)<<< 200 PORT command successful.
Net::FTP=GLOB(0x83dfc64)>>> STOR BB20020417
Net::FTP=GLOB(0x83dfc64)<<< 150 Opening ASCII mode data connection for BB20020417.
Net::FTP=GLOB(0x83dfc64)<<< 226 Transfer complete.
Net::FTP=GLOB(0x83dfc64)>>> QUIT