🚀 go-pugleaf

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

  eloy
-- 
-------e-l-o-y----------------------------e-l-o-y-@-k-o-f-e-i-n-a-.-n-e-t------

       jak to dobrze, że są oceany - bez nich byłoby jeszcze smutniej