diff options
Diffstat (limited to 'tools/intro-outro')
| -rw-r--r-- | tools/intro-outro | 139 |
1 files changed, 0 insertions, 139 deletions
diff --git a/tools/intro-outro b/tools/intro-outro deleted file mode 100644 index 3830186..0000000 --- a/tools/intro-outro +++ /dev/null @@ -1,139 +0,0 @@ -#!/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; -use File::Basename; - -if ($#ARGV != 0 ) { - print "usage: intro-outro <csv-file>\n"; - exit; -} -my $file=$ARGV[0]; - -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]; - - my $filenametmp = fileparse($filename, qr/\.\D.*/); - - unless (-e $filename) { - print "File: $filename doesn't Exist!\n"; - exit 1; - } - - print "#$.. Filename: $filename\n"; - - print "\tIntro:\n"; - print "\t\tLogo: $logo\n"; - print "\t\tName: $name\n"; - print "\t\tTitle: $title\n"; - print "\t\tWhat: $what\n"; - print "\t\tDate: $date\n"; - print "\t\tLocation: $location\n"; - print "\t\tLicense: $license\n"; - - system("bash ./image_logo $filename $counter white $logo"); $counter++; - system("bash ./image_logo $filename $counter white $logo"); $counter++; - system("bash ./image_logo $filename $counter white $logo"); $counter++; - - system("bash ./image_text $filename $counter white '$what' '$date - $location'"); $counter++; - system("bash ./image_text $filename $counter white '$what' '$date - $location'"); $counter++; - system("bash ./image_text $filename $counter white '$what' '$date - $location'"); $counter++; - - system("bash ./image_text $filename $counter white '$title' '$name'"); $counter++; - system("bash ./image_text $filename $counter white '$title' '$name'"); $counter++; - system("bash ./image_text $filename $counter white '$title' '$name'"); $counter++; - - system("cp $license.png $filenametmp-$counter.png"); $counter++; - system("cp $license.png $filenametmp-$counter.png"); $counter++; - system("cp $license.png $filenametmp-$counter.png"); $counter++; - - # .dv buh fix! - system("./image2video $filename intro"); - system("rm $filenametmp-*.png"); - $counter="000"; - - print "\tOutro:\n"; - - system("bash ./image_text $filename $counter black 'TAKK TIL'"); $counter++; - system("bash ./image_text $filename $counter black 'TAKK TIL'"); $counter++; - system("bash ./image_text $filename $counter black 'TAKK TIL'"); $counter++; - - print "\t\tName: $name\n"; - print "\t\tLocation: $location\n"; - - system("bash ./image_text $filename $counter black '$name' Foredragsholder"); $counter++; - system("bash ./image_text $filename $counter black '$location' Lokaler"); $counter++; - - foreach (@takk) { - my $test = $columns[$_]; - if($test) { - my @takk = split(/:/, $test); - my $hva = $takk[0]; - my $hvem = $takk[1]; - # if takk1 "" - print "\t\tTakk: $hvem - $hva\n"; - system("bash ./image_text $filename $counter black '$hvem' '$hva'"); $counter++; - } - } - - foreach (@url) { - my $lenke = $columns[$_]; - print "\t\tURL: $lenke\n"; - system("bash ./image_text $filename $counter black ' '"); $counter++; - system("bash ./image_text $filename $counter black '$lenke'"); $counter++; - system("bash ./image_text $filename $counter black '$lenke'"); $counter++; - } - - system("./image2video $filename outro"); - system("rm $filenametmp-*.png"); - - } else { - my $err = $csv->error_input; - print "Failed to parse line #$..: $err"; - } -} - -close CSV; |