dmitriy.kazimirov/inxi
1
0
Fork 0
mirror of https://github.com/smxi/inxi.git synced 2025-01-19 08:57:57 +00:00
Code Issues Actions Packages Projects Releases Wiki Activity

New version, tarball. Small perl fix, nothing changes in output or function.

Browse source
This commit is contained in:
Harald Hope 2017-10-31 17:34:55 -07:00
parent af40f3d842
commit 4a4c58769c
2 changed files with 19 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

14
inxi
View file

@ -2,8 +2,8 @@
######################################################################## ########################################################################
SELF_NAME='inxi' SELF_NAME='inxi'
# don't quote the following, parsers grab these too # don't quote the following, parsers grab these too
SELF_VERSION=2.3.42 SELF_VERSION=2.3.43
SELF_DATE=2017-10-30 SELF_DATE=2017-10-31
SELF_PATCH=00 SELF_PATCH=00
######################################################################## ########################################################################
#### SPECIAL THANKS #### SPECIAL THANKS
@ -2187,7 +2187,7 @@ debug_data_collector()
use File::Find; use File::Find;
use strict; use strict;
# use warnings; # use warnings;
use 5.010; use 5.008;
my @content = (); my @content = ();
find( \&wanted, "/sys"); find( \&wanted, "/sys");
process_data( @content ); process_data( @content );
@ -2335,19 +2335,19 @@ upload_debugger_data()
echo "Required Perl module Net::FTP not installed." echo "Required Perl module Net::FTP not installed."
return 3 return 3
fi fi
export debugger_file
echo "Starting Perl Uploader..." echo "Starting Perl Uploader..."
result="$( perl -e ' result="$( perl -e '
use strict; use strict;
use warnings; use warnings;
use 5.008;
use Net::FTP; use Net::FTP;
my ($ftp, $host, $user, $pass, $dir, $fpath, $error); my ($ftp, $host, $user, $pass, $dir, $fpath, $error);
$host = "ftp.techpatterns.com"; $host = "ftp.techpatterns.com";
$user = "anonymous"; $user = "anonymous";
$pass = "anonymous\@techpatterns.com"; $pass = "anonymous\@techpatterns.com";
$dir = "incoming"; $dir = "incoming";
$fpath = $ENV{debugger_file}; $fpath = $ARGV[0];
# NOTE: important: must explicitly set to passive true/1 # NOTE: important: must explicitly set to passive true/1
$ftp = Net::FTP->new($host, Debug => 0, Passive => 1); $ftp = Net::FTP->new($host, Debug => 0, Passive => 1);
$ftp->login($user, $pass) || die $ftp->message; $ftp->login($user, $pass) || die $ftp->message;
@ -2356,9 +2356,9 @@ upload_debugger_data()
print "Connected to FTP server.\n"; print "Connected to FTP server.\n";
$ftp->put($fpath) || die $ftp->message; $ftp->put($fpath) || die $ftp->message;
$ftp->quit; $ftp->quit;
print "Uploaded file.\n"; print "Uploaded file $fpath.\n";
print $ftp->message; print $ftp->message;
' )" ' $debugger_file )"
echo "$result" echo "$result"
if [[ "$result" == *Goodbye* ]];then if [[ "$result" == *Goodbye* ]];then

12
inxi.changelog
View file

@ -1,3 +1,15 @@
=====================================================================================
Version: 2.3.43
Patch Version: 00
Script Date: 2017-10-31
-----------------------------------
Changes:
-----------------------------------
New version, tarball. Small perl fix, nothing changes in output or function.
-----------------------------------
-- Harald Hope - Tue, 31 Oct 2017 17:30:03 -0700
===================================================================================== =====================================================================================
Version: 2.3.42 Version: 2.3.42
Patch Version: 00 Patch Version: 00