| 38 |
or die "Cannot login to FTP server $ENV{LOGSERVER} with login $ENV{LOGUSER}.\n"; |
or die "Cannot login to FTP server $ENV{LOGSERVER} with login $ENV{LOGUSER}.\n"; |
| 39 |
$ftp->cwd("$ENV{LOGREMOTEDIR}") |
$ftp->cwd("$ENV{LOGREMOTEDIR}") |
| 40 |
or die "Cannot change work directory to $ENV{LOGREMOTEDIR}\n"; |
or die "Cannot change work directory to $ENV{LOGREMOTEDIR}\n"; |
| 41 |
my $ftplogdir = $ftp->mkdir("$ENV{LOGREMOTEDIR}/$hostname/$ENV{FAI_ACTION}-$ENV{FAI_RUNDATE}", 1) |
my $ftplogdir = $ftp->mkdir("$hostname/$ENV{FAI_ACTION}-$ENV{FAI_RUNDATE}", 1) |
| 42 |
or die "Cannot create dir $ENV{FAI_ACTION}-$ENV{FAI_RUNDATE}.\n"; |
or die "Cannot create dir $ENV{FAI_ACTION}-$ENV{FAI_RUNDATE}.\n"; |
| 43 |
$ftp->cwd("$ftplogdir") |
$ftp->cwd("$ftplogdir") |
| 44 |
or die "Cannot change work directory to $ftplogdir.\n"; |
or die "Cannot change work directory to $ftplogdir.\n"; |