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

Last change on this file since 4632 was 4632, checked in by ronosman, 14 years ago

Feature 1369 added : no longer use relative path to access resource and locale directories.

  • Property svn:eol-style set to LF
File size: 2.2 KB
Line 
1# +-----------------------------------------------------------------------+
2# | pLoader - a Perl photo uploader for Piwigo                            |
3# +-----------------------------------------------------------------------+
4# | Copyright(C) 2008      Piwigo Team                  http://piwigo.org |
5# +-----------------------------------------------------------------------+
6# | This program is free software; you can redistribute it and/or modify  |
7# | it under the terms of the GNU General Public License as published by  |
8# | the Free Software Foundation                                          |
9# |                                                                       |
10# | This program is distributed in the hope that it will be useful, but   |
11# | WITHOUT ANY WARRANTY; without even the implied warranty of            |
12# | MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU      |
13# | General Public License for more details.                              |
14# |                                                                       |
15# | You should have received a copy of the GNU General Public License     |
16# | along with this program; if not, write to the Free Software           |
17# | Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, |
18# | USA.                                                                  |
19# +-----------------------------------------------------------------------+
20
21use strict;
22use FindBin;
23use lib "$FindBin::Bin";
24use lib "$FindBin::Bin/../res";
25use lib "$FindBin::Bin/../lib";
26use Wx;
27use Class::Accessor::Fast;
28use Uploader::GUI::wxApp;
29use JSON;
30use Wx::Locale qw/:default/;
31use Data::Dumper;
32
33$SIG{__DIE__} = \&OnDieHandler;
34
35# search path defined by use lib "$Bin/../res"
36require 'global_settings_wdr.pl'; 
37require 'progress_wdr.pl'; 
38require 'login_wdr.pl'; 
39require 'reupload_wdr.pl'; 
40require 'photo_properties_wdr.pl';
41
42eval {
43    my $app = Uploader::GUI::wxApp->new(
44            {
45                bin_dir      => $FindBin::Bin,
46                resource_dir => 'res',
47                locale_dir   => 'locale',
48            }
49    );
50    $app->MainLoop();
51};
52
53sub OnDieHandler {
54    my ( $exception ) = @_;
55   
56    # if triggered in eval
57    # return if $^S;
58    print $exception;
59}
601;
61
62
Note: See TracBrowser for help on using the repository browser.