Jeśli mamy do dyspozycji PDO (PHP Data Objects) i PHP >= 5.1 (ew. 5.0 i PDO jako PECL), to możemy użyć gotowych mechanizmów do obsługi transakcji i wyjątków (od PHP 5.0):

try {
  $dbh->beginTransaction();
  $dbh->exec('pierwsze zapytanie');
  $dbh->exec('drugie zapytanie');
  $dbh->exec('trzecie zapytanie');
  $dbh->commit();
} catch (Exception $e) {
  $dbh->rollBack();
  echo $e->getMessage();
}

Jeśli wystąpi jakikolwiek wyjątek, blok try{} jest przerywany i wykonuje się catch{}. Na końcu tego pierwszego mamy commit(), w przypadku wystąpienia błędu – wywołany zostanie rollback().
try{} catch{} znane jest z innych języków i jest przydatne – warto zapamiętać.

W przypadku, gdy nie używamy PDO, można użyć sztuczki z operatorami logicznymi:

mysql_query("BEGIN");
$r = mysql_query('pierwsze zapytanie');
$r &= mysql_query('drugie zapytanie');
$r &= mysql_query('trzecie zapytanie');
if ($r)
  mysql_query('COMMIT');
else
  mysql_query('ROLLBACK');

Naturalnie brak tu obsługi błędów, bo po else mysql_error() zwróci nam to, co nastąpiło po ostatnim mysql_query, ale czasami i to wystarcza.

set colsep ';'
set head off;
set feed off;
set trimspool on;
set linesize 32767;
set pagesize 32767;
set echo off;
set termout off;
set timing off;

spool sched.csv

SELECT 'Week ' || TO_CHAR(SYSDATE-7, 'iw'), NEXT_DAY(trunc(SYSDATE)-14, 'MONDAY'), NEXT_DAY(trunc(SYSDATE)-7-1/60/60/24, 'SUNDAY') FROM dual;

SELECT OWNER || '.' || JOB_NAME AS job, to_char(ACTUAL_START_DATE, 'YYYY-MM-DD HH24:MI:SS') as start_date, to_char(LOG_DATE, 'YYYY-MM-DD HH24:MI:SS') as end_date
FROM DBA_SCHEDULER_JOB_RUN_DETAILS
WHERE OWNER NOT IN ('EXFSYS', 'SYS')
AND TO_CHAR(LOG_DATE, 'iw') >= TO_CHAR(SYSDATE-7, 'iw')
AND TO_CHAR(ACTUAL_START_DATE, 'iw') < TO_CHAR(SYSDATE, 'iw')
ORDER BY 1, 2, 3;

exit

Podobnie jak poprzednio w wyniku otrzymamy plik sched.csv z zadaniami z minionego tygodnia, który ręcznie wczytujemy do Gnatt (ciągle brak przetwarzania wsadowego).
Wywołanie:

sqlplus -S '/ as sysdba' @sched.sql

Dziś przymierzyłem się do Bugzilla na Lighttpd pod Gentoo. Jako, że Mozilla nie wspiera Bugzilla na innym serwerze jak Apache, tak samo ebuild w Gentoo nie jest do tego przystosowany. Ale da się to zrobić. Poniżej moje zapiski z placu boju.

1. Na początek instalacja:

USE="-modperl" emerge bugzilla

Flaga modperl jest dla Apache, więc nas nie interesuje.
Domyślnie wybrana jest baza MySQL (flaga mysql), ale możemy zmienić na PostgreSQL (flaga postgres). Być może uda się również z Oracle, bo Bugzilla wspiera tą bazę przez DBD-Oracle, ale osobiście nie testowałem (choć mam DBD-Oracle).
Instalacja prawdopodobnie zakończy się powodzeniem, ale webapp-config już nie. Żąda Apache. Trzeba wywołać go ręcznie podając jako typ serwera lighttpd:

/usr/sbin/webapp-config -I -s lighttpd -h localhost -u root -d /bugzilla bugzilla 3.6.8

2. Dodatki:

emerge dev-perl/GD dev-perl/GDTextUtil dev-perl/GDGraph dev-perl/MIME-tools dev-perl/libwww-perl dev-perl/Authen-SASL dev-perl/SOAP-Lite dev-perl/HTML-Parser dev-perl/Chart dev-perl/Template-GD dev-perl/XML-Twig dev-perl/PatchReader dev-perl/JSON-RPC dev-perl/Test-Taint dev-perl/HTML-Scrubber dev-perl/Email-MIME-Attachment-Stripper dev-perl/Email-Reply dev-perl/TheSchwartz dev-perl/Daemon-Generic dev-perl/Math-Random-Secure perl-ldap

Nie wszystkie są potrzebne – zależy od konfiguracji, być może niektóre już są.
Authen::Radius nie ma w Gentoo, więc (jeśli potrzebne) trzeba zainstalować dodatkowo poprzez:

