[perl] Ajuda

Wed, 22 Dec 1999 10:41:43 -0800

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

Responder a