split curl and libcurl into two strings in the initial display
This commit is contained in:
@@ -372,11 +372,19 @@ sub displaydata {
|
|||||||
unlink($memdump); # remove this if there was one left
|
unlink($memdump); # remove this if there was one left
|
||||||
|
|
||||||
my $version=`$CURL -V`;
|
my $version=`$CURL -V`;
|
||||||
|
chomp $version;
|
||||||
|
|
||||||
|
my $curl = $version;
|
||||||
|
|
||||||
|
$curl =~ s/^(.*)(libcurl.*)/$1/g;
|
||||||
|
my $libcurl = $2;
|
||||||
|
|
||||||
my $hostname=`hostname`;
|
my $hostname=`hostname`;
|
||||||
my $hosttype=`uname -a`;
|
my $hosttype=`uname -a`;
|
||||||
|
|
||||||
print "********* System characteristics ******** \n",
|
print "********* System characteristics ******** \n",
|
||||||
"* $version",
|
"* $curl\n",
|
||||||
|
"* $libcurl\n",
|
||||||
"* Host: $hostname",
|
"* Host: $hostname",
|
||||||
"* System: $hosttype";
|
"* System: $hosttype";
|
||||||
|
|
||||||
|
|||||||
Reference in New Issue
Block a user