source: extensions/pLoader/trunk/src/ploader.pl @ 4784

# +-----------------------------------------------------------------------+
# | pLoader - a Perl photo uploader for Piwigo                            |
# +-----------------------------------------------------------------------+
# | Copyright(C) 2008-2010 Piwigo Team                  http://piwigo.org |
# +-----------------------------------------------------------------------+
# | This program is free software; you can redistribute it and/or modify  |
# | it under the terms of the GNU General Public License as published by  |
# | the Free Software Foundation                                          |
# |                                                                       |
# | This program is distributed in the hope that it will be useful, but   |
# | WITHOUT ANY WARRANTY; without even the implied warranty of            |
# | MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU      |
# | General Public License for more details.                              |
# |                                                                       |
# | You should have received a copy of the GNU General Public License     |
# | along with this program; if not, write to the Free Software           |
# | Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, |
# | USA.                                                                  |
# +-----------------------------------------------------------------------+

use strict;
use FindBin;
use lib "$FindBin::Bin";
use lib "$FindBin::Bin/../res";
use lib "$FindBin::Bin/../lib";
use Wx;
use Class::Accessor::Fast;
use Uploader::GUI::wxApp;
use Uploader::GUI::Frame;
use JSON;
use Wx::Locale qw/:default/;
use Data::Dumper;

$SIG{__DIE__} = \&OnDieHandler;

# search path defined by use lib "$Bin/../res"
require 'global_settings_wdr.pl'; 
require 'progress_wdr.pl'; 
require 'login_wdr.pl'; 
require 'reupload_wdr.pl'; 
require 'photo_properties_wdr.pl';
require 'photo_properties_with_categories_tags_wdr.pl';
require 'image_properties_exif_wdr.pl';

eval {
    my $app = Uploader::GUI::wxApp->new(
            {
                bin_dir      => $FindBin::Bin,
                resource_dir => 'res',
                locale_dir   => 'locale',
            }
    );
    $app->SetFrame( 
        Uploader::GUI::Frame->new(
            {
                title     => sprintf("pLoader - Piwigo uploader %s - [%s]", $app->version, $app->site_url),
                pwg       => $app->pwg,
                imagelist => $app->imagelist,
                imageviewer_index => $app->imageviewerIndex,
                frameLayout => $app->frameLayout,
            }
        )
    );
    $app->MainLoop();
};

sub OnDieHandler {
    my ( $exception ) = @_;
    
    # if triggered in eval
    # return if $^S;
    print $exception;
}
1;