Форум АНТИЧАТ

Форум АНТИЧАТ (https://forum.antichat.xyz/index.php)
-   PHP, PERL, MySQL, JavaScript (https://forum.antichat.xyz/forumdisplay.php?f=37)
-   -   Perl Dbi нужен скрипт! :) (https://forum.antichat.xyz/showthread.php?t=65061)

Grema 22.03.2008 17:21
Perl Dbi нужен скрипт! :)
 
Взломал сайт, залил шел и нормально, по одной базе данных лажу как надо, но там есть еще одна, и используется интерфейс DBI PERL-овский, я его вообще не знаю) и перл и интерфейс) а когда пытаюсь через пхп залезть на 2-ю базу пишет: Client does not support authentication protocol requested by server; consider upgrading MySQL client.

и что делать? если бы кто-то написал простенький скриптик на перле использующий DBI и делающий запрос и выводил ответ, цены бы не было!

Piflit 22.03.2008 17:28
цена всегда есть

Grema 23.03.2008 00:13
к сожалению у меня нет эл. денег! :(
помогите кто-т. очень надо! :)

blackybr 23.03.2008 01:11
http://sql-info.de/mysql/examples/Perl-DBI-examples.html

т.е. чтото типа

PHP код:
#!perl
use strict;
use warnings;
use DBI;


$dbh = DBI->connect('DBI:mysql:databasename', 'username', 'password'
               ) || die "Could not connect to database: $DBI::errstr";
$dbh->disconnect();

$dbh = DBI->connect('DBI:mysql:databasename;host=domain.com', 'username', 'password',
                { RaiseError => 1 }
               );

$sth = $dbh->prepare('SELECT val FROM exmpl_tbl WHERE id=1');
$sth->execute();
$result = $sth->fetchrow_hashref();
print "Value returned: $result->{val}\n"; 

genom-- 23.03.2008 13:01
вот когдат тож накрапывал такое

Код:
#!/usr/bin/perl  use DBI;  $database="mysql"; # имя базы к которой скрипт конектится первоначально  $hostname="localhost"; # хост  $port="1133"; # порт  $user="root"; # логин  $password="pass"; # пароль    $lol=DBI->connect("DBI:mysql:$database:$hostname:$port",$user, $password) or die 'Connect to BD ... [-]\n';    Poexali:    print'command->';  $zapr=<STDIN>;  if ($zapr=='exit'){$lol=DBI->disconnect;exit;}  $s=$lol->prepare("$zapr");  $str=$s->execute;  @znach = $s->fetchrow_array;  for ($i = 1; $i<=$str; $i++) {  print"\n@znach[$i]";  }  $s->finish()  goto(Poexali:);    # для выхода вбейте команду exit

Grema 23.03.2008 16:33
парни меня щяс другая фигня мучает)
что даже самый обычный скрипт на серваке там открывается как текстовый файл, а в некоторых случиях просто предлогает скачать, хотя chmod +x q.pl, догадываюсь что с настройками апача чето не так.. что можно сделать?

и всем спасибо огромное за помощь! :)

blackybr 23.03.2008 18:26
кинуть в cgi-bin или посмотреть в конфиге апача (там апач?) где cgi дира, или посмотреть не подключен ли перль как модуль, тогда есть шанс выполнить в произвольной дире в определенных условиях)

только это уже не в тему данного раздела.

Grema 23.03.2008 18:34
кусок conf, так вот если кидаю в эту папку, то все равно пытается скачать файл, хотя вроде папка должна его использовать! что не так?
Код:
<VirtualHost *:80>
  ServerAdmin webmaster@***.ru
  ServerName ***.***.ru
  AddDefaultCharset windows-1251
  DocumentRoot "/home/***.***.ru/perl"
  Alias /icons/ "/var/www/icons/"
  Alias /error/ "/var/www/error/"
  AddType application/x-httpd-fcgi .pl
  AddHandler cgi-script .cgi
  DirectoryIndex index.cgi
  <Directory /home/***.***.ru/perl/>
    AllowOverride all
    Options ExecCGI
    Order allow,deny
    Allow from all
    AddHandler cgi-script .cgi
    DirectoryIndex index.cgi
    AuthType Basic
    AuthName "Test Area"
    AuthUserFile "/home/passwd"
    require valid-user
  </Directory>
  ErrorLog /var/log/apache2/***.***.ru-error_log
</VirtualHost>

blackybr 23.03.2008 18:36
если кинул туда куда надо, то поставь права на выполнение


Время: 02:23