#! /usr/bin/perl -w
 #!/usr/bin/speedy -w -- -t600
 
use strict;
use CGI;
use CGI::Carp 'fatalsToBrowser';
use Net::Telnet;
use Net::FTP;
use JavaScript::Writer;
use JavaScript::Writer::Function;
use File::Listing qw(parse_dir); 
use CGI::Auth;
use CGI::Session;
use Win32;
#use File::Temp;


my $htm = new CGI;
my $cgi = new CGI;
my %vars = $htm->Vars();

print $htm->header({ -type => "text/html"});
print $htm->start_html(
     -title => "Welcome",
     -style=>{'src'=>'../stdbstyle.css'});
 
 my $rep;
if(defined($vars{'submit'}) and $vars{'submit'} eq 'Submit') {
	fnSaveFile(); 
}elsif(defined($vars{'execute'}) and $vars{'execute'} eq 'Execute') {
	fnExecFile();
}#elsif(defined($vars{'FTP'}) and $vars{'FTP'} eq 'FTP') {
#	fnFTPfiles();
#}
elsif(defined($vars{'GET'}) and $vars{'GET'} eq 'Report') {
	&fnGetReport($rep);
}elsif(defined($vars{'ShortReport'}) and $vars{'ShortReport'} eq 'Short report') {
	&fnShortReport($rep);
}elsif(defined($vars{'file_creation'}) and $vars{'file_creation'} eq 'FILE CREATION N EXECUTION') {
	fnShowFileCreationForm();
}elsif(defined($vars{'file_execution'}) and $vars{'file_execution'} eq 'SHELL FILE EXECUTION') {
	fnShowFormForExecution();
}elsif(defined($vars{'get_report'}) and $vars{'get_report'} eq 'GETTING THE REPORTS') {
	fnShowFormForGettingReport();
}#elsif(defined($vars{'submit_login'}) and $vars{'submit_login'} eq 'Send') {
#	fnSubmitLogin();
#}
else {
	#fnShowFileCreationForm();
	fnShowMainMenu();
	#fnLoginForm();
}
#-----------------------------
sub fnGetReport {
	my $sReport = $vars{'report'};
	if ($sReport eq '') {
		if (-e "temp") {
			open(DAT, "temp");
			$sReport = <DAT>;
			close DAT;
		        if ($sReport eq 'Empty') {
			fnShowFormForGettingReport();
			print "Please provide the name of         the Report file";
			exit();
			}
		}
		}else {	
			open(FILE,">temp") or die "Can not open file temp";
			print FILE "$sReport";
			flock FILE, 2;
			#close FILE;
		}
}
#----------------------------
sub fnShortReport {  
our $username;
	our $password;
	my $sReport;
	print "Report=$sReport";
	
	$username = $raw_data[0];
	$password = $raw_data[1];
	close DAT;
	my $sReport = $vars{'report'};
	
	if ($sReport eq '') {
		if (-e "temp") {
			open(DAT, "temp");
			$sReport = <DAT>;
			close DAT;
		
			if ($sReport eq 'Empty') {
				fnShowFormForGettingReport();
				print "Please provide the name of the Report file";
				exit();
			}
		}
	}else {	
		open(FILE,">temp") or die "Can not open file temp";
		print FILE "$sReport";
		close FILE;
	}