#!/usr/bin/env perl

#---------------------------------------------------------------------
#                          file information
#---------------------------------------------------------------------

# goldendict.wrapper - Wrapper that starts "goldendict".
# License:  Creative Commons Attribution-NonCommercial-ShareALike 2.5
# Revision: 230712

# Note:  License applies to wrapper only.  "goldendict"  itself  is  a
# separate package that's  distributed  under the  GNU  General Public
# License, version 3 (June 2007).

#---------------------------------------------------------------------
#                        standard module setup
#---------------------------------------------------------------------

require 5.10.1;
use strict;
use Carp;
use warnings;
use Cwd;
                                # Trap warnings
$SIG {__WARN__} = sub { die @_; };

#---------------------------------------------------------------------
#                           basic constants
#---------------------------------------------------------------------

use constant ZERO  => 0;        # Zero
use constant ONE   => 1;        # One
use constant TWO   => 2;        # TWO

use constant FALSE => 0;        # Boolean FALSE
use constant TRUE  => 1;        # Boolean TRUE

#---------------------------------------------------------------------
#                            main routine
#---------------------------------------------------------------------

sub Main
{
    my $HOME;                   # Absolute path for "home" directory

#---------------------------------------------------------------------
# Initial setup.

                                # Identify "home" directory
    $HOME = $ENV {HOME};
    exit ONE unless defined $HOME;

    $ENV {'QTWEBENGINE_DISABLE_SANDBOX'} = 1;
    chdir ($HOME) || die;
    system "mkdir -p .cache/goldendict/index";
    chdir ".cache/goldendict/index" || die;
    system "lndir -silent /static/goldendict/index/ .";
    my $PRODTREE = $ENV {'PRODTREE'};
    $ENV {'XDG_CONFIG_HOME'} = "$HOME/.config";

    chdir $HOME;                # Go to "home" directory
    exec "$PRODTREE/goldendict/xbin/goldendict";
}

#---------------------------------------------------------------------
#                            main program
#---------------------------------------------------------------------

&Main();                        # Call the main routine
exit ZERO;                      # Not reached