Keep backward compatibility: The value of "smtpagent" is "JSON::$AGEN…

…TNAME" #333
sisimai · Nov 14, 2019 · 093863a · 093863a
1 parent 52cbc34
commit 093863a
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git a/lib/Sisimai/Lhost/AmazonSES.pm b/lib/Sisimai/Lhost/AmazonSES.pm
@@ -354,7 +354,7 @@ sub json {
     return undef unless $recipients;
 
     for my $e ( @$dscontents ) {
-        $e->{'agent'} = __PACKAGE__->smtpagent;
+        $e->{'agent'} = 'JSON::AmazonSES';
     }
 
     if( exists $argvs->{'mail'}->{'headers'} ) {

diff --git a/lib/Sisimai/Lhost/SendGrid.pm b/lib/Sisimai/Lhost/SendGrid.pm
@@ -295,7 +295,7 @@ sub json {
         $v->{'status'}    ||= Sisimai::SMTP::Status->find($diagnostic) || '';
         $v->{'replycode'} ||= Sisimai::SMTP::Reply->find($diagnostic)  || '';
         $v->{'diagnosis'}   = $argvs->{'reason'} || '';
-        $v->{'agent'}       = __PACKAGE__->smtpagent;
+        $v->{'agent'}       = 'JSON::SendGrid';
 
         # Generate pseudo message/rfc822 part
         $rfc822head = {