Volver al Programación / Codificación foro

CGI script no funcionará.

  • ajdegans
  • Born
  • Born
  • No Avatar
  • Registrado: Sep 17, 2003
  • Mensajes: 4
  • Loc: netherlands
  • Status: Offline

Nota Septiembre 17th, 2003, 3:54 pm

Hola, soy bastante nuevo para secuencias de comandos CGI. Así que tomé algunas partes del código y formas hechas por correo electrónico.

Una de las obras!! Pero el segundo no funciona. del CGI es que por debajo de archivo en particular:

Código: [ Select ]
#!/usr/bin/perl
$sendmail_location = "/usr/sbin/sendmail";

read(STDIN, $formbuffer, $ENV{'CONTENT_LENGTH'});
@formpairs = split(/&/, $formbuffer);
foreach $formpair (@formpairs) {
    ($formname, $formvalue) = split(/=/, $formpair);
    $formvalue =~ tr/+/ /;
    $formvalue =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex())/eg;
  $formvalue =~ s/<([^>]|\n)*>//g;
    if ($FORM{$formname}) { $FORM{$formname} = $FORM{$formname}.",".$formvalue; }
    else { $FORM{$formname} = $formvalue; }
}


foreach $require (split(/\,/,$FORM{'require'})) {
if ($require eq "email" || $require eq "to") {
unless ($FORM{$require}=~ /\@/ && $FORM{$require}=~ /\./) {
$error .= "Error in $require.<BR>";
}
}
unless ($FORM{$require}) {
$error .= "Missing $require.<BR>";
}
}

unless ($FORM{'sendpage'}) {
$error .= "Missing confirmation page url<BR>";
}

if ($error) {
print "Content-type: text/html\n\n";
print qq(<CENTER><FONT COLOR="#000000"><B>Error</B><BR>-------------------------<BR>$error</FONT></CENTER>);
exit;
}

if ($FORM{'jounaam'}) {
$yeshow = qq(
Naam, $FORM{'jounaam'}
);
}

if ($FORM{'pakket'}) {
$yeshow = qq(
Pakket, $FORM{'pakket'}
);
}

if ($FORM{'email'}) {
$yeshow = qq(
E-mail, $FORM{'email'}
);
}

if ($FORM{'adres'}) {
$yeshow = qq(
Adres, $FORM{'adres'}
);
}

if ($FORM{'postcode'}) {
$yeshow = qq(
Postcode, $FORM{'postcode'}
);
}

if ($FORM{'plaats'}) {
$yeshow = qq(
Plaats, $FORM{'plaats'}
);
}

if ($FORM{'land'}) {
$yeshow = qq(
Land, $FORM{'land'}
);
}

if ($FORM{'telefoon'}) {
$yeshow = qq(
Telefoon, $FORM{'telefoon'}
);
}

if ($FORM{'gsm'}) {
$yeshow = qq(
gsm, $FORM{'gsm'}
);
}

if ($FORM{'message'}) {
$yeshow = qw(
From, $FORM{'message'}
);
}

if ($FORM{'hoekomjehier'}) {
$yeshow = qq(
Hoe kom je hier, $FORM{'hoekomjehier'}
);
}

open (MAIL, "|$sendmail_location -t") || die "Can't open $sendmail_location!\n";
print MAIL "From: $FORM{'jounaam'} <$FORM{'email'}>\n";
print MAIL "To: $FORM{'to'}\n";
print MAIL "Subject: $FORM{'subject'}\n\n";
print MAIL <<EOF;
$yeshow

$FORM{'message'}


EOF
close (MAIL);

