#!/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();

##</code><code>##

sub begin_menus{
	$scan_menu->command(-label => 'Nmap Scan',
	-background=>'black',
	-foreground=>'#00ff00',
	-activebackground=>'#00ff00',
	-activeforeground=>'black',
	-command => sub { &nmap_scan_dialog() } );
	
	$search_menu->command(-label => 'Nmap Database Search',
	-background =>'black',
	-foreground =>'#00ff00',
	-activebackground=>'#00ff00',
	-activeforeground=>'black',
	-command => sub { &nmap_search_dialog() } );
	
	$configuration_menu->command(-label => 'Nmap Configuration',
	-background=>'black',
	-foreground=>'#00ff00',
	-activebackground=>'#00ff00',
	-activeforeground=>'black',
	-command => sub { &nmap_configuration_dialog() } );
}

sub nmap_search_dialog {
	return 1;
}

sub nmap_scan_dialog {
	$tabsinside->add("nmap", -label => "Nmap Scan")->pack();

}

sub nmap_configuration_dialog {
	return 1;	
}
sub nmap_start {
	if ( begin_menus() ) { return 1; }
}

nmap_start();