自宅サーバーからGNTPを使って通知を飛ばす

xmlのパースをPerlでしてるので、
Perlで通知飛ばします。

CPAN使って

install Growl::GNTP

あとはスクリプト書いてあげて

  use Growl::GNTP;
  my $growl = Growl::GNTP->new(PeerHost => "192.168.255.255");
  $growl->register([
          {Name => "foo",},
          {Name => "bar",},
  ]);
  $growl->notify(
          Event=>"foo",
          Title=>"my notify",
          Messege=>"my message",
          Icon => "http://www.example.com/my0face.png",
  );

完成。