changement d'une variable

teorom · 13 Janvier 2008

bonjour, je recherche quelqu'un qui puisse m'aider à changer une variable dans le script suivant. ce script envoie à la validation d'un panier de commande, un appel vers un request.cgi dans le meme repertoire. le montant est généré automatiquement par ce script, il faut que la variable permette l'ouverture du request pour un paiement atos marcanet. ce script sendorder fait partie de web boutique 4. si quelqu'un pourrait m'aider, cela serait génial car je galére bien.

fabien

CODE

#!/usr/bin/perl  
$mailprog = "/usr/lib/sendmail"; 
 
&ParseAndConvert; 
&SendOrderToShop; 
&SendOrderToClient; 
&CloseIt; 
 
exit(0); 
 
sub ParseAndConvert { 
  if (@_) { 
    local (*in) = _AT__; 
  } 
  local ($i, $loc, $key, $val); 
 
  if ($ENV{'REQUEST_METHOD'} eq "GET" ) { 
    $in = $ENV{'QUERY_STRING'}; 
  } 
  elsif ($ENV{'REQUEST_METHOD'} eq "POST" ) { 
    read(STDIN, $in, $ENV{'CONTENT_LENGTH'}); 
  } 
 
  $in_buffer = $in; 
  _AT_in = split(/&/,$in); 
  foreach $i (0 .. $#in) { 
    $in[$i] =~ s/\+/ /g; 
    $in[$i] =~ s/%(..)/pack("c",hex($1))/ge; 
    $loc = index($in[$i],"=" ); 
    $key = substr($in[$i],0,$loc); 
    $val = substr($in[$i],$loc+1); 
    $in{$key} .= '\0' if (defined($in{$key})); 
    $in{$key} .= $val; 
  } 
   
  $Messagehtml = $in{'Messagehtml'}; 
  $Search = q(<LV_061/> ); $Replace = q(=3D); $Messagehtml =~ s/$Search/$Replace/g; 
  $Search = q(<LV_034/> ); $Replace = q(" );   $Messagehtml =~ s/$Search/$Replace/g; 
   
  return 1; 
} 
 
sub SendOrderToShop { 
  open(MAIL,"|$mailprog -t" ); 
 
  print MAIL "To: $in{'To'}\n"; 
  print MAIL "From: $in{'From'}\n"; 
  print MAIL "Reply-To: $in{'From'}\n"; 
  print MAIL "Subject: $in{'Subject'}\n"; 
  print MAIL "MIME-Version: 1.0\n"; 
  print MAIL "Content-Type: multipart/mixed; boundary=\"---- =_NextPart_$in{'OrderID'}\"\n\n"; 
 
  print MAIL "This is a multi-part message in MIME format.\n\n"; 
  print MAIL "------ =_NextPart_$in{'OrderID'}\n"; 
   
  print MAIL "Content-Type: text/html; charset=ISO-8859-1\n"; 
  print MAIL "Content-Transfer-Encoding: quoted-printable\n\n"; 
  print MAIL "$Messagehtml\n\n"; 
  print MAIL "------ =_NextPart_$in{'OrderID'}\n"; 
   
  print MAIL "Content-Type: application/octet-stream;\n"; 
  print MAIL " name=\"order-".$in{'OrderID'}.".lce\"\n"; 
  print MAIL "Content-Transfer-Encoding: 8bit\n";  
  print MAIL "Content-Disposition: attachment;\n"; 
  print MAIL " filename=\"order-".$in{'OrderID'}.".lce\"\n\n"; 
  print MAIL "$in{'Attachment'}\n\n"; 
  close(MAIL); 
} 
 
sub check_email { 
  $email = $_[0]; 
 
  if ($email =~ /(@.*@)|(\.\.)|(@\.)|(\.@)|(^\.)/ || 
      $email !~ /^.+\@(\[?)[a-zA-Z0-9\-\.]+\.([a-zA-Z]{2,3}|[0-9]{1,3})(\]?)$/) { 
    return 0; 
  } 
  else { 
    return 1; 
  } 
} 
 
sub SendOrderToClient { 
  if (&check_email($in{'From'})) { 
    open(MAIL,"|$mailprog -t" ); 
   
    print MAIL "To: $in{'From'}\n"; 
    print MAIL "From: $in{'To'}\n"; 
    print MAIL "Reply-To: $in{'To'}\n"; 
    print MAIL "Subject: $in{'SubjectMailClient'}\n"; 
    print MAIL "MIME-Version: 1.0\n"; 
    print MAIL "Content-Type: multipart/mixed; boundary=\"---- =_NextPart_$in{'OrderID'}\"\n\n"; 
 
    print MAIL "This is a multi-part message in MIME format.\n\n"; 
    print MAIL "------ =_NextPart_$in{'OrderID'}\n"; 
 
    print MAIL "Content-Type: text/html; charset=ISO-8859-1\n"; 
    print MAIL "Content-Transfer-Encoding: quoted-printable\n\n"; 
    print MAIL "$Messagehtml\n\n"; 
    print MAIL "------ =_NextPart_$in{'OrderID'}\n"; 
 
    print MAIL "Content-Type: application/octet-stream;\n"; 
    print MAIL " name=\"".$in{'SubjectMailClient'}.".txt\"\n"; 
    print MAIL "Content-Transfer-Encoding: 8bit\n";  
    print MAIL "Content-Disposition: attachment;\n"; 
    print MAIL " filename=\"".$in{'SubjectMailClient'}.".txt\"\n\n"; 
    print MAIL "$in{'Message'}\n\n"; 
 
    close(MAIL);     
  } 
} 
 
sub CloseIt { 
  # If redirect option is used, print the redirectional location header.   # 
  if ($in{'redirect'}) { 
      print "Location: $in{'redirect'}\n\n"; 
  } 
  else { 
    print "Content-type:  text/html\n\n"; 
    print qq| 
      <html> 
      <head> 
        <title>$in{'Subject'}</title> 
      </head> 
      <BODY ONLOAD="setTimeout('window.close()',1)"> 
      </body> 
      </html> 
    |; 
  } 
}

Connexion

changement d'une variable

Sujets conseillés

teorom

Lien vers le commentaire

Partager sur d’autres sites

Veuillez vous connecter pour commenter

Contenu similaire

Problème redirection .htaccess (Augmentation des URL non suivies)

mod_rewrite et perte du chemin relatif

Dossiers et index htaccess

Problème de redirection non désiré

Parcourir

Activité