#!/usr/bin/perl -w

use strict;
use Gtk2::GladeXML;
use Gtk2 -init;


sub is_mirror_done_and_ready
{
	my @cmd = ("sudo","reprepro","-b","/net/mirror/llx1206/","checkpool","fast");
	system(@cmd)==0 or die "system @cmd failed $?";
}



my ($core, $window_core);



$core = Gtk2::GladeXML->new('/svn/svn/llx-apps/lliurex-server-tester/lliurex-server-tester.install-files/usr/share/llirex-server-tester/rsrc/main.glade');
$window_core=$core->get_widget('mainwindow');
$core->signal_autoconnect_from_package('mainwindow');
$window_core->show_all();
Gtk2->main;