Tom's Guide > Forum > Programmation > probleme script java

probleme script java

Forum Programmation : probleme script java

TomsGuide.com : 800 000 inscrits répondent à toutes vos questions high-tech et informatique. Pour obtenir de l'aide, inscrivez-vous gratuitement !

Contenu relatif
Forum

Voir tous les sujets correspondants à "probleme script java"

Créer un nouveau sujet Répondre

Bas de page Chercher dans ce sujet

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

#!/usr/bin/perl

$mailprog = "/usr/lib/sendmail";

&ParseAndConvert;
&SendOrderToShop;
&SendOrderToClient;
&CloseIt;

exit(0);

sub ParseAndConvert {
if (@_) {
local (*in) = @_;
}
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;
@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>
|;
}
}

Répondre

Inscrivez-vous ou connectez-vous pour masquer ceci.

C'est du perl pas du java ...

------------------------------ 20minutes.fr, l'information en continu.
Répondre à SiM07

Créer un nouveau sujet Répondre

Tom's Guide > Forum > Programmation > probleme script java

Aller à :

Aide |
Règles du forum

Il y a 2371 utilisateurs connus et inconnus. Pour voir la liste des connectés connus, cliquez ici.

Page générée en 1,237 secondes

Attention

Vous allez répondre sur un sujet resté inactif pendant plus de 6 mois.
Assurez-vous d'apporter des éléments nouveaux à la discussion avant de poursuivre.

Répondre Annuler

Liens