Besoin d'aide pour modif script

Version imprimable

11/10/2006, 18h52
Abdias

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

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.

Essaie sa ( code pas testé)

Code:

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'};

11/10/2006, 22h07
Abdias

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

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

Code:

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:

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

11/10/2006, 23h15
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.

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:

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:

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;