print "Location: $FORM{'sendpage'}\n\n";
exit;
  1. #!/usr/bin/perl
  2. $sendmail_location = "/usr/sbin/sendmail";
  4. read(STDIN, $formbuffer, $ENV{'CONTENT_LENGTH'});
  5. @formpairs = split(/&/, $formbuffer);
  6. foreach $formpair (@formpairs) {
  7.     ($formname, $formvalue) = split(/=/, $formpair);
  8.     $formvalue =~ tr/+/ /;
  9.     $formvalue =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex())/eg;
  10.   $formvalue =~ s/<([^>]|\n)*>//g;
  11.     if ($FORM{$formname}) { $FORM{$formname} = $FORM{$formname}.",".$formvalue; }
  12.     else { $FORM{$formname} = $formvalue; }
  13. }
  16. foreach $require (split(/\,/,$FORM{'require'})) {
  17. if ($require eq "email" || $require eq "to") {
  18. unless ($FORM{$require}=~ /\@/ && $FORM{$require}=~ /\./) {
  19. $error .= "Error in $require.<BR>";
  20. }
  21. }
  22. unless ($FORM{$require}) {
  23. $error .= "Missing $require.<BR>";
  24. }
  25. }
  27. unless ($FORM{'sendpage'}) {
  28. $error .= "Missing confirmation page url<BR>";
  29. }
  31. if ($error) {
  32. print "Content-type: text/html\n\n";
  33. print qq(<CENTER><FONT COLOR="#000000"><B>Error</B><BR>-------------------------<BR>$error</FONT></CENTER>);
  34. exit;
  35. }
  37. if ($FORM{'jounaam'}) {
  38. $yeshow = qq(
  39. Naam, $FORM{'jounaam'}
  40. );
  41. }
  43. if ($FORM{'pakket'}) {
  44. $yeshow = qq(
  45. Pakket, $FORM{'pakket'}
  46. );
  47. }
  49. if ($FORM{'email'}) {
  50. $yeshow = qq(
  51. E-mail, $FORM{'email'}
  52. );
  53. }
  55. if ($FORM{'adres'}) {
  56. $yeshow = qq(
  57. Adres, $FORM{'adres'}
  58. );
  59. }
  61. if ($FORM{'postcode'}) {
  62. $yeshow = qq(
  63. Postcode, $FORM{'postcode'}
  64. );
  65. }
  67. if ($FORM{'plaats'}) {
  68. $yeshow = qq(
  69. Plaats, $FORM{'plaats'}
  70. );
  71. }
  73. if ($FORM{'land'}) {
  74. $yeshow = qq(
  75. Land, $FORM{'land'}
  76. );
  77. }
  79. if ($FORM{'telefoon'}) {
  80. $yeshow = qq(
  81. Telefoon, $FORM{'telefoon'}
  82. );
  83. }
  85. if ($FORM{'gsm'}) {
  86. $yeshow = qq(
  87. gsm, $FORM{'gsm'}
  88. );
  89. }
  91. if ($FORM{'message'}) {
  92. $yeshow = qw(
  93. From, $FORM{'message'}
  94. );
  95. }
  97. if ($FORM{'hoekomjehier'}) {
  98. $yeshow = qq(
  99. Hoe kom je hier, $FORM{'hoekomjehier'}
  100. );
  101. }
  103. open (MAIL, "|$sendmail_location -t") || die "Can't open $sendmail_location!\n";
  104. print MAIL "From: $FORM{'jounaam'} <$FORM{'email'}>\n";
  105. print MAIL "To: $FORM{'to'}\n";
  106. print MAIL "Subject: $FORM{'subject'}\n\n";
  107. print MAIL <<EOF;
  108. $yeshow
  110. $FORM{'message'}
  113. EOF
  114. close (MAIL);
  116. print "Location: $FORM{'sendpage'}\n\n";
  117. exit;


Tal vez alguien puede encontrar el código equivocado. Me creo que la parte con:
Código: [ Select ]
if ($FORM{'jounaam'}) {
$yeshow = qq(
Naam, $FORM{'jounaam'}
);
}

if ($FORM{'pakket'}) {
$yeshow = qq(
Pakket, $FORM{'pakket'}
);
}

