update_git.pl

#!/usr/bin/perl

use strict ;
use warnings ;

my $msg = $ARGV[0] || 'Routine check-in' ;

my @tools ;
open FILE , "tool_list.txt" ;
while ( <FILE> ) {
	chomp ;
	next if $_ eq '' ;
	push @tools , $_ ;
}
close FILE ;

print "Processing " . scalar(@tools) . " tools...\n" ;
foreach my $tool ( @tools ) {
	my $dir = "/data/project/$tool" ;
	unless ( -d $dir ) {
		print "* ERROR : $tool has no dir $dir\n" ;
		next ;
	}
	unless ( -d "$dir/.git" ) {
		print "* Creating git for $tool\n" ;
		`cd $dir ; git init ; git add public_html ; git commit -m "Initial check-in"` ;
	}
	my $gi = "$dir/.gitignore" ;
	unless ( -e $gi ) {
		`cp /data/project/magnustools/dummy_gitignore $gi` ;
	}
	my $license = "$dir/LICENSE" ;
	unless ( -e $license ) {
		`cp /data/project/magnustools/LICENSE $license ; cd $dir ; git add LICENSE` ;
	}
	
	my $skip = 0 ;
	foreach ( `cd $dir ; git status` ) {
		$skip = 1 if $_ =~ m/^nothing to commit/ ;
		if ( $_ =~ m/^nothing added to commit but/ ) {
			$skip = 1 ;
			print "*$tool : $_" ;
		}
	}
	
	if ( $skip ) {
		print "Nothing changed in $tool\n" ;
		next ;
	}
	
	
	
	print "* Updating $tool\n" ;
	foreach ( `cd $dir ; git commit -am "$msg"` ) {
		next if $_ =~ m/^\# On branch master/ ;
		next if $_ =~ m/^nothing to commit/ ;
		print $_ ;
	}
	
	my $origin = `grep -c origin $dir/.git/config` ;
	chomp $origin ;
	unless ( $origin eq '0' ) {
		print "Updating external repository...\n" ;
		`cd $dir ; git push` ;
	}
}