#!/usr/bin/perl

use strict;
use warnings;
$|++;

use lib '/usr/lib';

use ClamTk::App;
use ClamTk::Prefs;
use ClamTk::GUI;
use ClamTk::Update;
use ClamTk::Results;

use encoding 'utf8';

use Locale::gettext;
use POSIX qw/locale_h/;
textdomain("clamtk");
setlocale( LC_MESSAGES, "" );
bind_textdomain_codeset( "clamtk", "UTF-8" );

our $VERSION = '4.08';

our $scanner = ClamTk::App->new;
$scanner->{VERSION} = $VERSION;

ClamTk::Prefs->start_up($scanner) or do {
	zenity_error(gettext("Unable to create startup directories!"));
};

# check 
my $update = ClamTk::Prefs->get_property($scanner, 'Update');
my $choice = '';
if(! $update || $update eq 'undef') {
	ClamTk::Update->db_select();
}

ClamTk::Prefs->custom_prefs($scanner); #or do {
#	zenity_error(gettext("Unable to normalize startup directories!"));
#};

ClamTk::GUI->start_gui($scanner) or do {
	zenity_error(("Unable to create graphical interface!"));
};

sub zenity_error {
	my $text = shift;
	my @args = ('zenity', '--error', '--title', 'ClamTk',
		'--text');
	system(@args, $text);
}
