#!/usr/bin/perl -w
#
# Run as   find VCS -type d -name C | ./figures_scan.pl > figures.html
#
# Author: Simos Xenitellis
#
print "<h1>Figures for language Greek</h1>\n";
while(<>)
{
	chop;
	print "<h2>Starting with $_";
	$in = $_ . '/figures';
	$inel = $_;
	$inel =~ s/C$/el\/figures/g;
	@components = split(/\//, $in);
	$module = $components[1];
	print "\t$module</h2>\n";
	@Cpngs = 0;
	if ( -e $in )
	{
		#print "        <h4>Exists: $in</h4>\n";
		$a = `ls $in/*.png`;
		@Cpngs = split(/\n/, $a);

		print "        <TABLE BORDER=\"1\" CELLSPACING=\"0\" CELLPADDING=\"0\">\n";
		print "        <TR>\n";
		foreach $file (@Cpngs)
		{
			@imagecomponents = split(/\//, $file);
			$imagefile = $imagecomponents[-1];
			$segment = substr($file, 4);
			$segment =~ s/\//\/plain\//;
			$url = "http://git.gnome.org/cgit/$segment";
			$oururl = $url;
			$oururl =~ s/\/C\//\/el\//;
			print "\t\t<td><img src=\"$url\" align=\"center\" alt=\"$url\"/></td>\n";
			if ( -e $inel )
			{
				if ( -e "$inel/$imagefile" )
				{
					print "\t\t<td><img src=\"$oururl\" align=\"center\" alt=\"$oururl\"/></td>\n";
				}
				else
				{
					print "\t\t<td>NO IMAGE</td>\n";
				}
					
			}
			else
			{
					print "\t\t<td>NO IMAGE</td>\n";
			}
			print "        </TR>\n";
		
			print "        <TR>\n";
			print "        <TD align=center>$url</TD>\n";
			print "        </TR>\n";
		}
		print "</TABLE>\n";

		#if ( ! -e $inel )
		#{
		#	print "        <h4>Does not exist: $inel</h4>\n";
		#}
	}
	#else
	#{
	#	print "        <h4>Does not exist: $in</h4>\n";
	#}
	print "\n";
}