🚀 go-pugleaf

Krzysztof Krzyżaniak wrote:
> robert.giedrowicz@poczta.onet.pl writes:
> 
>>> robert.giedrowiczWYTNIJTO@poczta.onet.pl writes:
>>>
>>>> jak uzyskac skryptem perl'owym n/w efekt sprawdzania czy mysql dziala, jesli nie
>>>> dziala, to niech restartnie usluge mysql.
>>>> Myslalem o wykorzystaniu skryptu ktory znalazlem
>>>>
>>  http://groups.google.cz/group/pl.comp.lang.perl/browse_thread/thread/457e64129f3e5bac
>>>> ale to chyba nie to.
>>> Ja bym podpi�� do nagiosa. 
>>>
>>> Ogólnie to "mysql dzia�a" jest zbyt ogólnym stwierdzeniem, w zaleşno�ci
>>> od potrzeb zrobi�bym kilku stopniowy skrypt który by sprawdza�:
>>>
>>> a) czy si� da po��czy� do bazy
>>> b) jak si� da po��czy� to czy da si� zrobi� select na znanej tabeli
>>> c) je�li trzeba sprawdza� zapis to zak�ada�bym tabel�, wrzuca� kilka
>>> insertów i sprawdza� wynik
>>>
>>> My�l� şe w wi�kszo�ci przypadków a i b powinny wystarczy� do sprawdzenia
>>> czy mysql dzia�a.
>>>
>> wydaje sie ze nawet pkt. a byl by wystarczajacy pytanie tylko jak taki skrypt
>> mialby wygladac, a moze nie trzeba do tego perla zeprzegac ?
> 
> Nie trzeba ale można :>
> 
> http://search.cpan.org/dist/DBD-mysql/
> 
> #!/usr/bin/env perl 
> # powyższą ścieżkę dopasować według potrzeb
> 
> use strict;
> use warnings;
> 
> use DBI;
> 
> my $user = "nazwa_użytkownika_do_łączenia_z_mysql";
> my $pass = "hasło_do_łączenia_z_mysql";
> 
> DBI->connect( "DBI:mysql:database=mysql;host=localhost;", $user, $pass ) or exit 1;
> exit 0;
> 
> 
> powyższy skrypt jak będzie się mógł połaczyć z mysql to zwróci 0, jak
> nie będzie się mógł połączyć to zwróci 1
> 

Bezpieczniej stworzyc mala baze, jedna tabele i pobierac z niej rekord.
Jesli tresc pobrana bedzie sie zgadzac to jest dobrze, jesli nie, to cos
nie tak. Samo polaczenie jeszcze nie oznacza bezblednego dzialania.

wer