Toon posts:

[pl,cgi]sendmail of niet ?

Pagina: 1
Acties:

Verwijderd

Topicstarter
Hoi

Ik heb de "quickstart" gelezen en durf hier bijna niet te posten, was het niet dat dit ongeveer mijn laatste hoop is.

Ik heb een apacheserver draaien onder windows met activeperl
ik wil een formulier maken en de inhoud daarvan op mijn email binnenkrijgen

Bijna alle scripts die ik kon vinden zijn voor unix en Windows NT. ik draai WXP pro. ik heb er eental geprobeerd die volgens de info konden maar werkte toch weer voor unix
of waren geschikt voor een standaard form (naam, adres, email)

ik vraag nu niet om een passend script (want dat mag hier niet) maar ik zou graag enige informatie willen over hoe ik nu verder moet, en in welke richting ik moet zoeken

:? wel of geen sendmail :?

Graag geen antwoorden van:

GA maar over op LINUX/UNIX
Probeer eens PHP
Bravenet, of ander services

Als ik dat kon/wil had ik het allang gedaan

Zoals gezegd een laatste hoop, na een week vrij intensief surfen naar informatie.

Alvast bedankt.

  • ACM
  • Registratie: Januari 2000
  • Niet online

ACM

Software Architect

Werkt hier

Ik neem aan dat er ook voor perl speciale "modules" zijn om te connecten met een mailserver om via die mailserver de mailtjes te versturen.

Helaas gaat dat meestal onder unices wat makkelijker, vooral omdat die vaak een eigen mailserver draaien.

Technisch gezien veranderd er echter niks als je een externe connectie gebruikt daarvoor.

Waar je dus op moet zoeken is een mailutil (zal het geen script noemen ;) ) die dus een verbinding opzet met een smtp-server en dan netjes allerlei SMTP commando's overstuurt. Ik ga er gewoon vanuit dat dat bestaat, zoek eens op www.cpan.org op 'smtp' ofzo.

[edit]
Ik denk dat de module: Mail::Mailer doet wat je wilt

  • brammetje
  • Registratie: Oktober 2000
  • Laatst online: 12-01-2025
Op zaterdag 16 februari 2002 09:45 schreef flapie het volgende:
Bijna alle scripts die ik kon vinden zijn voor unix en Windows NT. ik draai WXP pro. ik heb er eental geprobeerd die volgens de info konden maar werkte toch weer voor unix
of waren geschikt voor een standaard form (naam, adres, email)
Mwoh, als het onder NT werkt dan zal het onder XP ook wel werken neem ik aan, might be dat het niet met apache werkt, maar dat weet ik niet..

Verder moet het ook niet al te moeilijk zijn om een script voor alleen een standaard form aan te passen naar jouw form..

Dusse, wat is het probleem? :P

  • Juup
  • Registratie: Februari 2000
  • Niet online
Hmmm... ik zou voor Net::SMTP gaan, die zit in libnet.
http://search.cpan.org/search?dist=libnet
Gevonden met
http://search.cpan.org/

Zoek nu nog met google op 'Perl Net SMTP' en je vind vast een voorbeeldscript dat er gebruik van maakt.

Een wappie is iemand die gevallen is voor de (jarenlange) Russische desinformatiecampagnes.
Wantrouwen en confirmation bias doen de rest.


  • Juup
  • Registratie: Februari 2000
  • Niet online
Bron: http://perl.about.com/library/weekly/aa022000a.htm
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
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
#!/usr/local/bin/perl 

#=============================== 
# How to send email with Net::SMTP 
# Copyright 2000, Emmie P. Lewis 
# Created 02/20/00 
#=============================== 
# This script is designed to show 
# how to use Net::SMTP to send 
# email from a Perl script. 
#=============================== 

use Net::SMTP; 
print "Content-type: text/plain", "\n\n"; 

# This debug flag will print debugging code to your browser, depending on its value 
# Set this to 1 to send debug code to your browser.  Set it to 0 to turn it off. 
my $DEBUG = 1; 

if($DEBUG) 
{ 
   $| = 1; 
   open(STDERR, ">&STDOUT"); 
} 

# Set this variable to your smtp server name 
my $ServerName = "smtp.your_isp.com"; 

# Create a new SMTP object 
$smtp = Net::SMTP->new($ServerName, Debug => 1); 

# If you can't connect, don't proceed with the rest of the script 
die "Couldn't connect to server" unless $smtp; 

# Initiate the mail transaction 

 # Your "real" email address 
my $MailFrom = "someone\@sender.com"; 

# Recipient's "real" email address 
my $MailTo = "someone_else\@recipient.com"; 

$smtp->mail( $MailFrom ); 
$smtp->to( $MailTo ); 

# Start the mail 
$smtp->data(); 

# Send the header 
# This address will appear in the message 
$smtp->datasend("To:  mailing-list\@mydomain.com\n"); 

# So will this one
$smtp->datasend("From:  MyMailList\@mydomain.com\n");
$smtp->datasend("Subject: Test Message\n");
$smtp->datasend("\n");

# Send the body.
$smtp->datasend("Hello World!\n\n");

# Send the termination string
$smtp->dataend();

# Close the connection
$smtp->quit();

Nu moet je alleen nog met de CGI module (standaard met Perl meegeleverd) de form variabelen vangen. Als je daar vragen over hebt kun je ook nog met de GoT search zoeken, het is al een paar keer voorbij gekomen geloof ik.

Een wappie is iemand die gevallen is voor de (jarenlange) Russische desinformatiecampagnes.
Wantrouwen en confirmation bias doen de rest.