#!/usr/bin/perl

use strict;
use warnings;

my $cwd = `cat \$HOME/.tif2svg-gui` || $ENV{'HOME'};
chomp $cwd;

unless (`which tif2svg`)
{
    `zenity --error --text='tif2svg not found in your \$PATH'`;
    exit 1;
}

my @files;

if (@ARGV)
{
    @files = @ARGV;
}
else
{
    my $result = `zenity --file-selection \\
                         --filename=$cwd/ \\
                         --title='Select TIFF files to assemble to SVG' \\
                         --multiple` || exit 0;
    chomp $result;
    @files = split ('\|', $result);
}

my $index = 1;

@files = map (quotemeta, @files);
my $files = join ' ', @files;
`tif2svg $files`;

$cwd = $files[0];
$cwd =~ s/\/[^\/]*$//;
$cwd =~ s/\\\//\//g;
`echo '$cwd' > \$HOME/.tif2svg-gui` if ($cwd =~ /^\//);

my $title = scalar (@files) . ' layers added to SVG';
my $text = join ("\n", @files);

`zenity --info \\
        --title='$title' \\
        --text='$text'`;

exit 0;