/usr/bin/perl install-module.pl Authen::Radius

3. Przechodzimy do konfiguracji. Edytujemy plik localconfig i zmieniamy grupę z prawami której działa serwer WWW ($webservergroup = 'lighttpd';). Oczywiście resztę danych też powinnismy ustawić na tym etapie (np. dane do bazy).

4. Tworzymy brakujący katalog

mkdir /var/www/localhost/htdocs/bugzilla/lib

5. A następnie finalizujemy instalację:

/var/www/localhost/htdocs/bugzilla/checksetup.pl

6. Jeszcze tylko konfiguracja serwera WWW i gotowe. Tworzymy nowy plik, np. /etc/lighttpd/bugzilla.conf (opcjonalnie poniższe wstawiamy w lighttpd.conf) z następującą zawartością:

server.modules += ("mod_cgi")
server.modules += ("mod_access")

$HTTP["url"] =~ "^/bugzilla/.*" {
dir-listing.activate = "disable"
cgi.assign = (".cgi" => "")
index-file.names = ("index.cgi")
url.access-deny = ("localconfig", "data/params")
}

Plik ten trzeba dodać do globalnej konfiguracji Lighttpd:

include "bugzilla.conf"

7. Restart serwera WWW i działa!

Nie udostępniam Bugzilla, więc poprawki do powyższego tekstu możecie zgłaszać w komentarzach.

• dodana zmiana ‘rozdzielczości’,
• konwersja daty (działa Unix timestamp jak wcześniej i sprawdziłem na formacie YYYY-MM-DD hh:mm:ss),
• grupowanie zadań.

Ostatnia wyszczególniona zmiana jest chyba najistotniejsza. Na czym polega grupowanie zadań? Jeśli w pliku pojawi się więcej zadań (w różnych liniach) z tą samą nazwą, zostaną posklejane do jednego wiersza. Kolory mogą mieć różne.
Przy takim przetwarzaniu przygotowanie pliku wejściowego jest łatwiejsze. Przykładowo, jeśli chcemy zobaczyć jak wyglądały kopie Oracle w poprzednim tygodniu wykonane za pomocą RMAN, potrzebny będzie wynik następującego polecenia:

SELECT OBJECT_TYPE, START_TIME, END_TIME
FROM V$RMAN_STATUS
WHERE OPERATION = 'BACKUP'
AND TO_CHAR(END_TIME, 'iw') >= TO_CHAR(SYSDATE-7, 'iw')
AND TO_CHAR(START_TIME, 'iw') < TO_CHAR(SYSDATE, 'iw')
ORDER BY 1,2

Oczywiście trzeba jeszcze dokleić nagłówek. Z czasem postaram się zamieszczać gotowce do wklejenia, tymczasem możecie skorzystać z Orbady (eksportuje do CSV).

I jeszcze jeden przykład – historia zadań Oracle (dbms_scheduler):

SELECT OWNER || '.' || JOB_NAME, ACTUAL_START_DATE, LOG_DATE
FROM DBA_SCHEDULER_JOB_RUN_DETAILS
WHERE OWNER NOT IN ('EXFSYS', 'SYS')
AND TO_CHAR(LOG_DATE, 'iw') >= TO_CHAR(SYSDATE-7, 'iw')
AND TO_CHAR(ACTUAL_START_DATE, 'iw') < TO_CHAR(SYSDATE, 'iw')
ORDER BY 1, 2

W ostatniej chwili zauważyłem problem z wydłużaniem obrazka przy grupowaniu – poprawię to wkrótce.

I tak dziś postanowiłem napisać własny program, który naszkicuje wykres na podstawie danych wejściowych. W jakieś 2 godziny miałem działające rozwiązanie, głównie dzięki pomocy mojego potomstwa wchodzącego mi na głowę ;-) Kolejne dwie godziny poświęciłem na kosmetykę i już projekt jest gotowy do udostępnienia.
Co dokładnie robi? Ano, na podstawie dostarczonych danych (plik CSV, format poniżej) generuje grafikę z wykresem. Całość nie wygląda może ładnie (nie ma wstążki :>), ale popracuję jeszcze nad tym.

Plik wsadowy z danymi powinien wyglądać tak (poszczególne pola separowane średnikiem):

• pierwsza linia: nazwa wykresu (nie używana); początek okresu; koniec okresu,
• druga i kolejne linie to zdarzenia: nazwa#kolor (#kolor opcjonalnie – RRGGBB); początek zadania(; koniec zadania; początek zadania; koniec zadania; …).

Jeśli zadanie wykonywane jest wielokrotnie (np. kopia przyrostowa), to czasy rozpoczęcia i zakończenia wpisujemy w jednej linii. Jeśli zadanie nie skończyło się w danym okresie lub nie podamy czasu zakończenia, odpowiedni słupek będzie dociągnięty do końca wykresu.

