📄 getorder.pl

📁 CyberCart Pro Internet Commerce System 3.042 很好的商业购物程序.Good Shopping Cart, Can be used for Multipl
💻 PL
📖 第 1 页 / 共 2 页
字号:
上一页 12
print qq(
<head>
<script language="JavaScript">
  function confirmDelete(formObj) {
    var deleteStr = "Are you sure you wish to delete order " + formObj.order.value + "?"
    return confirm(deleteStr);
  }

  function GetStatus (formObj) {
    var promptStr = "Change status of order \#" + formObj.order.value + " to:"
    ans = prompt(promptStr,"");
    if (ans == null || ans.length == 0) return false;
    else {
    formObj.status.value = ans;
    return true;
    }
  }
</script>
</head>);

print "<body bgcolor=ffffff>";
print "<table cellspacing=0 cellpadding=10 border=1 bgcolor=C9CFF8 width=580>"; 
print "<tr><td align=center valign=top colspan=6>";
print "<h2>Current Orders for $userid</h2>";
print "</td></tr>";
print "<tr align=left><th>Order</th><th>Name</th>";
print "<th>Received</th><th>Status</th><th colspan=2 align=center>Order
Options</th>"; 
print "</tr>\n"; 
#foreach $a (@orders) {
foreach $a (@sortedage) {
 if ($a !~ m/log/ && $a !~ m/^\./ && $a =~ m/\.order/) {
 ($odn,$gar) = split(/\./,$a);
 ($status, $date_rec, $nm) = &get_status($odn);
 if (!$nm) {$nm = "<br>"; }
 print "<tr bgcolor=FFFFE1><td>";
 
 # This line may need to be changed depending on how path info is sent.
 # The info in $a should be passed as path info
 print "<a href=\"$script_url/$a\">$odn</a>\n";

 print "</td><td align=left>$nm</td>";
 print "<td align=center>$date_rec</td><td>$status</td>";
 print qq(
<td><form method=POST action=$script_url onSubmit="return GetStatus(this)">
<input type=hidden name=order value=$odn>
<input type=hidden name=status value="">
<input type=hidden name=action value=changestatus>
<input type=hidden name=last value=list>
<input type=submit value="Status">
</form>
</td><td>
<form method=POST
action="$script_url"
onSubmit="return confirmDelete(this)">
<input type=hidden name=action value=delete>
<input type=hidden name=order value=$odn>
<input type=submit value="Delete">
</form>
</td>
</tr>);
}
}
print qq(
<tr><td bgcolor=C9CFF8 align=center colspan=6>
<form method=post action=$script_url>
<input type=hidden name=action value=menu>
<input type=submit value="Return to Main Menu">
);
print "</table><br>\n";
&footer;
exit;
}
# End sub list
#----------------------------------------------------------


sub list_button {
print qq(
<form method=POST
action="$script_url">
<input type=hidden name=action value=list>
<input type=submit value="List Orders">
</form>
);
}
# End sub list_button
#----------------------------------------------------------
sub logon {

 open(DATA, "$user_file");
 while (<DATA>) {
  chop;
  ($u,$p) = split(/:/,$_);
  
  if ($post_query{'user'} =~ m/$u/) {
    if (crypt($post_query{'pwd'}, $p) eq $p) {
      # ok
      $useridnum = $post_query{'user'} . "_" . $$;
      print "Set-Cookie: USER=$useridnum; \r\n";
      # put process id in file - add lock later
      open(VERIFY, ">>$current");
      $info = $post_query{'user'} . "_" . $$;
      print (VERIFY "$info\n");
      close(VERIFY);
      $cookies{'USER'} = $post_query{'user'};
      $cookies{'SESSION'} = $$;
      $found = 1;
      $userid = $post_query{'user'};
      last;
    } else {
      &header;
      print "User password invalid.\n";
      print "</body></html>";
      exit;
    }
  }
 }
 if (!$found) {
  &header;
  print "User name not found.\n";
  print "</body></html>";
  exit;
 }


}
# End sub logon
#----------------------------------------------------------------

sub menu {
print qq(
<body bgcolor=ffffff>
<table cellpadding=10 cellspacing=0 border=1 bgcolor=C9CFF8 width=580>
<tr><td colspan=2 valign=top align=center>
<h2>Administrative Account for $userid</h2></td></tr> 
<tr><td valign=top>
<form method=POST 
action="$script_url">
Please select action:</td>
<td bgcolor=ffffe1 valign=top>
<select name=action>
);

print qq(
<option value=list>List Current Orders
<option value=summary>Summary of Orders
<option value=itemlog>Item Log
<option value=add_ref_form>Add Referrer
);

print qq(
</select>
<input type=submit value="Submit">
</form>
</td></tr></table>
);
&footer;
}
# End sub menu
#---------------------------------------------------------


