You could make use of the following script which is very basic in nature without any customizations and necessarily critical factors for ftp being configured in a configuration file.
Code:
#! /opt/third-party/bin/perl
use Net::FTP;
my ($server, $user, $pass, $trn_mode, $cwd, $file, $debuglvl);
my ($confFile, $content, @split_line);
$confFile = "ftp.conf";
sub infoCheck {
my $name = shift;
my $value = shift;
if( $name eq "debug" ) {
if( $value != 0 && $value != 1 ) {
#Restrict them to 0 or 1
$value = 0;
}
return $value;
}
if( length($value) <= 0 ) {
print "No Info for $name. Terminating\n";
close(FILE);
exit 1;
}
}
open(FILE, "< $confFile") || die "Unable to read conf file: $confFile <$!>\n";
while( chomp($content = <FILE> ) ) {
@split_line = split(/=/, $content);
if( $split_line[0] eq "server" ) {
infoCheck ("server", $split_line[1]);
$server = $split_line[1];
}
elsif( $split_line[0] eq "user" ) {
infoCheck ("user", $split_line[1]);
$user = $split_line[1];
}
elsif( $split_line[0] eq "pass" ) {
infoCheck ("pass", $split_line[1]);
$pass = $split_line[1];
}
elsif( $split_line[0] eq "mode" ) {
$mode = $split_line[1];
}
elsif( $split_line[0] eq "cwd" ) {
$cwd = $split_line[1];
}
elsif( $split_line[0] eq "file" ) {
infoCheck ("file", $split_line[1]);
$file = $split_line[1];
}
elsif( $split_line[0] eq "debug" ) {
$debuglvl = infoCheck ("debug", $split_line[1]);
}
else {
print "Whatz this unknown conf value!!! ???\n";
close(FILE);
exit 1;
}
}
close(FILE);
$ftp = Net::FTP->new($server, Debug => $debuglvl ) || die "Unable to connect to $server $@ \n";
$ftp->login($user, $pass) || die "Unable to login. ", $ftp->message;
if( length($cwd) > 0 ) {
$ftp->cwd($cwd) || die "Unable to cwd. ", $ftp->message;
}
if( $mode eq "ascii" ) {
$ftp->ascii || die "Unable to set mode to ascii. ", $ftp->message;
}
elsif( $mode eq "binary" ) {
$ftp->binary || die "Unable to set mode to binary. ", $ftp->message;
}
$ftp->get($file) || die "Unable to get file. ", $ftp->message;
$ftp->quit;
exit 0
I am attempting to automate an ftp session in PERL by emulating the user and sending commands to ftp, but I am getting unexpected and unwanted results. Here is a portion code that illustrates the method I am attempting (this was just a shot in the dark):
system("(
echo open server
sleep 1... (2 Replies)
Hi all,
I am trying to download a build from an ftp server.
My problem is that my build contains sub folders and files within the sub folders.
I can ftp a single file at a time, but it will be difficult to specify all the paths and download individula files.
My build structure is:
... (2 Replies)
My situations is I cannot use NET::ftp. So I need to have a way to automate ftp. I know how to do it in ksh:
#!/usr/bin/ksh
ftp -i -v -n $host_name <<_FTP >> $log_file 2>&1
user $user_name
lcd $local_dir
cd $remote_dir
put $file_name
bye
_FTP
But how can I do it in perl?
Note:... (6 Replies)
I am trying to execute a script in another server, i used Net::Ftp module
How to execute unix command in another server by using Net::Ftp module..
#!/usr/bin.perl
### Perl script to
$ftp->login($user_name,'password')
or die "Cannot login ", $ftp->message;... (2 Replies)
this script should search directories read,,search for file for daily reports. you must provide the beginning day, ending day and month.
this script will pull files for days and month specified and Ftp them to another server.
Thanks for any help you provide (2 Replies)
Hi Experts,
I have this requirement to list dirs and files of an FTP server on regular basis.
I was able to do it by following script:
$ftpobj = Net::FTP -> new ("$ftpsrv") || die "Cannot connect to FTP $ftpsrv";
$ftpobj -> login("user","passwd");
$ftpobj -> cwd ("/root_dir");
@rootdir... (1 Reply)
Hi,
I have three files in this /home/mani/ location. I would like to ftp to another server.
could you please give perl for that requirement.
Thanks,
Mani (10 Replies)
Hello All,
I am trying to connect to ftp server and get the files. Also i need to rename the file in other ftp dir.
rename method is not allowing me to rename the file in other dir. When i tried copy command by using net::FTP:FILE then perl says it is not installed.
Can some body help me to... (2 Replies)
Hi All
I am stuck with a problem and i want your help,
I have two directories dir1 and dir2
The files present in dir1 is a1,a2 a3 a4
What i want to is to FTP the files present in the dir1 to dir2 (with .txt extension at the end.) with the help of the Perl.
The output expected is
The... (12 Replies)
i want to upload two different files in to two different directories(path) on ftp server.but i am able to ftping only one at a time :(.. not both simultaneously.
here i have connectd the ftp and use the binary mode to transfer the files
$ftp = Net::FTP->new($ftphost, Debug => 0)
or... (2 Replies)
Discussion started by: aarts
2 Replies
LEARN ABOUT PHP
ftp_site
FTP_SITE(3) 1 FTP_SITE(3)ftp_site - Sends a SITE command to the serverSYNOPSIS
bool ftp_site (resource $ftp_stream, string $command)
DESCRIPTION ftp_site(3) sends the given SITE command to the FTP server.
SITE commands are not standardized, and vary from server to server. They are useful for handling such things as file permissions and group
membership.
PARAMETERS
o $ftp_stream
- The link identifier of the FTP connection.
o $command
- The SITE command. Note that this parameter isn't escaped so there may be some issues with filenames containing spaces and other
characters.
RETURN VALUES
Returns TRUE on success or FALSE on failure.
EXAMPLES
Example #1
Sending a SITE command to an ftp server
<?php
// Connect to FTP server
$conn = ftp_connect('ftp.example.com');
if (!$conn) die('Unable to connect to ftp.example.com');
// Login as "user" with password "pass"
if (!ftp_login($conn, 'user', 'pass')) die('Error logging into ftp.example.com');
// Issue: "SITE CHMOD 0600 /home/user/privatefile" command to ftp server
if (ftp_site($conn, 'CHMOD 0600 /home/user/privatefile')) {
echo "Command executed successfully.
";
} else {
die('Command failed.');
}
?>
SEE ALSO ftp_raw(3).
PHP Documentation Group FTP_SITE(3)
02-16-2007
