git-site-gen/gsg

#!/usr/bin/perl

use strict;
use warnings;

use Getopt::Long qw(GetOptions);
use Log::Log4perl qw(:easy);
use lib "/usr/local/lib";
use Shellex::Shellex qw(shellex findBin);
use Gsg::ConfigParse qw(parse_gsg_config);
use Gsg::Gather qw(get_file_tree get_projects);
use Gsg::Html qw(write_file append_file write_root_index);

my $log_file = "gsg.log";
sub get_log_name { return $log_file; };
my $log_conf = q(
        log4perl.rootLogger              = INFO, LOG1, screen
        log4perl.appender.LOG1           = Log::Log4perl::Appender::File
        log4perl.appender.LOG1.filename  = sub { get_log_name(); }
        log4perl.appender.LOG1.mode      = append
        log4perl.appender.LOG1.layout    = Log::Log4perl::Layout::PatternLayout
        log4perl.appender.LOG1.layout.ConversionPattern = %d %p >> %m %n

	log4perl.appender.screen = Log::Log4perl::Appender::Screen
	log4perl.appender.screen.stderr = 0
	log4perl.appender.screen.layout = PatternLayout
	log4perl.appender.screen.layout.ConversionPattern = %d %p >> %m %n
);

Log::Log4perl::init(\$log_conf);
my $logger = get_logger();

my $config_file = "config.example";
my %config = parse_gsg_config($config_file,$logger);

my $web_root = $config{'WebRoot'};
my $web_projects_dir = $web_root . "/projects/";
my $root_index = $web_projects_dir . "index.html";

foreach my $key ( keys %config ) {
	if ( $key eq "IgnoredProjects" ) {
		print "$key contains:\n";
		foreach my $val ( @{$config{$key}} ) {
			print "$val\n";
		}
	} else {
		print "Key is $key and val is $config{$key}\n";
	}
}

print "Projects are:\n";
my $git_projects_ref = get_projects($config{'GitHome'},$config{'IgnoredProjects'},$logger);
foreach my $p ( @$git_projects_ref ) {
	print "$p\n";
}

# write_root_index($root_index,$git_projects_ref);
# my ( $file_tree_ref, $file_content_ref, $commits_ref ) = get_file_tree($project_dir,$logger);