きつねさんの歌

• 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]　 通報

あっでもラブボないからいいや