[email_privmsgs] small fixes

diff --git a/_testing/config.yml b/_testing/config.yml
index 7f2fab75865cf7267f7d5b078dd567c0c3d6948b..0dd7549d8e8333926e2c54285adb7a9673580c0d 100644 (file)
--- a/_testing/config.yml
+++ b/_testing/config.yml
@@ -31,7 +31,6 @@ whitelist:
   - cap_sasl_fail
   - cap_sasl
   - dnsspam
-  - email_privmsgs
   - idonkey
   - irc_chess
   - ircgallery

diff --git a/scripts/email_privmsgs.pl b/scripts/email_privmsgs.pl
index 22216cd75fa1b90b1fb5f25df585f9c6b4e651af..078af12062c403e4640be94b8322e307ff88d7a0 100644 (file)
--- a/scripts/email_privmsgs.pl
+++ b/scripts/email_privmsgs.pl
@@ -28,7 +28,7 @@ use Email::Sender::Simple qw(try_to_sendmail);
 use Email::Simple;
 use Email::Simple::Creator;
 
-$VERSION = '0.5';
+$VERSION = '0.6';
 %IRSSI = (
        authors => 'Adam James',
        contact => 'atj@pulsewidth.org.uk',
@@ -39,15 +39,16 @@ $VERSION = '0.5';
                "Useful in combination with screen_away. " .
                "Requires Email::Sender.",
        license => 'MIT',
+       changed => "2017-11-21", 
 );
 
 my $FORMAT = $IRSSI{'name'} . '_crap';
 my $msgs = {};
 
 Irssi::settings_add_str('misc', $IRSSI{'name'} . '_from_address',
-       'irssi@' . (%ENV->{'HOST'} || 'localhost'));
+       'irssi@' . ($ENV{'HOST'} || 'localhost'));
 Irssi::settings_add_str('misc', $IRSSI{'name'} . '_to_address',
-       %ENV->{'USER'});
+       $ENV{'USER'});
 Irssi::settings_add_str('misc', $IRSSI{'name'} . '_subject',
        'IRC Private Messages from Irssi');