Perlの最近のブログ記事

Remote_host_said:_553-5.1.7_The_sender_address_<#@[]>_is_not_a_valid_RFC_5321_address._For_more/553-5.1.7_information,_go_to/553-5.1.7__https://support.google.com/a/answer/3221692_and_review_RFC_5321/553_5.1.7_specifications._d2e1a72fcca58-839684a49e3si35399207b3a.131_-_gsmtp/

Return-Path: <hoge@exsample.com>

Return-Path: <>

if (!open(OUT,"| /usr/sbin/sendmail -t -f hoge\@exsample")) {

return(0);

}

print OUT <<EOM;

From: hoge hoge <hoge\@exsample>

To: atesaki\@exsample.co.jp

Subject: Test Mail

MIME-Version: 1.0

Content-Type: text/plain; charset=ISO-2022-JP

X-Mailer: The original perl script - LOLI POPPER

Test Test Test Go Go Go

EOM

close(OUT);

/usr/local/bin/lha e -e -i -w=./temp hogehoge.lzh

（例）

export LC_CTYPE=ja_JP.eucJP; /usr/bin/unzip -OCP932 -d /tmp exsample.zip

export LC_CTYPE=ja_JP.UTF-8

550-5.7.26 This mail is unauthenticated, which poses a security risk to the

550-5.7.26 sender and Gmail users, and has been blocked. The sender must

550-5.7.26 authenticate with at least one of SPF or DKIM. For this message,

550-5.7.26 DKIM checks did not pass and SPF check for [www.exsample.co.jp] did

550-5.7.26 not pass with ip: [210.XXX.XXX.XXX]. The sender should visit

550-5.7.26  https://support.google.com/mail/answer/81126#authentication for

550 5.7.26 instructions on setting up authentication.

# nslookup -q=TXT exsample.co.jp

exsample.co.jp   text = "v=spf1 ip4:202.XXX.XXX.XXX ip4:163.XXX.XXX.XXX ip4:210.XXX.XXX.XXX include:spf.securemx.jp ~all"

    $mail_data = <<EOM;

From: admin@exsample.co.jp

To: hogehoge@gmail.com

Subject: TEST MAIL

MIME-Version: 1.0

Content-type: text/plain; charset=ISO-2022-JP

Content-Transfer-Encoding: 7bit

X-Mailer: CGI-Script

test death.

EOM

    if (!open (MAIL,"| sendmail -t")) {

        print "Error : Mail Send\n";

    }

    print MAIL $mail_data;

    close(MAIL);

    if (!open (MAIL,"| sendmail -t -f admin@exsample.co.jp")) {

        print "Error : Mail Send\n";

    }

SecurityImage インストール続き

# yum -y install gd

# yum -y install gd-devel

# yum -y install perl-GD

# yum -y install perl-GD-SecurityImage

use strict;

use warnings;

use utf8;

use LINE::Bot::API;

use LINE::Bot::API::Builder::SendMessage;

use Plack::Request;

my $channel_secret = '84xxxxxxxxxxxxxxxxxxxxxxxxxxxxec';

my $channel_access_token = '8sXxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxcDnyilFU=';

my $bot = LINE::Bot::API->new(

channel_secret       => $channel_secret,

channel_access_token => $channel_access_token,

);

sub {

my $req = Plack::Request->new(shift);

unless ($bot->validate_signature($req->content,

$req->header('X-Line-Signature'))) {

return [200, [], ['bad request']];

}

my $events = $bot->parse_events_from_json(

$req->content);

foreach my $event (@{ $events }) {

if ($event->is_user_event && $event->is_message_event

&& $event->is_text_message) {

my $messages = LINE::Bot::API::Builder::SendMessage->new;

$messages->add_text( text => $event->text );

$messages->add_text( text => 'って言ったのね？');

my $res = $bot->reply_message($event->reply_token,

$messages->build);

}

}

return [200, [], ["OK"]];

};

#!/usr/bin/perl

use Socket;

$ipstr = $ARGV[0];

$port = $ARGV[1];

$msg = $ARGV[2];

$ipaddr = inet_aton($ipstr);

$sockaddr = pack_sockaddr_in($port, $ipaddr);

socket(SOCKET, PF_INET, SOCK_DGRAM, 0);

send(SOCKET,$msg , 0, $sockaddr);