sub show_order {
if ($ENV{'PATH_INFO'}) {
  $cur_order = $home_dir . $userid . "/Data" . $ENV{'PATH_INFO'};
  ($order_num,$gar) = split(/\./,$ENV{'PATH_INFO'});
  $order_num =~ s/\///;
} else {
  $cur_order = $home_dir . $userid . "\\Data\\" . $order_num . "\.order";
}
($status, $date_rec, $nm) = &get_status($order_num);
chop ($status);
open (ORDER, "$cur_order") || print "Cant open $cur_order!";
print qq(
<head><title>Order $ENV{'PATH_INFO'}</title>
<SCRIPT LANGUAGE="JavaScript">
<!--
  function confirmDelete() {
    return confirm('Are you sure you wish to Delete this order?');
  }
  function changeStatus() {
    change = window.open("","change","width=450,height=175")
    change.document.write("<html><body bgcolor=ffffff>")
    change.document.write("Order Number: $order_num<br>")
    change.document.write("Current Status: $status<br>")
    change.document.write("<form method=POST action='$script_url';onSubmit='window.close()'; target='_parent'>")
    change.document.write("Change Status To: ")
    change.document.write("<input type=text name=newstatus size=40 maxsize=100>")
    change.document.write("<input type=hidden name=action value='changestatus'>") 
    change.document.write("<input type=hidden name=order value=$order_num>")
    change.document.write("<center>")
    change.document.write("<br><input type=submit value='Change Status'>")
    change.document.write("</center>")
    change.document.write("</form></body></html>")
  }

  function GetStatus (formObj) {
    var order = $order_num
    var promptStr = "Change status of order \#" + order + " to:"
    ans = prompt(promptStr,"");
    if (ans == null || ans.length == 0) return false;
    else {
    formObj.status.value = ans;
    return true;
    }
  }
// end hiding -->
</SCRIPT>
</HEAD>
<Body bgcolor=ffffff>
);

print qq(
<table cellpadding=10 cellspacing=0 border=1 bgcolor=C9CFF8>
<tr><td colspan=3 align=center>
<h2>Order Number $order_num</h2>
</td></tr>
<tr><td colspan=3 bgcolor=ffffe1>
<pre>
Current Status: $status
);

#print "<pre>\n";
while (<ORDER>) {
  print "$_";
}
print "</pre>\n";
close(ORDER);
print qq(
</td></tr>
<tr align=center valign=center><td>
<form method=POST action=$script_url onSubmit="return GetStatus(this)">
<input type=hidden name=status value="">
<input type=hidden name=order value="$order_num">
<input type=hidden name=action value=changestatus>
<input type=submit value="Change Status">
</form>
</td><td>
<form method=POST
action="$script_url"
onSubmit="return confirmDelete()">
<input type=hidden name=action value=delete>
<input type=hidden name=order value="$order_num">
<input type=submit value="Delete Order">
</form>
</td>
<td>
<form method=POST
action="$script_url">
<input type=hidden name=action value=list>
<input type=submit value="List Orders">
</form>
</td></tr>
</table>
);

 exit;
}
# End sub show_order
#----------------------------------------------------------------

sub verify {

open(CUR, "$current");
while (<CUR>) {
  chop;
  if ($_ eq $cookies{'USER'}) {
    $verified = 1;
    ($userid,$gar) = split(/_/,$cookies{'USER'});
    last;
  }
}
if (!$verified) {
  print "User not verified!";
  exit;
}
}
# End sub verify
#------------------------------------------------------

