Subversion Repositories camp_sysinfo_client_3

#! /usr/bin/env perl

use warnings;

use strict;

use LWT::Simple;

This is a sample script of how to use the postrun

# find our location and use it for searching for libraries

BEGIN {

   use FindBin;

   use File::Spec;

   use lib File::Spec->catdir($FindBin::Bin);

   eval( 'use YAML::Tiny;' );

   eval( 'use Data::Dumper;' );

}

# contains the directory our script is in

my $myDir = File::Spec->catdir($FindBin::Bin);

$myDir .= '/' unless substr( $myDir, -1 ) eq '/';

my $URL = 'https://www.example.com/';

my $checksum = 'sysinfo_update.cksum';

my $update = 'sysinfo_update'

sub getWriteFile {

   my ($dir, $url, $filename) = @_;

   my $response = HTTP::Tiny->new->get("$url$filename");

   if ( $response->{success} ) {

      if ( length $response->{content} ) {

         open FH, ">$dir$filename" or return $!;

         print FH $response->{content};

         close FH;

      } else {

         warn "Zero lenght file downloaded from $url$filename\n";

      }

   } else {

      return "Could not download $url$filename: " . $response->{reason};

   }

   return '';

}

my $currentChecksum = '';

if ( -f "$myDir$checksum" ) {

   open CK, "<$myDir$checksum" or warn "could not read $myDir$checksum: $!\n";

   $currentChecksum = <CK>;

   close CK;

}

my $data = get( $URL . $checksum );

if ( $data != $currentChecksum ) {

   my $response;

   unless ( my $response = &getWriteFile( $myDir, $URL, $checksum ) ) {

      $response = &getWriteFile( $myDir, $URL, $update );

      chmod 0755, $checksum unless $response;

   }

   die "$response\n" if $response;

   `$checksum` if -f $checksum;

}

1;