2010-06-04から1日間の記事一覧
#!/usr/bin/perl use Net::SMTP; use MIME::Entity; # Settings our $SENDER = "kotaka\@yourdomain.co.jp"; our $RECIPIENT = "kotaka\@yourdomain.co.jp"; our $smtp_srv = "192.168.1.254"; our $smtp_domain = "yourdomain.co.jp"; our $SUBJECT = "back…