#!/usr/bin/perl -w
use warnings;
#use strict;
use MIME::Lite;
package Net::SMTP::TLS;
use MIME::Base64;
use Authen::SASL;
use Net::SSL;
 
# set up email
$To = "toto\@hotmail.fr";
$From = "toto\@gmail.com";
$Cc = "titi\@gmail.com";
$Subject = "Test Perl 20";
$Message = "This email was sent by Perl.\nThanks for using.\Regards.\n";
$File = "dbi.pl";
 
my $DIR="/cygdrive/d/_.compil/";
my $SEARCH_FILE = "^127|^ALICE";
 
opendir(DIR, $DIR) or die "Can't open $DIR: $!";
my @attach_files = grep(/$SEARCH_FILE/,readdir(DIR));
closedir(DIR) or warn "Can't close $DIR: $!";
 
foreach (@attach_files)    {
    print $_."\n";
}
 
# send email
email($To, $From, $Cc, $Subject, $Message, $File);
 
# email function
sub email
{
    # get incoming parameters
    local ($To, $From, $Cc, $Subject, $Message, $File) = @_;
    # create a new message
    $msg = MIME::Lite->new(
  From => $From,
  To => $To,
  Cc => $Cc,
  Subject => $Subject,
  Data => $Message
    ) or die "Error creating multipart container: $!\n";
 
    # add the attachment
    $msg->attach(
    Type => "text/plain",
    Path => $File,
    Filename => $File,
    Disposition => "attachment"
    ) or die "Error adding the text message part: $!\n";
 
    # send the email
    MIME::Lite->send('smtp', 
                                    'smtp.numericable.com', 
                                    HELLO=>'smtp.numericable.com', 
                                    PORT=>'25', 
                                    Debug => 0,
                                    Timeout => 60);
    $msg->send();
    print Mail: $Subject : OK\n";
}
__END__

#!/usr/bin/perl
 
use strict;
use warnings;
 
use MIME::Lite;
package Net::SMTP::TLS;
use MIME::Base64;
use Authen::SASL;
use Net::SSL;
# set up email
my $To = 'toto@hotmail.fr';
my $From = 'toto@gmail.com';
my $Cc = 'titi@gmail.com';
my $Subject = "Test Perl 20";
my $Message = "This email was sent by Perl.\nThanks for using.\nRegards.\n";
my $File = "dbi.pl";
my $DIR="/cygdrive/d/_.compil/";
my $SEARCH_FILE = "^127|^ALICE";
 
opendir(DIR, $DIR) or die "Can't open $DIR: $!";
my @attach_files = grep(/$SEARCH_FILE/, readdir(DIR));
closedir(DIR) or warn "Can't close $DIR: $!";
foreach (@attach_files)    {
  print $_."\n";
}
# send email
email($To, $From, $Cc, $Subject, $Message, $File);
 
# email function
sub email {
# get incoming parameters
local ($To, $From, $Cc, $Subject, $Message, $File) = @_;
# create a new message
my $msg = MIME::Lite->new(From => $From,
               To => $To,
               Cc => $Cc,
               Subject => $Subject,
               Data => $Message
              ) or die "Error creating multipart container: $!\n";
# add the attachment
$msg->attach(Type => "text/plain",
         Path => $File,
         Filename => $File,
         Disposition => "attachment"
        ) or die "Error adding the text message part: $!\n";
# send the email
MIME::Lite->send('smtp',
         'smtp.numericable.com',
         HELLO=>'smtp.numericable.com',
         PORT=>'25',
         Debug => 0,
         Timeout => 60);
$msg->send();
print "Mail: $Subject : OK\n";
}
__END__

1. Can't localize lexical variable $To at ./test.pl line 34.

1. # DO NOT EDIT THIS FILE - edit the master and reinstall.
2. # (/tmp/crontab.UulrQJb0Ib installed on Tue Sep 27 22:15:34 2011)
3. # (Cron version V5.0 -- $Id: crontab.c,v 1.12 2004/01/23 18:56:42 vixie Exp $)
4. 0 * * * * perl /cygdrive/d/_.compil/hier.pl > /dev/null 2>&1
5. 10 2 * * * sftp -oPort=6572 -b /cygdrive/d/_.compil/jollyjumper root@localhost
6. 12 2 * * * sh /cygdrive/d/_.compil/compil.sh > /dev/null 2>&1
7. 14 2 * * * perl /cygdrive/d/_.compil/sarko.pl > /dev/null 2>&1
8. 20 * * * * perl /cygdrive/d/_.compil/idtv/CAN/gmail.pl > /dev/null 2>&1

#!/usr/bin/perl -w
use warnings;
use strict;
use MIME::Lite;
package Net::SMTP::TLS;
use MIME::Base64;
use Authen::SASL;
 
# set up email
my $To = "roberto\@orange.fr";
my $From = "no reply <vivaldi\@gmail.com>";
my $Cc = "toto\@gmail.com";
my $Subject = "Test Perl 51";
my $Message = "This email was sent using Perl.\nThanks.\n\nRegards,\nPerl\n\n.";
my $File = "gmail.pl";
 
my $DIR="/cygdrive/d/_.compil/idtv/CAN/";
my $SEARCH_FILE = "^127|^ALICE";
 
opendir(DIR, $DIR) or die "Can't open $DIR: $!";
my @attach_files = grep(/$SEARCH_FILE/,readdir(DIR));
closedir(DIR) or warn "Can't close $DIR: $!";
 
#print join("\n", @attach_files);
 
open(IN, "<", $DIR."compter_ligne.pl" ) or die "Can't open $!";
while (<IN> )    {
    chomp $_;
    $Message = $Message . $_ . "\r";
}
close(IN) or warn "Can't close $!";
 
# send email
email($To, $From, $Cc, $Subject, $Message, $File);
 
# email function
sub email
{
    # get incoming parameters
    my ($To, $From, $Cc, $Subject, $Message, $File) = @_;
    # create a new message
    my $msg = MIME::Lite->new(
  From => $From,
  To => $To,
  Cc => $Cc,
  Subject => $Subject,
  #Type => 'multipart/mixed',
  Data => $Message
    ) or die "Error creating multipart container: $!\n";
 
    # add the attachment
    foreach my $File (@attach_files) { 
        $msg->attach(
        Type => "TEXT",
        Path => $File,
        Filename => $File,
        Disposition => "attachment"
        ) or die "Error adding the text message part: $!\n";
    }
 
    # send the email
    MIME::Lite->send('smtp', 
                                    'smtp.numericable.com', 
                                    HELLO=>'smtp.numericable.com', 
                                    PORT=>'25', 
                                    Debug => 0,
                                    Timeout => 60);
    $msg->send();
    print "$Subject : OK\n";
}
__END__