cybercart.pl

CyberCart Pro Internet Commerce System 3.042 很好的商业购物程序.Good Shopping Cart, Can be used for Multipl

  </b>
  <td valign=top>
  <b>NOTE: Use your broswer to print out a copy of this order form for your 
  records.  Then SUBMIT the order for electronic billing.</b>
  </td>
  </tr>
  </table>
  </center>
  );
}

print "</form>";

if ($post_query{'processing'} ne "offline") {
  if ($secure && $post_query{'processing'} eq "secure") {
    print "<form method=post action=$secure_url>\n";
#   print "<form method=post action=$onanalysis>\n";
  } else {	
    print "<form method=post action=$script_url>\n";
  }
  print "<form method=post action=$script_url>\n";
  print "<input type=hidden name=merchant value=$post_query{'merchant'}>\n";
  foreach $key (keys %post_query) {
    if ($key ne "action") {
      print "<input type=hidden name=\"$key\" value=\"$post_query{$key}\">\n";
    } 
  }
  print qq(
  <input type=hidden name=action value=send>\n
  <p>
  <center><input type=submit value="Send order now!"></center>   
  </form>
  <p>
  );
}

#&footer;

}
#----------------------------------------------------------------------------


sub load_prices {
# Routine used if prices stored in external data file
open(LOOKUP, "$product_data") || print "cant open $product_data\n";
while(<LOOKUP>) {
   chop;
   ($tcode, $tname, $tprice )=split(/:/, $_);
   $iprice{$tcode} = $tprice;
   $iname{$tcode} = $tname;
}
close(LOOKUP);
}
# End sub load_prices
#-----------------------------------------------------#





sub order {
# Show current order
if (-s $order_file) {
  print "<CENTER><h1>View Current Order</h1></CENTER>\n";
  &show_order; 
  &show_order2; 
} else {
  print "<h1>Error in Trying to Display Order</h1>";
  print "You haven't ordered anything yet!\n";
  # print "Can't open $order_file";
  &return_page;
  &footer;
  exit;
}
}
#----------------------------------------------------------------------------------------

sub pagename {
# Determine the full url just in case script is running through cgiwrap
if ($post_query{'page_name'}) {
  if ($post_query{'page_name'} =~ m/^http/) {
    $page_name = $post_query{'page_name'};
  } else {
    $page_name = $home_url . $post_query{'page_name'};
  }
} else {
  $page_name = $home_page;
}

}

sub place {
# Choose order processing method
print qq(
<p><center>
<table border=1 cellspacing=0 cellpadding=10 width=$Table_width bgcolor=$Table_Header_Color>\n
<tr><td colspan=2 bgcolor=$Table_Body_Color valign=middle>
<p>
<pre><b><u>Choose Order Processing Method:</u></b>\n</pre>
</td>
</tr>);

if ($secure) {
  print qq(
<tr><td bgcolor=$Table_Header_Color align=center valign=middle>
<form method=post action=$secure_url>
<input type=hidden name=merchant value=$post_query{'merchant'}>
);


  # If secure domain is different send a copy of the whole order over
  # and put it in a file there.
  if ($secure_domain) {
    open(ORDER, "<$order_file");
    @order_info = <ORDER>;
    for ($i=0; $i < $#order_info+1; $i++) {
      $order_info .= $order_info[$i];
    }
    close(ORDER);
    print "<input type=hidden name=order value=\"$order_info\">\n";

    if ($client) {
      open(CLIENT, "<$clientlist");
      while (<CLIENT>) {
        chop;
        ($cl,$em) = split(/\:/,$_);
        if ($cl eq $client) {
          print "<input type=hidden name=clientemail value=$em>\n";
          last;
        }
      }
    }
  }

  print qq(
<input type=hidden name=action value=place2>
<input type=hidden name=processing value=secure>
);
  if ($button_secure) {
    if ($post_query{'processing'} eq "secure") {
      if ($button_clear =~ m/https:/) {
        print "<INPUT TYPE=IMAGE SRC=$button_secure border=0>\n";
      } else {
        print "<INPUT TYPE=SUBMIT VALUE=\"SECURE ON-LINE\">\n";
      }
    } else {
      print "<INPUT TYPE=IMAGE SRC=$button_secure border=0>\n";
    }
  } else {
    print "<INPUT TYPE=SUBMIT VALUE=\"SECURE ON-LINE\">\n";
  }

  print qq(
</form>
</td>
<td bgcolor=$Table_Entry_Color>Secure Transaction using SSL.</td></tr>
);
} 

if (!$no_unsecure) {
  print qq(
<tr><td bgcolor=$Table_Header_Color align=center valign=middle>
<form method=post action=$script_url>
<input type=hidden name=merchant value=$post_query{'merchant'}>
<input type=hidden name=action value=place2>
<input type=hidden name=processing value=unsecure>
);
  if ($button_online) {
    if ($post_query{'processing'} eq "secure") {
      if ($button_clear =~ m/https:/) {
        print "<INPUT TYPE=IMAGE SRC=$button_online border=0>\n";
      } else {
        print "<INPUT TYPE=SUBMIT VALUE=\"ON-LINE\">\n";
      }
    } else {
      print "<INPUT TYPE=IMAGE SRC=$button_online border=0>\n";
    }
  } else {
    print "<INPUT TYPE=SUBMIT VALUE=\"ON-LINE\">\n";
  }

  print qq(
</form>
<td bgcolor=$Table_Entry_Color>On-line through a unsecure web connection.  Choose this
if your browser does not support SSL. Your creditcard information will be
gathered and sent using two different packet transmission for increased
security.
</td></tr>
);
}

if (!$no_offline) {
  print qq(
<tr><td bgcolor=$Table_Header_Color valign=middle align=center>
<form method=post action=$script_url>
<input type=hidden name=merchant value=$post_query{'merchant'}>
<input type=hidden name=action value=place2>
<input type=hidden name=processing value=fax>
);
  if ($button_offline) {
    if ($post_query{'processing'} eq "secure") {
      if ($button_clear =~ m/https:/) {
        print "<INPUT TYPE=IMAGE SRC=$button_offline border=0>\n";
      } else {
        print "<INPUT TYPE=SUBMIT VALUE=\"OFF-LINE\">\n";
      }
    } else {
      print "<INPUT TYPE=IMAGE SRC=$button_offline border=0>\n";
    }
  } else {
    print "<INPUT TYPE=SUBMIT VALUE=\"OFF-LINE\">\n";
  }

  print qq(
</form>
</td>
<td bgcolor=$Table_Entry_Color>Postal mail, telephone or fax ordering</td>
</tr>
);
}

print qq(
</table>
</center>
);
&footer;
}

