Commits and pushes EVERYTHING. Useful for pair programming and using git as a syncing mechanism

git-sync

#!/usr/bin/perl

use strict;
use Getopt::Long;

warn "Stage\n";
qx(git add -A -v);
warn "Commit\n";
qx(git commit -a --allow-empty-message -m '' -v);

# my $logLines = qx(git log --pretty="format:%h %D" `git rev-list -g --all`);
# 
# foreach my $logLine (split /\n/, $logLines)
# {
# 	my ($commit) = $logLine =~ m~^([A-F0-9]+)~i;
# 	if ($logLine !~ m~tag: \$/${commit}~)
# 	{
# 		printf qq(Tagging %s\n), $commit;
# 		system "git", "tag", "-a", '$/'.$commit, $commit, "-m", "";
# 	}
# }

if (qx(git remote))
{
	warn "Push\n";
	qx(git push --all -v);
	warn "Push tags\n";
	qx(git push --tags -v);
	warn "Fetch\n";
	qx(git fetch --all -v);
	exit 0;
}
else
{
	warn "No remotes\n";
}