#!/usr/bin/perl

use Tk;
use Tk::LabFrame;
use Tk::NoteBook;

my $Version = "1.0";

sub mainmenu {
	$main = MainWindow->new();
	$main->minsize( qw(640 480));
	$main->title( "Rasputin");
	$main->configure(-background => 'black');
	$menu_bar = $main->Frame(-relief => 'groove',
	-borderwidth=> 3, -background=> 'black')->pack(-side =>top, -fill => 'x', -anchor=>'n');
		
	$scan_menu=$menu_bar->Menubutton(-text => 'Scans',
	-background => 'black',
	-foreground => '#00ff00',
	-activebackground => '#00ff00',
	-activeforeground => 'black')->pack(-side => 'left');
	
	$bruteforce_menu=$menu_bar->Menubutton(-text => 'Bruteforce',
	-background => 'black',
	-foreground => '#00ff00',
	-activebackground => '#00ff00',
	-activeforeground => 'black')->pack(-side => 'left');
		
	$search_menu=$menu_bar->Menubutton(-text => 'Searches',
	-background => 'black',
	-foreground => '#00FF00',
	-activebackground => '#00ff00',
	-activeforeground => 'black')->pack(-side => 'left');

	$configuration_menu=$menu_bar->Menubutton(-text => 'Configuration',
	-background => 'black',
	-foreground => '#00ff00',
	-activebackground => '#00ff00',
	-activeforeground => 'black')->pack(-side => 'left');

	$help_menu=$menu_bar->Menubutton(-text => 'Help',
	-background => 'black',
	-foreground => '#00ff00',
	-activebackground => '#00ff00',
	-activeforeground => 'black')->pack(-side => 'right');
	
	$tab_dialog=$main->Frame(-background=> 'black', -relief => 'groove', -borderwidth=> '3',
	-foreground => '#00ff00')->pack(-side=> 'bottom', -fill => 'both');
	$tab_dialog->pack();
	$tabsinside=$tab_dialog->NoteBook();
	$tabsinside->pack(-fill => 'x');
}


sub startup {
	load_modules();
}

sub load_modules {
	foreach $module (<*.module.pl>) {
		require "$module";
		push (@modules_loaded, $module);
	}	
}

mainmenu();
startup();
MainLoop();