Forum Debian Users Gang

sub notify{
    my ($body) = @_;
  my $msg = MIME::Lite->build(
            From            =>  'USER <user@example.com>',
      To        =>  'user@example.org',
      Subject   =>  '=?UTF-8?B?'.encode_base64(encode('utf8', 'BadAss Detected')).'?=',
      Type      =>  'TEXT',
      Encoding  =>  'quoted-printable',
      Data      =>  "$body",
   );
  $msg->attr("Content-type" => "text/plain");
  $msg->attr("content-type.charset" => "UTF-8");
  $msg->send('smtp', 'server.example.com', AuthUser=>'user@example.com', AuthPass=>'secretpass');
}

use diagnostics  -vebose;

      Subject   =>  '=?UTF-8?B?'.encode_base64(encode('utf8', 'BadAss Detected')).'?=',

while (<STDIN>)
{
    $mailbody = $_;
}

notify($mailbody);

sub notify{
    my ($body) = @_;
  my $msg = MIME::Lite->build(
      From      =>  "$mailfrom",
      To        =>  "$mailto",
      Subject   =>  '=?UTF-8?B?'.encode_base64(encode('utf8', 'BadAss Detected')).'?=',
      Type      =>  'TEXT',
      Encoding  =>  'quoted-printable',
      Data      =>  "$body",
   );
  $msg->attr("Content-type" => "text/plain");
  $msg->attr("content-type.charset" => "UTF-8");
#  $msg->send('smtp', "$serwer", AuthUser=>"$authuser", AuthPass=>"$authpass" , Port => 587);
#  $msg->send('sendmail');
   $msg->send("sendmail", "/usr/sbin/sendmail -t -i");
}

#!/usr/bin/perl -w


use warnings;
use strict;
use diagnostics -verbose;

use base qw(Exporter);
use utf8;
use MIME::Lite;
use MIME::Base64;
use Encode;
use Net::SMTP::TLS;  
use Net::SMTP::SSL;

my $serwer = "127.0.0.1";
my $authuser = "pacjent\@domena.tld";
my $authpass = "<hasełko>";
my $mailto = "adresat\@domena.tld";
my $mailfrom = "pacjent\@domena.tld";
my $mailbody = "";
my $subj = "Grzegżółka i Różyczka na łączce";
my $subj2 = $ARGV[0];
print "$subj2\n" if $subj2;

my $msg="";

local $/;
while (<STDIN>)
{
    $mailbody = $_;
};

notify($mailbody);

sub notify{
    my ($body) = @_;
  my $msg = MIME::Lite->build(
      From      =>  "$mailfrom",
      To        =>  "$mailto",
Subject =>   "=?UTF-8?B?".encode_base64(encode("utf8", "$subj2"),"")."?=", 
      Type      =>  'TEXT',
      Encoding  =>  'quoted-printable',
      Data      =>  "$body",
   );
  $msg->attr("Content-type" => "text/plain");
  $msg->attr("content-type.charset" => "UTF-8");
#  $msg->send('smtp', "$serwer", AuthUser=>"$authuser", AuthPass=>"$authpass" , Port => 587);
  $msg->send("sendmail", "/usr/sbin/sendmail -t -i");
}


my $mailer = new Net::SMTP::TLS(  
    '127.0.0.1',  
    Port    =>       '587',  
    User    =>      "$authuser",  
    Password=>      "$authpass",
    ssl_verify => 'none' );
$mailer->mail("$mailfrom");  
$mailer->to("$mailto");  
$mailer->data;  
$mailer->datasend($msg->as_string);  
$mailer->dataend;  
$mailer->quit;

dev-lang/perl-5.20.1-r4

package Win::Notifier;
use strict;
use warnings;
use base qw(Exporter);
use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
use i18n "/home/winnetou/perl/i18n";
use diagnostics  -verbose;
use utf8;

$VERSION     = 1.00;
@ISA         = qw(Exporter);
@EXPORT      = ();
@EXPORT_OK   = qw(viaSMS);
%EXPORT_TAGS = ( all => [qw(&viaSMS)],
               );

binmode STDOUT, ":utf8";

sub viaSMS{
  my ($user, $script, $msg) = @_;
  my $txt = "$user =>  $script => $msg";
  print "$txt";
  return 1;
}

1;

#!/usr/bin/perl

BEGIN { push @INC, '/home/winnetou/perl/modules' }
use strict;
use warnings;
use utf8;
use i18n "/home/winnetou/perl/i18n";
use DAP::Notifier qw(:all);
use diagnostics  -verbose;

my $user = "jakis_login";

print "Calling notify viaSMS\n";
viaSMS($user,$0,"no zjebał coś") or die "nope nope nope!";

winnetou@myhost:~/tmp$ ./modtest2.pl 
Calling notify viaSMS
DESCRIPTION OF DIAGNOSTICS
    These messages are classified as follows (listed in increasing order of
    desperation):
    
        (W) A warning (optional).
        (D) A deprecation (enabled by default).
        (S) A severe warning (enabled by default).
        (F) A fatal error (trappable).
        (P) An internal error you should never see (trappable).
        (X) A very fatal error (nontrappable).
        (A) An alien error message (not generated by Perl).
    
    The majority of messages from the first three classifications above
    (W, D & S) can be controlled using the warnings pragma.
    
    If a message can be controlled by the warnings pragma, its warning
    category is included with the classification letter in the description
    below.
    
    Severe warnings are always enabled, unless they are explicitly disabled
    with the warnings pragma or the -X switch.
    
    Trappable errors may be trapped using the eval operator.  See
    "eval" in perlfunc.  In almost all cases, warnings may be selectively
    disabled or promoted to fatal errors using the warnings pragma.
    See warnings.
    

Deep recursion on subroutine "i18n::_concat" at /usr/share/perl/5.14/Carp.pm
    line 345 (#1)
    (W recursion) This subroutine has called itself (directly or indirectly)
    100 times more than it has returned.  This probably indicates an
    infinite recursion, unless you're writing strange benchmark programs, in
    which case it indicates something else.
    
    This threshold can be changed from 100, by recompiling the perl binary,
    setting the C pre-processor macro PERL_SUB_DEPTH_WARN to the desired value.
    
Deep recursion on subroutine "warnings::enabled" at
    /usr/local/share/perl/5.14.2/i18n.pm line 108 (#1)
Deep recursion on subroutine "warnings::__chk" at
    /usr/share/perl/5.14/warnings.pm line 394 (#1)
Deep recursion on subroutine "Carp::short_error_loc" at
    /usr/share/perl/5.14/warnings.pm line 389 (#1)
Deep recursion on subroutine "Carp::trusts" at /usr/share/perl/5.14/Carp.pm
    line 284 (#1)
Deep recursion on subroutine "Carp::get_status" at /usr/share/perl/5.14/Carp.pm
    line 323 (#1)
Deep recursion on subroutine "Carp::trusts_directly" at
    /usr/share/perl/5.14/Carp.pm line 170 (#1)
Deep recursion on subroutine "Carp::trusts" at /usr/share/perl/5.14/Carp.pm
    line 285 (#1)
Deep recursion on subroutine "Carp::get_status" at /usr/share/perl/5.14/Carp.pm
    line 330 (#1)
^C

sub viaSMS{
  print "@_";
  return 1;
}

sub viaSMS{
  print "@_\n";
  return 1;
}

sub viaSMS{
  print "@_";
  print "\n";
  return 1;
}

require "/sciezka/do/skryptu.pl";