swatson
/
git-site-gen


			
				
					
						
						
							123456789101112131415161718192021222324252627282930313233343536373839404142434445
							package Gsg::Html;
use strict;
use warnings;
use Log::Log4perl qw(:easy);
use Exporter qw(import);
our @EXPORT_OK = qw(write_file append_file write_root_index);

# These subs might belong in shellex
sub write_file {

	my $content = shift;
	my $path = shift;
	open(my $fh, ">", $path) or die "Couldnt open $path\n";
	print $fh "$content";
	close $fh;
	
}

sub append_file {
	my $content = shift;
	my $path = shift;
	open(my $fh, ">>", $path) or die "Couldnt open $path\n";
	print $fh "$content";
	close $fh;
}

sub write_root_index {

	my $index = shift;
	my $project_dirs_ref = shift;
	write_file("", $index);
	append_file("<html><body><b>Git Projects</b><br><head><META NAME=\"ROBOTS\" CONTENT=\"NOINDEX, NOFOLLOW\"></head>\n",$index);
	append_file("<small><i>Statically generated web root for browsing my git projects</i></small><br>",$index);
	append_file("<small><i>This is a read-only site and does not provide a merge/clone interface</i></small><hr/>",$index);
	
	foreach my $project ( @$project_dirs_ref ) {
		append_file("<table><div id=\"cotent\"><table id=\"index\"><tbody>",$index);
		append_file("<tr><td><a href=\"projects/$project/index.html\">$project</a></td>",$index);
		system("mkdir -p $projects_dir$project") == 0 or die "Couldnt create $projects_dir/$project";
	}
	append_file("</tr></tbody></table></div></body></html>",$index);

}

1;