I wrote a script to search order data in Agora system, and I would like to share it for everyone to use. Don't know where to put it so just paste it here.
You should be able to put it right under the protected/ directory, and it should work fine.
I have modify some required order fields in my agora system, so not sure if my are still the same with the standard agora, but they should be easy to modify.
The filename I named this script is "search_orders-ext_lib.pl"
Code:
#/usr/local/bin/perl -T$versions{'search_orders'} = "20060309";
{
local ($modname) = 'search_orders';
®ister_extension($modname,"Search",$versions{$modname});
&add_settings_choice("Search Orders"," Search Orders ",
"SearchOrders");
®ister_menu('SearchInput',"display_search_result",
$modname,"Search Result");
®ister_menu('SearchOrders',"search_Orders",
$modname,"Search from Order Logfiles");
&add_item_to_manager_menu("Search Orders","SearchOrders=yes","");
}
############################################################
sub display_search_result
{
&ReadParse;
$sc_cn_name = "";
$sc_cn_street_addr="";
$sc_cn_city_addr="";
$sc_cn_postalcode="蝔嶜";
$sc_cn_email="?";
$sc_cn_phone="";
$sc_cn_order_num="?嶜朅";
$of_dir='./log_files';
$inorder = 0;
$i = 0;
$j = 0;
foreach $file (@arr = <$of_dir/littlewonders.log*>) {
open F, "$file" or die "can't open $file\n";
while(<F>) {
if (/^\*-\*-\*-/) {
$inorder = 1;
}
if ( $inorder ) {
$orders{$i}[$j++] = $_;
if (/\Q$sc_cn_name\E:\s+(.+)$/) {
$save = $1;
$cust_data{$i}{NAME}=$save;
if ($1 =~ /\Q$in{'Search_Full_Name'}\E/) {
$checked_keys{$i}=1;
}
}
if ( /\Q$sc_cn_email\E:\s+(.+)$/ ) {
$save = $1;
$cust_data{$i}{EMAIL}=$save;
if ($1 =~ /\Q$in{'Search_Email_Address'}\E/i) {
$checked_keys{$i}=1;
}
}
if ( /\Q$sc_cn_order_num\E:\s+(.+)$/ ) {
$save = $1;
$cust_data{$i}{ORDERNO}=$save;
if ($1 == $in{'Search_Order_Number'}) {
$checked_keys{$i}=1;
}
}
if ( /\Q$sc_cn_phone\E:\s+(.+)$/ ) {
$save = $1;
$cust_data{$i}{TELNO}=$save;
$save =~ s/\D//g;
$clean = $in{'Search_Phone_Number'};
$clean =~ s/\D//g;
if ($save =~ /\Q$clean\E/) {
$checked_keys{$i}=1;
}
}
$cust_data{$i}{ADDRCITY}=$1 if /\Q$sc_cn_city_addr\E:\s+(.+)$/;
$cust_data{$i}{ADDRSTREET}=$1 if /\Q$sc_cn_street_addr\E:\s+(.+)$/;
$cust_data{$i}{POSTAL}=$1 if /\Q$sc_cn_postalcode\E:\s+(.+)$/;
}
if (/^-\*-\*-\*/) {
$inorder= 0;
$j= 0;
$i++;
}
}
close F;
}
print &$manager_page_header("Search Data from Orders","","","","");
print "<center><table width=600 BORDER=1 CELLPADDING=0><tr><td>";
if ($in{'Show_Details'} =~ /yes/i) {
foreach $key (sort keys %checked_keys) {
foreach $line (@{$orders{$key}}) {
print "<a>$line</a><br>";
}
}
} else {
foreach $key (sort keys %checked_keys) {
print "<a>", "-" x 118, "</a><br>";
print "<a>$sc_cn_order_num: $cust_data{$key}{ORDERNO} $orders{$key}[1]</a><br>";
print "<a>", "-" x 118, "</a><br>";
print "<a>$sc_cn_name: $cust_data{$key}{NAME}</a><br>";
print "<a>$sc_cn_email: $cust_data{$key}{EMAIL}</a><br>";
print "<a>$sc_cn_phone: $cust_data{$key}{TELNO}</a><br>";
print "<a>$sc_cn_postalcode: $cust_data{$key}{POSTAL}</a><br>";
print "<a>$sc_cn_street_addr: $cust_data{$key}{ADDRCITY}";
print "$cust_data{$key}{ADDRSTREET}</a><br>";
}
}
print "</td></tr></table></center>";
print &$manager_page_footer;
}
#########################################################################
sub search_Orders
{
print &$manager_page_header("Search Data from Orders","","","","");
print <<ENDOFTEXT;
<FORM METHOD="POST" ACTION="manager.cgi">
<CENTER>
<TABLE WIDTH="600" BORDER="0" CELLPADDING="0">
<TR>
<TD COLSPAN="2"><FONT SIZE="-1"><hr></FONT></TD>
</TR>
<TR BGCOLOR="#EFEFEF">
<TD COLSPAN="2"><font size="+1">Search Customer Database:</font></TD>
</TR>
<TR>
<TD COLSPAN="2"><FONT SIZE="-1"><hr></FONT></TD>
</TR>
<TR>
<TD WIDTH="150"> Name:</TD>
<TD WIDTH="450"><INPUT TYPE="text"
NAME="Search_Full_Name"
VALUE=""
SIZE="30" MAXLENGTH="30"></TD>
</TR>
<TR>
<TD WIDTH="150"> Phone #:</TD>
<TD WIDTH="450"><INPUT TYPE="text"
NAME="Search_Phone_Number"
VALUE=""
SIZE="30">
</TR>
<TR>
<TD WIDTH="150"> Email addr:</TD>
<TD WIDTH="450"><INPUT TYPE="text"
NAME="Search_Email_Address"
VALUE=""
SIZE="60"></TD>
</TR>
<TR>
<TD WIDTH="150"> Order #:</TD>
<TD WIDTH="450"><INPUT TYPE="text"
NAME="Search_Order_Number"
VALUE=""
SIZE="10" MAXLENGTH="10"></TD>
</TR>
<TR>
<TD> </TD>
<TD><input type="checkbox" name="Show_Details" value="YES">Show Order Details</TD>
</TR>
<TR>
<TD COLSPAN="2"><FONT SIZE="-1"><hr></FONT></TD>
</TR>
</TABLE>
</CENTER>
<CENTER>
<FONT FACE=Verdana SIZE=2>
<P>
<INPUT TYPE=submit NAME = "SearchInput" VALUE = " Search ">
<BR>
</CENTER>
</FORM>
ENDOFTEXT
print &$manager_page_footer;
}
############################################################
1; #We are a library
