#!/usr/bin/perl -w
use strict;

#########################
#                       #
#DEFINE GLOBAL VARIABLES#
#                       #
#########################
#my @args = ("-c \"dsn=dba_fmds;uid=dba;pwd=sql\"","-ii","-t plan","D:/workingfiles/scripts");
my @args0 = ("\/FI \"imagename eq dbsrv9.exe\"");
my @stopargs = ("stop ASANYs_awrdsprodcution");
my @scqueryargs = ("query ASANYs_awrdsprodcution");
my @initargs = ("-p 8192","D:/WorkingFiles/DATABASES/CURRENTDATABASES/ARNET/TestBuild/"."arsams.db");
my @engstartargs = ("D:/WorkingFiles/DATABASES/CURRENTDATABASES/ARNET/arsams.db");
my $stopvalue = 0;

#########################
#                       #
#Function Script        #
#                       #
#########################

if (system("tasklist",@args0) == 0 && system("sc @scqueryargs") == 0)
{
	print "\n";
	print "Stop service: ";
	my $std_in0 = <STDIN>;
	chomp($std_in0);
		
	if($std_in0 eq "y"){
		system("sc @stopargs");
		$stopvalue = 1;
		
		print "\n";
		print "Stop value set to: $stopvalue\n";
		print "\n";
			
		if($stopvalue == 1) 
		{
			print "Creating new database file with 8192 kilobyte page file\n";
			print "\n";
			system("dbinit", @initargs);
			print "\nNew database file created\n";
			
			print "Starting old database with dbeng9\n";
			system("dbeng9", @engstartargs);  #HANGS UNTIL DATABASE IS SHUTDOWN....WHY????
			print "Old database started with dbeng9\n";
			$stopvalue = 0;			
			
		}
		
	}else{
		warn "Service will not be stopped\n";
	}
	
}else{
	print "==>==>==> failure, exit status = $?\n";
}