夜空の猫 2023-01-19 18:47:07 |
通報 |
>49おぅう$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);#!/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";
|