Arief Yudhawarman

Masih belajar buat blog

Archive for the ‘perl’ Category

SMS Web

with one comment

Pada artikel yang lalu penulis sudah membahas aplikasi SMS Gateway dengan Perl. Di aplikasi itu untuk mengirim sms dilakukan melalui init script atau buat file txt yang disimpan di folder tertentu agar bisa diproses oleh aplikasi. Di kesempatan ini penulis membahas aplikasi kirim sms dengan script cgi melalui web. Kirim sms bisa dilakukan dengan lebih mudah baik melalui browser atau wget.

Contoh link untuk kirim sms melalui browser:
http://smsserver/cgi-bin/sms.cgi?user=user&pass=password&to=085236001234&txt=Tes%20kirim%20sms

Contoh kirim sms melalui wget:
wget -O hasil.txt “http://smsserver/cgi-bin/sms.cgi?user=user&pass=password&to=085236001234&txt=Tes kirim sms”

Kita lihat bahwa kalau kirim sms menggunakan browser maka user harus melakukan karakter encoding seperti karakter spasi harus diencode menjadi %20.

Aplikasi ini mendukung kirim sms ke lebih dari satu nomor tujuan. Lihat contoh pada akhir tulisan ini.

Read the rest of this entry »

Written by awarmanf

January 4, 2017 at 9:12 am

Posted in Linux, perl

SMS Gateway dengan Perl

with one comment


SMS Gateway

Pada pertengahan tahun 2005 penulis mengerjakan proyek SMS Gateway untuk proses perhitungan suara pada Pilkada di Jember. Pada saat itu penulis menggunakan aplikasi SMS Server Tool (smstools) dan modem GSM Siemens MC35i dan TC35i. Harganya per biji waktu itu 2,1 juta.

Modem GSM Siemens

Modem GSM Siemens

Dibandingkan dengan aplikasi sms server saat ini seperti kannel atau gammu, smstools sangatlah sederhana. Aplikasi smstools-1.14.3.tar.gz yang saat itu penulis pakai hanya mempunyai fitur konfigurasi sms. Untuk pengolahan sms yang masuk dilakukan melalui script programming seperti bash atau perl begitu pula untuk menyimpan sms ke dalam database seperti MySQL.


Modem GSM

Beberapa tahun kemudian penulis mendapatkan tugas di kantor membuat SMS Gateway untuk broadcast sms internal ke staff kantor baik pusat maupun cabang. Dengan memperhatikan kepraktisan dan kemudahan penulis menggunakan kannel dan playSMS sedangkan modem gsm menggunakan “Wavecom Fast Track” dengan koneksi serial.

Wavecom Fast Track

Wavecom Fast Track


Read the rest of this entry »

Written by awarmanf

August 18, 2016 at 2:42 pm

Get Email Header Using Perl

leave a comment »

Penulis membuat script perl untuk download beberapa email header melalui koneksi pop3. Header yang diambil adalah alamat pengirim, informasi tanggal, subject email, besar email dan message-id. Hasil eksekusi script akan disimpan secara default ke file mailheader.log.

Informasi tanggal dibaca dari header “Received from” yang dibuat oleh MUA (Mail User Agent). Jika header ini tidak ada maka ambil informasi tanggal dari header “Date“.

Untuk membaca mengenai apakah itu email header silahkan buka What is an Email Header?

Read the rest of this entry »

Written by awarmanf

April 2, 2014 at 9:59 am

Posted in Linux, mail, perl, pop3

ERROR: Date::Manip unable to determine TimeZone (Logwatch)

leave a comment »

Setiap hari dapat email seperti ini dari cron daemon.
ss-1

Service cron daily mengeksekusi script logwatch

Logwatch is a customizable log analysis system. Logwatch parses through your system’s logs and creates a report analyzing areas that you specify. Logwatch is easy to use and will work right out of the package on most systems.

Setelah membaca perldoc Date::Manip dan browsing artikel Methods To Change TimeZone in Linux problem ini bisa diatasi dengan set environment variable TZ sebelum menjalankan script logwatch.
Read the rest of this entry »

Written by awarmanf

May 16, 2013 at 8:27 am