#!/usr/bin/perl
# skript generuje PNG obrazky zvolene vysky a sirky - RGB barva a nazev souboru musi byt v CSV souboru, napr.
#ff0000,červená
#00ff00;jasně zelená
#0000ff,modrá


$vyska = 20;
$sirka = 50;

open ( VSTUP, $ARGV[0] ) or die("Zadejte vstupni CSV soubor s RGB kody a nazvy souboru\n");

$radek_count = 0;

while ( chomp($radek = <VSTUP>) ) {

    @polozky = split( /,|;/, $radek);
    
    if ( $polozky[0] !~ /^\#[0-9a-fA-F]{6}/ ) {
    
	print "Problem s definici barvy na radku $radek_count: $polozky[0] ";

	if ( $polozky[0] =~ /^[0-9a-fA-F]{6}$/ ) {
	    $polozky[0] = "#".$polozky[0];
	    print "- opravuji na $polozky[0], ";
	}
    
    }

    print ("barva: $polozky[0] soubor: $polozky[1]\n");

#    print "convert -size $sirka"."x"."$vyska xc:\"$polozky[0]\" \"$polozky[1].png\"\n";
    $hlaseni = system("convert -size $sirka"."x"."$vyska xc:\"$polozky[0]\" \"$polozky[1].png\"");
    if ( $hlaseni != 0 ) { print "Problem s generovanim obrazku pro radek $radek_count\n"; }

    $radek_count++;

}

close (VSTUP);