Discussion :

[Abdias]

Bonjour a vous tous, je viens ici pour la premier fois pour faire appel à vos connaissances,
j'ai trouver ce script :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
#!/usr/bin/perl
print "Content-type: text/html\n\n";
print "<div>Adresse Ip du Client Abdias</div>";
print $ENV{'REMOTE_ADDR'};

et j'aimerai recevoir egalement le resultat par mail
et comme j'ai aucune competence dans ce domaine, j'aimerai que l'on me dise les lignes a rajouter
en eseprant qu'une ame charitable m'apportera la solution,
Amicalement.

[goblin]

Essaie sa ( code pas testé)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
use Net::SMTP;
 
my $smtpserver = "smtp.domaine.ext";
my $from = "PseudoFrom\@domaine.ext";
my $to = "PseudoTo\@domaine.ext";
my $subject = "Voici l'IP";
 
# Envoi du message
my $smtp = Net::SMTP->new("$smtpserver", Timeout => 120);
$smtp->mail("$from");
$smtp->to("$to");
$smtp->data();
$smtp->datasend("To: $to\n");
$smtp->datasend("From: $from\n");
$smtp->datasend("X-Mailer: Perl Sendmail \n");
$smtp->datasend("Subject: $subject\n");
$smtp->datasend("\n");
$smtp->datasend("\nIp = "."$ENV{'REMOTE_ADDR'}"."\n");
$smtp->dataend();
$smtp->quit();
 
# Affiche sur une page html
print "Content-type: text/html\n\n";
print "<div>Adresse Ip du Client Abdias</div>";
print $ENV{'REMOTE_ADDR'};

[Abdias]

malheureusement cela ne fonctionne pas
merci quand meme pour ta reponse,
si quelqu'un d'autre a une idée ?

[Abdias]

j'ai trouver cette page :
http://www.alianwebserver.com/inform.../perl/mail.htm
ca ca fonctionne :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
#!/usr/bin/perl -w
print "Content-type: text/html\n\n";
print "<div>Adresse Ip du Client Abdias</div>";
print $ENV{'REMOTE_ADDR'};

et ca aussi mais je ne recoit pas de mail

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
#!/usr/bin/perl -w
print "Content-type: text/html\n\n";
print "<div>Adresse Ip du Client Abdias</div>";
print $ENV{'REMOTE_ADDR'};
 
my $msg = new MIME::Lite 
            From    =>'me@myhost.com', 
            To      =>'you@yourhost.com',          
            Subject =>'A simple text message',
            Type    =>'TEXT',   
            Data    =>"Efficace non ?";
$msg -> send;

evidement a la place de you@yourhost.com j'ai mis mon email

[djibril]

ou execute tu ton script(hebergeur, local, OS)? as tu pensé à installer un module pour gerer l'envoie des mails? quels sont les messages d'erreurs que tu recois?
Bref, soit claire dans tes demandes.

[Abdias]

effectivement ca manque de details
le script est copier dans un fichier texte que je renomme en ip.pl avec des droit en 755 ce fichier est placé dans le rep cgi-bin est c'est un hebergemet pris chez ovh gerer sous linux + apache
pour ce qui est du resultat, je voie une page html avec l'ip et ca en reste la, je ne recoit pas de mail, n'y d'erreur, en gros ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
#!/usr/bin/perl -w
print "Content-type: text/html\n\n";
print "<div>Adresse Ip du Client Abdias</div>";
print $ENV{'REMOTE_ADDR'};

me donne meme resultat que ceci:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
#!/usr/bin/perl -w
print "Content-type: text/html\n\n";
print "<div>Adresse Ip du Client Abdias</div>";
print $ENV{'REMOTE_ADDR'};
 
my $msg = new MIME::Lite
From =>'me@myhost.com',
To =>'you@yourhost.com',
Subject =>'A simple text message',
Type =>'TEXT',
Data =>"Efficace non ?";
$msg -> send;