#!/usr/bin/perl
use strict;
use warnings;
my $cwd = `cat \$HOME/.qtvr2erect-gui` || $ENV{'HOME'};
chomp $cwd;
unless (`which qtvr2erect`)
{
`zenity --error --text='qtvr2erect not found in your \$PATH'`;
exit 1;
}
my $qtvr;
if (@ARGV)
{
$qtvr = shift;
}
else
{
$qtvr = `zenity --file-selection \\
--filename=$cwd/ \\
--title='Select cubic QTVR .mov file'` || exit 0;
chomp $qtvr;
$cwd = $qtvr;
$cwd =~ s/\/[^\/]*$//;
$cwd =~ s/\\\//\//g;
`echo '$cwd' > \$HOME/.qtvr2erect-gui` if ($cwd =~ /^\//);
}
`qtvr2erect '$qtvr' | \\
zenity --progress \\
--title='Converting QTVR' \\
--auto-close \\
--pulsate \\
--text='Processing: $qtvr'`;
`zenity --info \\
--title='equirectangular created' \\
--text='$qtvr.tif'`;
exit 0;