TSLPatcher.pl

# TSLPatcher as designed in Perl...
# Main script. Will use libraries TSLPatcher::GUI and TSLPatcher::Functions.
###############################################################################

use experimental qw/smartmatch autoderef switch/;

use Config::IniMan;
use Cwd;

use TSLPatcher::Functions;
use TSLPatcher::GUI;

my $base       = getcwd;
my $main_ini   = Config::IniMan->new("$base/tslpatcher.ini");
my $build_menu = 0;
my $answer     = 0;

TSLPatcher::Functions::Set_Base($base);
TSLPatcher::GUI::Set_Base($base);

my $k1path = $main_ini->get( '', 'KotOR1', '' );
my $k2path = $main_ini->get( '', 'KotOR2', '' );

if ( $k1path ne '' ) { TSLPatcher::Functions::SetPathFromIni( 1, $k1path ); }
if ( $k2path ne '' ) { TSLPatcher::Functions::SetPathFromIni( 2, $k2path ); }

$build_menu = TSLPatcher::Functions::NeedBuildMenu;

my ( $GUI, $options ) =
  TSLPatcher::GUI::Create( $build_menu, %{ $main_ini->get_section() } );

foreach ( keys %{$options} ) {
    unless ( $_ eq '' ) { $main_ini->set( $_, $options->{$_} ); }
}

TSLPatcher::Functions::Set_GUI($GUI);

if ( $build_menu == 0 ) {
    TSLPatcher::Functions::ProcessInstallPath;
}
else {
    $GUI->{bm}
      ->Popup( -popover => undef, -overanchor => 'c', -popanchor => 'c' );
    TSLPatcher::Functions::PopulateBuildMenu;
}

$GUI->{mw}->MainLoop();

my ( $ggame, $gpath ) = TSLPatcher::Functions::GetPathForIni();
$main_ini->set( "KotOR$ggame", $gpath );
$main_ini->write("$base/tslpatcher.ini");