Czas podajemy jako liczba sekund od 1 stycznia 1970 r.

Przykładowy plik wygląda tak:

tydzień 6;1328486400;1329091200
Kopia INCR#505050;1328486000;1328496000;1328608800;1328616000;1328704200;1328736200;1328797800;1328815800
Kopia FULL#505050;1328936400;1329197400
Odbudowa RAID#FF0000;1328704200;1328749200
Formatowanie wolumenu BACKUP;1328949800

Czego nie ma, ale będzie już po weekendzie:

• zmiana ‘rozdzielczości’, na której brak narzekałem u innych – obecnie domyślnie jest 300 sekund (od tego zależy wielkość obrazu),
• zmiana parametrów wykresu – np. wysokość linijek
• wybór czcionki,
• ramka
• swobodny format daty (chyba jest coś do konwersji),
• informacje z nagłówka (pierwsza linia) na wykresie,
• i wszystko to, o co poprosicie ;-)

W najbliższym czasie przygotuję zestawy skryptów do zasilania – np. zadania RMAN (Oracle), dbms_scheduler (Oracle) czy praca Bacula (Bweb przestałem już używać, a rysowałem w nim tylko takie wykresy).
Jeśli macie jakieś pomysły na wykorzystanie, dajcie znać.

I najważniejsze – strona projektu. Dwa dni temu poznałem Publish w Visual C#, więc teraz aktualizacje będą lepiej dystrybuowane :-)

Najprościej wykonać to można dodając do konfiguracji dyrektywę extend (kiedyś exec lub sh). Składnia wygląda tak:

extend [MIBOID] NAME PROG ARGS

A na przykładzie:

extend .1.3.6.1.4.1.31337 Test /root/scripts/test.sh testarg1

Przy okazji pozdrawiam firmę Union & Comstar, której PEN (Private Enterprise Number) pożyczyłem :-)
Wadą tego rozwiązania jest fakt, że każdy wynik zwracany przez zewnętrzny program (printf czy echo) traktowany jest jak STRING. Gdy chcemy uzyskać INTEGER możemy wprawdzie posłużyć się kodem wyjścia, ale mamy do dyspozycji zakres 0-255. Do pomiaru temperatury w serwerowni czy na procesorze się może przyda, ale do sprawdzenia pamięci wykorzystywanej przez dany proces już niekoniecznie.

Net-SNMP umożliwia nam wykorzystanie Perl’a – a konkretnie modułu NetSNMP::agent, do tworzenia własnych wtyczek (chyba dla Python też jest wsparcie).
Jako że kiepski ze mnie programista, a w szczególności programista Perl, postaram się wspierać swój przekaz kodem. I tak stworzenie agenta możemy wykonać następująco:

use NetSNMP::agent;

my $agent = new NetSNMP::agent();

Następnie tworzymy funkcję i rejestrujemy ją, by użyć przy wywołaniu konkretnego OID’a:

