simply-git/sg

#!/usr/bin/perl

use strict;
use warnings;

use Getopt::Long qw(GetOptions);
use Log::Log4perl qw(:easy);
# TODO: This needs to be scoped properly
use lib "/usr/local/lib";
use SimplyGit::Shellex qw(shellex findBin);
use SimplyGit::Git qw(readConfig getStatus returnState addFiles commitChanges pushChanges);

sub initSG($) {

	my $sgDir = shift;
	my $pwdCmd = findBin("pwd");
	my $pwd = shellex($pwdCmd);
	chomp $pwd;
	my $path = $pwd . "/" . $sgDir;
	my $logFile = $pwd . "/" . $sgDir . "/" . "sgLog.txt";
	if ( ! -d $path ) {
		print "Creating $path\n";
		shellex("mkdir $path");
	}

	if ( ! -f $logFile ) {
		print "Creating $logFile\n";
		shellex("touch $logFile");
	}

	return ( $path, $logFile );
	
}

my ( $sgPath, $sgLogFile ) = initSG(".sg");
sub getLogName { return $sgLogFile; };
my $log_conf = q(
        log4perl.rootLogger              = ERROR, LOG1
        log4perl.appender.LOG1           = Log::Log4perl::Appender::File
        log4perl.appender.LOG1.filename  = sub { getLogName(); }
        log4perl.appender.LOG1.mode      = append
        log4perl.appender.LOG1.layout    = Log::Log4perl::Layout::PatternLayout
        log4perl.appender.LOG1.layout.ConversionPattern = %d %p %m %n
);

Log::Log4perl::init(\$log_conf);
my $logger = get_logger();
my $gitCmd = findBin("git",$logger);

my %args;
GetOptions(
	\%args,
	'push-all',
	'interactive',
	'view',
	'reset-from-master',
	'branch-from-master',
);

sub printHelp {

	my $help = <<EOF
simply-git
Usage:
	--view
	Display git status of files and other information

	--push-all
	Push all untracked and modified files (can be used with interactive mode)

	--interactive
	Enable interactive mode with supported opts

	--reset-from-master
	Reset all current changes so that the file tree matches upstream/master

	--branch-from-master
	Create a new clean branch from upstream/master
EOF
;

	print "$help\n";

}

if ( scalar keys %args < 1 ) {
	printHelp();
}


# This functionality is mainly here to test building out Git.pm, and doesn't really offer anything that regular git doesn't
if ( defined $args{'view'} ) {
	my ( $untrackedRef, $modifiedRef, $addedRef, $deletedRef ) = returnState($logger);
	my $refs = shellex("$gitCmd show-ref",$logger);
	print "$refs\n";
	my $swpWarning = "\t# Likely a Vi .swp file";
	print "Untracked files:\n";
	foreach my $file ( @$untrackedRef ) {
		if ( $file =~ m/.swp/ ) {
			print "\t$file $swpWarning\n";
		} else {
			print "\t$file\n";
		}
	}
	print "Modified files:\n";
	foreach my $file ( @$modifiedRef ) {
		if ( $file =~ m/.swp/ ) {
			print "\t$file $swpWarning\n";
		} else {
			print "\t$file\n";
		}
	}

	print "Files added to commit:\n";
	foreach my $file ( @$addedRef ) {
		if ( $file =~ m/.swp/ ) {
			print "\t$file $swpWarning\n";
		} else {
			print "\t$file\n";
		}
	}

	print "Files to be deleted from commit:\n";
	foreach my $file ( @$deletedRef ) {
		if ( $file =~ m/.swp/ ) {
			print "\t$file $swpWarning\n";
		} else {
			print "\t$file\n";
		}
	}
}

# This functionality is mainly here to test building out Git.pm, and doesn't really offer anything that regular git doesn't
if ( defined $args{'push-all'} ) {

	my ( $untrackedRef, $modifiedRef ) = returnState($logger);
	my @files;
	push(@files,@$untrackedRef); push(@files,@$modifiedRef);
	my @filesToCommit;
	if ( defined $args{'interactive'} ) {
		foreach my $file ( @files ) {
			print "Add $file to commit (y/n): ";
			my $input = <STDIN>;
			chomp $input;
			if ( $input =~ m/^Y|^y/ ) {
				push(@filesToCommit,$file);
			} else {
				next;
			}
		}

	} else {
		@filesToCommit = @files;
	}
		
	print "Commiting the following files:\n";
	foreach my $file ( @filesToCommit ) {
		print "\t$file\n";
	}

	if ( defined $args{'interactive'} ) {
		print "Does this look correct (y/n) : ";
		my $input = <STDIN>;
		chomp $input;
		if ( $input !~ m/^Y|^y/ ) {
			print "Canceling...\n";
			exit 1;
		}
	}
	
	addFiles(\@filesToCommit,$logger);

	if ( defined $args{'interactive'} ) {
		print "Enter a commit message: ";
		my $input = <STDIN>;
		chomp $input;
		commitChanges($input,$logger);
	} else {
		my $epoch = time();
		my $commitMsg = "Generic Commit at $epoch";
		commitChanges($commitMsg,$logger);
	}

	if ( defined $args{'interactive'} ) {
		print "Push changes? (y/n): ";
		my $input = <STDIN>;
		chomp $input;
		if ( $input !~ m/^Y|^y/ ) {
			# TODO: Unstage changes?
			print "Canceling...\n";
			exit 1;
		}

		my $gitOutput = pushChanges($logger);
		print "Git returned:\n$gitOutput\n";

	} else {

		pushChanges($logger);
		my $gitOutput = pushChanges($logger);
		print "Git returned:\n$gitOutput\n";

	}


}