#!/usr/bin/perl
#
# Date:    2009-12-04
# Author:  Ole Kristian Lien
# License: GNU General Public License
#
# Creates a intro and outro video-file from a csv-file
#
# libtext-csv-perl
# see test.csv

use strict;
use warnings;
use Text::CSV;

my $file = 'test.csv';
my $csv = Text::CSV->new();
my @takk;
my @url;
my $counter = "000";

open (CSV, "<:encoding(utf8)", "$file") or die "$file: $!";

while (<CSV>) {
	if ($csv->parse($_)) {
		my @columns  = $csv->fields();

		if ($. == 1) {
				my $index;
				foreach (@columns) {
					if ($_ eq "Takk") {
						push(@takk, $index); 
					}
					elsif ($_ eq "URL") {
						push(@url, $index); 
					}
					$index++;
				}
		}

		next if ($. == 1);

		my $filename = $columns[0];
		my $logo     = $columns[1];
		my $name     = $columns[2];
		my $title    = $columns[3];
		my $what     = $columns[4];
		my $date     = $columns[5];
		my $location = $columns[6];
		my $license  = $columns[7];
		my $takk     = $columns[8];

		print "#$.. Filename: $filename\n";

		print "\tIntro:\n";
		print "\t\tSlide 1: Logo: $logo\n";
		print "\t\tSlide 2: Name: $name\n";
		print "\t\tSlide 2: Title: $title\n";
		print "\t\tSlide 2: What: $what\n";
		print "\t\tSlide 2: Date: $date\n";
		print "\t\tSlide 2: Location: $location\n";
		print "\t\tSlide 3: License: $license\n";

		system("bash ./image_logo $filename.dv $counter white $logo"); $counter++;
		system("bash ./image_logo $filename.dv $counter white $logo"); $counter++;
		system("bash ./image_logo $filename.dv $counter white $logo"); $counter++;

		system("bash ./image_text $filename.dv $counter white '$what' '$date - $location'"); $counter++;
		system("bash ./image_text $filename.dv $counter white '$what' '$date - $location'"); $counter++;
		system("bash ./image_text $filename.dv $counter white '$what' '$date - $location'"); $counter++;

		system("bash ./image_text $filename.dv $counter white '$title' '$name'"); $counter++;
		system("bash ./image_text $filename.dv $counter white '$title' '$name'"); $counter++;
		system("bash ./image_text $filename.dv $counter white '$title' '$name'"); $counter++;

		system("cp $license.png $filename-$counter.png"); $counter++;
		system("cp $license.png $filename-$counter.png"); $counter++;
		system("cp $license.png $filename-$counter.png"); $counter++;

		# .dv buh fix!
		system("./image2video $filename.dv intro");
		system("rm $filename-*.png");
		$counter="000";

		print "\tOutro:\n";

		system("bash ./image_text $filename.dv $counter black 'TAKK TIL'"); $counter++;
		system("bash ./image_text $filename.dv $counter black 'TAKK TIL'"); $counter++;
		system("bash ./image_text $filename.dv $counter black 'TAKK TIL'"); $counter++;

		print "\t\tName: $name\n";
		print "\t\tLocation: $location\n";

		system("bash ./image_text $filename.dv $counter black '$name' Foredragsholder"); $counter++;
		system("bash ./image_text $filename.dv $counter black '$location' Lokaler"); $counter++;

		foreach (@takk) {
			my $test = $columns[$_];
			my @takk = split(/:/, $test);
			my $hva = $takk[0];
			my $hvem = $takk[1];
		# if takk1 ""
			print "\t\t$hvem - $hva\n";
			system("bash ./image_text $filename.dv $counter black '$hvem' '$hva'"); $counter++;
		}

		foreach (@url) {
			my $lenke = $columns[$_];
			print "\t\tURL: $lenke\n";
			system("bash ./image_text $filename.dv $counter black ' '"); $counter++;
			system("bash ./image_text $filename.dv $counter black '$lenke'"); $counter++;
			system("bash ./image_text $filename.dv $counter black '$lenke'"); $counter++;
		}

		# .dv buh fix!
		system("./image2video $filename.dv outro");
		system("rm $filename-*.png");

	} else {
		my $err = $csv->error_input;
		print "Failed to parse line #$..: $err";
	}
}

close CSV;