Forum PHP.pl > [inne]przeniesienie strony z linux na windows

Pomoc - Szukaj - Użytkownicy - Kalendarz

Pełna wersja: [inne]przeniesienie strony z linux na windows

dloogi

12.12.2012, 08:53:51

Witam,
Mój problem nie dotyczy php, ale nie znalazłem lepszego forum.
Mam kilkunastoletnią stronkę, która działa na apache na linux'ie. Przenosze ją na windows server i przyznam, że troche jak dziecko we mgle się w tym wszystkim poruszam.
Stronka wykorzystuje skrypty cgi. Wszystko w sumie udało się pochytać, ale nie działa jak powinno.
Używam apache 2.2.11 z php 5.2.9 na windows 2003 SBS.
Zainstalowałem do tego ActivePerl 5.14.2 a w nim doinstalowałem pakiety m.in.: DBI, DBD-ODBC.
W windowsie mam skonfigurowane połaczenie ODBC z bazą Sybase.

Mam stornkę logowania, która do skryptu werifikacja.cgi przekazuje usera i password.
Parametry zapisuje do zmiennych i do tej pory jest ok. Potem łącze się z bazą i wyrzucam id firmy dla zadanego usera i weryfikuję jego hasło. I tu pojawia się problem.
Na bazie mam user'a: test123 z password: test123
Skrypt łączy się z bazą, wykonuje zapytanie, ale z jakiegoś powodu zwrócone hasło nie zgada się z przekazanym do zmiennej.
Wyświetliłem sobie zwracane przez select dane i okazało się, że po drodze obcieło mi je do dwóch pierwszych znaków.
Czyli zapytanie raczej wykonało się ok, ale zam iast zwrócić do porównania hasło "test123" dostaje "te"

[PHP] pobierz, plaintext 
 
#!C:\perl\bin\perl.exe -w
print "Content-type: text/html\n\n";
use DBI;
 
my $server = "moj_serwer";
my $login = "mojlogin";
my $haslo = "mojehaslo";
 
my $Error = 0;
my $ErrorDBI = "";
 
#eval { DBI->trace(4) };
 
#if ($@) 
#   {
#   $ErrorDBI = $@;
#   $Error = 6;
#   }
 
 
 
use CGI;
$cgi = new CGI;
$user_name = $cgi->param("user_name");
$password = $cgi->param("password");
use CGI::Carp qw (fatalsToBrowser);
 
 
print "<html>";
print "<head>\n";
print "<meta http-equiv='Content-Type' content='text/html; charset=windows-1250'>";
print "<meta http-equiv='EXPIRES' content='0'>";
print "</head>\n";
 
 
my $conn=DBI->connect("dbi:ODBC:$server", $login, $haslo) or die "Error in connect $DBI::errstr ";
 
 
$dbh = $conn->prepare("SELECT password, id_kom, id_ko FROM webklient where user_name='$user_name'") or die "Can't prepare statement: $DBI::errstr";
 
$dbh->execute or die "Can't execute statement: $DBI::errstr";
$dbh->bind_columns(\($pass_d,$kntr_id_kom, $kntr_id_ko));
if ($dbh->fetch) 
   {
 
   if ($pass_d ne $password) 
      {
      $Error = 3;
      print "złe hasło\n";
 
	  print "$pass_d \n";  -- tu wypisuje obcięte "te" a w bazie jest "test123" 
	  print "$password \n"; -- tu wypisuje poprawnie "test123"
	  print "$user_name \n"; -- tu wypisuje poprawnie "test123"
 
      }
   else
...
[PHP] pobierz, plaintext

Co może powodować to obcinanie zwracamych przez zapytanie danych??
Spróbuje przeinstalować perl-a, ale to tylko strzał.

Proszę o pomoc.

Pozdrawiam
Andrzej

john_doe

12.12.2012, 13:11:05

Andrzej spróbuj sprowadzić Twój przykład do jak najbardziej prostego czyli
1. zapytanie
2. execute
3. print results

bez if`ów etc...

po prostu zapytaj i zwróć wynik na ekran.

dloogi

12.12.2012, 22:12:44

Zaraz spróbuje. Póki co próbowałem innych wersji perl i bez skutku.
Zmieniałem też zapytanie w skrypcie i wygląda na to, że obcina mi mniej więcej połowę stringa zwracanego z kolumny bazy.
np. w bazie mam dla użytkownika test123 hasło test to print wyświetli mi tylko "te" gdy mam cos11cos to "cos1"

Wyciąłem wszystko co wydawało mi się niepotrzebne i wygląda na to, że printuje mi połowę stringa jaki jest w bazie.
Gdy zmieniłem hasło na wa11aw na bazie, skrypt wyświetlił mi tylko wa1.

-dloogi-

13.12.2012, 20:19:42

Jakieś sugestie w temacie?

To jest wersja lo-fi głównej zawartości. Aby zobaczyć pełną wersję z większą zawartością, obrazkami i formatowaniem proszę kliknij tutaj.