#!/usr/bin/perl
# GUI wrapper around ptoinfo. Requires zenity
# Jan 2008 Bruno Postle <bruno@postle.net>
use strict;
use warnings;
my $cwd = `cat \$HOME/.ptoinfo-gui` || $ENV{'HOME'};
chomp $cwd;
unless (`which ptoinfo`)
{
`zenity --error --text='ptoinfo not found in your \$PATH'`;
exit 1;
}
my $file;
if (@ARGV)
{
$file = shift @ARGV;
}
else
{
$file = `zenity --file-selection \\
--filename=$cwd/ \\
--title='Select hugin .pto project to query'` || exit 0;
chomp $file;
}
$file = quotemeta ($file);
my $title = "PTO project information";
`ptoinfo $file | \\
zenity --text-info \\
--title='$title'`;
$cwd = $file;
$cwd =~ s/\/[^\/]*$//;
$cwd =~ s/\\\//\//g;
`echo '$cwd' > \$HOME/.ptoinfo-gui` if ($cwd =~ /^\//);
exit 0;