Subversion Repositories camp_sysinfo_client_3

#! /usr/bin/env perl

#    Program: upload_http
#    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 - no key given for report contents
#         6 - no key given for report date
#         7 - no key given for hostname
#         8 - no key given for client
#         9 - no key given for serial number
#
#    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/>.
#
# version 1.1 RWR, 20240518
# Setting up so only UTF8 sent

use warnings;
use strict;
use open ':std', ':encoding(utf8)' ; # force all I/O, including disk and STD?, to use utf-8

our $VERSION = '1.1';

eval {
   use LWP;
};
if ( $@ ) {
   print STDERR "Could not load library LWP\n";
   exit 1; # error 1 means we could not find LWP
}

use Data::Dumper;
use Scalar::Util qw( looks_like_number );

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 writeFile {
   my ( $filename, $contents ) = @_;
   open FILE,">$filename" or die "Could not write to $filename: $!\n";
   print FILE $contents;
   close FILE;
}

sub sendData {
   my ( $url, $parameters ) = @_;
   # &writeFile( "/tmp/upload_http", Dumper( $parameters ) );
   my $browser = LWP::UserAgent->new();
   my $response = $browser->post(
       $url,
       $parameters,
       'Content_Type' => 'form-data'
       );
   return $response;
}
   
sub filename {
   return '/tmp/' . time . '.sysinfo';
}

sub doit {
   my ( $parameters, $message ) = @_;
   my $url = $$parameters{'URL'} or die "Could not find URL to send to\n";

   my %postData;
   my $saveFileName = &filename();
   if ( $$parameters{'key for report'} ) {
      &writeFile( $saveFileName, $message ); # make a backup copy of the report
      $postData{ $$parameters{'key for report'} } =  
                              [ #'/tmp/theReport' => 'myReport'
                                 undef,
                                 'temp.report',
                                 'Content-Type' => 'application/x-www-form-urlencoded',
                                 'Content' => $message
                              ];
   } else {
      return 5; # no key given for report
   }
   if ( $$parameters{'key for date'} ) {
      $postData{ $$parameters{'key for date'} } = $$parameters{'report date'};
   } else {
      return 6; # can't process because we have no report date
   }
   if ( $$parameters{'key for hostname'} ) {
      $postData{ $$parameters{'key for hostname'} } = $$parameters{'host name'};
   } else {
      return 7; # no hostname
   }
   if ( $$parameters{'key for client'} ) {
      $postData{ $$parameters{'key for client'} } = $$parameters{'client name'};
   } else {
      return 8; # no client name
   }
   if ( $$parameters{'key for serial number'} ) {
      $postData{ $$parameters{'key for serial number'} } = $$parameters{'serial number'};
   } else {
      return 9; # no serial number
   }
   if ( $$parameters{'upload_type'} ) {
      $postData{ 'upload_type' } = $$parameters{'upload_type'};
   }
   $postData{'filename'} = 
      $$parameters{'report date'} . '_' . 
      $$parameters{'client name'} . '_' . 
      $$parameters{'host name'} . '_' . 
      $$parameters{'serial number'} . 
      '.yaml';
   #print Dumper( \%postData ); die;
   my $result = sendData( $url, \%postData );
   if ( $result->is_success ) { # we got a response, so validate the transfer
      #print $result->status_line . "\n"; die;
      #unless ( ! looks_like_number( $result->content ) && ( $result->content * 1) == length($message) ) { # report returned was not one we sent
      #   print STDERR "Server did not read file correctly\nWe sent " . length($message) . " bytes but server only saved " . $result->content . "\n";
      #   return 3;
      #} 
   } else {
      print STDERR "URL did not work. Full URI sent follows\n$url\n";
      print STDERR "Return was " . $result->content . "\n";
      return 4; # crud, could not even find the URL
   }
   `rm $saveFileName`;
   return 1;
}

1;


#