if ($FORM{'email'}) {
$yeshow = qq(
E-mail, $FORM{'email'}
);
}

if ($FORM{'adres'}) {
$yeshow = qq(
Adres, $FORM{'adres'}
);
}

if ($FORM{'postcode'}) {
$yeshow = qq(
Postcode, $FORM{'postcode'}
);
}

if ($FORM{'plaats'}) {
$yeshow = qq(
Plaats, $FORM{'plaats'}
);
}

if ($FORM{'land'}) {
$yeshow = qq(
Land, $FORM{'land'}
);
}

if ($FORM{'telefoon'}) {
$yeshow = qq(
Telefoon, $FORM{'telefoon'}
);
}

if ($FORM{'gsm'}) {
$yeshow = qq(
gsm, $FORM{'gsm'}
);
}

if ($FORM{'message'}) {
$yeshow = qw(
From, $FORM{'message'}
);
}

if ($FORM{'hoekomjehier'}) {
$yeshow = qq(
Hoe kom je hier, $FORM{'hoekomjehier'}
);
}
  1. if ($FORM{'jounaam'}) {
  2. $yeshow = qq(
  3. Naam, $FORM{'jounaam'}
  4. );
  5. }
  7. if ($FORM{'pakket'}) {
  8. $yeshow = qq(
  9. Pakket, $FORM{'pakket'}
  10. );
  11. }
  13. if ($FORM{'email'}) {
  14. $yeshow = qq(
  15. E-mail, $FORM{'email'}
  16. );
  17. }
  19. if ($FORM{'adres'}) {
  20. $yeshow = qq(
  21. Adres, $FORM{'adres'}
  22. );
  23. }
  25. if ($FORM{'postcode'}) {
  26. $yeshow = qq(
  27. Postcode, $FORM{'postcode'}
  28. );
  29. }
  31. if ($FORM{'plaats'}) {
  32. $yeshow = qq(
  33. Plaats, $FORM{'plaats'}
  34. );
  35. }
  37. if ($FORM{'land'}) {
  38. $yeshow = qq(
  39. Land, $FORM{'land'}
  40. );
  41. }
  43. if ($FORM{'telefoon'}) {
  44. $yeshow = qq(
  45. Telefoon, $FORM{'telefoon'}
  46. );
  47. }
  49. if ($FORM{'gsm'}) {
  50. $yeshow = qq(
  51. gsm, $FORM{'gsm'}
  52. );
  53. }
  55. if ($FORM{'message'}) {
  56. $yeshow = qw(
  57. From, $FORM{'message'}
  58. );
  59. }
  61. if ($FORM{'hoekomjehier'}) {
  62. $yeshow = qq(
  63. Hoe kom je hier, $FORM{'hoekomjehier'}
  64. );
  65. }


