i'm back ... again

Salam,

Lama tak menulis... ada masalah skit dgn domain mbek.net. makan bulan gak nak solve... nasib baik arini setel semua... legaaa.....

apapun.. i'm back....

Kedai Makan

Tiba-tiba teringat satu kenangan sewaktu out station masa mula2 kerja dulu.

Masa tu kene buat installation di client site(tahun 2002 kalau tak silap aku). ptg tu kami pergi ke ladang/estate tempat kami akan buat instalation. survey2 keperluan dan apa yg kami perlu sediakan. keluar dari ladang dah agak malam... sebelum balik ke hotel. kami singgah dulu di kedai makan di suatu tempat di kawasan temerloh (kerdau lebih tepat). kami sampai di kedai makan tu dalam pukul 10+-mlm..

as semua tgh lapar, kami order agak byk, dari lauk2 standard sampai la ke sup ekor(1st time makan sup ekor waktu tu... and still the best sup ekor aku pernah rasa). semua sekali ada dlm 4/5 org yg makan. memang semua tgh kelaparan.... sambil diaorg bersembang lepas makan aku ambik kesempatan menyiapkan preparation utk installation esok pagi.

Air dah masuk 3 kali order. diaorg semua masih bersembang sebab menemankan aku siapkan preparation utk esok pagi nya. sebab kalau dah balik bilik... sure terus kaboommm....

aku siap/setel ngam2 bila battery laptop aku pun nak habis... masa tu jam dah dekat pukul 2 pagi. baru perasan tinggal kami satu meja sahaja yg ada kat kedai makan tu.

Panggil tokei kedai tu suruh kira... bila dpt duit balance... membe sorg tergerak nak bertanya kat tokei kedai tu.... pukul berapa tutup kedai...... jawap tokei kedai tu... dengan senyuman yg x pernah putus... ".... biasa tutup pukul 11 lebey atau pukul 12...." .... tergamam kami semua.... mintak maaf banyak2 kami kat tokei kedai tu... tapi dia sedikit pun tak marah akau buat masam muka....

apa yg membuatkan kami x perasan ialah:

1. Tokei kedai@pelayan dia tidak menunjukkan tanda2 atau apa2 signal pun kepada kami mengatakan yg dia dah nak tutup kedai.
2. Tak tutup 1 lampu pun padahal tinggal kami satu meja sahaja kat kedai dia.
3. Tak susun satu kerusi pun sebagaimana tanda2 org nak tutup kedai seperti mana biasa yg dilakukan kedai2 makan yg biasa kita singgahi.
4. tokei kedai@pelayan tak ada pandang kami pun.
5. walaupun kami buat order kali yg ke 3/4 utk air itu pun dia x da cakap kedai dah nak tutup... dia masih menerima order kami. masih sedap gak air yg mereka buat.

Cuma yg kami perasan mereka semua berkumpul depan tv ramai2.... tu jer.....

Malu & Kagum dgn tokei kedai tu. sebelum balik kami minta maaf cukup2 dgn tokei kedai & pelayan2 dia... kami masuk kereta shj baru mereka semua tutup lampu & susun kerusi meja semua....

kalau di KL? payah nak jumpa mcm tu.......

Net::Twitter::Lite update_with_media support for uploading image to twitter.com

Salam,

as Net::Twitter::Lite version 0.10004, there's no function for update_with_media.

as i'm really need to post some pic to twitter. i make some changes to very useful easy to use Net::Twitter::Lite.

changes only ad file Lite.pm.

add after line: 23

        uploadurl => 'http://upload.twitter.com/1',

at line: 331, change from

                        Content_Type  => 'form-data',

to

                        Content_Type  => 'multipart/form-data',

*i'm just playing safe with this.

at line: 387, change from

         ? POST($uri, Content_Type => 'form-data', Content => [ %$args ])

to

         ? POST($uri, Content_Type => 'multipart/form-data', Content => [ %$args ])

*i'm just playing safe with this too.

Add after line: 1198

        [ 'update_with_media', {
            aliases     => [ qw// ],
            path        => 'statuses/update_with_media',
            method      => 'POST',
            params      => [ qw/status media[] lat long place_id display_coordinates in_reply_to_status_id trim_user include_entities/ ],
            required    => [ qw/status media[]/ ],
            add_source  => 1,
            deprecated  => 0,
            authenticate => 1,
            booleans    => [ qw/display_coordinates trim_user include_entities/ ],
        base_url_method => 'uploadurl',
        } ],

That's all.

And to use this function:

$result = eval { $nt->update_with_media({status => "$tweettext", media => ["/path/to/image.png"]}) };

my previous post, Post to Twitter Using Perl

You can download Lite.pm here.

MYNIC DNS update

Mudah sebenarnya utntuk menukar nameserver domain name kita di MYNIC(domainregitsry.my).

TETAPI jika anda tahu dia punya law/peraturan.

Hanya Technical contact shj boleh tukar nameserver domain kita.

username & password anda i mynic adalah unik. ia di hubungkan mengunakan code(contact code, registran code etc..) ia memudahkan sebenarnya. code itu kita boleh guakan di maklumat registran, billing & technical contact. tak perlu taip berulang kali.

Oleh itu kalau nak buat perubahan teknikal, kita kene login gunakan username & password dan beserta code telah diassign utk kita. baru la kita boleh mengemaskini maklumat teknikal yg diperlukan.

Kepada saya yg biasa API utk update sebelum ni, dan kene buat secara manual agak kelamkabut skit td. tapi alhamdulillah dpt gak setelkan.

Happy Birthday To Me

Happy Birthday to me.... terlalu sibuk bulan ni... may be next month baru bleh sambut..... semoga dipermudahkan segala urusan ku...... amin....

*p/s... tq to my wife sebab dah bg advanced hadiah semalam... sepasang kasut casual.... gantikan kasut aku yg hilang kene sebat dek puncuri....

Post to Twitter Using Perl

Salam,

cara paling mudah so far nak post ke twitter.com dari perl script.

guna module Net::Twitter::Lite dari cpan.

  
use Net::Twitter::Lite;

my $nt = Net::Twitter::Lite->new(
 consumer_key        => '',
 consumer_secret     => '',
 access_token        => '',
 access_token_secret => ''
);

my $result = eval { $nt->update("$tweettext") };
if($@){
 print "Problem when posting Ads to Twitter.com\n";
 print "$@\n";
}else{
 print "$result";
}

* untuk key & token boleh dapat dari twitter developer punya section. hanya pelu register kita punya apps.

goo.gl utk link pendek

Sebelum ni aku ingatkan url pendek@tiny url yg biasa org pakai tu kene register kat mana2 database or domain hosting. rupa2nya x perlu... mudah je nak buat.

seperti biasa aku pakai Perl/CGI. install module WWW::Shorten::Googl from search.cpan.org

use WWW::Shorten::Googl;
use WWW::Shorten 'Googl';

$short_url = makeashorterlink($long_url);

$long_url  = makealongerlink($short_url);

# Note - this function is specific to the Googl shortener
$stats = getlinkstats( $short_url );

SImple je kan... amat membantu bila nak post url dkt twitter..