alex/ase_perl
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

ftp aruba

Browse Source
This commit is contained in:
battilo
2018-07-05 23:43:40 +02:00
parent dd9b3165f2
commit 0578ec48e3
2 changed files with 70 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
aruba/UnitCsvReceiverSmart.pl
View File

@@ -98,7 +98,7 @@ while ( my $line = $tail->GetLine() ) {
my @fname = ($dest);
chown $uid, $gid, @fname;
}
my $ftp = Net::FTP->new($hostname, Timeout => 20, Debug => 1, Passive => 0)
my $ftp = Net::FTP->new($hostname, Timeout => 20, Debug => 0, Passive => 0)
or warn getTimeStamp("log") . " >> Cannot connect to $hostname: $@";
if ($ftp->login($username,$password)) {
if ($ftp->put($dest, $filename . $suffix)) {

69
aruba/UnitCsvRetransmit.pl Normal file
View File

@@ -0,0 +1,69 @@
#!/usr/bin/perl
use warnings;
use strict;
use Getopt::Long;
use File::SmartTail;
use File::Basename qw( fileparse );
use File::Copy qw( move );
use Net::FTP;
use POSIX;
$SIG{CHLD} = 'IGNORE';
$|++; # Autoflush
sub getTimeStamp
{ # parm [ts] => timestamp for filename; log => timestamp for log
my $format = "%04d%02d%02d%02d%02d%02d";
my ($p1) = @_;
if ( defined $p1 and $p1 eq "log" ) {
$format = "%04d%02d%02d %02d:%02d:%02d";
}
my ( $sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst ) =
localtime(time);
my $timestamp =
sprintf( $format, $year + 1900, $mon + 1, $mday, $hour, $min, $sec );
return $timestamp;
}
my $readingFile;
my $ftpuser = "aseftp";
my $ftpuser1 = "asega";
my $recvOKstr = "OK UPLOAD";
my $ext = ".csv";
my $hostname = "160.78.21.55";
my $username = 'asega';
my $password = 'mums';
GetOptions( "file=s" => \$readingFile )
or die("Error in command line arguments\n");
print getTimeStamp("log") . " >> $readingFile \n";
my($scriptname, $scriptpath) = fileparse($0);
my($filename, $path, $suffix) = fileparse($readingFile, qr/\.[^.]*/);
my $send = $readingFile =~ s/received/transmitted/r;
my($tool, $trxdate) = split(/_/,$filename);
my($dmy1, $dmy2, $dmy3, $unit, $dmy4) = split(/\//,$path);
print getTimeStamp("log") . " >> Unit $unit - Filename $tool" . "$suffix \n";
my $ftp = Net::FTP->new($hostname, Timeout => 20, Debug => 1, Passive => 0)
or warn getTimeStamp("log") . " >> Cannot connect to $hostname: $@";
if ($ftp->login($username,$password)) {
if ($ftp->put($readingFile, $tool . $suffix)) {
print getTimeStamp("log") . " >> Put $readingFile completed.\n";
if ( !move $readingFile, $send) {
warn getTimeStamp("log") . " >> Move $readingFile -> $send failed: $!";
} else {
print getTimeStamp("log") . " >> Moved $readingFile -> $send.\n";
}
} else {
warn getTimeStamp("log") . " >> Put $readingFile failed ", $ftp->message;
}
} else {
warn getTimeStamp("log") . " >> Cannot login ", $ftp->message;
}
exit(0);