sub itemlog {
 $logfile = $home_dir . "$userid\\Logs\\item.log";
  open(LOGFILE, $logfile) || &error("cant open $logfile!");
  while(<LOGFILE>) {
    ($code, $amount, $total) = split(/\|/, $_);
    $ittot{$code} += $total;
    $ittotal += $total;
    $itcount{$code} += $amount;
  }
  print "<CENTER><H1>Item Ordering</H1></CENTER>\n";
  print "<TABLE BORDER=0 WIDTH=600>\n";
  print "<TR><TH ALIGN=CENTER VALIGN=TOP WIDTH=25>\#</TH>";
  print "<TH ALIGN=LEFT WIDTH=75>Code</TH>";
  print "<TH ALIGN=LEFT WIDTH=150>Name</TH>";
  print "<TH ALIGN=LEFT WIDTH=75>Prop1</TH>";
  print "<TH ALIGN=LEFT WIDTH=75>Prop2</TH>";
  print "<TH ALIGN=LEFT WIDTH=75>Prop3</TH>";
  print "<TH ALIGN=RIGHT WIDTH=50>Total</TH>\n";
  print "<TR><TD COLSPAN=7><HR></TD></TR>\n";
  #sort by number of hits
   sub numerically {$itcount{$b}<=>$itcount{$a};}  

  # @words3 = keys %itcount;
  @sorted_list3 = sort numerically keys(%itcount);

  #loop through sorted list
  # foreach $target (keys %itcount) {
  foreach $target (@sorted_list3) {  
    if ($itcount{$target} > 0) {
      ($code,$name,$prop1,$prop2,$prop3) = split(/:/,$target);
      printf ("<TR><TD ALIGN=CENTER>%d</TD><TD ALIGN=LEFT>%s</TD>",
      $itcount{$target}, $code);
      # printf ("<TD ALIGN=LEFT>%s</TD></TR>\n", $iname{$code});
      print "<TD ALIGN=LEFT>$name<BR></TD>\n";
      print "<TD ALIGN=LEFT>$prop1<BR></TD>\n";
      print "<TD ALIGN=LEFT>$prop2<BR></TD>\n";
      print "<TD ALIGN=LEFT>$prop3<BR></TD>\n";
      printf ("<TD ALIGN=RIGHT>\$%5.2f</TD><TR>\n", $ittot{$target});
    }
  }
  print "<TR><TD COLSPAN=7><HR></TD></TR>\n";
  printf "<TR><TD COLSPAN=7 ALIGN=RIGHT>\$%5.2f</TD></TR>\n", $ittotal;
  print "</TABLE>";
  print "<p><a href=$script_url>Return to Main Menu</a><p>";
  print "</BODY></HTML>\n";
}     


sub add_referrer_form {

print qq[
<h1>Add Referrer</h1>
Enter the referrer's id, email address, and password (not required).  These 
will be added to the referrer_list at $referrer_list.<p>
<form method=$post action=$script_url>
<input type=hidden name=merchant>
<input type=hidden name=action value=add_referrer>
<table>
<tr valign=top>
  <th align=right>Referrer ID (no spaces):</th>
  <td align=left><input type=text name=ref_name size=20 maxsize=20></td>
</tr>
<tr align=right valign=top>
  <th align=right>Email Address:</th>
  <td align=left><input type=text name=ref_email size=40 maxsize=80></td>
</tr>
<tr align=right valign=top>
  <th align=right>Password (optional):</th>
  <td align=left><input type=text name=ref_pass size=40 maxsize=10></td>
</tr>
</table>
<input type=submit value="Add Referrer">
</form>
<p>
<a href=$script_url>Return to Main Menu</a>
];
&footer;
exit;
}

sub add_referrer {
if (-s $referrer_list) {
open(REF, "<$referrer_list") || &error("Cant open referrer_list at $referrer_list");
while(<REF>) {
  chop;
  ($rn,$rm,$rp) = split(/:/);
  if ($post_query{'ref_name'} eq $rn) {
    $found = 1;
    last;
  } 
}
close(REF);
}

if ($found) {
  print qq[
<h1>Referrer Name Found</h1>
The referrer name $post_query{'ref_name'} is already in the referrer_list.<br>
The values for the current referrer $post_query{'ref_name'} are:<br>
Referrer ID: $rn<br>
Email Address: $rm<br>
Password: $rp<p>
Please use the back button and choose another Referrer ID.
<p><a href=$script_url>Return to Main Menu</a><p>
];

  &footer;
} else {
  open(REF, ">>$referrer_list") || &error("Cant open referrer_list at $referrer_list");
  print REF "$post_query{'ref_name'}:$post_query{'ref_email'}";
  if ($post_query{'ref_pass'}) {
    print REF ":$post_query{'ref_pass'}";
  }
  print REF "\n";
  close(REF);
  print qq[
  <h1>Referrer Added</h1>
  The referrer $post_query{'ref_name'} has been added to $referrer_list.<p>
  <a href=$script_url>Return to Main Menu</a><p>
  ];
  &footer;
} 
exit;
}
上一页 12
💿 文件大小 375 K
👤 上传用户 zhiver
📂 所属分类 *行业应用
🏷️ 相关标签

#CyberCart #Commerce #Internet #Shopping
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -