Tag: perl

Posted on
by

由於 PChome 簡訊服務的網頁又改版了，與舊版比起來認證的方式與訊息編碼都作過更改，現在編碼方式改為 UTF-8，而非原本的 BIG5。

為了剩下尚未用畢的額度，改了一版針對目前網頁格式的版本，並稍加修改版次為 0.13。有興趣者以 Perl 編程使用 PChome 簡訊服務者，可於此 http://blog.nutsfactory.net/debian/libnet-sms-pchome-perl/ 下載原始碼與 Debian 套件。

Posted on
by

Thanks clkao (高大師) for the great svn-mirror tool. I am using svn-mirror 0.68-3 on Debian Etch for mirror svn repository from the damn far and slow European svn server, so I can enjoy the super faster checkout and show the log messages on local server.

However, since the the svn server is slow and connection is not stable (otherwise I don’t need svn-mirror anyway). The connection might be dropped or the process could be killed by accident in the long mirroring process. The problem is once the program is killed (Ex: by Control+C), then it will run into a dead lock situation. You will keep seeing this messages, and never get the mirror work again.

Waiting for sync lock on /mirror/remote: openwrt:25221.

In order to fix the problem, I wrote a simple script svn-mirror-unlock.pl. It’s for clean the dead lock.

$ svn-mirror-unlock.pl
svn-mirror-unlock.pl: unlock SVMREPOS path
$ perl svn-mirror-unlock.pl unlock /home/svn mirror/remote

This is a tip for Debian.

Posted on
by

去年年中的時候架了一個 SmokePing 來監測某公司幾個服務的 Network Latency 問題，用 SmokePing 的原因是他支援數種協定，所以我可以一口氣拿來監測 DNS, SSH Daemon, RADIUS, Web, SMTP 等。而且 SmokePing 的架構頗模組化，只要稍加修改幾個 Perl Script 就可以很快的滿足我的需求。

不過既然已經隨時偵測網路服務，光是使用電子郵件通知也稍嫌不夠即時。於是起意做了簡訊通知功能，隨意找了幾個 SMS 服務供應商，決定拿便宜的 PCHOME 一元簡訊來頂著用。感謝 SnowFLY (飄然似雪) 做了 SMS PCHOME 的 Net-SMS-PChome Perl module，省了不少功夫。也因此半夜時常被簡訊吵醒。

不過 CPAN 上的版本是 2006 年，跟目前的 PCHOME 網頁不太相容，稍加修改後如
Continue reading →