PERL TO PHP

xcguyxc · April 17, 2006

Hey guys! I just need some minor help converting what i was doing in PERL to PHP.

***NOTE: The perl was setup as a db read not a MS SQL i have already taken care of this. We

just Upgraded.

THE UNION ALL PART AND THE DATAHASH ARE WERE I AM LOST!!!!

***** PERL CODE ****
[code]
#!/perl/bin/perl.exe

use Win32::ODBC;
print "Content-type:text/html\n\n";

read(STDIN, $line, $ENV{'CONTENT_LENGTH'});

$anyorder="no";
$anyship="no";

@values = split(/&/, $line);
foreach $i (@values) {
($name, $value) = split(/=/, $i);
$value =~ tr/+/ /;
$value =~ tr/[a-z]/[A-Z]/;

$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$FORM{$name} = $value;
 }
print "<html><head><title>Database</title></head>";
print "<body>\n";
print "<h2>These are the results</h2>\n";

$DSN="AccountMate";
if (!($db=new Win32::ODBC($DSN))) {
print "ERROR CONNECTING";
}
$po=$FORM{'P.O.'};

$db->Sql("SELECT * FROM dbo.soship where dbo.soship.ccustno = '" . $FORM{'P.O.'} . "' UNION

ALL SELECT * FROM Soshiph where ccustno = '" . $FORM{'P.O.'} . "'");

while ($db->FetchRow()){
my(%data) = $db->DataHash();

$ship=$data{'dship'};
$pon=$data{'cshipno'};

if (($ship > 2005) && ($pon > 1000074112)){

print "Customer No. = $data{ccustno} 
Sales Order # = $data{'csono'} 
Purchase Order # = $data{'cpono'} 
Company = $data{'cscompany'} 
Zip = $data{'cszip'} 
Ship Date = $data{'dship'}";}

if ($data{'csono'}=~m/\d/)
{$anyorder="yes";}

if ($data{'dship'}=~m/\d/)
{$anyship="yes";}

}

if ($anyorder eq "yes")
{
print"Please check your PO's ";
}
else
{print "If you dont see your PO please check back in 24

hours.";}

if ($anyship eq "yes")
{
print"Your order has shipped";
}
else
{print "Your order has not yet shipped";}

$db->Close();
print "</body></html>\n";

[/code]

I need to try to get it to work the same as the perl would on UNION ALL and the PRINT

DATA....

Sign In

PERL TO PHP

Recommended Posts

xcguyxc

Link to comment

Share on other sites

Archived

Browse

Activity

Important Information