Subversion Repositories camp_sysinfo_client_3

#! /usr/bin/perl -w

#    Program: upload_http.pl

#    Copyright (C) 2016  R. W. Rodolico

#

#    Description

#      Script will upload file passed on STDIN to URL defined in $server

#      using variable name $urlVarName.

#      Filename may also be passed on command line

#      It assumes the remote server will return the exact contents which

#      is then used to compare to what was sent

#      It will return the following codes

#        0 - success

#         1 - Could not find LWP::Simple module

#         2 - file not passed on STDIN

#         3 - Contents returned by server do not match our local copy

#         4 - URL call returned a "not found" error

#         5 - a filename was passed on the cli but was not able to be opened

#

#    This program is free software: you can redistribute it and/or modify

#    it under the terms of the GNU General Public License as published by

#    the Free Software Foundation, either version 3 of the License, or

#    (at your option) any later version.

#

#    This program is distributed in the hope that it will be useful,

#    but WITHOUT ANY WARRANTY; without even the implied warranty of

#    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the

#    GNU General Public License for more details.

#

#    You should have received a copy of the GNU General Public License

#    along with this program.  If not, see <http://www.gnu.org/licenses/>.

my $urlVarName = 'report';

my $server = 'http://10.111.110.72/modules/sysinfo/upload_sysinfo_report.php';

eval {

   use LWP::Simple;

};

if ( $@ ) {

   print STDERR "Could not load library LWP::Simple\n";

   exit 1; # error 1 means we could not find LWP::Simple

}

sub urlEncode {

   my $contents = shift;

   # escape report for URI

   eval {   # let's use URI::Escape if it is installed

      use URI::Escape;

   };

   if ( ! $@ ) { # we loaded URI::Escape

      return uri_escape( $contents );

   } else {

      # nope, URI::Escape was not installed (or died) 

      # so use our home grown thing

      # kind of a funky way to write it, but it should be very, very fast

      # will take the document passed and split it into array of individual 

      # characters -- split ( '', shift ) 

      # that then will go through map, which converts it to the for %xx 

      # required for URL encoding IF it is not alphanumeric.

      return join( '', 

            (

               map

                  { ($_ =~ m/[a-zA-Z0-9]/) ? $_ :  '%' . sprintf("%2.2x",ord( $_ ) ) } 

                  split ( '', $contents ) 

            ) 

         );

   } # if

}

# figure out where we are reading from

if ( $filename = shift ) { # they passed a file name on the command line

   if ( open DATA, $filename ) {

      $report = do {local $/=undef; <DATA>}; # join( '',<DATA> )

      close DATA;

   } else {

      print "Unable to open $filename: $!\n" ; 

      exit 5; 

   };

} else {

   $report = do {local $/=undef; <>}; #join( '', <> );

}

unless ( $report ) { # Could not be read

   print STDERR "Could not read report\n";

   exit 2;

}

# send it to the server and get the result

my $result = get( "$server?$urlVarName=" . urlEncode( $report ) );

if ( $result ) { # we got a response, so validate the transfer

   unless ( $result eq $report ) { # report returned was not one we sent

      print STDERR "Server did not read file correctly\n";

      exit 3;

   } 

} else {

   print STDERR "URL $server did not work\n";

   exit 4; # crud, could not even find the URL

}

print $result; # only used for debuggin

print STDERR "Ok\n";

exit 0; # all good