Subversion Repositories computer_asset_manager_v1

#!/usr/bin/env perl

use warnings;
use strict;
use Net::FTP;

# find our location and use it for searching for libraries
BEGIN {
   use FindBin;
   use File::Spec;
   use lib File::Spec->catdir($FindBin::Bin);
}

require 'rsbackup.pm';

my $MY_PATH;
my $TEST_CONDITIONS;
my $testConfigurationFile;
my $transports;

sub loadConfigurationFile {
   use File::Spec::Functions qw(rel2abs);
   use File::Basename;
   use Cwd;
   use Cwd qw(realpath);
   # calculate the name of the configuration file, as basename.conf
   # and get the path to the program at the same time.
   my $filename;
   my $suffix;
   ($filename, $MY_PATH, $suffix) = fileparse(realpath($0),('.pl'));
   my $configuration_file = $filename . '.conf';
   my @configurationFiles; # store the names of configuration files found, in correct order.
   # implementing a queue, using push to place things into the queue, and shift to bring them out in the same order
   # Note: This is sloppy as, if we are running from the app directory, the conf file is run twice
   # /etc has lowest priority, so it is run first
   if ( $TEST_CONDITIONS == 3 ) { # we are using an alternate configuration, generally for development
      push @configurationFiles, "../../../rsbackup.conf";
   } elsif ( $testConfigurationFile ) {
      print "Loading configuration file from command line, $testConfigurationFile\n";
      push @configurationFiles, $testConfigurationFile;
   } else {
      push @configurationFiles, "/etc/$configuration_file" if ( -e "/etc/$configuration_file" );
      # now, try for the "real" configuration file in /etc/$filename
      push @configurationFiles, "/etc/$filename/$configuration_file" if ( -e "/etc/$filename/$configuration_file" );
      # application directory is next higher priority
      push @configurationFiles, $MY_PATH . $configuration_file if ( -e "$MY_PATH/$configuration_file" );
      # current working directory has highest priority
      push @configurationFiles, getcwd . "/$configuration_file" if ( -e getcwd . "/$configuration_file" );
      return '' unless @configurationFiles; # require at least one configuration file
      # now, see if the control file exists and, if it does, add it at the tail end of the queue (giving it priority)
      push @configurationFiles, '/etc/rsbackup/rsbackup_control.conf' if ( -e '/etc/rsbackup/rsbackup_control.conf' );
   }
   # Now, read the contents into a string, in the correct order, so they can be returned to the calling routine
   my $confFileContents;
   my $lastConfig = ''; # total hack to work around the fact that we load multiple copies of the same file
   while ($filename = shift @configurationFiles) {
      next if $lastConfig eq $filename;
      $lastConfig = $filename;
      print "Processing Configuration File [$filename]\n" if $TEST_CONDITIONS;
      open CONFFILE, "<$filename" or die "Can not open configuration file $filename";
      $confFileContents .= join( '', <CONFFILE> );
      close CONFFILE;
   }
   return $confFileContents;
}

sub makeTempFile {
   my $content = shift;
   use File::Temp qw(tempfile);
   my $tmp_fh = new File::Temp( UNLINK => 1 );
   print $tmp_fh $content;
   return $tmp_fh->filename;
}


sub doit {
   my ( $parameters, $message ) = @_;
   
   my $filename = '';
   
   if ( $message =~ m/^filename:(.*)$/ ) {
      $filename = $1;
      $filename = &deblank( $filename );
   } else {
      $filename = &saveToTempFile( $message );
   }

   my $ftp = Net::FTP->new( 
                           $parameters->{ 'server' }, 
                           Debug => 0, 
                           Port => $parameters->{ 'port' }, 
                           SSL => 1,
                           Timeout => $parameters->{ 'timeout' },
                           Passive => $parameters->{ 'Passive Mode' }
                          ) or die "Cannot connect to some.host.name: $@";
   $ftp->login( $parameters->{ 'Username' },$parameters->{ 'Password' } ) or die "Cannot login ", $ftp->message;
   if ( $$transports{ 'directory' } ) {
      $ftp->cwd( $transports->{'directory'} ) or die "Cannot change working directory ", $ftp->message;
   }
   $ftp->binary(); # or $ftp->ascii(), or $ftp->type( 'binary' ); or $type = $ftp->type();
   $ftp->put( $filename ) or die "get failed ", $ftp->message;
   $ftp->quit;
}



my $configuration = &loadConfigurationFile();
die "No Configuration file found" unless $configuration;
# load configuration file into memory and die if it is invalid
eval( $configuration ) or die "Error in configuration file. Execute perl -c conffile for all copies";