eu uso sem aspas, e na minha opiniao a escolha da string HTML para fim nao
foi muito feliz :) tente algo diferente
Ex:
print <<fim_do_html;
<html>
.
.
.
</html>
fim_do_html
boa sorte
/"\
\ /
X ASCII RIBBON CAMPAIGN - AGAINST HTML MAIL
/ \ CAMPANHA DA FITA ASCII - CONTRA MAIL EM HTML
Linux ... a nice place to live
*******************************************
* Alex Eduardo Chiaranda *
* mail: [EMAIL PROTECTED] *
* [EMAIL PROTECTED] *
* [EMAIL PROTECTED] *
* Pagina => http://www.eep.br/~aechiara *
* ICQ => UIN 13070511 *
* 3o Ano de Ciencia da Computacao *
* Escola de Engenharia de Piracicaba *
* Piracicaba - SP *
*******************************************
On Wed, 22 Dec 1999, Mario Olavo da Silva Lopes wrote:
> Preciso da seguinte ajuda, estou com um probleminha num script, ele esta dando o
>seguinte erro, syntax error at script line 5, near "; &sspb_step0"
> Can't find string terminator "HTML" anywhere before EOF at script line 5.
> Ser� que algu�m pode me ajudar, o script est� descrito abaixo:
>
> #!/usr/bin/perl
>
> If ($ENV{'REQUEST_METHOD'} NE 'POST')
>
> {
>
> print <<"HTML";
>
> <HTML>
>
> <HEAD>
>
> <TITLE>Lamento!</TITLE>
>
> </HEAD>
>
> <BODY>
>
> <H1>Uso de M�todo Errado!</H1>
>
> Lamento, mas s� utilizamos o m�todo POST aqui.
>
> </BODY>
>
> </HTML>
>
> HTML
>
> exit;
>
> }
>
> read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
>
> @pairs = split(/&/, $buffer);
>
> foreach $pair (@pairs)
>
> {
>
> ($name, $value) = split(/=/, $pair);
>
> $value =~ tr/+/ /;
>
> $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
>
> $form{$name} = $value;
>
> }
>
> chop($date = `date`);
>
> $mailprog ="/usr/lib/sendmail";
>
> $sendto = "olavo\@pampanet.com.br";
>
> $subject = "Compra de automovel";
>
> open(MAIL, "|$mailprog -t") |
>
> print MAIL "To: $sendto\n";
>
> print MAIL "From: $form{'email'} ($form{'fname'} $form{'lname'})\n";
>
> print MAIL "Subject: $subject\n\n";
>
> print MAIL <<"EOM";
>
> Em $date, $form{'fname'} $form{'lname'} decidiu comprar um carro conosco.
>
> $form{'fname'} escolheu um $form{'model'} $form{'color'} $form{'year'}
>$form{'doors'}-porta(s).
>
> $form{'fname'} escolheu os seguintes opcionais:
>
> EOM
>
> if ($form{'airbag'})
>
> {
>
> print MAIL "- Airbag para o passageiro\n";
>
> }
>
> if ($form{'pcaps'})
>
> {
>
> print MAIL "- Calotas de plastico\n";
>
> }
>
> if ($form{'rdefrost'})
>
> {
>
> print MAIL "- Desembacador do vidro traseiro\n";
>
> }
>
> if ($form{'stire'})
>
> {
>
> print MAIL "- Estepe\n";
>
> }
>
>
> print MAIL <<"EOM";
>
> Seguem algumas informacoes pessoais de $form{'fname'}:
>
> $form{'fname'} $form{'lname'}
>
> $form{'email'}
>
> $form{'street'}
>
> $form{'city'}, $form{'state'} $form{'zip'}
>
> Fone res.: $form{'hphone'}
>
> Fone com.: $form{'wphone'}
>
> $form{'fname'} pediu para que nos:
>
> EOM
>
> if ($form{'billing'} eq "bill")
>
> {
>
> print MAIL "Mandaremos a fatura.\n";
>
> }
>
> if ($form{'billing'} eq "ccard")
>
> {
>
> print MAIL "Cobraremos pelo cartao de credito";
>
> print MAIL "em nome de $form{'cname'}.\n";
>
> print MAIL "CC\#$form{'cnum'} e validade $form{'cexpire'}.\n\n";
>
> }
>
> print MAIL "Processar a requisi��o o mais r�pido possivel.\n";
>
> close(MAIL);
>
> print <<"HTML";
>
> <HTML>
>
> <HEAD>
>
> <TITLE>Agradecimento</TITLE>
>
> </HEAD>
>
> <BODY>
>
> <H1> Obrigado pela requisi��o! </H1>
>
> Obrigado pela requisi��o <B>$form{'fname'}</B>! Esta mensagem foi enviada para o
>departamento apropriado e n�s iremos entregar o seu novo $form{'color'} $form{'year'}
>$form{'model'} $form{'doors'}-porta(s) assim que verificarmos o seu cr�dito com um
>pente fino.<P>
>
> Se n�o entrarmos em contato nos pr�ximos 8 meses, envie email para <A
>HREF=\"mailto:$sendto\">$sendto</A>, e pergunte por que seu pedido n�o foi atendido
>
> Rapidamente</B> como esperado. <P>
>
> Foi muito bom t�-lo como cliente!!<P>
>
> <I>Atenciosamente,</I><BR>
>
> Sr. Supkay (ele mesmo).
>
> </BODY>
>
> </HTML>
>
> HTML
>
> exit()
>
>
>
> Obrigado pela ajuda.
>
>
>
>
>
> Mario Olavo
>
> Pampanet Internet Provider
>
>
http://www.mrweb.com.br/perl/
�������������
>>No site da lista, voce tera tudo sobre PERL,
>>LINUX, PHP, ASP e informacoes, cadastramento
>>e descadastramento da Lista.
�������������
