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/>.

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

}

sub doit {

   my ( $parameters, $message ) = @_;

   my $url = $$parameters{'URL'} or die "Could not find URL to send to\n";

   my $varname = $$parameters{'urlVarName'} or die "Could not find varname for URL\n";

   if ( $url && $varname ) {

      my result = get( "$url?$varname=" . urlEncode( $message );

      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";

            return 3;

         } 

      } else {

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

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

      }

      return 1;

   } else {

      print STDERR "Invalid configuration options for upload_http\n";

      return 2;

   }

}