#!/usr/local/bin/perl

use strict;
use lib "lib";
require "lib/Video/DVDRip.pm";

BEGIN { $Video::DVDRip::PREFERENCE_FILE = "$ENV{HOME}/.dvdriprc" }

main: {
    my $version_file  = "lib/Video/DVDRip.pm";
    my $version_mtime = (stat($version_file))[9];

    foreach my $from_file ( glob("l10n/splash.*.svg") ) {
        my ($lang)    = $from_file =~ /splash\.([^.]+)\.svg/;
        my $to_file   = "lib/Video/DVDRip/splash.$lang.png";
        my $tmp_file  = "/tmp/dvdrip-splash.svg";

        if (    (stat($to_file))[9] >= (stat($from_file))[9]
             && (stat($to_file))[9] >=  $version_mtime ) {
            print "Skipping up-to-date file $to_file.\n";
            next;
        }

        print "Generating file $to_file.\n";

        my $command =
            qq[perl -p -e 's/DVDRIP-VERSION/$Video::DVDRip::VERSION/' $from_file > $tmp_file && ].
            qq[inkscape --export-png $to_file --export-area=0:0:388:287 ].
            qq[ --export-background=white --export-dpi=130 ].
            qq[ $tmp_file; rm -f $tmp_file ];

        system($command);
    }
}