Foros del Web » Programación para mayores de 30 ;) » Programación General »

erro al envial email local

 Estas en el tema de erro al envial email local en el foro de Programación General en Foros del Web. hola chicos, pues eso que me da un error, por servidor local, uso xampp con e mercury ya configurado para gmail, aqui os pongo el ...
  #1 (permalink)  
Antiguo 16/09/2011, 12:30
 
Fecha de Ingreso: diciembre-2010
Ubicación: tenerife
Mensajes: 60
Antigüedad: 13 años, 5 meses
Puntos: 0
erro al envial email local
hola chicos, pues eso que me da un error, por servidor local, uso xampp con e mercury ya configurado para gmail, aqui os pongo el error y el codigo

Código perl: 
Ver original
  1. Insecure $ENV{PATH} while running with -T switch at  line 8, line 1.
  2.  
  3. !/usr/bin/perl
  4. require 5.001;
  5.  
  6. if( $mode eq "BOTH" || $mode eq "EMAIL") {
  7.    # Send email order to you...
  8.    open (MAIL,"|$mailprogram"); ( AQUI EL ERROR )
  9.    print MAIL "To: $youremail\n";
  10.    print MAIL "From: $b_email\n";
  11.    print MAIL "Subject: New Online Order\n";
  12.    print MAIL "\n\n";
  13.    print MAIL "A new order has been received.  A summary of this order appears below.\n";
  14.    print MAIL "\n";
  15.    print MAIL "Order Date: $months[$month] $day, $year $hour:$min:$sec \n"; 
  16.    print MAIL " \n";
  17.    print MAIL "Bill To: \n";
  18.    print MAIL "-------- \n";
  19.    print MAIL "   $b_first $b_last \n";
  20.    print MAIL "   $b_addr \n";
  21.    print MAIL "   $b_addr2 \n";
  22.    print MAIL "   $b_city, $b_state  $b_zip \n";
  23.    print MAIL "   $b_phone \n";
  24.    print MAIL "   $b_fax \n";
  25.    print MAIL "   $b_email \n";
  26.    print MAIL " \n";
  27.    print MAIL " \n";
  28.    print MAIL "Ship To: \n";
  29.    print MAIL "-------- \n";
  30.    print MAIL "   $s_first $s_last \n";
  31.    print MAIL "   $s_addr \n";
  32.    print MAIL "   $s_addr2 \n";
  33.    print MAIL "   $s_city, $s_state  $s_zip \n";
  34.    print MAIL "   $s_phone \n";
  35.    print MAIL " \n";
  36.    print MAIL " \n";
  37.    print MAIL "Qty  Price(\$)   Product ID  - Product Name\n";
  #2 (permalink)  
Antiguo 16/09/2011, 13:19
Avatar de maycolalvarez
Colaborador
  
Fecha de Ingreso: julio-2008
Ubicación: Caracas
Mensajes: 12.120
Antigüedad: 15 años, 9 meses
Puntos: 1532
Respuesta: erro al envial email local
no existe un función open en PHP, a no ser que te refieras a fopen, además tu código está incompleto y es PERL no PHP
__________________
¡Por favor!: usa el highlight para mostrar código
El que busca, encuentra...
  #3 (permalink)  
Antiguo 16/09/2011, 14:04
 
Fecha de Ingreso: diciembre-2010
Ubicación: tenerife
Mensajes: 60
Antigüedad: 13 años, 5 meses
Puntos: 0
Respuesta: erro al envial email local
si , se que es perl pero no sabia donde ponerlo, y si es q no me cabia el codigo completo , podria ponerlo en varias veces si ves que es mejor y asi quedaria completo, vuelvo a ponerlo completo a ver q tal

1º PARTE DEL CODIGO

Código perl: 
Ver original
  1. #!/usr/bin/perl
  2.  
  3. require 5.001;
  4.  
  5. $header        = "header.html";
  6. $footer        = "footer.html";
  7. $mailprogram   = "smtp.gmail.com";
  8. $returnpage    = "/";
  9. $youremail     = "[email protected]";
  10. $csvfilename   = "orders.csv";
  11. $csvquote      = "\"\"";
  12. $mode          = "FILE";
  13.  
  14.  
  15. #These are required fields.  I recommend enforcing these by javascript, 
  16. #but let's just make sure here as well.
  17. @required = (
  18. 'b_first',
  19. 'b_last',
  20. 'b_addr',
  21. 'b_city',
  22. 'b_state',
  23. 'b_zip',
  24. 'b_phone',
  25. 'b_email'
  26. );
  27.  
  28. FUNCTION:   urlDecode                                       
  29. RETURNS:    The decoded string.                             
  30. PARAMETERS: An encoded string.                              
  31. PURPOSE:    Decodes a URL encoded string.                   
  32.  
  33. sub urlDecode {
  34.     my ($string) = @_;
  35.     $string =~ tr/+/ /;
  36.     $string =~ s/%([\dA-Fa-f][\dA-Fa-f])/pack ("C", hex($1))/eg;
  37.     $string =~ s/['"]/\'/g;
  38.     return ($string);
  39. }
  40.  
  41. #FUNCTION:   processCGI 
  42.  
  43. sub processCGI {
  44.     local ($cgiData, $key, $value, $pair, @pairs);
  45.  
  46.    if ($ENV{'REQUEST_METHOD'} eq 'GET') { $cgiData = $ENV{'QUERY_STRING'}; }
  47.    else { $cgiData = <STDIN>; }
  48.    @pairs = split (/&/, $cgiData);
  49.    foreach $pair (@pairs) {
  50.       ($key, $value) = split (/\=/, $pair);
  51.       $key   = &urlDecode($key);
  52.       $value = &urlDecode($value);
  53.       if(defined ${$key}){
  54.          ${$key} .= ", ".$value;
  55.       }else{
  56.          ${$key} = $value;
  57.       }
  58.    }
  59. }  
  60.  
  61. FUNCTION:   doFormError
  62.  
  63.  sub doFormError {
  64.     my ($errString) = @_;
  65.  
  66.     open (HEAD, $header);
  67.     @LINES = <HEAD>;
  68.     close HEAD;
  69.  
  70.     print "Content-type: text/html\n\n";
  71.  
  72.     print @LINES;
  73.  
  74.     print "<FONT SIZE=+2>The form you submitted was not complete.<BR><BR></FONT>";
  75.     print "$errString<BR><BR>\n";
  76.     print "<INPUT TYPE=BUTTON ONCLICK='history.back()' VALUE='  Return to the checkout page '><HR>";
  77.  
  78.     open (FOOT, $footer);
  79.     @LINES = <FOOT>;
  80.     close FOOT;
  81.     print @LINES;
  82.  
  83.     exit;
  84. }
  85.  
  86. #FUNCTION:   doError 
  87.  
  88. ub doError {
  89.     my ($errString) = @_;
  90.     print "Content-type: text/html\n\n";
  91.  
  92.     open (HEAD, $header);
  93.     @LINES = <HEAD>;
  94.     close HEAD;
  95.  
  96.     print @LINES;
  97.  
  98.     print "$errString<BR><BR>\n";
  99.  
  100.     open (FOOT, $footer);
  101.     @LINES = <FOOT>;
  102.     close FOOT;
  103.     print @LINES;
  104.  
  105.     exit;
  106. }
  107.  
  108.  
  109. FUNCTION:   invalidE 
  110.  
  111. sub invalidE {
  112.   my ($szEmail) = @_;
  113.   my ($user, $host);
  114.  
  115.   $szEmail =~ tr/A-Z/a-z/;
  116.   if ($szEmail =~ /\s/) { return 1; }
  117.   ($user, $host) = split (/\@/, $szEmail);
  118.   if ($host =~ /compuserve/i) { ; }
  119.   else {
  120.     if (! $user =~ /\D/) { return 1; }
  121.     if (! $host =~ /\D/) { return 1; }
  122.     if (substr ($user,0,1) !~ /[a-z]/) { return 1; }
  123.   }
  124.   if ($szEmail =~ /\w+\@[\w|\.]/) { return 0; }
  125.   else { return 1; }
  126. }
  127.  
  128.  
  129. sub populateDateVar {
  130.    @months = ();
  131.    push(@months,"January");
  132.    push(@months,"February");
  133.    push(@months,"March");
  134.    push(@months,"April");
  135.    push(@months,"May");
  136.    push(@months,"June");
  137.    push(@months,"July");
  138.    push(@months,"August");
  139.    push(@months,"September");
  140.    push(@months,"October");
  141.    push(@months,"November");
  142.    push(@months,"December");
  143.    @days = ();
  144.    push(@days,"Sunday");
  145.    push(@days,"Monday");
  146.    push(@days,"Tuesday");
  147.    push(@days,"Wednesday");
  148.    push(@days,"Thursday");
  149.    push(@days,"Friday");
  150.    push(@days,"Saturday");
  151.    ($sec,$min,$hour,$day,$month,$year,$day2) =
  152.    (localtime(time))[0,1,2,3,4,5,6];
  153.    if ($sec < 10) { $sec = "0$sec"; }
  154.    if ($min < 10) { $min = "0$min"; }
  155.    if ($hour < 10) { $hour = "0$hour"; }
  156.    if ($day < 10) { $day = "0$day"; }
  157.    $year += "1900";
  158.  
  159.    #$todaysdate = "$months[$month] $day, $year $hour:$min:$sec";
  160. }
  161.  
  162. MAIN    
  163.  
  164. # process the form input.
  165. &processCGI;
  166. &populateDateVar;
  167.  
  168. foreach $check(@required) {
  169.    unless ($check) {
  170.       doFormError("It appears that you forgot to fill in the <strong>$check</strong> field.");
  171.       exit;
  172.    }
  173. }
  174.  
  175. # checks for valid email address
  176. if( &invalidE($b_email) ){
  177.    doFormError('You submitted an invalid email address.');
  178. }
  #4 (permalink)  
Antiguo 16/09/2011, 14:26
 
Fecha de Ingreso: diciembre-2010
Ubicación: tenerife
Mensajes: 60
Antigüedad: 13 años, 5 meses
Puntos: 0
Respuesta: erro al envial email local
2º PARTE DEL CODIGO

Código perl: 
Ver original
  1. if( $mode eq "BOTH" || $mode eq "EMAIL") {
  2.    # Send email order to you...
  3.    open (MAIL,"|$mailprogram");
  4.    print MAIL "To: $youremail\n";
  5.    print MAIL "From: $b_email\n";
  6.    print MAIL "Subject: New Online Order\n";
  7.    print MAIL "\n\n";
  8.    print MAIL "A new order has been received.  A summary of this order appears below.\n";
  9.    print MAIL "\n";
  10.    print MAIL "Order Date: $months[$month] $day, $year $hour:$min:$sec \n"; 
  11.    print MAIL " \n";
  12.    print MAIL "Bill To: \n";
  13.    print MAIL "\n";
  14.    print MAIL "   $b_first $b_last \n";
  15.    print MAIL "   $b_addr \n";
  16.    print MAIL "   $b_addr2 \n";
  17.    print MAIL "   $b_city, $b_state  $b_zip \n";
  18.    print MAIL "   $b_phone \n";
  19.   print MAIL "   $b_fax \n";
  20.   print MAIL "   $b_email \n";
  21.   print MAIL " \n";
  22.  print MAIL " \n";
  23.  print MAIL "Ship To: \n";
  24.  print MAIL "\n";
  25.  print MAIL "   $s_first $s_last \n";
  26.  print MAIL "   $s_addr \n";
  27.  print MAIL "   $s_addr2 \n";
  28. print MAIL "   $s_city, $s_state  $s_zip \n";
  29. print MAIL "   $s_phone \n";
  30. print MAIL " \n";
  31. print MAIL " \n";
  32. print MAIL "Qty  Price(\$)   Product ID  - Product Name\n";
  33. print MAIL "\n";
  34.  print MAIL "$QUANTITY_1    \$$PRICE_1  $ID_1 - $NAME_1   $ADDTLINFO_1  \n";
  35.  if( $NAME_2 ) {print MAIL "$QUANTITY_2    \$$PRICE_2    $ID_2 - $NAME_2   $ADDTLINFO_2  \n";}
  36.  if( $NAME_3 ) {print MAIL "$QUANTITY_3  \$$PRICE_3  $ID_3 - $NAME_3   $ADDTLINFO_3  \n";}
  37. if( $NAME_4 ) {print MAIL "$QUANTITY_4  \$$PRICE_4  $ID_4 - $NAME_4   $ADDTLINFO_4  \n";}
  38.  if( $NAME_5 ) {print MAIL "$QUANTITY_5  \$$PRICE_5  $ID_5 - $NAME_5   $ADDTLINFO_5  \n";}
  39.    if( $NAME_6 ) {print MAIL "$QUANTITY_6 \$$PRICE_6  $ID_6 - $NAME_6   $ADDTLINFO_6  \n";}
  40.    if( $NAME_7 ) {print MAIL "$QUANTITY_7 \$$PRICE_7 $ID_7 - $NAME_7   $ADDTLINFO_7  \n";}
  41.  if( $NAME_8 ) {print MAIL "$QUANTITY_8 \$$PRICE_8 $ID_8 - $NAME_8   $ADDTLINFO_8  \n";}
  42.  if( $NAME_9 ) {print MAIL "$QUANTITY_9 \$$PRICE_9 $ID_9 - $NAME_9   $ADDTLINFO_9  \n";}
  43.  if( $NAME_10 ){print MAIL "$QUANTITY_10 \$$PRICE_10 $ID_10 - $NAME_10   $ADDTLINFO_10 \n";}
  44.  if( $NAME_11 ){print MAIL "$QUANTITY_11 \$$PRICE_11 $ID_11 - $NAME_11   $ADDTLINFO_11 \n";}
  45.    if( $NAME_12 ){print MAIL "$QUANTITY_12 \$$PRICE_12 $ID_12 - $NAME_12   $ADDTLINFO_12 \n";}
  46.  if( $NAME_13 ){print MAIL "$QUANTITY_13 \$$PRICE_13 $ID_13 - $NAME_13   $ADDTLINFO_13 \n";}
  47.  print MAIL "\n";
  48. print MAIL "SUBTOTAL: $SUBTOTAL \n";
  49. print MAIL "TOTAL: $TOTAL \n";
  50. print MAIL "\n";
  51. print MAIL "FREIGHT: $SHIPPING \n";
  52. print MAIL "\n\n";
  53. print MAIL "Comments: \n";
  54. print MAIL "\n";
  55. print MAIL "$comment \n";
  56. print MAIL " \n";
  57. close MAIL;
  58. }
  59. if( $mode eq "BOTH" || $mode eq "FILE") {
  60. $csvcomments = $comment;
  61. #$csvcomments =~ s/\"/$csvquote/ig;
  62. open (CSVF,">>$csvfilename");
  63. print CSVF "\"";
  64. print CSVF "$months[$month] $day, $year $hour:$min:$sec";
  65. print CSVF "\",\"";
  66. print CSVF "$b_first";
  67. print CSVF "\",\"";
  68. print CSVF "$b_last";
  69. print CSVF "\",\"";
  70. print CSVF "$b_addr";
  71. print CSVF "\",\"";
  72. print CSVF "$b_addr2";
  73. print CSVF "\",\"";
  74. print CSVF "$b_city";
  75. print CSVF "\",\"";
  76. print CSVF "$b_state";
  77. print CSVF "\",\"";
  78. print CSVF "$b_zip";
  79. print CSVF "\",\"";
  80. print CSVF "$b_phone";
  81. print CSVF "\",\"";
  82. print CSVF "$b_fax";
  83. print CSVF "\",\"";
  84. print CSVF "$b_email";
  85. print CSVF "\",\"";
  86. print CSVF "$s_first";
  87. print CSVF "\",\"";
  88. print CSVF "$s_last";
  89. print CSVF "\",\"";
  90. print CSVF "$s_addr";
  91. print CSVF "\",\"";
  92. print CSVF "$s_addr2";
  93. print CSVF "\",\"";
  94. print CSVF "$s_city";
  95. print CSVF "\",\"";
  96. print CSVF "$s_state";
  97. print CSVF "\",\"";
  98. print CSVF "$s_zip";
  99. print CSVF "\",\"";
  100. print CSVF "$s_phone";
  101. print CSVF "\",\"";   
  102. print CSVF "$QUANTITY_1";
  103. print CSVF "\",\"";
  104. print CSVF "\$$PRICE_1";
  105. print CSVF "\",\"";
  106. print CSVF "$ID_1";
  107. print CSVF "\",\"";
  108. print CSVF "$NAME_1";
  109. print CSVF "\",\"";
  110. print CSVF "$ADDTLINFO_1";
  111. print CSVF "\",\"";
  112. print CSVF "$QUANTITY_2";
  113. print CSVF "\",\"";
  114. print CSVF "\$$PRICE_2";
  115. print CSVF "\",\"";
  116. print CSVF "$ID_2";
  117. print CSVF "\",\"";
  118. print CSVF "$NAME_2";
  119. print CSVF "\",\"";
  120. print CSVF "$ADDTLINFO_2";
  121. print CSVF "\",\"";
  122. print CSVF "$QUANTITY_3";
  123. print CSVF "\",\"";
  124. print CSVF "\$$PRICE_3";
  125. print CSVF "\",\"";
  126. print CSVF "$ID_3";
  127. print CSVF "\",\"";
  128. print CSVF "$NAME_3";
  129. print CSVF "\",\"";
  130. print CSVF "$ADDTLINFO_3";
  131. print CSVF "\",\"";
  132. print CSVF "$QUANTITY_4";
  133. print CSVF "\",\"";
  134. print CSVF "\$$PRICE_4";
  135. print CSVF "\",\"";
  136. print CSVF "$ID_4";
  137. print CSVF "\",\"";
  138. print CSVF "$NAME_4";
  139. print CSVF "\",\"";
  140. print CSVF "$ADDTLINFO_4";
  141. print CSVF "\",\"";
  142. print CSVF "$QUANTITY_5";
  143. print CSVF "\",\"";
  144. print CSVF "\$$PRICE_5";
  145. print CSVF "\",\"";
  146. print CSVF "$ID_5";
  147. print CSVF "\",\"";
  148. print CSVF "$NAME_5";
  149. print CSVF "\",\"";
  150. print CSVF "$ADDTLINFO_5";
  151. print CSVF "\",\"";
  152. print CSVF "$QUANTITY_6";
  153. print CSVF "\",\"";
  154. print CSVF "\$$PRICE_6";
  155. print CSVF "\",\"";
  156. print CSVF "$ID_6";
  157. print CSVF "\",\"";
  158. print CSVF "$NAME_6";
  159. print CSVF "\",\"";
  160. print CSVF "$ADDTLINFO_6";
  161. print CSVF "\",\"";
  162. print CSVF "$QUANTITY_7";
  163. print CSVF "\",\"";
  164. print CSVF "\$$PRICE_7";
  165. print CSVF "\",\"";
  166. print CSVF "$ID_7";
  167. print CSVF "\",\"";
  168. print CSVF "$NAME_7";
  169. print CSVF "\",\"";
  170. print CSVF "$ADDTLINFO_7";
  171. print CSVF "\",\"";
  172. print CSVF "$QUANTITY_8";
  173. print CSVF "\",\"";
  174. print CSVF "\$$PRICE_8";
  175. print CSVF "\",\"";
  176. print CSVF "$ID_8";
  177. print CSVF "\",\"";
  178. print CSVF "$NAME_8";
  179. print CSVF "\",\"";
  180. print CSVF "$ADDTLINFO_8";
  181. print CSVF "\",\"";
  182. print CSVF "$QUANTITY_9";
  183. print CSVF "\",\"";
  184. print CSVF "\$$PRICE_9";
  185. print CSVF "\",\"";
  186. print CSVF "$ID_9";
  187. print CSVF "\",\"";
  188. print CSVF "$NAME_9";
  189. print CSVF "\",\"";
  190. print CSVF "$ADDTLINFO_9";
  191. print CSVF "\",\"";
  192. print CSVF "$QUANTITY_10";
  193. print CSVF "\",\"";
  194. print CSVF "\$$PRICE_10";
  195. print CSVF "\",\"";
  196. print CSVF "$ID_10";
  197. print CSVF "\",\"";
  198. print CSVF "$NAME_10";
  199. print CSVF "\,\"";
  200. print CSVF "$ADDTLINFO_10";
  201. print CSVF "\",\"";
  202. print CSVF "$QUANTITY_11";
  203. print CSVF "\",\"";
  204. print CSVF "\$$PRICE_11";
  205. print CSVF "\",\"";
  206. print CSVF "$ID_11";
  207. print CSVF "\",\"";
  208. print CSVF "$NAME_11";
  209. print CSVF "\",\"";
  210. print CSVF "$ADDTLINFO_11";
  211. print CSVF "\",\"";
  212. print CSVF "$QUANTITY_12";
  213. print CSVF "\",\"";
  214. print CSVF "\$$PRICE_12";
  215. print CSVF "\",\"";
  216. print CSVF "$ID_12";
  217. print CSF "\",\"";
  218. print CSVF "$NAME_12";
  219. print CSVF "\",\"";
  220. print CSVF "$ADDTLINFO_12";
  221. print CSVF "\",\"";
  222. print CSVF "$QUANTITY_13";
  223. print CSVF "\",\"";
  224. print CSVF "\$$PRICE_13";
  225. print CSVF "\",\"";
  226. print CSVF "$ID_13";
  227. print CSVF "\",\"";
  228. print CSVF "$NAME_13";
  229. print CSVF "\",\"";
  230. print CSVF "$ADDTLINFO_13";
  231. print CSVF "\",\"";
  232. print CSVF "$SUBTOTAL";
  233. print CSVF "\",\"";
  234. print CSVF "$TOTAL";
  235. print CSVF "\",\"";
  236. print CSVF "$SHIPPING";
  237. print CSVF "\",\"";
  238. print CSVF "$comment";
  239. print CSVF "\"\n";
  240. close CSVF;
  241. }
  242. # Send email conformation to the customer.....
  243. open (MAIL,"|$mailprogram");
  244. print MAIL "To: $b_email\n";
  245. print MAIL "From: [email protected]\n";
  246. print MAIL "Subject: Order Confirmation\n";
  247. print MAIL "\n\n";
  248. print MAIL "A new order has been received.  A summary of this order appears below.\n";
  249. print MAIL "\n";
  250. print MAIL "Order Date: $months[$month] $day, $year $hour:$min:$sec \n"; 
  251. print MAIL " \n";
  252. print MAIL "Bill To: \n";
  253. print MAIL "\n";
  254. print MAIL "  $b_first $b_last \n";
  255. print MAIL "  $b_addr \n";
  256. print MAIL " $b_addr2 \n";
  257. print MAIL "  $b_city, $b_state  $b_zip \n";
  258. print MAIL "  $b_phone \n";
  259. print MAIL "  $b_fax \n";
  260. print MAIL "  $b_email \n";
  261. print MAIL " \n";
  262. print MAIL " \n";
  263. print MAIL "Ship To: \n";
  264. print MAIL "\n";
  265.  
  266. if ( $s_addr eq "" ) {
  267.    print MAIL "   Use Billing Address\n";
  268. } else {
  269. print MAIL "  $s_first $s_last \n";
  270. print MAIL "  $s_addr \n";
  271. print MAIL "  $s_addr2 \n";
  272. print MAIL "  $s_city, $s_state  $s_zip \n";
  273. print MAIL "  $s_phone \n";
  274. }
  275. print MAIL " \n";
  276. print MAIL " \n";
  277. print MAIL "Qty  Price(\$)   Product ID  - Product Name\n";
  278. print MAIL "\n";
  279. print MAIL "$QUANTITY_1    \$$PRICE_1    $ID_1 - $NAME_1   $ADDTLINFO_1  \n";
  280. if( $NAME_2 ) {print MAIL "$QUANTITY_2 \$$PRICE_2  $ID_2 - $NAME_2   $ADDTLINFO_2  \n";}
  281. if( $NAME_3 ) {print MAIL "$QUANTITY_3 \$$PRICE_3  $ID_3 - $NAME_3   $ADDTLINFO_3  \n";}
  282. if( $NAME_4 ) {print MAIL "$QUANTITY_4 \$$PRICE_4  $ID_4 - $NAME_4   $ADDTLINFO_4  \n";}
  283. if( $NAME_5 ) {print MAIL "$QUANTITY_5 \$$PRICE_5  $ID_5 - $NAME_5   $ADDTLINFO_5  \n";}
  284. if( $NAME_6 ) {print MAIL "$QUANTITY_6 \$$PRICE_6  $ID_6 - $NAME_6   $ADDTLINFO_6  \n";}
  285. if( $NAME_7 ) {print MAIL "$QUANTITY_7 \$$PRICE_7  $ID_7 - $NAME_7   $ADDTLINFO_7  \n";}
  286. if( $NAME_8 ) {print MAIL "$QUANTITY_8 \$$PRICE_8  $ID_8 - $NAME_8   $ADDTLINFO_8  \n";}
  287. if( $NAME_9 ) {print MAIL "$QUANTITY_9 \$$PRICE_9  $ID_9 - $NAME_9   $ADDTLINFO_9  \n";}
  288. if( $NAME_10 ){print MAIL "$QUANTITY_10 \$$PRICE_10  $ID_10 - $NAME_10  $ADDTLINFO_10 \n";}
  289. if( $NAME_11 ){print MAIL "$QUANTITY_11 \$$PRICE_11 $ID_11 - $NAME_11   $ADDTLINFO_11 \n";}
  290. if( $NAME_12 ){print MAIL "$QUANTITY_12 \$$PRICE_12  $ID_12 - $NAME_12   $ADDTLINFO_12 \n";}
  291. if( $NAME_13 ){print MAIL "$QUANTITY_13 \$$PRICE_13  $ID_13 - $NAME_13   $ADDTLINFO_13 \n";}
  292. print MAIL "\n";
  293. print MAIL "SUBTOTAL: $SUBTOTAL \n";
  294. print MAIL "TOTAL: $TOTAL \n";
  295. print MAIL "\n";
  296. print MAIL "FREIGHT: $SHIPPING \n";
  297. print MAIL "\n\n";
  298. print MAIL "Comments: \n";
  299. print MAIL "\n";
  300. print MAIL "$comment \n";
  301. print MAIL " \n";
  302. close MAIL;
  303. print "Content-type: text/html\n\n";
  304. open (HEAD, $header);
  305. @LINES = <HEAD>;
  306. close HEAD;
  307. print @LINES;
  308. print "<h2>Thank you</h2>";
  309. print "Thank you for your order from our online store.  You will receive a confirmation email of your order ";
  310. print "momentarily.  Please contact us at $youremail if you have any questions or concerns.";
  311. print "<P>";
  312. print "<A HREF=\"$returnpage\" target=_top>Return Home</A>";
  313. print "<P>";
  314.  
  315. open (FOOT, $footer);
  316. @LINES = <FOOT>;
  317. close FOOT;
  318.  
  319. print @LINES;
  320.  
  321. exit;
  #5 (permalink)  
Antiguo 16/09/2011, 14:30
Avatar de hasdpk  
Fecha de Ingreso: agosto-2011
Ubicación: $spain->city( 'Arucas' );
Mensajes: 1.800
Antigüedad: 12 años, 8 meses
Puntos: 297
Respuesta: erro al envial email local
Esto es como preguntarle a un Diplomado en Lengua Inglesa que significa "Achtüng", o sea, sólo trabajamos con PHP, aunque puede ser que alguien de por aquí sepa algo.

Puedes también consultar tu duda aquí: http://www.forosdelweb.com/f12/
  #6 (permalink)  
Antiguo 17/09/2011, 01:35
 
Fecha de Ingreso: diciembre-2010
Ubicación: tenerife
Mensajes: 60
Antigüedad: 13 años, 5 meses
Puntos: 0
Respuesta: erro al envial email local
jeje, ok buscare por donde me has dixo, es q no encontraba el foro perl
  #7 (permalink)  
Antiguo 17/09/2011, 01:38
 
Fecha de Ingreso: diciembre-2010
Ubicación: tenerife
Mensajes: 60
Antigüedad: 13 años, 5 meses
Puntos: 0
Respuesta: erro al envial email local
Cita:
Iniciado por toyeslomao Ver Mensaje
jeje, ok buscare por donde me has dixo, es q no encontraba el foro perl por cierto achtüng significa pecaucion, cuidado, y danke gracias, jejej , saludos
  #8 (permalink)  
Antiguo 17/09/2011, 05:52
 
Fecha de Ingreso: diciembre-2010
Ubicación: tenerife
Mensajes: 60
Antigüedad: 13 años, 5 meses
Puntos: 0
error al envial email local
pues eso chicos q me sale error, os reporto codigo en 2 partes, yo uso mercury mail , no se si tendre que descargarme el sendmail
Código perl: 
Ver original
  1. 1.Insecure $ENV{PATH} while running with -T switch at  line 7, line 1.
  2. #!/usr/bin/perl
  3. require 5.001;
  4.  
  5. $header        = "header.html";
  6. $footer        = "footer.html";
  7. $mailprogram   = "/usr/lib/sendmail -t";  MERCURY MAIL ???
  8. $returnpage    = "/";
  9. $youremail     = "freecart\@nopdesign.com";
  10. $csvfilename   = "orders.csv";
  11. $csvquote      = "\"\"";
  12. $mode          = "FILE";
  13.  
  14. @required = (
  15. 'b_first',
  16. 'b_last',
  17. 'b_addr',
  18. 'b_city',
  19. 'b_state',
  20. 'b_zip',
  21. 'b_phone',
  22. 'b_email'
  23. );
  24.  
  25. sub urlDecode {
  26.   my ($string) = @_;
  27.   $string =~ tr/+/ /;
  28.   $string =~ s/%([\dA-Fa-f][\dA-Fa-f])/pack ("C", hex($1))/eg;
  29.   $string =~ s/['"]/\'/g;
  30.   return ($string);
  31. }
  32. sub processCGI {
  33.  local ($cgiData, $key, $value, $pair, @pairs);
  34.  
  35. if ($ENV{'REQUEST_METHOD'} eq 'GET') { $cgiData = $ENV{'QUERY_STRING'}; }
  36.   else { $cgiData = <STDIN>; }
  37.   @pairs = split (/&/, $cgiData);
  38.   foreach $pair (@pairs) {
  39.   ($key, $value) = split (/\=/, $pair);
  40.   $key   = &urlDecode($key);
  41.   $value = &urlDecode($value);
  42.   if(defined ${$key}){
  43.   ${$key} .= ", ".$value;
  44.   }else{
  45.   ${$key} = $value;
  46.       }
  47.    }
  48. }
  49. sub doFormError {
  50.  my ($errString) = @_;
  51.  
  52.  open (HEAD, $header);
  53.  @LINES = <HEAD>;
  54.  close HEAD;
  55.  
  56.  print "Content-type: text/html\n\n";
  57.  
  58.  print @LINES;
  59.  
  60.  print "<FONT SIZE=+2>The form you submitted was not complete.<BR><BR></FONT>";
  61.  print "$errString<BR><BR>\n";
  62.  print "<INPUT TYPE=BUTTON ONCLICK='history.back()' VALUE='  Return to the checkout page '><HR>";
  63.  
  64.     open (FOOT, $footer);
  65.     @LINES = <FOOT>;
  66.     close FOOT;
  67.     print @LINES;
  68.  
  69.     exit;
  70. }
  71.  
  72. sub doError {
  73.  my ($errString) = @_;
  74.  print "Content-type: text/html\n\n";
  75.  
  76.  open (HEAD, $header);
  77.  @LINES = <HEAD>;
  78.  close HEAD;
  79.  
  80.  print @LINES;
  81.  print "$errString<BR><BR>\n";
  82.  
  83.  open (FOOT, $footer);
  84.  @LINES = <FOOT>;
  85.  close FOOT;
  86.  print @LINES;
  87.  
  88.  exit;
  89.  
  90. sub invalidE {
  91.  my ($szEmail) = @_;
  92.  my ($user, $host);
  93.  
  94.  $szEmail =~ tr/A-Z/a-z/;
  95.  if ($szEmail =~ /\s/) { return 1; }
  96.  ($user, $host) = split (/\@/, $szEmail);
  97.  if ($host =~ /compuserve/i) { ; }
  98.  else {
  99.   if (! $user =~ /\D/) { return 1; }
  100.   if (! $host =~ /\D/) { return 1; }
  101.   if (substr ($user,0,1) !~ /[a-z]/) { return 1; }
  102. }
  103.  if ($szEmail =~ /\w+\@[\w|\.]/) { return 0; }
  104.  else { return 1; }
  105. }
  106. sub populateDateVar {
  107.  @months = ();
  108.  push(@months,"January");
  109.  push(@months,"February");
  110.  push(@months,"March");
  111.  push(@months,"April");
  112.  push(@months,"May");
  113.  push(@months,"June");
  114.  push(@months,"July");
  115.  push(@months,"August");
  116.  push(@months,"September");
  117.  push(@months,"October");
  118.  push(@months,"November");
  119.  push(@months,"December");
  120.  @days = ();
  121.  push(@days,"Sunday");
  122.  push(@days,"Monday");
  123.  push(@days,"Tuesday");
  124.  push(@days,"Wednesday");
  125.  push(@days,"Thursday");
  126.  push(@days,"Friday");
  127.  push(@days,"Saturday");
  128.  ($sec,$min,$hour,$day,$month,$year,$day2) =
  129.  (localtime(time))[0,1,2,3,4,5,6];
  130.  if ($sec < 10) { $sec = "0$sec"; }
  131.  if ($min < 10) { $min = "0$min"; }
  132.  if ($hour < 10) { $hour = "0$hour"; }
  133.  if ($day < 10) { $day = "0$day"; }
  134.  $year += "1900";
  135. &processCGI;
  136. &populateDateVar;
  137.  
  138. foreach $check(@required) {
  139.  unless ($check) {
  140.    doFormError("It appears that you forgot to fill in the <strong>$check</strong> field.");
  141.   exit;
  142.  }
  143. }
  144. if( &invalidE($b_email) ){
  145.    doFormError('su e-mail no es correcto.');
  146. }
  147.  
  148. if( $mode eq "BOTH" || $mode eq "EMAIL") {
  149.  
  150. open (MAIL,"|$mailprogram"); AKI ESTA EL ERROR
  151.  print MAIL "To: $youremail\n";
  152.  print MAIL "From: $b_email\n";
  153.  print MAIL "Subject: New Online Order\n";
  154.  print MAIL "\n\n";
  155.  print MAIL "A new order has been received.  A summary of this order appears below.\n";
  156.  print MAIL "\n";
  157.  print MAIL "Order Date: $months[$month] $day, $year $hour:$min:$sec \n"; 
  158.  print MAIL " \n";
  159.  print MAIL "Bill To: \n";
  160.  print MAIL "\n";
  161.  print MAIL "   $b_first $b_last \n";
  162.  print MAIL "   $b_addr \n";
  163.  print MAIL "   $b_addr2 \n";
  164.  print MAIL "   $b_city, $b_state  $b_zip \n";
  165.  print MAIL "   $b_phone \n";
  166.  print MAIL "   $b_fax \n";
  167.  print MAIL "   $b_email \n";
  168.  print MAIL " \n";
  169.  print MAIL " \n";
  170.  print MAIL "Ship To: \n";
  171.  print MAIL " \n";
  172.  print MAIL "   $s_first $s_last \n";
  173.  print MAIL "   $s_addr \n";
  174.  print MAIL "   $s_addr2 \n";
  175.  print MAIL "   $s_city, $s_state  $s_zip \n";
  176.  print MAIL "   $s_phone \n";
  177.  print MAIL " \n";
  178.  print MAIL " \n";
  179.  print MAIL "Qty  Price(\$)   Product ID  - Product Name\n";
  180.  print MAIL "\n";
  181.  print MAIL "$QUANTITY_1    \$$PRICE_1    $ID_1 - $NAME_1   $ADDTLINFO_1  \n";
  182.    if( $NAME_2 ) {print MAIL "$QUANTITY_2 \$$PRICE_2 $ID_2 - $NAME_2   $ADDTLINFO_2  \n";}
  183.    if( $NAME_3 ) {print MAIL "$QUANTITY_3 \$$PRICE_3 $ID_3 - $NAME_3   $ADDTLINFO_3  \n";}
  184.    if( $NAME_4 ) {print MAIL "$QUANTITY_4 \$$PRICE_4 $ID_4 - $NAME_4   $ADDTLINFO_4  \n";}
  185.    if( $NAME_5 ) {print MAIL "$QUANTITY_5 \$$PRICE_5 $ID_5 - $NAME_5   $ADDTLINFO_5  \n";}
  186.    if( $NAME_6 ) {print MAIL "$QUANTITY_6 \$$PRICE_6 $ID_6 - $NAME_6   $ADDTLINFO_6  \n";}
  187.    if( $NAME_7 ) {print MAIL "$QUANTITY_7 \$$PRICE_7 $ID_7 - $NAME_7   $ADDTLINFO_7  \n";}
  188.    if( $NAME_8 ) {print MAIL "$QUANTITY_8 \$$PRICE_8 $ID_8 - $NAME_8   $ADDTLINFO_8  \n";}
  189.    if( $NAME_9 ) {print MAIL "$QUANTITY_9 \$$PRICE_9 $ID_9 - $NAME_9   $ADDTLINFO_9  \n";}
  190.    if( $NAME_10 ){print MAIL "$QUANTITY_10 \$$PRICE_10  $ID_10 - $NAME_10   $ADDTLINFO_10 \n";}
  191.    if( $NAME_11 ){print MAIL "$QUANTITY_11 \$$PRICE_11    $ID_11 - $NAME_11   $ADDTLINFO_11 \n";}
  192.    if( $NAME_12 ){print MAIL "$QUANTITY_12 \$$PRICE_12    $ID_12 - $NAME_12   $ADDTLINFO_12 \n";}
  193.    if( $NAME_13 ){print MAIL "$QUANTITY_13 \$$PRICE_13    $ID_13 - $NAME_13   $ADDTLINFO_13 \n";}
  194. print MAIL "\n";
  195. print MAIL "SUBTOTAL: $SUBTOTAL \n";
  196. print MAIL "TOTAL: $TOTAL \n";
  197. print MAIL "\n";
  198. print MAIL "FREIGHT: $SHIPPING \n";
  199. print MAIL "\n\n";
  200. print MAIL "Comments: \n";
  201. print MAIL "\n";
  202. print MAIL "$comment \n";
  203. print MAIL " \n";
  204.  close MAIL;
  205. }
  206.  
  207. if( $mode eq "BOTH" || $mode eq "FILE") {
  #9 (permalink)  
Antiguo 17/09/2011, 05:53
 
Fecha de Ingreso: diciembre-2010
Ubicación: tenerife
Mensajes: 60
Antigüedad: 13 años, 5 meses
Puntos: 0
Respuesta: error al envial email local
aqui la segunda parte del codigo

Código perl: 
Ver original
  1. $csvcomments = $comment;
  2. open (CSVF,">>$csvfilename");
  3. print CSVF "\"";
  4. print CSVF "$months[$month] $day, $year $hour:$min:$sec";
  5. print CSVF "\",\"";
  6. print CSVF "$b_first";
  7. print CSVF "\",\"";
  8. print CSVF "$b_last";
  9. print CSVF "\",\"";
  10. print CSVF "$b_addr";
  11. print CSVF "\",\"";
  12. print CSVF "$b_addr2";
  13. print CSVF "\",\"";
  14. print CSVF "$b_city";
  15. print CSVF "\",\"";
  16. print CSVF "$b_state";
  17. print CSVF "\",\"";
  18. print CSVF "$b_zip";
  19. print CSVF "\",\"";
  20. print CSVF "$b_phone";
  21. print CSVF "\",\"";
  22. print CSVF "$b_fax";
  23. print CSVF "\",\"";
  24. print CSVF "$b_email";
  25. print CSVF "\",\"";
  26. print CSVF "$s_first";
  27. print CSVF "\",\"";
  28. print CSVF "$s_last";
  29. print CSVF "\",\"";
  30. print CSVF "$s_addr";
  31. print CSVF "\",\"";
  32. print CSVF "$s_addr2";
  33. print CSVF "\",\"";
  34. print CSVF "$s_city";
  35. print CSVF "\",\"";
  36. print CSVF "$s_state";
  37. print CSVF "\",\"";
  38. print CSVF "$s_zip";
  39. print CSVF "\",\"";
  40. print CSVF "$s_phone";
  41. print CSVF "\",\"";   
  42. print CSVF "$QUANTITY_1";
  43. print CSVF "\",\"";
  44. print CSVF "\$$PRICE_1";
  45. print CSVF "\",\"";
  46. print CSVF "$ID_1";
  47. print CSVF "\",\"";
  48. print CSVF "$NAME_1";
  49. print CSVF "\",\"";
  50. print CSVF "$ADDTLINFO_1";
  51. print CSVF "\",\"";
  52. print CSVF "$QUANTITY_2";
  53. print CSVF "\",\"";
  54. print CSVF "\$$PRICE_2";
  55. print CSVF "\",\"";
  56. print CSVF "$ID_2";
  57. print CSVF "\",\"";
  58. print CSVF "$NAME_2";
  59. print CSVF "\",\"";
  60. print CSVF "$ADDTLINFO_2";
  61. print CSVF "\",\"";
  62. print CSVF "$QUANTITY_3";
  63. print CSVF "\",\"";
  64. print CSVF "\$$PRICE_3";
  65. print CSVF "\",\"";
  66. print CSVF "$ID_3";
  67. print CSVF "\",\"";
  68. print CSVF "$NAME_3";
  69. print CSVF "\",\"";
  70. print CSVF "$ADDTLINFO_3";
  71. print CSVF "\",\"";
  72. print CSVF "$QUANTITY_4";
  73. print CSVF "\",\"";
  74. print CSVF "\$$PRICE_4";
  75. print CSVF "\",\"";
  76. print CSVF "$ID_4";
  77. print CSVF "\",\"";
  78. print CSVF "$NAME_4";
  79. print CSVF "\",\"";
  80. print CSVF "$ADDTLINFO_4";
  81. print CSVF "\",\"";
  82. print CSVF "$QUANTITY_5";
  83. print CSVF "\",\"";
  84. print CSVF "\$$PRICE_5";
  85. print CSVF "\",\"";
  86. print CSVF "$ID_5";
  87. print CSVF "\",\"";
  88. print CSVF "$NAME_5";
  89. print CSVF "\",\"";
  90. print CSVF "$ADDTLINFO_5";
  91. print CSVF "\",\"";
  92. print CSVF "$QUANTITY_6";
  93. print CSVF "\",\"";
  94. print CSVF "\$$PRICE_6";
  95. print CSVF "\",\"";
  96. print CSVF "$ID_6";
  97. print CSVF "\",\"";
  98. print CSVF "$NAME_6";
  99. print CSVF "\",\"";
  100. print CSVF "$ADDTLINFO_6";
  101. print CSVF "\",\"";
  102. print CSVF "$QUANTITY_7";
  103. print CSVF "\",\"";
  104. print CSVF "\$$PRICE_7";
  105. print CSVF "\",\"";
  106. print CSVF "$ID_7";
  107. print CSVF "\",\"";
  108. print CSVF "$NAME_7";
  109. print CSVF "\",\"";
  110. print CSVF "$ADDTLINFO_7";
  111. print CSVF "\",\"";
  112. print CSVF "$QUANTITY_8";
  113. print CSVF "\",\"";
  114. print CSVF "\$$PRICE_8";
  115. print CSVF "\",\"";
  116. print CSVF "$ID_8";
  117. print CSVF "\",\"";
  118. print CSVF "$NAME_8";
  119. print CSVF "\",\"";
  120. print CSVF "$ADDTLINFO_8";
  121. print CSVF "\",\"";
  122. print CSVF "$QUANTITY_9";
  123. print CSVF "\",\"";
  124. print CSVF "\$$PRICE_9";
  125. print CSVF "\",\"";
  126. print CSVF "$ID_9";
  127. print CSVF "\",\"";
  128. print CSVF "$NAME_9";
  129. print CSVF "\",\"";
  130. print CSVF "$ADDTLINFO_9";
  131. print CSVF "\",\"";
  132. print CSVF "$QUANTITY_10";
  133. print CSVF "\",\"";
  134. print CSVF "\$$PRICE_10";
  135. print CSVF "\",\"";
  136. print CSVF "$ID_10";
  137. print CSVF "\",\"";
  138. print CSVF "$NAME_10";
  139. print CSVF "\",\"";
  140. print CSVF "$ADDTLINFO_10";
  141. print CSVF "\",\"";
  142. print CSVF "$QUANTITY_11";
  143. print CSVF "\",\"";
  144. print CSVF "\$$PRICE_11";
  145. print CSVF "\",\"";
  146. print CSVF "$ID_11";
  147. print CSVF "\",\"";
  148. print CSVF "$NAME_11";
  149. print CSVF "\",\"";
  150. print CSVF "$ADDTLINFO_11";
  151. print CSVF "\",\"";
  152. print CSVF "$QUANTITY_12";
  153. print CSVF "\",\"";
  154. print CSVF "\$$PRICE_12";
  155. print CSVF "\",\"";
  156. print CSVF "$ID_12";
  157. print CSVF "\",\"";
  158. print CSVF "$NAME_12";
  159. print CSVF "\",\"";
  160. print CSVF "$ADDTLINFO_12";
  161. print CSVF "\",\"";
  162. print CSVF "$QUANTITY_13";
  163. print CSVF "\",\"";
  164. print CSVF "\$$PRICE_13";
  165. print CSVF "\",\"";
  166. print CSVF "$ID_13";
  167. print CSVF "\",\"";
  168. print CSVF "$NAME_13";
  169. print CSVF "\",\"";
  170. print CSVF "$ADDTLINFO_13";
  171. print CSVF "\",\"";
  172. print CSVF "$SUBTOTAL";
  173. print CSVF "\",\"";
  174. print CSVF "$TOTAL";
  175. print CSVF "\",\"";
  176. print CSVF "$SHIPPING";
  177. print CSVF "\",\"";
  178. print CSVF "$comment";
  179. print CSVF "\"\n";
  180. close CSVF;
  181. }
  182. open (MAIL,"|$mailprogram");
  183. print MAIL "To: $b_email\n";
  184. print MAIL "From: $youremail\n";
  185. print MAIL "Subject: Order Confirmation\n";
  186. print MAIL "\n\n";
  187. print MAIL "A new order has been received.  A summary of this order appears below.\n";
  188. print MAIL "\n";
  189. print MAIL "Order Date: $months[$month] $day, $year $hour:$min:$sec \n"; 
  190. print MAIL " \n";
  191. print MAIL "Bill To: \n";
  192. print MAIL "-------- \n";
  193. print MAIL "   $b_first $b_last \n";
  194. print MAIL "   $b_addr \n";
  195. print MAIL "   $b_addr2 \n";
  196. print MAIL "   $b_city, $b_state  $b_zip \n";
  197. print MAIL "   $b_phone \n";
  198. print MAIL "   $b_fax \n";
  199. print MAIL "   $b_email \n";
  200. print MAIL " \n";
  201. print MAIL " \n";
  202. print MAIL "Ship To: \n";
  203. print MAIL "-------- \n";
  204.  
  205. if ( $s_addr eq "" ) {
  206.  print MAIL "   Use Billing Address\n";
  207. } else {
  208. print MAIL "   $s_first $s_last \n";
  209. print MAIL "   $s_addr \n";
  210. print MAIL "   $s_addr2 \n";
  211. print MAIL "   $s_city, $s_state  $s_zip \n";
  212. print MAIL "   $s_phone \n";
  213. }
  214.  
  215. print MAIL " \n";
  216. print MAIL " \n";
  217. print MAIL "Qty  Price(\$)   Product ID  - Product Name\n";
  218. print MAIL "\n";
  219. print MAIL "$QUANTITY_1    \$$PRICE_1    $ID_1 - $NAME_1   $ADDTLINFO_1  \n";
  220. if( $NAME_2 ) {print MAIL "$QUANTITY_2    \$$PRICE_2    $ID_2 - $NAME_2   $ADDTLINFO_2  \n";}
  221. if( $NAME_3 ) {print MAIL "$QUANTITY_3    \$$PRICE_3    $ID_3 - $NAME_3   $ADDTLINFO_3  \n";}
  222. if( $NAME_4 ) {print MAIL "$QUANTITY_4    \$$PRICE_4    $ID_4 - $NAME_4   $ADDTLINFO_4  \n";}
  223. if( $NAME_5 ) {print MAIL "$QUANTITY_5    \$$PRICE_5    $ID_5 - $NAME_5   $ADDTLINFO_5  \n";}
  224. if( $NAME_6 ) {print MAIL "$QUANTITY_6    \$$PRICE_6    $ID_6 - $NAME_6   $ADDTLINFO_6  \n";}
  225. if( $NAME_7 ) {print MAIL "$QUANTITY_7    \$$PRICE_7    $ID_7 - $NAME_7   $ADDTLINFO_7  \n";}
  226. if( $NAME_8 ) {print MAIL "$QUANTITY_8    \$$PRICE_8    $ID_8 - $NAME_8   $ADDTLINFO_8  \n";}
  227. if( $NAME_9 ) {print MAIL "$QUANTITY_9    \$$PRICE_9    $ID_9 - $NAME_9   $ADDTLINFO_9  \n";}
  228. if( $NAME_10 ){print MAIL "$QUANTITY_10    \$$PRICE_10    $ID_10 - $NAME_10   $ADDTLINFO_10 \n";}
  229. if( $NAME_11 ){print MAIL "$QUANTITY_11    \$$PRICE_11    $ID_11 - $NAME_11   $ADDTLINFO_11 \n";}
  230. if( $NAME_12 ){print MAIL "$QUANTITY_12    \$$PRICE_12    $ID_12 - $NAME_12   $ADDTLINFO_12 \n";}
  231. if( $NAME_13 ){print MAIL "$QUANTITY_13    \$$PRICE_13    $ID_13 - $NAME_13   $ADDTLINFO_13 \n";}
  232. print MAIL "\n";
  233. print MAIL "SUBTOTAL: $SUBTOTAL \n";
  234. print MAIL "TOTAL: $TOTAL \n";
  235. print MAIL "\n";
  236. print MAIL "FREIGHT: $SHIPPING \n";
  237. print MAIL "\n\n";
  238. print MAIL "Comments: \n";
  239. print MAIL "\n";
  240. print MAIL "$comment \n";
  241. print MAIL " \n";
  242. close MAIL;
  243. print "Content-type: text/html\n\n";
  244.  
  245. open (HEAD, $header);
  246. @LINES = <HEAD>;
  247. close HEAD;
  248. print @LINES;
  249.  
  250. print "<h2>GRACIAS</h2>";
  251. print "Gracia por su compra";
  252. print "puede ponerse en contacto con nosotros.";
  253. print "<P>";
  254. print "<A HREF=\"$returnpage\" target=_top>Return Home</A>";
  255. print "<P>";
  256.  
  257. open (FOOT, $footer);
  258. @LINES = <FOOT>;
  259. close FOOT;
  260.  
  261. print @LINES;
  262.  
  263. exit;
  #10 (permalink)  
Antiguo 17/09/2011, 05:55
 
Fecha de Ingreso: diciembre-2010
Ubicación: tenerife
Mensajes: 60
Antigüedad: 13 años, 5 meses
Puntos: 0
Respuesta: erro al envial email local
cierren este hilo si quereis, ya solicite ayuda en el apartado perl, de nuevo gracias hasdpk

Etiquetas: email, html, local, perl-y-cgi, php
Atención: Estás leyendo un tema que no tiene actividad desde hace más de 6 MESES, te recomendamos abrir un Nuevo tema en lugar de responder al actual.
Respuesta


« Tema Anterior | Próximo Tema »


La zona horaria es GMT -6. Ahora son las 22:51.