Thursday, July 27, 2006

Surat 1

Saya masih tetap berfikir adakah saat yang telah saya lewati dulu akan berakhir dengan sama. Saya baca-baca email dari teman sekaligus guru dikantor yang lama, ada beberapa email yang menyentuh dan membuat saya berfikir .. apa yang dilakuan saya sekarang ini?

Pak Yusuf,
Good and sad news at the same time. Good that you are able to follow a new course in life; one you want and of your choosing. Sad for us that you will not be part of the team. I want to thank you for the times you have been quick to respond to system problems I have had. Your help kept us on schedule and "in business".
Wishing you all the best and God's Blessing in your new challenge.
Take care.

Wednesday, July 26, 2006

Kita tidak sendiri ..


Saat semua terasa sepi
tak ada kata yang bisa terucap
semua membisu,
mengenang dan berfikir dalam hati ..

semua terasa bergegas ..
secepat derap langkah kuda impian ..
semua hanya tau dalam diri,
hidup ini kita yang bawa ..


hening sepi dalam derap kuda teknologi


Friday, July 14, 2006

Perpisahan ..


Siapa bilang perpisahan tidak menyakitkan? rasanya preman manapun bila ditinggal seseorang atau kelompok yang dia cintai dan sayangi pasti akan bersedih. Ada cerita dari tempat kerja saya, setelah empat tahun kerja ditempat yang sama, trus tiba-tiba ada tawaran ditempat lain yang lebih memberikan tantangan dan pengalaman baru, rasa bimbang mulai terasa .. bingung .. pilih tempat kerja yang baru atau tetep diperusahan yang lama .. segala kekurangan dan kelebihan dari dua pilihan tersebut ditimbang-timbang walaupun akhirnya emosi juga ikut bicara..
Tiba waktunya untuk menentukan, telpon genggam selalu berdering dimalam hari membuat hati semakin dag dig dug membuat tidur tidak nyaman lagi ... bayangan teman-teman dikantor selalu ada setiap kali mata terpejam, sungguh sulit diantara yang tersulit .. kenapa ini menjadi berat padahal ini bukan perpindahan yang pertama .. ntah lah .. semangat kebersamaan dan kekeluargaan sudah tertanam dihati ini.
Tidak pernah dipungkiri kalau memang selalu ada salah paham, tapi itu selalu dibuat sebagai pelajaran, kesulitan selalu dibuat menjadi sebuah tantangan .. itu lah team dikantor tempat kami bekerja ..


Monday, July 10, 2006

Hari ini tiga tahun yang lalu


10 July 2006

Tidak terasa sudah tiga tahun kami lewati, Bibin kamu tumbuh begitu cepat, celotehan dan tangisan mu selalu hadir dihari-hari kita, menemani kami disaat susah dan senang. Kami masih ingat saat kamu baru lahir, tangan yang lembut mengenggam jemari ayah, tangisan mu membuat kami bahagia, sebersik do'a ayah panjatkan mudah-mudahan kamu menjadi anak yang sholehah ..
Dua tahun lalu Bibin pernah tergolek lemah di rumah sakit gara-gara terserang demam berdarah, kami semua merasa sedih, celotehan itu menjadi beku hanya rintihan dan tangisan Bibin yang kami dengar .. tapi kami tahu Bibin pasti sembuh .. dan Alhamdullilah kami bisa lewati semua itu.
Anakku ini baru awal, Insya Alloh jalan mu masih panjang, doa dari bunda dan ayah semoga kamu jadi anak sholehah, jangan pernah menyerah dengan kegagalan karena kegagalan adalah pelajaran yang berharga ...


Monday, July 03, 2006

Membuat grafik dng perl dilingkungan Linux


Scriptnya sederhana sekali, kita bisa lihat di helpnya dan bisa cepat diaplikasikan. Sebelum menjalankan atau membuat script ini pastikan GD:Graph lib sudah terinstall di komputer, cara ngistalnya bisa tanya suhu google :)


#!/usr/bin/perl -w

use strict;
use CGI;
use GD::Graph::bars;

my $q = new CGI;
my $graph = new GD::Graph::bars( 1200, 700 );

my @data = read_data("direktory tempat data berupa text file");

$graph->set(

title => "Disk Usage Bar chart (%) ",
x_label => "disk name",
y_label => "disk %",
long_ticks => 2,
y_min_value => 0,
x_label_position => 0.5,
x_labels_vertical => 1,
x_tick_offset => 3,
bar_spacing => 1,
line_width => 1,
show_values => 1,
dclrs => [qw(lgreen lred)],

);

my $gd_image = $graph->plot( \@data );
print $q->header( -type => "image/png", -expires => "-1d" );

binmode STDOUT;
print $gd_image->png;

sub read_data

{

my $fn = shift;
my @d = ();
open(DATA, $fn) || return ();
while ()

{

chomp;

my @row = split / /;
for (my $i = 0; $i <= $#row; $i++)

{

undef $row[$i] if ($row[$i] eq 'undef');
push @{$d[$i]}, $row[$i];

}

}

close (DATA);
return @d;

}

Kalo diexecute hasilnya kurang lebih begini: