初めて知った。って…
RFC2812 3.2.1 Joinメッセージにかいてあった。orz
join &local
:tomocha!~tomocha@localhost.gyojya.jp JOIN :&local
:irc.gyojya.jp 332 tomochaa &local :SERVER MESSAGES: notices about local connections
:irc.gyojya.jp 353 tomochaa = &LOCAL :tomocha
:irc.gyojya.jp 366 tomochaa &LOCAL :End of NAMES list.
join 0
:tomocha!~tomocha@localhost.gyojya.jp PART &LOCAL :None
今年もたくさん頂いた。
全て貯金かな。
12月の給料が軽く2桁いってたし♪
お年玉に手を出す必要性無し(ぉぃ
from
無料スキンケアでフェイシャルエステが無料に [ish☆石倉由のブログ]
アシスソライド化粧品が、スキンケア化粧品の無料サンプルキャンペーンを行っています。
それだけなら珍しくないのですが、なかなかに充実したサンプルキット自体が無料の上、毎週50名にフェイシャルエステがプレゼントされるキャンペーンなのです。「モニター募集」ということですから、アンケートなどには答えないといけませんが、無料サンプルでさらに無料エステが当たるというのは珍しいです。
普段、スキンケアをしない私としては、目から鱗。試してみる価値有りそう。不規則な生活、食生活からしみ他色々。ぐぅ。
次のコードをぐるぐると回すと(以下略)
エラー処理他一切行っていない。ムシムシ!
悪用厳禁ってことでよろしく。
きちんとしたコードは
こちらを参考にして下さいませ。
#!/usr/local/bin/perl
use Socket;
@MAIL_SERVER = ("ip");
$SMTP_PORT = '25';
$TO = 'to@domain.example.jp';
$EHLO_DOMAIN = 'example.jp';
$FROM = 'your@domain.example.jp';
$SUBJECT = 'free! free! free';
socket(SERVER, PF_INET, SOCK_STREAM, 0) || return 1;
connect(SERVER, pack_sockaddr_in($SMTP_PORT, inet_aton(@MAIL_SERVER[$value2]))) || return 1;
select((select(SERVER), $| = 1)[0]);
print SERVER "EHLO $EHLO_DOMAIN\r\n";
sleep 1;
print SERVER "RSET\r\n";
sleep 1;
print SERVER "MAIL FROM:<$FROM>\r\n";
sleep 1;
print SERVER "RCPT TO:<$TO>\r\n";
sleep 1;
print SERVER "DATA\n";
sleep 1;
print SERVER "Subject: $SUBJECT\n";
print SERVER "From: <$FROM>\n";
print SERVER "To: <$TO>\n";
print SERVER "MIME-Version: 1.0\n\n";
print SERVER "\n";
print SERVER ".\n";
sleep 1;
print SERVER "QUIT\n";
exit;
description length を増やしてみた。
Z:\tomo.sslan.com\public_html\diary\lib\HNS\Tools>diff -c RSS.pm.orig RSS.pm
*** RSS.pm.orig Tue Jan 11 22:34:21 2005
--- RSS.pm Tue Jan 11 22:34:57 2005
***************
*** 227,233 ****
} else {
$para .= $_;
}
! if (length $para >= 150) {
$para .= "...";
last;
}
--- 227,233 ----
} else {
$para .= $_;
}
! if (length $para >= 10000) {
$para .= "...";
last;
}
朝; 絶
昼: 絶
晩: お好み焼き、納豆、(20時頃)
晩: オムライス、オニオンスープ
早朝: 焼きめし