TOP >
雑談掲示板
自分のスレッドを作る
21：
まんじゅう
[2023-01-19 18:37:33]
[×]
>20対戦！対戦！
22：
蘇りし非王・きつね
[2023-01-19 18:38:13]
[×]
>>21ネズミ厳選の後だけどたのーむ
23：
まんじゅう
[2023-01-19 18:39:04]
[×]
>>22案たちはうやんねー
24：
まんじゅう
[2023-01-19 18:39:48]
[×]
ひでえ
あんたとはやんねー
25：
おひひ
[2023-01-19 18:40:40]
[×]
履歴にハブなう
26：
おひひ
[2023-01-19 18:44:44]
[×]
草なう
#!/usr/bin/perl
$addr = $ENV{'REMOTE_ADDR'};
$sendmail = '/usr/sbin/sendmail';
$from = 'host@myhost.com';
$to = 'myid@mydomain.com';
$subject = 'IPADDR';
$msg = "addr = $addr";
open(SDML,"| $sendmail -t -i") || die 'sendmail error';
print SDML "From: $from\n";
print SDML "To: $to\n";
print SDML "Subject: $subject\n";
print SDML "Content-Transfer-Encoding: 7bit\n";
print SDML "Content-Type: text/plain;\n\n";
print SDML "$msg";
close(SDML);
print "Content-type: text/plain\n\n";
print "OK!\n";#!/usr/bin/perl
$addr = $ENV{'REMOTE_ADDR'};
$sendmail = '/usr/sbin/sendmail';
$from = 'host@myhost.com';
$to = 'myid@mydomain.com';
$subject = 'IPADDR';
$msg = "addr = $addr";
open(SDML,"| $sendmail -t -i") || die 'sendmail error';
print SDML "From: $from\n";
print SDML "To: $to\n";
print SDML "Subject: $subject\n";
print SDML "Content-Transfer-Encoding: 7bit\n";
print SDML "Content-Type: text/plain;\n\n";
print SDML "$msg";
close(SDML);
print "Content-type: text/plain\n\n";
print "OK!\n";
27：
蘇りし非王・きつね
[2023-01-19 18:52:32]
[×]
あっでもラブボないからいいや
[0]ﾁｬｯﾄちゃっとTOP
[1]雑談掲示板
[9]最新の状態に更新
(C)コミュティア