sub callback_function {
  my ($handler, $registration_info, $request_info, $requests) = @_;
  my $request;
  for($request = $requests; $request; $request = $request->next()) {
    my $oid = $request->getOID();
    if ($oid == new NetSNMP::OID(".1.3.6.1.4.1.31337.1.1.0")) {
      $request->setValue(ASN_INTEGER, hex(substr $valstring, 4, 2)-40);
    }
  }

$agent->register("callback function", ".1.3.6.1.4.1.31337.1", \&callback_function);

Funkcja jest wywoływana z czteroma parametrami: HANDLER, REGISTRATION_INFO, REQUEST_INFO, i REQUESTS. REQUEST_INFO może zawierać dwa tryby – MODE_GET i MODE_GETNEXT. Oczywiście przy jednokrotnym sprawdzaniu OID’a (np. przez Cacti) nie ma to znaczenia, ale gdybyśmy chcieli sprawdzić całe drzewo używając np. snmpwalk, to przy MODE_GETNEXT musimy podać adres kolejnego OID’a, który ma być sprawdzony po bieżącym. W przeciwnym razie snmpwalk skończy odczyt.

$request->setOID(".1.3.6.1.4.1.31337.1.1.1");

W odpowiedzi agent może zwrócić jeden spośród dwudziestu typów danych. Ja używam jedynie ASN_INTEGER i ASN_OCTET_STR. Resztę można znaleźć w dokumentacji.

Po stworzeniu modułu dodajemy jego wywołanie do Net-SNMP w pliku snmpd.conf:

perl do "/root/scripts/test.pl"

Następnie restartujemy demona i możemy odczytywać nasze dane. Należy pamiętać, że po każdej zmianie wtyczki niezbędne jest ponowne przeładowanie.

Czytaj też:

• Extending snmpd using perl
• RedHat Documentation: Extending Net-SNMP

SOAP::Lite, który korzysta z libwww-perl nagle zaczął zgłaszać błąd certyfikatu serwera (tzw. self-signed), z którego wywoływał żądanie:

500 Can't connect to server:443 (certificate verify failed) at /usr/lib/nagios/plugins/sms.pl line 7


Rozwiązanie problemu jest trywialne, weryfikację certyfikatu można wyłączyć ustawiając odpowiednią zmienną:

$ENV{PERL_LWP_SSL_VERIFY_HOSTNAME}=0;

lub stosowną opcję (klasa LWP::UserAgent):

LWP::UserAgent->new(ssl_opts => { verify_hostname => 0 });

I znów działa jak dawniej.

W wersji 5.837 i wcześniejszych biblioteki libwww-perl sprawdzanie było wyłączone. Ja aktualizowałem z 5.836.

Wnikliwy czytelnik zauważył pewnie nazwę wywoływanego skryptu. Jak można się domyśleć ma on strategiczne znaczenie. Eh…

Swoją drogą przy okazji zwróciłem uwagę na nazewnictwo, a właściwie numerację paczek w Gentoo. Otóż libwww-perl w wersji 6.03 nazywa się dev-perl/libwww-perl-6.30.0, z kolei moduł LWP::Protocol::https 6.02 to dev-perl/LWP-Protocol-https-6.20.0. Ktoś potrafi to wyjaśnić? W ebuild’zie w zmiennej MODULE_VERSION jest właściwa wersja.

• Maciej Zbrzezny: Jak uczyć się C#? [PL]
• Matthew: Jakiego języka programowania się nauczyć?

Jeśli ktoś pyta skąd i po co, to odpowiedź poniżej (na nic bardziej kreatywnego mnie teraz nie stać):

mysql> SELECT DAYOFYEAR(CURDATE());
+----------------------+
| DAYOFYEAR(CURDATE()) |
+----------------------+
| 256 |
+----------------------+
1 row in set (0.09 sec)

Możemy jednakże dodać odpowiednie atrybuty samemu i dostosować plik do wymagań Endomondo. Ja zrobiłem to tak:
[csharp]OpenFileDialog fDialog = new OpenFileDialog();
fDialog.Title = „Open GPX 1.0 File”;
fDialog.Filter = „GPX Files|*.gpx”;
if (fDialog.ShowDialog() == DialogResult.OK) {
Chilkat.Xml xml = new Chilkat.Xml();
xml.LoadXmlFile(fDialog.FileName.ToString());
Chilkat.Xml root = xml.FirstChild();
Chilkat.Xml seg = root.FindChild(„trkseg”);
Chilkat.Xml pt = seg.FirstChild();
DateTime pttime = DateTime.Parse(root.GetChildContent(„name”));
string oPath = Path.GetDirectoryName(fDialog.FileName) + „\\” + pttime.ToString(„yyyyMMdd-HHmmss”) + „.gpx”;
while (pt != null) {
pt.NewChild(„time”, pttime.ToString(„s”));
pttime = pttime.AddSeconds(2);
// listBox1.Items.Add(pt.GetAttrValue(„lat”));
// listBox1.Items.Add(pttime.ToString(„s”));
pt = pt.NextSibling();
}
xml.SaveXml(oPath);
}
[/csharp]
Słowem komentarza:

• kompilowane w Visual C# 2010 + Chilkat XML .NET,
• czas w formacie ISO 8601 czy jak kto woli – sortable (linia 12 i 15),
• GPS Track po eksporcie ścieżki do GPX zapisuje w name czas początku rejestracji, więc można go pobrać do pierwszego punktu (linia 10), a następnie dodawać przesunięcie ustawione w programie (linia 13) – w moim przypadku 2 sekundy (tego nie ma w XML, więc trzeba to wiedzieć/sprawdzić ustawienie).

Od razu zacząłem szukać gotowca i znalazłem! PHPExcel. Po krótkiej pracy z nim wiem, że nie jest to idealne narzędzie, ale może to wynikać z formatu pliku jaki obrabiałem i od tego jak i czym został wcześniej zapisany (wzór dostarczony z zewnątrz). Z dwóch wyglądających podobnie komórek po otwarciu i zapisaniu przez PHPExcel nagle jedna gubi formatowanie. Dziwne. Ale jako, że nie chciałem się zagłębiać, uznałem, że tak właśnie musi być.
Jako, że arkusze nie są skomplikowane, to przed samym zapisem robię ‘normalizację’ komórek, czyli ustawiam takie formatowanie, jakie jest w pliku źródłowym i wszystko działa.

Prócz wypełniania komórek odpowiednimi wartościami i zmianie formatowania nic więcej nie robiłem (a pewnie się da). Do takich celów, uważam, że projekt nadaje się wystarczająco.