DB.CGI

[незнайка34]

Привет!
Вот какое дело:
Стукнул как то чел в асю и попросил настрить скрипт.
Естественно дал ФТП...
Но..при вводе данных Я слуяайно ошибся...и попал сам не знаю куда ( то есть ФТП есть до сих пор) ну естественно Я челу этому говорю что мол за чушь там на твоем сайте...сделал ему скриншот его папок..а чел и говорит: что это мол ваще не моё...и на мем такого нету...

Тогда Я уже сам заинтересовался и начал лазить, смотреть..и вот нашел там файлик DB.CGI такого содержания:
-------------------------------------------------------------------------------------------
#!/usr/bin/perl

use DBI;

print "Content-type: text/html\n\n";

$host="127.0.0.1";
$database="nova_**********";
$password="***********";
$user="***********";

$dsn = "DBI:mysql:database=$database;mysql_socket=/var/run/mysql/mysql.sock";

#$dbh = DBI->connect($dsn,$user,$password);
#$dbh->{RaiseError} = 1;
#my $sth = $dbh->prepare("SELECT * FROM search");
#$sth->execute or
#die "Unable to execute query: $dbh->errstr\n";
#my @row;
#while(@row = $sth->fetchrow_array) {
# print "$row[0] $row[1]\n";
#}
#$sth->finish;


#print "Ok!";

#open(FILEHENDLE,"<http://****************/index.php") or die "Fuck";
#while (<FILEHENDLE>){
# print;
#}
use LWP::UserAgent;
$ua = new LWP::UserAgent;
$starturl = "http://***************/index.php";
# Create a request

my $req = new HTTP::Request ('GET', $starturl);
my $res = $ua->request($req);
if ($res->is_success) {
print $res->content;
}else{
print "Shit happens. Try it next time"; }
----------------------------------------------------------------------------------------------
Там где звездочки ( это Я заменил данные)...
Что то с этого можно поднять?
Если кто знает то стучите в ася 230745733

 

[wutang]

доступ к базе...

$host="127.0.0.1";
$database="nova_**********";
$password="***********";
$user="***********