syncdiff

#!/usr/bin/perl

###########################################################################
# Copyright (C) 2014  John 'Warthog9' Hawley                              #
#                         jhawley@redhat.com                              #
#                         warthog9@eaglescrag.net                         #
#                                                                         #
# This file is originally part of SyncDiff(erent).                        #
#                                                                         #
# This library is free software; you can redistribute it and/or           #
# modify it under the terms of the GNU Lesser General Public              #
# License as published by the Free Software Foundation; either            #
# version 2.1 of the License, or (at your option) any later version.      #
#                                                                         #
# This library 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       #
# Lesser General Public License for more details.                         #
#                                                                         #
# You should have received a copy of the GNU Lesser General Public        #
# License along with this library; if not, write to the:                  #
#    Free Software Foundation, Inc.                                       #
#    51 Franklin Street                                                   #
#    Fifth Floor                                                          #
#    Boston, MA  02110-1301                                               #
#    USA                                                                  #
#                                                                         #
# Or, see <http://www.gnu.org/licenses/>.                                 #
###########################################################################

# Standard includes:
use Getopt::Long;
Getopt::Long::Configure(
			qw(
				bundling
				no_getopt_compat
				posix_default 
				no_ignore_case
				gnu_compat
			));
use POSIX ":sys_wait_h";

# Local program includes
use FileSync::SyncDiff::Config;
use FileSync::SyncDiff::Scanner;
use FileSync::SyncDiff::DB;
use FileSync::SyncDiff::File;
use FileSync::SyncDiff::Server;
use FileSync::SyncDiff::Client;

# Debugging includes
use Data::Dumper;

## End includes

# Setup things:
$main::VERSION = '0.01';

sub display_help {
	print "Right now, there is no helping anyone.\n";
	print "If you are running this you had better be John 'Warthog9' Hawley\n";
}

#
# Run something
#

# Setup the argument handling, can't do much
# till we've procssed all of that
my $config_file;
my $run_as_server;
my $get_version;
my $get_help;
my $run_only_scan;
GetOptions (
		"c|config=s"	=> \$config_file,      # string
		"s|server"	=> \$run_as_server,
		"scan"		=> \$run_only_scan,
		"v|version"	=> \$get_version,
		"h|?|help"	=> \$get_help,
	   );

print "Config File: ". $config_file ."\n";
print "Run as Server? ". $run_as_server ."\n";
print "Get Version? ". $get_version ."\n";

if( $get_version ){
	print "Version: ". $main::VERSION ."\n";
	exit(0);
}

if( $get_help ){
	display_help();
	exit(0);
}

#
# Load up the Configuration file
#

if( ! defined $config_file ){
	$config_file = "syncdiff.cfg";
}

#print "---------------------------\n";
#print "config file:\n";
#print "---------------------------\n";
#print Dumper $config_file;
#print "^^^^^^^^^^^^^^^^^^^^^^^^^^^\n";

my $config = FileSync::SyncDiff::Config->new();

$config->read_config( $config_file );

# End opening and parsing the config file
# 	$config now exists and can be passed around
# 	as needed

my $dbconnection = FileSync::SyncDiff::DB->new( config => $config );

$dbconnection->file( "psync.sqlite" );

$dbconnection->connect_and_fork();

if( $run_only_scan ){
	FileSync::SyncDiff::Scanner->full_scan( $config, $dbconnection );
	exit(0);
} # end if( $run_only_scan )

if( $run_as_server ){
	my $server = FileSync::SyncDiff::Server->new( config => $config->config, dbref => $dbconnection );
	$server->run();
	exit(0);
}

#print Dumper $config->config;

foreach $group_name ( keys %{ $config->config->{groups} } ){
	print "Main client loop - group: ". $group_name ."\n";

	foreach $base ( @{ $config->config->{groups}->{$group_name}->{patterns} } ){

		my $client = FileSync::SyncDiff::Client->new( config_options => $config->get_group_config( $group_name ), group => $group_name, groupbase => $base, groupbase_path => $config->get_truepath( $base ), dbref => $dbconnection );

		$client->fork_and_connect();
	} # end base foreach
} # end group_name foreach

#my $config = FileSync::SyncDiff::Config->new();
#
#$config->read_config('csync2.cfg');