init es lo badass pero no tengo ni idea de que para fijar gif "alt =":(" title =" triste "/>

Si alguien puede ayudar a :(

Gracias de antemano
  • Anonymous
  • Bot
  • No Avatar
  • Registrado: 25 Feb 2008
  • Mensajes: ?
  • Loc: Ozzuland
  • Status: Online

Nota Septiembre 17th, 2003, 3:54 pm

  • Bigwebmaster
  • Site Admin
  • Site Admin
  • Avatar de Usuario
  • Registrado: Dic 20, 2002
  • Mensajes: 8934
  • Loc: Seattle, WA & Phoenix, AZ
  • Status: Offline

Nota Septiembre 17th, 2003, 11:40 pm

Al ejecutar este script son conseguir que los errores? o qué es exactamente lo que no está funcionando?
Ozzu Hosting - Want your website on a fast server like Ozzu?
  • ajdegans
  • Born
  • Born
  • No Avatar
  • Registrado: Sep 17, 2003
  • Mensajes: 4
  • Loc: netherlands
  • Status: Offline

Nota Septiembre 18th, 2003, 8:30 am

Me esta página de error

Código: [ Select ]
Internal Server Error
The server encountered an internal error or misconfiguration and was unable to complete your request.
Please contact the server administrator, helpdesk@flexwebhosting.nl and inform them of the time the error occurred, and anything you might have done that may have caused the error.

More information about this error may be available in the server error log.



--------------------------------------------------------------------------------

Apache/1.3.27 Server at www.zerocom.nl Port 80
  1. Internal Server Error
  2. The server encountered an internal error or misconfiguration and was unable to complete your request.
  3. Please contact the server administrator, helpdesk@flexwebhosting.nl and inform them of the time the error occurred, and anything you might have done that may have caused the error.
  5. More information about this error may be available in the server error log.
  9. --------------------------------------------------------------------------------
  11. Apache/1.3.27 Server at www.zerocom.nl Port 80


Tuve que trabajar de alguna manera, pero entonces todos los campos del formulario se mantuvo Blanc. por lo que el formulario completo no era de uso...que no aparecen en el correo electrónico. Así que básicamente se funcioned pero sólo una parte...
  • bestempire
  • Newbie
  • Newbie
  • No Avatar
  • Registrado: Sep 18, 2003
  • Mensajes: 7
  • Status: Offline

Nota Septiembre 18th, 2003, 10:17 am

Compruebe si ha CHMODed correctamente el archivo y la ruta a Perl es derecho
  • ajdegans
  • Born
  • Born
  • No Avatar
  • Registrado: Sep 17, 2003
  • Mensajes: 4
  • Loc: netherlands
  • Status: Offline

Nota Septiembre 18th, 2003, 11:35 am

i comprobarse chmod

su:-rwxr-xr-x (755)

En el manual para otro mensaje de correo electrónico script funciona...

También la ruta a perl es correcta :)
  • Bigwebmaster
  • Site Admin
  • Site Admin
  • Avatar de Usuario
  • Registrado: Dic 20, 2002
  • Mensajes: 8934
  • Loc: Seattle, WA & Phoenix, AZ
  • Status: Offline

Nota Septiembre 18th, 2003, 7:16 pm

¿Tiene acceso a su registro de errores del servidor? Más información debería estar allí que explicar exactamente por qué no funciona.
Ozzu Hosting - Want your website on a fast server like Ozzu?
  • ajdegans
  • Born
  • Born
  • No Avatar
  • Registrado: Sep 17, 2003
  • Mensajes: 4
  • Loc: netherlands
  • Status: Offline

Nota Septiembre 19th, 2003, 1:50 pm

Esto me lo dio el error_log

Código: [ Select ]
syntax error at bestelformulier.cgi line 97, near ")("
Execution of bestelformulier.cgi aborted due to compilation errors.

[Thu Sep 18 17:19:10 2003] [error] [client 62.131.20.6] Premature end of script headers: /home/virtual/site59/fst/var/www/cgi-bin/bestelformulier.cgi
  1. syntax error at bestelformulier.cgi line 97, near ")("
  2. Execution of bestelformulier.cgi aborted due to compilation errors.
  4. [Thu Sep 18 17:19:10 2003] [error] [client 62.131.20.6] Premature end of script headers: /home/virtual/site59/fst/var/www/cgi-bin/bestelformulier.cgi


Creo que la escribió. CGI mal, pero no tengo idea de cuál es incorrecto ya que no sé CGI...:)

Página 1 de 1

Publicar Información

  • Total de mensajes en este tema: 7 mensajes
  • Usuarios navegando por este Foro: No hay usuarios registrados visitando el Foro y 114 invitados
  • No puede abrir nuevos temas en este Foro
  • No puede responder a temas en este Foro
  • No puede editar sus mensajes en este Foro
  • No puede borrar sus mensajes en este Foro
  • No puede enviar adjuntos en este Foro
 
 

© 2011 Unmelted, LLC. Ozzu® es una marca registrada de Unmelted, LLC