IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Programmation et administration système Perl Discussion :

Envoi mail via telnet


Sujet :

Programmation et administration système Perl

  1. #1
    Nouveau Candidat au Club
    Inscrit en
    Février 2007
    Messages
    2
    Détails du profil
    Informations forums :
    Inscription : Février 2007
    Messages : 2
    Points : 1
    Points
    1
    Par défaut Envoi mail via telnet
    Bonjour,

    J'ai créé un script "envoi_mail" en bash permettant d'envoyer des emails via telnet :

    #!/bin/bash

    echo HELO $1
    sleep 1
    echo MAIL FROM: $2
    sleep 1
    echo RCPT TO: $3
    sleep 1
    echo DATA
    echo SUBJECT: Probleme disque sur $4
    echo "Probleme sur le disque..."
    echo .
    echo QUIT

    que j'appelle depuis un autre script avec la commande :

    /usr/local/scripts/envoi_mail $HOSTNAME "root@$HOSTNAME.machin.com" "truc@machin.com" $HOSTNAME | telnet smtp.machin.com 25

    Je dois modifier ce(s) script(s) pour utiliser perl plutôt que bash.

    Quelle est la syntaxe à utiliser ?

    Merci !

  2. #2
    Membre chevronné
    Avatar de Woufeil
    Profil pro
    Étudiant
    Inscrit en
    Février 2006
    Messages
    1 076
    Détails du profil
    Informations personnelles :
    Âge : 36
    Localisation : France, Haute Garonne (Midi Pyrénées)

    Informations professionnelles :
    Activité : Étudiant

    Informations forums :
    Inscription : Février 2006
    Messages : 1 076
    Points : 2 004
    Points
    2 004
    Par défaut
    Bonjour,

    Renseigne toi sur le module Net::Telnet que tu poura trouver sur le CPAN. Il te suffit de créer ton objet avec new en précisant bien le numéro de port (25) car sinon tu te connexteras avec le port par défaut (13) qui n'est pas le bon. Ensuite, tu pourras envoyer tes commandes avec la méthode print il me semble.
    "En essayant continuellement, on finit par réussir. Donc : plus ça rate, plus on a de chances que ça marche" (devise Shadock)
    Application :

    ainsi qu'à regarder la avant de poser une question.

    La rubrique Perl recrute, contactez-moi.

  3. #3
    Nouveau Candidat au Club
    Inscrit en
    Février 2007
    Messages
    2
    Détails du profil
    Informations forums :
    Inscription : Février 2007
    Messages : 2
    Points : 1
    Points
    1
    Par défaut
    Citation Envoyé par Woufeil
    Bonjour,

    Renseigne toi sur le module Net::Telnet que tu poura trouver sur le CPAN. Il te suffit de créer ton objet avec new en précisant bien le numéro de port (25) car sinon tu te connexteras avec le port par défaut (13) qui n'est pas le bon. Ensuite, tu pourras envoyer tes commandes avec la méthode print il me semble.
    Merci beaucoup, ça fonctionne

Discussions similaires

  1. [VB6] Envoi de mails via Telnet
    Par Mnoxis dans le forum VB 6 et antérieur
    Réponses: 2
    Dernier message: 26/06/2012, 11h29
  2. [Batch] SOS:envoie Mail via telnet
    Par marwen109 dans le forum Scripts/Batch
    Réponses: 0
    Dernier message: 10/04/2011, 18h01
  3. Envoi Mail via Access
    Par p935754 dans le forum VBA Access
    Réponses: 2
    Dernier message: 25/08/2007, 11h09
  4. Envoie Mail via Nescape et thunderbird
    Par foxer98 dans le forum Macros et VBA Excel
    Réponses: 5
    Dernier message: 20/07/2007, 13h47
  5. procedure envoie mail via OUTLOOK
    Par laurent1 dans le forum Oracle
    Réponses: 13
    Dernier message: 22/10/2006, 10h16

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo