nordanMedlem sedan juni 2000929 inlägg
Här är ett mail script som jag har gjort. Det funnkar så långt så att man kan skicka mail till alla på listan.
Men när man har publicerat så vill jag ha en sida som säger vad man har skickat för nått. Den funkar inte hhmm
Vad har jag gjort för fel ? Någon som vet?:)
#!/usr/bin/perl
print "Content-type: text/html\n\n";
read (STDIN, $forminfo, $ENV{'CONTENT_LENGTH'});
$forminfo =~ tr/+/ /;
$forminfo =~ s/%(..)/pack("c",hex($1))/ge;
@par = split(/&/,$forminfo);
foreach $a (@par){ ($ruta, $text) = split(/=/,$a);
$INFO{$ruta} = $text;
}
$subject = $INFO{'subject'};
$avs = $INFO{'avs'};
$text = $INFO{'text'};
open (FIL, "mlsend.txt");
@lista = <FIL>;
close(FIL);
foreach $person (@lista){
$antal++;
$person =~ /\|E-post=(.*)\|/;
$till = $1;
$mailprog ="/usr/bin/sendmail -t";
open (MAIL,"|$mailprog");
print MAIL "To: $till\n";
print MAIL "From: $avs\n";
print MAIL "Subject: $subject\n";
print MAIL "$text\n";
close(MAIL);
}
print "HELLO WORLD";
emissionMedlem sedan dec. 19996 095 inlägg
Ja, du kan ju börja med att skriva den funktion som gör det du vill ha. ;) Det här skriptet skriver ju bara ut "Hello World".
------------------
Gunnar Liljas - webbutvecklare
Leon Reklambyrå AB
nordanMedlem sedan juni 2000929 inlägg
Där Hello world står
Vill jag att det skall stå
print "Du har nu skickat mail till $antal st";
Jag vill alltså få fram en websida som funkar när jag har skickat mailet!
demo
Hej!
Fungerar det inte om du byter ut 'HELLO WORLD' mot '$antal'?
//Demo
nordanMedlem sedan juni 2000929 inlägg
Nej det fungerar inte själva felet är
att det inte kommer upp någon sida
när jag har skickat iväg mailen i listan
Det går alltså att skicka iväg mailen för jag får mail men inte att det kommer upp en sida efter som talar om att jag har skickat mail till $antal pers.
Jag fattar inte vad det är?:(
RödalacketMedlem sedan feb. 20001 160 inlägg
Måste du inte ha
print <<EndHTML;
<html>
bl.a
bl.a
<h2>Du har skickat...... </h2>
</html>
EndHTML
exit;
om du vill skriva ut det till en html sida.??
QazMedlem sedan feb. 2000210 inlägg
Rödalacket: Om man vill följa nån som helst standard bör naturligtvis alla html taggar finnas med. Detta ska dock inte generera felet.
nordan: Kommer brevet iväg? mao får motagaren brevet?
emissionMedlem sedan dec. 19996 095 inlägg
Kommer en tom sida, eller "document contains no data", eller?
nordanMedlem sedan juni 2000929 inlägg
Qaz: Japp alla på listan får breven.
Vilket är två st eftersom jag bara har den för att själv lära mig till att börja med.
emission:
500 Internal Server Error kommer upp när jag vill att sidan skall komma upp..
Tacksam för alla svar
nordanMedlem sedan juni 2000929 inlägg
*hehe* Nu är man glad :e
Jag har löst mitt problem med mailinglista :h
Så den som har hand om denna konfa får gärna för mig iaf avsluta detta ämne.
Jag får tacka alla som har försökt hjälpt mig få fason på detta.
Felet var inte i scriptet i sig utan
i lista med mailadresser.
Återkommer snart med nästa problem det skall bara dyka upp först ;)
CU
Nordan
[Redigerat av nordan den 29 jun 2000]