# End sub place
#----------------------------------------------------------------------#

sub place2 {

# Goto routine to transfer order over to new server
if ($secure_domain && $post_query{'processing'} eq "secure" && $action ne 
"recalc") {
  &transfer_order;
}



if (-s $order_file) {
  print "<CENTER><h1>Check Out</h1></CENTER>\n";
} else {
     print "<h1>Error Trying to Place Order</h1>";
     print "You haven't ordered anything yet!\n";
     # print "Can't open $order_file";
     &return_page;
     exit;
}


&show_order;


if ($min_total && $order_total < $min_total) {

print qq[
<p>
<center>
<table><tr align=left><td>
<input type=hidden name=merchant value=$post_query{'merchant'}>
<INPUT TYPE=HIDDEN NAME="last" VALUE="place">
<INPUT TYPE=HIDDEN NAME="action" VALUE="recalc">
<INPUT TYPE=SUBMIT VALUE="Update Quantities">
</FORM>
</td>
<td>
<FORM METHOD=POST ACTION=$script_url>
<input type=hidden name=merchant value=$post_query{'merchant'}>
<INPUT TYPE=HIDDEN NAME="action" VALUE="clear">
<INPUT TYPE=SUBMIT VALUE="Clear Order">
</FORM>
</td>
];
# Prints a link to last page visited if available
if ($post_query{'page_name'}) {
  $script_return = $post_query{'page_name'};
} else {
  $script_return = $home_page;
}
print qq[
<td align=left>
<FORM METHOD=GET ACTION=$script_return>\n
<INPUT TYPE=SUBMIT VALUE="Continue Shopping">
</FORM>
</td>
</tr></table></center><p>

<p>
<center>
<table width=$Table_width bgcolor=$Table_Body_Color cellspacing=0 cellpadding=10 border=1> 
<tr align=left>
<td>
];
print "I'm sorry but the minimum order for $company is "; 
if ($no_decimal) {
  printf "<td align=right>%5.0f.", $min_total;
} else {
  printf "<td align=right>%5.2f.", $min_total;
}

print "If you would like to order from $company, please add more items.";
print qq[</td>
</tr>
</table>
</center>
<p>
];
&print_links;
&footer;
exit;
}



&load_countries;

print qq(
<center>
<table width=$Table_width><tr align=left>
<td>
To change the quantity, enter the quantity above and resubmit with 
this button.  Enter <b>0</b> in the quantity box to remove an item 
from your order.
</td>
<td align=left>
<input type=hidden name=merchant value=$post_query{'merchant'}>
<INPUT TYPE=HIDDEN NAME="last" VALUE="place">
<INPUT TYPE=HIDDEN NAME="action" VALUE="recalc">
);

if ($button_update) {
  if ($post_query{'processing'} eq "secure") {
    if ($button_update =~ m/https:/) {
      print "<INPUT TYPE=IMAGE SRC=$button_update border=0>\n";
    } else {
      print "<INPUT TYPE=SUBMIT VALUE=\"Update Quantities\">\n";
    }
  } else {
    print "<INPUT TYPE=IMAGE SRC=$button_update border=0>\n";
  } 
} else {
  print "<INPUT TYPE=SUBMIT VALUE=\"Update Quantities\">\n";
}

print qq(
</FORM>
</td></tr>

<tr align=left><td>
Press this button to clear your order.
</td><td>
<FORM METHOD=POST ACTION=$script_url>
<input type=hidden name=merchant value=$post_query{'merchant'}>
<INPUT TYPE=HIDDEN NAME="action" VALUE="clear">
);

if ($button_clear) {
  if ($post_query{'processing'} eq "secure") {
    if ($button_clear =~ m/https:/) {
      print "<INPUT TYPE=IMAGE SRC=$button_clear border=0>\n";
    } else {
      print "<INPUT TYPE=SUBMIT VALUE=\"Clear Order\">\n";
    }
  } else {
    print "<INPUT TYPE=IMAGE SRC=$button_clear border=0>\n";
  }
} else {
  print "<INPUT TYPE=SUBMIT VALUE=\"Clear Order\">\n";
}

print qq(
</FORM>
</td></tr>\n
</table><p>\n
<FORM METHOD=POST ACTION=$secure_url>\n
<input type=hidden name=merchant value=$post_query{'merchant'}>\n
);



print qq(
<table border=1 width="$Table_width" bgcolor="$Table_Body_Color">\n
<td>\n
<pre><b><u>Ship To:</u></b>\n</pre>
<pre>
              Name:<input name="orname" size=47 maxlength=256>\n
            Street:<input name="street" size=47 maxlength=256>\n
           Street2:<input name="street2" size=47 maxlength=256>\n
              City:<input name="city" size=47 maxlength=256>\n
);
if ($rstate) {
  print " State or Province:";
  print "<input type=text name=state size=3 maxlength=3>\n\n"; 
} elsif ($state_textbox == 1) {
  print " State or Province:"; 
  print "<input type=text name=state size=47 maxlength=256>\n\n";
} elsif ($state_textbox == 2) {
  # Don't print a state input field
} else {
  print qq( State or Province:<select name="state">
  <option value=NA>Not Applicable
  <option value=AL>Alabama
  <option value=AK>Alaska
  <option value=AZ>Arizona
  <option value=AR>Arkansas
  <option value=CA>California 
  <option value=CO>Colorado
  <option value=CT>Connecticut
  <option value=DE>Delaware
  <option value=DC>District of Columbia
  <option value=FL>Florida
  <option value=GA>Georgia
  <option value=HI>Hawaii
  <option value=ID>Idaho
  <option value=IL>Illinois
  <option value=IN>Indiana
  <option value=IA>Iowa
  <option value=KS>Kansas
  <option value=KY>Kentucky
  <option value=LA>Louisiana
  <option value=ME>Maine
  <option value=MD>Maryland
  <option value=MA>Massachusetts
  <option value=MI>Michigan
  <option value=MN>Minnesota
  <option value=MS>Mississippi
  <option value=MO>Missouri
  <option value=MT>Montana
  <option value=NE>Nebraska
  <option value=NV>Nevada
  <option value=NH>New Hampshire
  <option value=NJ>New Jersey
  <option value=NM>New Mexico
  <option value=NY>New York
  <option value=NC>North Carolina
  <option value=ND>North Dakota
  <option value=OH>Ohio
  <option value=OK>Oklahoma
  <option value=OR>Oregon
  <option value=PA>Pennsylvania
  <option value=RI>Rhode Island
  <option value=SC>South Carolina
  <option value=SD>South Dakota
  <option value=TN>Tennessee
  <option value=TX>Texas
  <option value=UT>Utah 
  <option value=VT>Vermont
  <option value=VA>Virginia
  <option value=WA>Washington
  <option value=WV>West Virginia
  <option value=WI>Wisconsin
  <option value=WY>Wyoming
  <option value=AB>Alberta
  <option value=BC>British Columbia
  <option value=MB>Manitoba
  <option value=NB>New Brunswick
  <option value=NF>Newfoundland
  <option value=NT>NWT
  <option value=NS>Nova Scotia