simply-git/lib/SimplyGit/Git.pm

package SimplyGit::Git;
use strict;
use warnings;
use Log::Log4perl qw(:easy);
use lib ".";
use SimplyGit::Shellex qw(shellex findBin);
use Exporter qw(import);
our @EXPORT_OK = qw(readConfig getStatus returnState addFiles commitChanges pushChanges stashAndReset resetFromUpstream);

sub readConfig {

	# This sub is probably not really needed for what I'm trying to do
	# git itself already parses this config...but an interesting exercise non the less
	# and may be useful later
	my $path = shift;
	my $logger = shift;
	if ( ! -d $path ) {
		if ( defined $logger && $logger ne "" ) {
			$logger->error("$path doesn't look like a dir, exiting...");
			exit 1;
		} else {
			print "Failed and no logger passed, exiting...\n";
			exit 1;
		}
	}
	my $gitConfigPath = $path . "/" . ".git/config";
	my $catCmd = findBin("cat",$logger);
	my @configLines = split("\n",shellex("$catCmd $gitConfigPath",$logger));
	my %gitConfig;
	my @valueLines;
	my $lineCounter = 0;
	foreach my $line ( @configLines ) {
		$lineCounter++;
		#if ( $line =~ m/\[(.*)\]/ ) {
		if ( $line =~ m/(\[.*\])/ ) {
			#$valueLine =~ /\t(.*)\ =\ (.*)$/;
			$gitConfig{$1} = $lineCounter;
		}

	}

	my $wcBin = findBin("wc",$logger);
	# TODO: Clean shell call up
	my $lastLine = shellex("$wcBin -l $gitConfigPath | awk '{print \$1}'",$logger);
	chomp $lastLine;
	my @lineRange = values %gitConfig;
	push(@lineRange, $lastLine);
	my @sortedRange = sort { $a <=> $b } @lineRange;
	my $prevVal;
	foreach my $val ( @sortedRange ) {
		my @stash;
		print "Val is $val\n";
		if ( ! defined $prevVal ) {
			$prevVal = $val;
			next;
		} else {
			print "Current var is $val and prevVar $prevVal\n";
			my $lineDiff = ( $prevVal + 1 ) . "-" . ( $val - 1 );
			my $lineCounter = 0;
			foreach my $line ( @configLines ) {
				$lineCounter++;
				#if ( $lineCounter >= ( $prevVal + 1 ) && $lineCounter <= ( $val - 1 ) ) {
				if ( $lineCounter >= $prevVal && $lineCounter <= $val ) {
					print "$line\n";
				}
			}
			print "lineDiff of vals is: $lineDiff \n";
			$prevVal = $val;
		}
	}

	return %gitConfig;

}

sub getStatus {

	my $logger = shift;
	my $gitCmd = findBin("git",$logger);
	my $status = shellex("$gitCmd status -uall --porcelain",$logger);
	chomp $status;
	return $status;

}

sub returnState {

	my $logger = shift;
	my $gitCmd = findBin("git",$logger);
	my $currentStatus = getStatus($logger);
	my @statusLines = split("\n", $currentStatus);
	my @untracked;
	my @modified;
	my @added;
	my @deleted;
	foreach my $file ( @statusLines ) {
		$file =~ m/^\ {0,1}([A-Z?]{1,2})\ {1,2}(.*)/;
		my $fileAttrs = $1;
		my $filename = $2;
		my @attrs = split("",$fileAttrs);
		foreach my $attr ( @attrs ) {

			if ( $attr =~ m/\?/ ) {
				push(@untracked, $filename) unless grep $_ eq $filename, @untracked;
			} 
			
			if ( $attr =~ m/[M]/ ) {
				push(@modified, $filename) unless grep $_ eq $filename, @modified;
			} 
			
			if ( $attr =~ m/[A]/ ) {
				push(@added, $filename) unless grep $_ eq $filename, @added;
			}

			if ( $attr =~ m/[D]/ ) {
				push(@deleted, $filename) unless grep $_ eq $filename, @deleted;
			}

		}
	}

	return ( \@untracked, \@modified, \@added, \@deleted );

}

sub addFiles {

	my $filesToAddRef = shift;
	my $logger = shift;
	my $gitCmd = findBin("git",$logger);
	foreach my $file ( @$filesToAddRef ) {
		shellex("$gitCmd add $file",$logger);
	}

}

# TODO: Possibly worth returning output for commitChanges(), pushChanges(), stashAndReset, even if I'm not using it right now

sub commitChanges {

	my $commitMsg = shift;
	chomp $commitMsg;
	my $logger = shift;
	my $gitCmd = findBin("git",$logger);
	shellex("$gitCmd commit -m \"$commitMsg\"",$logger);

}

sub pushChanges {

	my $logger = shift;
	my $gitCmd = findBin("git",$logger);
	my $output = shellex("$gitCmd push",$logger);

}

sub stashAndReset {

	my $logger = shift;
	my $gitCmd = findBin("git",$logger);
	shellex("$gitCmd stash",$logger);
	my @stashList = split("\n", shellex("$gitCmd stash list",$logger));
	my $stashCount = scalar @stashList;
	foreach my $stashNum ( 1..$stashCount ) {
		shellex("$gitCmd stash drop 0",$logger);
	}

	# TODO: Depending on use case need to do more here
	shellex("$gitCmd rebase",$logger);
}

sub resetFromUpstream {

	# git stash and git reset --hard and git pull ? I think

}

sub appendRepoUserConfig {


}