#!/usr/bin/perl ################################################################################ # # PROGRAM: Admin.pl - from closedShop - Open Shopping Cart # # RCSID: $Id$ # # DESCRIPTION: Admininstration for shopping cart # # INPUTS: user input from the web, relational database (mSQL), filesystem # # OUTPUTS: web output, relational database (mSQL) # # SPECIAL NOTES: # ################################################################################ # # MODIFICATION HISTORY # # 2001-05-03 cbf Created # 2001-06-07 cbf Added attributes to products # 2001-06-09 cbf Added a field for product id specified by merchant # 2001-06-11 cbf Removed image file if file was not uploaded # 2001-06-20 cbf Added ability to change program variables # 2001-06-22 cbf Added ability to change filenames # 2001-06-24 cbf When displaying order, filename wasn't correct on a link # 2001-07-24 cbf Mailprogram can be customized # 2001-08-05 cbf Attributes weren't showing in admin screen # All input is validated # 2001-08-12 cbf Added instructions about "processing orders" # 2001-09-08 cbf Added SecureImageURL variable use # 2001-09-13 cbf Made Edit/Delete list be sorted by category, put edit # button next to each item, to reduce scroll time # 2001-09-17 cbf Let admin remove customers from cust. list # 2001-09-18 cbf Let admin email all customers a la mail program # 2001-09-27 dsb Change variables takes account of Merchant/Admin uname # 2001-10-18 cbf Added database location # 2002-01-20 cbf Each category now has variables to be edited # 2002-01-29 cbf Rudimentary Download Order History Log # 2002-02-11 cbf Let categories be public or private # 2002-05-12 cbf Added minimum order amount, added continue shopping vars, # final return vars # 2002-05-12 cbf Removed extra space from customer section # 2003-01-06 cbf Added Item list to Download order history log # 2003-02-27 cbf Added Show shipping prices option # 2003-03-01 cbf Added Important links back, it went away somehow # 2003-04-01 cbf Added currency marker, different taxing # Added new taxing options (state,national,internat) # 2003-04-02 cbf Added gift certificates, country listings, pay by check # 2003-07-10 cbf Added ip address for orders # 2003-07-11 cbf Added mySQL data backup # 2003-08-23 cbf Added Ebay Possibilities # 2003-08-23 cbf Added access to Admin page restrict to IP # 2003-08-25 cbf Added importing capabilities # 2003-08-25 cbf Added different language support # 2003-10-17 cbf Added Template support for Items and Category # 2004-02-18 cbf Fixed annoying category problem where the cat doesn't show ################################################################################ use CGI::Carp(fatalsToBrowser); use closedShop; use strict; use CGI; use DBI; use Fcntl ':flock'; closedShop::Initialize(); ############################################################################### ## PROGRAM SPECIFIC VARS ## my $query = new CGI; my $program_name = "$closedShop::FileNames{admin}"; my %actions = (AddProduct => $closedShop::TEXT{'ADD_PROD'}, EditProduct => "$closedShop::TEXT{'EDIT'} $closedShop::TEXT{'PROD'}", DeleteProduct => $closedShop::TEXT{'DEL_PROD'}, ViewOrders => $closedShop::TEXT{'VIEW_PROC'}, ViewCustomers => $closedShop::TEXT{'VIEW_CUST'}, AdminScreen => $closedShop::TEXT{'ADMIN_PAN'}, ChangeVariables => $closedShop::TEXT{'ED_PROG'}, EditCategories => "$closedShop::TEXT{'EDIT'} $closedShop::TEXT{'CAT'}", DownloadOrder => $closedShop::TEXT{'DL_HIS'}, ViewLinks => $closedShop::TEXT{'VIEW_LNK'}, GiftCertificate => $closedShop::TEXT{'GC_MNG'}, BackupSQL => $closedShop::TEXT{'BK_SQL'}, ImportProducts => $closedShop::TEXT{'IMPORT'}, PrintEbaySubCategory => "Print Ebay Sub Categories" ); ################################################################################ Main(); closedShop::Cleanup(); ################################################################################ # FUNCTION: Main # DESCRIPTION: Find out what the user wants to do and execute the appropriate # sub routine ################################################################################ # MODIFICATION HISTORY # 2000-07-25 cbf Created subroutine ################################################################################ sub Main { my $action = $query->param('action'); $action = "cs" if (!defined($action)); my $IP = $closedShop::IPAccess; if ($IP) { if ($ENV{'REMOTE_ADDR'} ne $IP && $ENV{'REMOTE_HOST'} !~ /$IP/) { return closedShop::ErrorMessage("$closedShop::TEXT{'NO_IP'} $ENV{'REMOTE_ADDR'}"); } } if ($action eq "Login") { Login(); } elsif ($actions{$action} eq "") { my ($session,$uid) = closedShop::GetSessionCookie(); if (closedShop::Authenticate($session,"admin")) { AdminScreen(); } else { LoginScreen($closedShop::TEXT{'PLS_LOGIN'}); } } else { my ($session,$uid) = closedShop::GetSessionCookie(); if (!closedShop::Authenticate($session,"admin")) { return LoginScreen($closedShop::TEXT{'IMPROP_LOGIN'}); } else { eval ($action); } } } ############################################################################### # FUNCTION: ImportProducts # DESCRIPTION: imports a list of products ################################################################################ # MODIFICATION HISTORY # 2000-07-24 cbf Created ############################################################################## sub ImportProducts { my $excelmesg = $closedShop::TEXT{'EXCEL_MESG'}; if ($query->param("selected") == 1) { my $category = $query->param("category"); my $file = $query->param("file"); my @data = (); if ($file) { while (<$file>) { push @data,$_; } } my @file = split(/\./,$file); my $numcount = 0; if ($file[$#file] =~ /xls/) { eval("use Spreadsheet::ParseExcel"); if ($@) { return AdminScreen($excelmesg); } else { open(FILE,">tmplist.xls"); print FILE @data; close(FILE); #use Spreadsheet::ParseExcel; my $oBook = Spreadsheet::ParseExcel::Workbook->Parse('tmplist.xls'); my($iR, $iC, $oWkS, $oWkC); foreach my $oWkS (@{$oBook->{Worksheet}}) { for(my $iR = $oWkS->{MinRow}+1 ; defined $oWkS->{MaxRow} && $iR <= $oWkS->{MaxRow} ; $iR++) { my $SQL= qq| insert into $closedShop::sql_tables{"item"} set category="$category",|; my $j = 0; for(my $iC = $oWkS->{MinCol} ; defined $oWkS->{MaxCol} && $iC <= $oWkS->{MaxCol} ; $iC++) { $oWkC = $oWkS->{Cells}[$iR][$iC]; my $field = $oWkS->{Cells}[$oWkS->{MinRow}][$iC]; $SQL .= $field->Value . qq|="| . $oWkC->Value . qq|"|; if ($j != $oWkS->{MaxCol}) { $SQL .= qq|,|; } $j++; } my $sth = closedShop::DatabaseQuery($SQL); $numcount++; } } } } else { my @fieldlist = split(/\",\"/,$data[0]); for (my $k = 1; $k < @data; $k++) { chomp($data[$k]); if (!$data[$k]) { next; } my @list = split(/\",\"/,$data[$k]); my $SQL= qq| insert into $closedShop::sql_tables{"item"} set category="$category",|; for (my $j = 0; $j < @fieldlist; $j++) { $fieldlist[$j] =~ s/"//g; $list[$j] =~ s/"//g; $SQL .= qq|$fieldlist[$j]="$list[$j]"|; if ($j != $#fieldlist) { $SQL .= qq|,|; } } $numcount++; my $sth = closedShop::DatabaseQuery($SQL); } } return AdminScreen($closedShop::TEXT{'DONE_IM'} . $numcount); } else { closedShop::Header(); print qq|
$closedShop::TEXT{'IMPORT'}
$closedShop::TEXT{'SELECT'} $closedShop::TEXT{'CAT'}: |; closedShop::PrintCategoryList("category",0,"ALL"); print qq|
$closedShop::TEXT{'CH_FILE'}:
$closedShop::TEXT{'SEE_IN'}
$closedShop::TEXT{'IMP_IN1'}
"name","description","product_code","price","shipping_price"

"Green Widgets","This is a green widget","GW123","32.50","2.00"

"Blue Widgets","This is a blue widget","BW123","10.50",""


$closedShop::TEXT{'IMP_IN2'}

 
|; closedShop::Footer(); } } ############################################################################### # FUNCTION: PrintEbaySubCategory # DESCRIPTION: prints teh ebay sub cat ################################################################################ # MODIFICATION HISTORY # 2000-07-24 cbf Created ############################################################################## sub PrintEbaySubCategory { my $main = $query->param("main"); my $sub1 = $query->param("sub1"); if (!$sub1) { $sub1 = -1; } my $sub2 = $query->param("sub2"); if (!$sub2) { $sub2 = -1; } my $sub3 = $query->param("sub3"); if (!$sub3) { $sub3 = -1; } my $sub4 = $query->param("sub4"); if (!$sub4) { $sub4 = -1; } my $sub5 = $query->param("sub5"); if (!$sub5) { $sub5 = -1; } my $SQL = qq|select name from $closedShop::sql_tables{"ebay"} where id="$main"|; my $sth = closedShop::DatabaseQuery($SQL); my ($mname) = $sth->fetchrow_array(); print $closedShop::HTML_HEADER; print qq| |; closedShop::WriteStyleSheets(); print qq|
$closedShop::TEXT{'SELECT'} $closedShop::TEXT{'SUBCAT'} for
$mname
Sub-Category 1: |; closedShop::PrintEbaySubCat("sub1",$sub1,$main); print qq|
Sub-Category 2:|; closedShop::PrintEbaySubCat("sub2",$sub2,$sub1); print qq|
Sub-Category 3:|; closedShop::PrintEbaySubCat("sub3",$sub3,$sub2); print qq|
Sub-Category 4:|; closedShop::PrintEbaySubCat("sub4",$sub4,$sub3); print qq|
Sub-Category 5:|; closedShop::PrintEbaySubCat("sub5",$sub5,$sub4); print qq|

|; } ############################################################################### # FUNCTION: BackupSQL # DESCRIPTION: backup SQL database ################################################################################ # MODIFICATION HISTORY # 2000-07-24 cbf Created ############################################################################## sub BackupSQL { if ($query->param("selected") == 1) { my $file = $query->param("file"); open(FILE,">$file") || closedShop::ErrorMessage("can't open $file"); my $run = "mysqldump -u$closedShop::DatabaseUsername -p$closedShop::DatabasePassword --databases $closedShop::DatabaseName > $file"; $run = `$run`; return AdminScreen("$closedShop::TEXT{'BCK_MESG'}
" . `pwd` . "/$file"); } else { closedShop::Header(); print qq|
$closedShop::TEXT{'BK_SQL'}
$closedShop::TEXT{'BKSQL_MESG'}
|; closedShop::Footer(); } } ############################################################################### # FUNCTION: GiftCertificate # DESCRIPTION: gift certificate management ################################################################################ # MODIFICATION HISTORY # 2000-07-24 cbf Created ############################################################################## sub GiftCertificate { if ($query->param("selected") eq "Denomination") { my @denom = $query->param("denom"); my $d = join("~",@denom); open(FILE,">$closedShop::gcfile"); flock(FILE,LOCK_EX); print FILE $d; flock(FILE,LOCK_UN); close(FILE); return AdminScreen($closedShop::TEXT{'GC_UP'}); } elsif ($query->param("selected") eq "Enable") { my $id = closedShop::ValidateInput($query->param("id")); my $SQL = qq|update $closedShop::sql_tables{"gc"} set active="Y" where id="$id"|; my $sth = closedShop::DatabaseQuery($SQL); $query = new CGI({}); return GiftCertificate($closedShop::TEXT{'GC_EN'}); } else { my $mesg = $_[0]; closedShop::Header(); my @denoms = closedShop::GetGiftCertificateInfo(); my %marks = (); foreach (@denoms) { $marks{"$_"} = "checked"; } print qq| $mesg
$closedShop::TEXT{'GC_MNG'}
$closedShop::TEXT{'GC_MESG2'}
|; my $url = "$closedShop::FileNames{item}?action=ShowGiftCertificates"; if ($url !~ /^http/) { $url = $closedShop::urltofolder . $url; } print qq|$url
$closedShop::TEXT{'GC_MESG3'} $closedShop::CurrencyMarker 5.00
$closedShop::CurrencyMarker 10.00
$closedShop::CurrencyMarker 25.00
$closedShop::CurrencyMarker 50.00
$closedShop::CurrencyMarker 100.00
$closedShop::CurrencyMarker 200.00
$closedShop::CurrencyMarker 500.00
$closedShop::TEXT{'O_GC'} |; my $SQL = qq|select id,amount_left,initial_amount,customer_name,customer_id, DATE_FORMAT(date_bought,"%M %e %Y"),gc_code,active from $closedShop::sql_tables{"gc"} where closed != 'Y' order by date_bought ASC|; my $sth = closedShop::DatabaseQuery($SQL); my $k; for ($k = 1; my (@ary) = $sth->fetchrow_array(); $k++) { my $style = "#ffe4c4"; my $active = qq|$closedShop::TEXT{'ENABLE'} $closedShop::TEXT{'GC'}|; if ($ary[7] eq "Y") { $active = $closedShop::TEXT{'ACTI'}; } if ($k % 2) { $style = "#faebd7"; } print qq|
$k) $ary[3] ($closedShop::TEXT{'BO_ON'} $ary[5])
$closedShop::TEXT{'RM_BC'}: $closedShop::CurrencyMarker $ary[1] / $closedShop::CurrencyMarker $ary[2]
GC Code: $ary[6] - $active
|; } if ($k == 1) { print qq| $closedShop::TEXT{'NO_OGC'}|; } print qq|
 
|; closedShop::Footer(); } } ############################################################################### # FUNCTION: DownloadOrder # DESCRIPTION: download order log ################################################################################ # MODIFICATION HISTORY # 2000-07-24 cbf Created ############################################################################## sub DownloadOrder { print "Content-type: text/html \n\n"; my $SQL = qq| select id,DATE_FORMAT(date_bought,"%W, %M %d %Y"), total,b_name,b_address,b_city,b_state, b_zip,b_country,b_phone,s_name,s_address,s_city,s_state, s_zip,s_country,s_phone,cc_name,cc,cc_num,cc_month,cc_year,item_ids, ip_address from $closedShop::sql_tables{"order"} where complete="Y" order by date_bought |; my $sth = closedShop::DatabaseQuery($SQL); foreach (qw/ID Date_Bought Total Billing_Name Billing_Address Billing_City Billing_State Billing_Zip Billing_Country Billing_Phone Shipping_Name Shipping_Address Shipping_City Shipping_State Shipping_Zip Shipping_Country Shipping_Phone CC_Name Credit_Card CC_Number CC_Month CC_Year Items IP_Address/) { print qq|"$_",|; } print qq|"Count"
\n|; my $k = 1; while (my (@ary) = $sth->fetchrow_array()) { my $j = 0; foreach (@ary) { if ($j == 22) { my @items = split(/~/,$_); my $t = 1; print qq|"|; foreach my $its (@items) { my ($iid,$qty,$attr) = split(/\|/,$its); if ($iid eq "gc") { my ($id,$recipient_name,$recipient_email,$gc_amount) = split(/\|/,$its); print qq|Gift Certificate for $recipient_name for $closedShop::CurrencyMarker $gc_amount; |; } else { my $SQL2 = qq| select name,price,shipping_price,description, category,product_code from $closedShop::sql_tables{"item"} where id="$iid" |; my $sth2 = closedShop::DatabaseQuery($SQL2); my ($name,$price,$ship,$desc,$cat,$code) = $sth2->fetchrow_array(); my $total = sprintf("%.2f",$qty * ($price+$ship)); print qq|$name ($code) x $qty ($attr) ($closedShop::categories{$cat}) Total Cost: $closedShop::CurrencyMarker $total; |; } } print qq|",|; } else { print qq|"$_",|; } $j++; } print qq|"$k"
\n|; $k++; } } ############################################################################### # FUNCTION: EmailCustomers # DESCRIPTION: emails all customers ################################################################################ # MODIFICATION HISTORY # 2000-07-24 cbf Created ############################################################################## sub EmailCustomers { my ($subject,$body) = @_; my $k = 0; my $pid = fork(); if ($pid) { return; } else { close (STDOUT); my $SQL = qq| select email from $closedShop::sql_tables{"user"} where email != "" order by name|; my $sth = closedShop::DatabaseQuery($SQL); while (my ($em) = $sth->fetchrow_array()) { closedShop::SendEmail($em,$subject,$body); $k++; } } } ############################################################################### # FUNCTION: EditCategories # DESCRIPTION: add a product to database ################################################################################ # MODIFICATION HISTORY # 2000-07-24 cbf Created ############################################################################## sub EditCategories { if ($query->param("selected") eq "RemoveCategory") { if ($query->param("delete") eq "Y") { my $cat = closedShop::ValidateInput($query->param("category")); my $SQL = qq|select parent,children,id from $closedShop::sql_tables{"cat"} where code="$cat"|; my $sth = closedShop::DatabaseQuery($SQL); my ($pa,$ch,$id) = $sth->fetchrow_array(); my @child = split(/~/,$ch); foreach (@child) { if (!$_) { next; } $SQL = qq|update $closedShop::sql_tables{"cat"} set parent="$pa" where id="$_"|; $sth = closedShop::DatabaseQuery($SQL); } $SQL = qq|select children from $closedShop::sql_tables{"cat"} where id="$pa"|; $sth = closedShop::DatabaseQuery($SQL); my ($oldch) = $sth->fetchrow_array(); $oldch =~ s/~$id~//g; $oldch .= $ch; $SQL = qq|update $closedShop::sql_tables{"cat"} set children="$oldch" where id="$pa"|; $sth = closedShop::DatabaseQuery($SQL); $SQL = qq|delete from $closedShop::sql_tables{"cat"} where code = "$cat" |; $sth = closedShop::DatabaseQuery($SQL); $SQL = qq|delete from $closedShop::sql_tables{"item"} where category = "$cat" |; $sth = closedShop::DatabaseQuery($SQL); return AdminScreen($closedShop::TEXT{'SUCC_RMC'}); } return AdminScreen($closedShop::TEXT{'FAIL_RMC'}); } elsif ($query->param("selected") eq "AddSubCategory") { my $cat = $query->param("category"); my $sub = $query->param("subcat"); my $SQL = qq|select id,children from $closedShop::sql_tables{"cat"} where code = "$cat" |; my $sth = closedShop::DatabaseQuery($SQL); my ($parent,$children) = $sth->fetchrow_array(); my $code = closedShop::GetNewCategoryCode($sub); $SQL = qq|insert into $closedShop::sql_tables{"cat"} set name="$sub", parent="$parent",code="$code",status="PUBLIC",style="text"|; $sth = closedShop::DatabaseQuery($SQL); my $newid = $sth->{'mysql_insertid'}; $children .= "~$newid~"; $SQL = qq|update $closedShop::sql_tables{"cat"} set children="$children" where id ="$parent"|; $sth = closedShop::DatabaseQuery($SQL); return AdminScreen($closedShop::TEXT{'SUCC_ADDSUB'}); } elsif ($query->param("selected") == 1) { foreach (sort keys %closedShop::categories) { my $intro = closedShop::ValidateInput($query->param("intro_$_")); $intro =~ s/"/'/g; my $name = closedShop::ValidateInput($query->param("name_$_")); $name =~ s/"/'/g; my $style = closedShop::ValidateInput($query->param("style_$_")); $style =~ s/"/'/g; my $numimages = closedShop::ValidateInput($query->param("numimages_$_")); my $status = closedShop::ValidateInput($query->param("status_$_")); my $SQL = qq|update $closedShop::sql_tables{"cat"} set name="$name", intro="$intro",style="$style",numimages="$numimages",status="$status" where code="$_"|; my $sth = closedShop::DatabaseQuery($SQL); } return AdminScreen($closedShop::TEXT{'SUCC_EDC'}); } else { closedShop::Header(); print qq|$closedShop::TEXT{'JM_C'}: |; my $t = 0; foreach (sort keys %closedShop::categories) { print qq|$closedShop::categories{$_}|; if ($t % 3 == 2) { print "
"; } else { print " - "; } $t++; } print qq|
|; foreach (sort keys %closedShop::categories) { my ($intro,$style,$numimages,$status,$name,$child,$parent) = closedShop::GetCategoryInfo($_); my $SQL1 = qq|select name,code from $closedShop::sql_tables{"cat"} where id="$parent"|; my $sth1 = closedShop::DatabaseQuery($SQL1); my ($parent_name,$pcode) = $sth1->fetchrow_array(); my $checktext = ""; my $checkthumb = ""; my $checkprivate = ""; my $checkpublic = ""; if ($style eq "thumbnail") { $checkthumb = "checked"; } else { $checktext = "checked"; } if ($status eq "PRIVATE") { $checkprivate = "checked"; } else { $checkpublic = "checked"; } print qq| |; } print qq|
$closedShop::TEXT{'EDIT'} $closedShop::TEXT{'CAT'}
$closedShop::TEXT{'CAT'} $closedShop::TEXT{'NAME'}:

|; if ($parent_name) { print qq|$closedShop::TEXT{'PARENT'} $closedShop::TEXT{'CAT'}: $parent_name
|; } print qq| $closedShop::TEXT{'INT_TXT'}


$closedShop::TEXT{'CAT'} $closedShop::TEXT{'DSP_T'}
$closedShop::TEXT{'TXT_D'}     $closedShop::TEXT{'THM_D'}
$closedShop::TEXT{'NUM_THM'}:

$closedShop::TEXT{'CAT'} $closedShop::TEXT{'STAT'}
$closedShop::TEXT{'PUBV'}     $closedShop::TEXT{'PRIVH'}
 
$closedShop::TEXT{'ENT_SUB'}
$closedShop::TEXT{'SELECT'} $closedShop::TEXT{'CAT'}: |; closedShop::PrintCategoryList("category",0,"ALL"); print qq|
$closedShop::TEXT{'SUBCAT'} $closedShop::TEXT{'NAME'}:

$closedShop::TEXT{'REM'} $closedShop::TEXT{'CAT'}
$closedShop::TEXT{'SELECT'} $closedShop::TEXT{'CAT'}: |; closedShop::PrintCategoryList("category",0,"ALL"); print qq|
$closedShop::TEXT{'CNF_DELMESG'} $closedShop::TEXT{'YES'}
$closedShop::TEXT{'NO'}

|; closedShop::Footer(); } } ############################################################################### # FUNCTION: ViewCustomers # DESCRIPTION: add a product to database ################################################################################ # MODIFICATION HISTORY # 2000-07-24 cbf Created ############################################################################## sub ViewCustomers { my $mesg = ""; if ($query->param("selected") eq "RemoveCustomer") { my $id = $query->param("id"); my $SQL2 = qq| delete from $closedShop::sql_tables{"user"} where id = "$id" |; my $sth2 = closedShop::DatabaseQuery($SQL2); $mesg = qq|
$closedShop::TEXT{'RM_CUST'}

|; } elsif ($query->param("selected") eq "EmailCustomer") { my $subject = $query->param("subject"); my $body = $query->param("body"); EmailCustomers($subject,$body); $mesg = qq|
$closedShop::TEXT{'SUCCEM_CUST'}

|; } elsif ($query->param("selected") eq "EmailCustomerDisplay") { closedShop::Header(); print qq|
$closedShop::TEXT{'EM_CUST'}
$closedShop::TEXT{'SUBJECT'}
$closedShop::TEXT{'BODY'}
|; return closedShop::Footer(); } closedShop::Header(); print qq|$mesg |; my $SQL3 = qq| select name,email,address,city,state,country,zip,phone,id from $closedShop::sql_tables{"user"} where email != "" order by name|; my $sth3 = closedShop::DatabaseQuery($SQL3); my $k = 0; while (my ($name,$email,$address,$city, $state,$country,$zip,$phone,$id) = $sth3->fetchrow_array()) { print qq| |; my $SQL2 = qq| select sum(total) from $closedShop::sql_tables{"order"} where date_processed is NOT NULL and user_id = "$id"|; my $sth2 = closedShop::DatabaseQuery($SQL2); my ($sum) = $sth2->fetchrow_array(); if (!$sum) { $sum = "0.00"; } print qq||; $k++; } print qq|
$closedShop::TEXT{'VIEW_CUST'}
Name$closedShop::TEXT{'EMAIL'} $closedShop::TEXT{'ADDRESS'}/
$closedShop::TEXT{'PHONE'}		 $closedShop::TEXT{'TOT'} $closedShop::TEXT{'PURCHASE'} $closedShop::TEXT{'REM'}
$name
 $email $address
$city, $state $zip

$country
$phone		 $closedShop::CurrencyMarker $sum
$closedShop::TEXT{'TOT'} $closedShop::TEXT{'CUST'}: $k

|; closedShop::Footer(); } ############################################################################### # FUNCTION: AddProduct # DESCRIPTION: add a product to database ################################################################################ # MODIFICATION HISTORY # 2000-07-24 cbf Created ############################################################################## sub AddProduct { my $mesg = shift; if ($query->param("selected") == 1) { my $name = $query->param("name"); $name = closedShop::ValidateInput($name); my $category = $query->param("category"); $category = closedShop::ValidateInput($category); my $price = $query->param("price"); $price = closedShop::ValidateInput($price); my $code = $query->param("code"); $code = closedShop::ValidateInput($code); my $shipping = $query->param("shipping"); $shipping = closedShop::ValidateInput($shipping); my $rshipping = $query->param("ReducedShipping"); $rshipping = closedShop::ValidateInput($rshipping); my $quantity = $query->param("quantity"); $quantity =~ tr/0-9//cd; $quantity = 1 if (!$quantity); my $desc = $query->param("desc"); $desc = closedShop::ValidateInput($desc); my $image = $query->param("image"); if (!$name || !$price || !$category) { $query = new CGI({}); return AddProduct($closedShop::TEXT{'FLL_ALL'}); } my $EbayItemTitle = closedShop::ValidateInput($query->param("EbayItemTitle")); if (!$EbayItemTitle) { $EbayItemTitle = $name; } my $EbayItemDesc = closedShop::ValidateInput($query->param("EbayItemDesc")); if (!$EbayItemDesc) { $EbayItemDesc = $desc; } my $EbayQuantity = closedShop::ValidateInput($query->param("EbayQuantity")); if (!$EbayQuantity) { $EbayQuantity = $quantity; } my $EbayDuration = closedShop::ValidateInput($query->param("EbayDuration")); my $EbayStartingPrice = closedShop::ValidateInput($query->param("EbayStartingPrice")); if (!$EbayStartingPrice) { $EbayStartingPrice = $price; } my $Category1Option = closedShop::ValidateInput($query->param("Category1Option")); my $CategoryMenu1 = closedShop::ValidateInput($query->param("CategoryMenu1")); my $CategoryMenu2 = closedShop::ValidateInput($query->param("CategoryMenu2")); my $CategoryMenu3 = closedShop::ValidateInput($query->param("CategoryMenu3")); my $CategoryMenu4 = closedShop::ValidateInput($query->param("CategoryMenu4")); my $CategoryMenu5 = closedShop::ValidateInput($query->param("CategoryMenu5")); my $PayInstructions = closedShop::ValidateInput($query->param("PayInstructions")); my @attr1 = (); my @attr2 = (); my @attr3 = (); my $k = 1; while ($query->param("attribute1_$k")) { my $tmp = $query->param("attribute1_$k"); $tmp =~ s/~/*/g; push @attr1,$tmp; $k++; } $k = 1; while ($query->param("attribute2_$k")) { my $tmp = $query->param("attribute2_$k"); $tmp =~ s/~/*/g; push @attr2,$tmp; $k++; } $k = 1; while ($query->param("attribute3_$k")) { my $tmp = $query->param("attribute3_$k"); $tmp =~ s/~/*/g; push @attr3,$tmp; $k++; } my $attr1 = join("~",@attr1); $attr1 =~ s/\|/=/g; $attr1 = $query->param("attribute1_name") . "~" . $attr1; my $attr2 = join("~",@attr2); $attr2 =~ s/\|/=/g; $attr2 = $query->param("attribute2_name") . "~" . $attr2; my $attr3 = join("~",@attr3); $attr3 =~ s/\|/=/g; $attr3 = $query->param("attribute3_name") . "~" . $attr3; my $attr = $attr1 . "|" . $attr2 . "|" . $attr3; my $SQL= qq| insert into $closedShop::sql_tables{"item"} set name="$name", price="$price",shipping_price="$shipping",description="$desc", category="$category",attributes="$attr",product_code="$code", quantity="$quantity",reduced_shipping_price="$rshipping" |; my $sth = closedShop::DatabaseQuery($SQL); my $new_id = $sth->{'mysql_insertid'}; if ($image) { open (OUTFILE,">$closedShop::IMAGEPATH/$new_id.jpg") || closedShop::ErrorMessage("$closedShop::TEXT{'CANT_UP'} $closedShop::IMAGEPATH
$closedShop::TEXT{'CANT_UPMESG'} $closedShop::IMAGEPATH'"); while (<$image>) { print OUTFILE; } close(OUTFILE); if (!(stat("$closedShop::IMAGEPATH/$new_id.jpg"))[7]) { unlink ("$closedShop::IMAGEPATH/$new_id.jpg"); } } my $appendmesg = ""; if ($query->param("DoEbay") eq "Y") { my $pid = $$; if(defined (my $cid = fork()) ) { if($cid ==0) { PostEbayItem($EbayItemTitle,$EbayItemDesc,$EbayQuantity, $EbayDuration,$EbayStartingPrice,$Category1Option,$CategoryMenu1, $CategoryMenu2,$CategoryMenu3,$CategoryMenu4,$CategoryMenu5, $PayInstructions,$new_id); } else { $appendmesg = $closedShop::TEXT{'EBAY_THREAD'}; } } else { $appendmesg = $closedShop::TEXT{'EBAY_BADTHREAD'}; } } return AdminScreen("$closedShop::TEXT{'SUCC_ADDI'} $appendmesg"); } else { closedShop::Header(); print qq|$mesg
|; } else { DisplayEbayData(); } } print qq|
$closedShop::TEXT{'ADD_PROD'}
$closedShop::TEXT{'PROD'} $closedShop::TEXT{'NAME'}:
$closedShop::TEXT{'PROD'} Code/Id:
$closedShop::TEXT{'CAT'}:
 |; closedShop::PrintCategoryList("category",0,"ALL"); print qq|
$closedShop::TEXT{'PROD'} $closedShop::TEXT{'PRC'}:
 $closedShop::CurrencyMarker
$closedShop::TEXT{'SHP_PRC'}:
 $closedShop::CurrencyMarker
$closedShop::TEXT{'REDUCE'} $closedShop::TEXT{'SHP_PRC'}:
 $closedShop::CurrencyMarker
$closedShop::TEXT{'REDU_MESG'}
$closedShop::TEXT{'QTY'} $closedShop::TEXT{'INSTOCK'}:
$closedShop::TEXT{'PROD'} $closedShop::TEXT{'DESC'}:
$closedShop::TEXT{'IMAGE'}:
(JPEG Format)
$closedShop::TEXT{'ADD'} $closedShop::TEXT{'ATTR'}:
 |; for (my $j = 1; $j < 4; $j++) { print qq| |; } print qq|
$closedShop::TEXT{'ATTR'} $j:
$closedShop::TEXT{'ATTR'} $closedShop::TEXT{'NAME'}:

1.
2.
3.
4.
5.
|; if ($closedShop::EbayAuction eq "Y") { eval("use LWP::UserAgent"); if ($@) { print qq|
Ebay $closedShop::TEXT{'ERR'}
$closedShop::TEXT{'POST_EBAY_ERR'}:
  • LWP::UserAgent
  • HTTP::Request::Common which can be found at http://search.cpan.org


    • |; closedShop::Footer(); } } ############################################################################### # FUNCTION: PostEbayItem # DESCRIPTION: sends the data to Ebay ################################################################################ # MODIFICATION HISTORY # 2000-07-24 cbf Created ############################################################################## sub PostEbayItem { my ($EbayItemTitle,$EbayItemDesc,$EbayQuantity, $EbayDuration,$EbayStartingPrice,$Category1Option,$CategoryMenu1, $CategoryMenu2,$CategoryMenu3,$CategoryMenu4,$CategoryMenu5, $PayInstructions,$id) = @_; use HTTP::Request; use HTTP::Request::Common qw(POST GET); use LWP::UserAgent; use HTTP::Cookies; my $cat1 = $Category1Option; my $CAT = $cat1; my $sub1 = $CategoryMenu1; if ($sub1) { $CAT = $sub1; } my $sub2 = $CategoryMenu2; if ($sub2) { $CAT = $sub2; } my $sub3 = $CategoryMenu3; if ($sub3) { $CAT = $sub3; } my $sub4 = $CategoryMenu4; if ($sub4) { $CAT = $sub4; } my $sub5 = $CategoryMenu5; if ($sub5) { $CAT = $sub4; } my $itemtitle = $EbayItemTitle; my $itemdesc = $EbayItemDesc; my $photourl = ""; if (-e "$closedShop::IMAGEPATH/$id.jpg") { $photourl = $closedShop::IMAGEURL . "/$id.jpg"; } elsif (-e "$closedShop::SIMAGEPATH/$id.jpg") { $photourl = $closedShop::SecureImageURL . "/$id.jpg"; } my $duration = $EbayDuration; my $quantity = $EbayQuantity; my $startprice = $EbayStartingPrice; my $citystate = "$closedShop::CompanyCity, $closedShop::CompanyState"; my $region = "0"; my $country = closedShop::ReturnEbayCountryCode($closedShop::CompanyCountry); my ($paypal,$visa,$discover,$amex) = (); if ($closedShop::PayPalEmail) { $paypal = "&PaymentMethodPaypal=Paypal&PaymentMethodPaypalEmail=cbf\@duke.edu"; } if ($closedShop::AcceptedCards{"visa"}) { $visa = "&PaymentMethodCreditCardVisaMaster=VisaMaster"; } if ($closedShop::AcceptedCards{"discover"}) { $discover = "&PaymentMethodCreditCardDiscover=Discover"; } if ($closedShop::AcceptedCards{"amex"}) { $amex = "&PaymentMethodCreditCardAmEx=AmEx"; } my $file = "ebaycookies.txt"; my $cookie_jar = HTTP::Cookies->new( file => $file, ignore_discards => 1, hide_cookie2 => 1 ); my @sites = ("http://signin.ebay.com/aw-cgi/eBayISAPI.dll?SignIn", "http://signin.ebay.com/aw-cgi/eBayISAPI.dll?SignInWelcome&userid=fleizach&Pass=8der754b&keepMeSignInOption=1&rememberMeForSellBid=y", "http://cgi5.ebay.com/ws2/eBayISAPI.dll?SellItem&sspagename=h%3Ah%3Asyi%3AUS", "http://cgi5.ebay.com/ws2/eBayISAPI.dll?SellItem&SaleFormat=1&CurrentPage=SyiFormat&AuctionFormat=1", "http://cgi5.ebay.com/ws2/eBayISAPI.dll?SellItem&SaleFormat=1&CurrentPage=SyiMetaCategory&ShowCategory=1&CategorySelectorStyle=Javascript&Category1Option=$cat1&ButtonContinue=Continue+%3E", "http://cgi5.ebay.com/ws2/eBayISAPI.dll?SellItem&SaleFormat=1&CurrentPage=SyiLeafCategory&ShowCategory=1&CategorySelectorStyle=Javascript&Category1Option=$cat1&CategoryMenu1=$sub1&CategoryMenu2=$sub2&CategoryMenu3=$sub3&CategoryMenu4=$sub4&CategoryMenu5=$sub5&Category1=$CAT&ButtonContinue=Continue+%3E", "http://cgi5.ebay.com/ws2/eBayISAPI.dll?SellItem&SaleFormat=1&CurrentPage=SyiTitle&UseRichTextEditor=false&ItemTitle=$itemtitle&ItemDescription=$itemdesc&ShowCategory=1&ButtonContinue=Continue+%3E", "http://cgi5.ebay.com/ws2/eBayISAPI.dll?SellItem&SaleFormat=1&ListingCurrencyId=1&CurrentPage=SyiDetails&PhotoBrowseStyle=SELLER_HOSTED&PhotoPersist=$photourl&PhotoUrlChanged=true&EpsBetaOption=In&RelistPhoto=1&ListingDuration=$duration&QuantityListed=$quantity&AuctionStartPrice=$startprice&ItemCityState=$citystate&ItemRegion=$region&ItemCountry=$country&photoDisplayType=0&PictureUrl=$photourl&ThemeId=10&LayoutId=10000&GalleryURL=http%3A%2F%2F&Gallery=0&ShowAsGift=0&CounterStyle=1&ButtonContinue=via_Pics_SELLER_HOSTED", "http://cgi5.ebay.com/ws2/eBayISAPI.dll?SellItem&SaleFormat=1&CurrentPage=SyiPayment&AutoPayRequest=false&ButtonToggle=0$paypal$visa$discover$amex&PaymentMethodGenericCheck=Check&PaymentMethodGenericMOCashiers=MOCashiers&PaymentMethodGenericSeeItemDescription=SeeItemDescription&ShippingWhoPays=1&ShippingCostsSpecified=false&SingleItemShippingAndHandling=2.75&ShippingInsuranceAvailability=NONE&ShippingInsurancePerItem=0.00&TaxPercent=0.0&PaymentInstructions=$PayInstructions&ShipToType=2&EscrowType=0&ButtonContinue=Continue+%3E", "http://cgi5.ebay.com/ws2/eBayISAPI.dll?SellItem&SaleFormat=2&ListingCurrencyId=1&CurrentPage=SyiVerify&ButtonContinue=Submit%20Listing", ); my $ua = LWP::UserAgent->new; $ua->cookie_jar($cookie_jar); $ua->agent("Mozilla/5.0"); open(FILE,">$file"); close(FILE); for (my $k = 0; $k < @sites; $k++) { my $req = GET "$sites[$k]"; $cookie_jar->add_cookie_header($req); $req->header ('Connection: Keep-Alive'); $req->referer($sites[$k-1]); $req->content_type('application/x-www-form-urlencoded'); my $content = $ua->request($req); open(FILE,">$file"); print FILE $cookie_jar->as_string(); close(FILE); # GET SESSION ID if ($k > 1) { my $data = $content->as_string(); my $sp = qq|id="SessionId" type="hidden" value="|; my @data = split(/$sp/,$data); $data = substr($data[1],0,index($data,"\"")); $data = substr($data,0,index($data,"\">")); $sites[$k+1] .= "&SessionId=$data"; } if ($k == $#sites-1) { # time before submit get values my $alldata = $content->as_string(); my $data = $alldata; my $sp = qq|id="tokenstring" type="hidden" value="|; my @data = split(/$sp/,$data); $data = substr($data[1],0,index($data,"\"")); $data = substr($data,0,index($data,"\">")); $sites[$#sites] .= "&tokenstring=$data"; my $data1 = $alldata; $sp = qq|id="tokentext" type="hidden" value="|; my @data1 = split(/$sp/,$data1); $data1 = substr($data1[1],0,index($data1,"\"")); $data1 = substr($data1,0,index($data1,"\">")); $sites[$#sites] .= "&tokentext=$data1"; } if ($k == $#sites) { open(FILE,">ebay.status"); print FILE "Ebay Submission Status: The item has been successfully submitted to eBay and you will receive an email from eBay confirming this status."; close(FILE); } else { open(FILE,">ebay.status"); print FILE "Ebay Submission Status: The item is still in the process of being submitted to eBay. Currently, it is on step $k of $#sites"; close(FILE); } } } ############################################################################### # FUNCTION: DisplayEbayData # DESCRIPTION: diplays Ebay data ################################################################################ # MODIFICATION HISTORY # 2000-07-24 cbf Created ############################################################################## sub DisplayEbayData { my ($itemtitle,$startingprice,$itemdesc,$quantity) = @_; print qq|
    Ebay Auction Data Post Ebay Auction: Do not post to Ebay
    Post to Ebay $closedShop::TEXT{'ITM_TITLE'}:
    $closedShop::TEXT{'EBAY_TITLEMESG'} $closedShop::TEXT{'ITEM'} $closedShop::TEXT{'DESC'}:
    $closedShop::TEXT{'EBAY_DESCMESG'} $closedShop::TEXT{'AUC_DUR'}: $closedShop::TEXT{'QTY'}: $closedShop::TEXT{'STRT'} $closedShop::TEXT{'PRC'}: \$
    $closedShop::TEXT{'EBAY_PRCMESG'} Select Main $closedShop::TEXT{'CAT'}: |; closedShop::PrintEbayCategoryMain(); print qq|
    Sub-Category 1:
    Sub-Category 2:
    Sub-Category 3:
    Sub-Category 4:
    Sub-Category 5:
    $closedShop::TEXT{'PAY_IN'}: |; } ############################################################################### # FUNCTION: ViewLinks # DESCRIPTION: Views important links ################################################################################ # MODIFICATION HISTORY # 2000-07-24 cbf Created ############################################################################## sub ViewLinks { closedShop::Header(); my $search = $closedShop::FileNames{"item"}; my $user = $closedShop::FileNames{"user"}; my $cart = $closedShop::FileNames{"cart"}; if ($search !~ /http/) { $search = $closedShop::urltofolder . "/" . $closedShop::FileNames{"item"}; } if ($user !~ /http/) { $user = $closedShop::urltofolder . "/" . $closedShop::FileNames{"user"}; } if ($cart !~ /http/) { $cart = $closedShop::urltofolder . "/" . $closedShop::FileNames{"cart"}; } my $gc = $search . "?action=ShowGiftCertificates"; my $showallcats = $search . "?action=ShowAllCategories"; print qq| |; foreach (sort keys %closedShop::categories) { my ($intro,$style,$numimages,$status) = closedShop::GetCategoryInfo($_); if ($status ne "PRIVATE") { print qq||; } } print qq|
    $closedShop::TEXT{'IM_LINKS'}
    $closedShop::TEXT{'SRCH'} $closedShop::TEXT{'LINK'}:
    $closedShop::TEXT{'USR_LOG'} $closedShop::TEXT{'LINK'}:
    $closedShop::TEXT{'SHP_CRT'} $closedShop::TEXT{'LINK'}:
    $closedShop::TEXT{'GC'} $closedShop::TEXT{'LINK'}:
    $closedShop::TEXT{'DSP'} $closedShop::TEXT{'ALL'} $closedShop::TEXT{'CATS'} $closedShop::TEXT{'LINK'}:
    $closedShop::TEXT{'CAT'} $closedShop::TEXT{'LNKS'}
    $closedShop::TEXT{'CAT'} $closedShop::categories{$_}:
     


    |; closedShop::Footer(); } ############################################################################### # FUNCTION: EditProduct # DESCRIPTION: edit a product ################################################################################ # MODIFICATION HISTORY # 2000-07-24 cbf Created ############################################################################## sub EditProduct { if ($query->param("selected") == 3) { my $name = $query->param("name"); $name = closedShop::ValidateInput($name); my $category = $query->param("category"); $category = closedShop::ValidateInput($category); my $price = $query->param("price"); $price = closedShop::ValidateInput($price); my $code = $query->param("code"); $code = closedShop::ValidateInput($code); my $shipping = $query->param("shipping"); $shipping = closedShop::ValidateInput($shipping); my $rshipping = $query->param("ReducedShipping"); $rshipping = closedShop::ValidateInput($rshipping); my $quantity = $query->param("quantity"); $quantity =~ tr/0-9//cd; $quantity = 1 if (!$quantity); my $desc = $query->param("desc"); $desc = closedShop::ValidateInput($desc); my $image = $query->param("image"); my $id = $query->param("id"); $id =~ tr/0-9//cd; my $EbayItemTitle = closedShop::ValidateInput($query->param("EbayItemTitle")); if (!$EbayItemTitle) { $EbayItemTitle = $name; } my $EbayItemDesc = closedShop::ValidateInput($query->param("EbayItemDesc")); if (!$EbayItemDesc) { $EbayItemDesc = $desc; } my $EbayQuantity = closedShop::ValidateInput($query->param("EbayQuantity")); if (!$EbayQuantity) { $EbayQuantity = $quantity; } my $EbayDuration = closedShop::ValidateInput($query->param("EbayDuration")); my $EbayStartingPrice = closedShop::ValidateInput($query->param("EbayStartingPrice")); if (!$EbayStartingPrice) { $EbayStartingPrice = $price; } my $Category1Option = closedShop::ValidateInput($query->param("Category1Option")); my $CategoryMenu1 = closedShop::ValidateInput($query->param("CategoryMenu1")); my $CategoryMenu2 = closedShop::ValidateInput($query->param("CategoryMenu2")); my $CategoryMenu3 = closedShop::ValidateInput($query->param("CategoryMenu3")); my $CategoryMenu4 = closedShop::ValidateInput($query->param("CategoryMenu4")); my $CategoryMenu5 = closedShop::ValidateInput($query->param("CategoryMenu5")); my $PayInstructions = closedShop::ValidateInput($query->param("PayInstructions")); my @attr1 = (); my @attr2 = (); my @attr3 = (); my $k = 1; while ($query->param("attribute1_$k")) { my $tmp = $query->param("attribute1_$k"); $tmp =~ s/~/*/g; push @attr1,$tmp; $k++; } $k = 1; while ($query->param("attribute2_$k")) { my $tmp = $query->param("attribute2_$k"); $tmp =~ s/~/*/g; push @attr2,$tmp; $k++; } $k = 1; while ($query->param("attribute3_$k")) { my $tmp = $query->param("attribute3_$k"); $tmp =~ s/~/*/g; push @attr3,$tmp; $k++; } my $attr1 = join("~",@attr1); $attr1 =~ s/\|/=/g; $attr1 = $query->param("attribute1_name") . "~" . $attr1; my $attr2 = join("~",@attr2); $attr2 =~ s/\|/=/g; $attr2 = $query->param("attribute2_name") . "~" . $attr2; my $attr3 = join("~",@attr3); $attr3 =~ s/\|/=/g; $attr3 = $query->param("attribute3_name") . "~" . $attr3; my $attr = $attr1 . "|" . $attr2 . "|" . $attr3; my $SQL = qq| update $closedShop::sql_tables{"item"} set name="$name", price="$price",shipping_price="$shipping",description="$desc", category="$category",attributes="$attr",product_code="$code", quantity="$quantity",reduced_shipping_price="$rshipping" where id = "$id"|; my $sth = closedShop::DatabaseQuery($SQL); if ($image) { open (OUTFILE,">$closedShop::IMAGEPATH/$id.jpg") || ErrorMessage("$closedShop::TEXT{'ERR'} $!"); while (<$image>) { print OUTFILE; } close(OUTFILE) || ErrorMessage("$closedShop::TEXT{'ERR'} $!"); if (!(stat("$closedShop::IMAGEPATH/$id.jpg"))[7]) { print "
    unlinking $closedShop::IMAGEPATH/$id.jpg" . ((stat("$closedShop::IMAGEPATH/$id.jpg"))[7]); unlink ("$closedShop::IMAGEPATH/$id.jpg"); } } my $appendmesg = ""; if ($query->param("DoEbay") eq "Y") { my $pid = $$; if(defined (my $cid = fork()) ) { if($cid ==0) { PostEbayItem($EbayItemTitle,$EbayItemDesc,$EbayQuantity, $EbayDuration,$EbayStartingPrice,$Category1Option,$CategoryMenu1, $CategoryMenu2,$CategoryMenu3,$CategoryMenu4,$CategoryMenu5, $PayInstructions,$id); } else { $appendmesg = $closedShop::TEXT{'EBAY_THREAD'}; } } else { $appendmesg = $closedShop::TEXT{'EBAY_BADTHREAD'}; } } return AdminScreen("$closedShop::TEXT{'SUCC_EDITI'} $name $appendmesg"); } elsif ($query->param("selected") == 2) { my $id = $query->param("id"); $id =~ tr/0-9//cd; if ($id == 0 || !$id) { goto START; } my $SQL = qq| select name,price,shipping_price,description, category,attributes,product_code,quantity, reduced_shipping_price from $closedShop::sql_tables{"item"} where id = "$id" |; my $sth = closedShop::DatabaseQuery($SQL); my ($name,$price,$shipping_price,$description, $category,$attr,$code,$quantity,$ReducedShipping) = $sth->fetchrow_array(); my @attr = split(/\|/,$attr); my @attr1 = split(/~/,$attr[0]); my @attr2 = split(/~/,$attr[1]); my @attr3 = split(/~/,$attr[2]); closedShop::Header(); print qq|
    |; if ($closedShop::EbayAuction eq "Y") { eval("use LWP::UserAgent"); if ($@) { print qq| |; } else { DisplayEbayData($name,$price,$description,$quantity); } } print qq|
    $closedShop::TEXT{'EDIT'} $closedShop::TEXT{'PROD'}
    $closedShop::TEXT{'PROD'} $closedShop::TEXT{'NAME'}:
    $closedShop::TEXT{'PROD'} Code/Id:
    $closedShop::TEXT{'CAT'}:
    		 |; closedShop::PrintCategoryList("category",0,"ALL","","$category"); print qq|
    $closedShop::TEXT{'PROD'} $closedShop::TEXT{'PRC'}:
    $closedShop::TEXT{'SHP_PRC'}:
    $closedShop::TEXT{'REDUCE'} $closedShop::TEXT{'SHP_PRC'}:
    		 $closedShop::CurrencyMarker
    $closedShop::TEXT{'REDU_MESG'}
    $closedShop::TEXT{'QTY'} $closedShop::TEXT{'INSTOCK'}:
    $closedShop::TEXT{'PROD'} $closedShop::TEXT{'DESC'}:
    $closedShop::TEXT{'IMAGE'}:
    		 |; if (-e "$closedShop::IMAGEPATH/$id.jpg" || -e "$closedShop::SIMAGEPATH/$id.jpg") { if ($closedShop::FileNames{"item"} =~ /https/) { print qq|
    \n|; } else { print qq|
    \n|; } } else { print qq|$closedShop::TEXT{'NOIMAGE'}
    \n|; } print qq|
    (JPEG Format)
    $closedShop::TEXT{'ADD'} $closedShop::TEXT{'ATTR'}:
    		 |; for (my $j = 1; $j < 4; $j++) { print qq||; } print qq|
    $closedShop::TEXT{'ATTR'} $j:
    $closedShop::TEXT{'ATTR'} $closedShop::TEXT{'NAME'}:

    1.
    2.
    3.
    4.
    5.
    Ebay $closedShop::TEXT{'ERR'}
    $closedShop::TEXT{'POST_EBAY_ERR'}
  • LWP::UserAgent
  • HTTP::Request::Common which can be found at http://search.cpan.org


    • |; closedShop::Footer(); } elsif ($query->param("selected") == 1) { my $cate = $query->param("category"); closedShop::Header(); print qq| |; my $SQL = qq| select name,price,id,product_code,quantity from $closedShop::sql_tables{"item"} where category="$cate" order by name |; my $sth = closedShop::DatabaseQuery($SQL); my $icount = 0; while (my ($name,$price,$id,$code,$quantity) = $sth->fetchrow_array()) { print qq| \n |; $icount++; } print qq|
    $closedShop::TEXT{'EDIT'} $closedShop::TEXT{'PROD'} in $closedShop::TEXT{'CAT'}: $closedShop::Categories{$cate}
    $closedShop::TEXT{'NAME'} Code/Id $closedShop::TEXT{'PRC'} $closedShop::TEXT{'QTY'} $closedShop::TEXT{'INSTOCK'} $closedShop::TEXT{'EDIT'}
    $name $code $closedShop::CurrencyMarker $price $quantity
    $closedShop::TEXT{'TOT'} $closedShop::TEXT{'PRODS'}: $icount


    |; closedShop::Footer(); } else { START: closedShop::Header(); print qq|
    $closedShop::TEXT{'SELECT'} $closedShop::TEXT{'CAT'}
    $closedShop::TEXT{'CAT'}:
    		 |; closedShop::PrintCategoryList("category",0,"ALL"); print qq|


    |; closedShop::Footer(); } } ############################################################################### # FUNCTION: ViewOrders # DESCRIPTION: allows merchant to view / process orders ################################################################################ # MODIFICATION HISTORY # 2000-07-24 cbf Created ############################################################################## sub ViewOrders { my $mesg = shift; if ($query->param("selected") == 2) { if ($query->param("process")) { my $id = $query->param("id"); $id =~ tr/0-9//cd; my $tracking = closedShop::ValidateInput($query->param("tracking")); my $trackno = closedShop::ValidateInput($query->param($tracking . "No")); my $trackname = (split(/~~~/,$closedShop::ShippingCompanies{$tracking}))[0]; my $trackurl = (split(/~~~/,$closedShop::ShippingCompanies{$tracking}))[1]; $trackurl =~ s//$trackno/g; if (!$trackname) { $trackname = closedShop::ValidateInput($query->param("OtherName")); $tracking = $trackname; } my $trackmesg = ""; if ($tracking) { $trackmesg = qq|\n\n$closedShop::TEXT{'ORD_SHP'} $trackname, $closedShop::TEXT{'W_TRK'} $trackno\n\n|; } if ($tracking ne "Other") { $trackmesg .= qq|$closedShop::TEXT{'FOL_PROG'} $trackurl|; } my $SQL = qq|update $closedShop::sql_tables{"order"} set date_processed=CURDATE(),tracking="$tracking", trackno="$trackno"where id = "$id" |; my $sth = closedShop::DatabaseQuery($SQL); $SQL = qq|select user_id,item_ids from $closedShop::sql_tables{"order"} where id = "$id" |; $sth = closedShop::DatabaseQuery($SQL); my ($user_id,$item_ids) = $sth->fetchrow_array(); my @ary = split(/~/,$item_ids); foreach (@ary) { my ($id,$qty,$attr) = split(/\|/,$_); if ($id ne "gc") { $SQL = qq|update $closedShop::sql_tables{"item"} set quantity=quantity-$qty where id = "$id" |; $sth = closedShop::DatabaseQuery($SQL); } } $SQL = qq|select email,name,DATE_FORMAT(CURDATE(),"%W, %M %d %Y") from $closedShop::sql_tables{"user"} where id = "$user_id" |; $sth = closedShop::DatabaseQuery($SQL); my ($email,$name,$now) = $sth->fetchrow_array(); my $body = qq| $name, $closedShop::TEXT{'YR_ORD'} (# $id) from $closedShop::CompanyName $closedShop::TEXT{'PROCNSHP'} $now. $closedShop::TEXT{'FUR_NFO'} $closedShop::website $closedShop::TEXT{'LG_CALL'} $closedShop::CompanyPhone $trackmesg $closedShop::TEXT{'THANK'}, $closedShop::CompanyName $closedShop::CompanyEmail |; # send followup email to customer closedShop::SendEmail($email,$closedShop::TEXT{'ORD_PROC'},$body); $query = new CGI({}); return ViewOrders($closedShop::TEXT{'SUCC_PROC'}); } elsif ($query->param("viewold")) { my $id = $query->param("id"); $id =~ tr/0-9//cd; if (!$id) { goto ListAllOldOrders; } closedShop::Header(); DisplayIndividualOrder($id); print qq| \n
    |; closedShop::Footer(); } elsif ($query->param("deleteold")) { my $id = $query->param("id"); $id =~ tr/0-9//cd; my $SQL = qq|delete from $closedShop::sql_tables{"order"} where id="$id"|; my $sth = closedShop::DatabaseQuery($SQL); goto ListAllOldOrders; } else { $query = new CGI({}); return ViewOrders(); } } elsif ($query->param("selected") == 1) { if ($query->param("process")) { my $id = $query->param("id"); $id =~ tr/0-9//cd; if (!$id) { goto ListAllOrders; } closedShop::Header(); DisplayIndividualOrder($id); print qq| $closedShop::TEXT{'PCK_TRK'} $closedShop::TEXT{'NONE'}
    |; foreach (keys %closedShop::ShippingCompanies) { my @tmp = split(/~~~/,$closedShop::ShippingCompanies{$_}); my $tmpname = $tmp[0]; print qq| $tmpname No:
    |; } print qq| $closedShop::TEXT{'OTH_SHP'}: $closedShop::TEXT{'NAME'}:
    $closedShop::TEXT{'OTH_SHP'} $closedShop::TEXT{'TRK'} #:
    |; closedShop::Footer(); } elsif ($query->param("deleteorder")) { my $id = $query->param("id"); $id =~ tr/0-9//cd; if (!$id) { goto ListAllOrders; } my $SQL = qq|delete from $closedShop::sql_tables{"order"} where id = "$id" |; my $sth = closedShop::DatabaseQuery($SQL); goto ListAllOrders; } else { ListAllOldOrders: closedShop::Header(); print qq| $mesg
    |; my $SQL = qq| select id,DATE_FORMAT(date_bought,"%W, %M %d %Y"),user_id, total from $closedShop::sql_tables{"order"} where complete="Y" and date_processed is NOT NULL order by date_bought DESC |; my $sth = closedShop::DatabaseQuery($SQL); my $k = 0; my $alltotal = 0; while (my ($oid,$date_bought,$uid,$total) = $sth->fetchrow_array()) { $alltotal += $total; my $SQL2 = qq| select name,email from $closedShop::sql_tables{"user"} where id="$uid" |; my $sth2 = closedShop::DatabaseQuery($SQL2); my ($name,$email) = $sth2->fetchrow_array(); my $check = "checked"; if ($k != 0) { $check = ""; } print qq| \n |; $k++; } print qq|
    $closedShop::TEXT{'VW_OORD'}
    $closedShop::TEXT{'VW_DET'} $closedShop::TEXT{'DBOUGHT'} $closedShop::TEXT{'NAME'} $closedShop::TEXT{'EMAIL'} $closedShop::TEXT{'TOT'}
    $date_bought $name $email $closedShop::CurrencyMarker $total


    		   $closedShop::TEXT{'TOT'}: $closedShop::CurrencyMarker $alltotal


    |; closedShop::Footer(); } } else { ListAllOrders: closedShop::Header(); print qq| $mesg
    |; my $SQL = qq| select id,DATE_FORMAT(date_bought,"%W, %M %d %Y"),user_id, total from $closedShop::sql_tables{"order"} where complete="Y" and date_processed is NULL order by date_bought |; my $sth4 = closedShop::DatabaseQuery($SQL); my $k = 0; while (my ($oid,$date_bought,$uid,$total) = $sth4->fetchrow_array()) { my $SQL2 = qq| select name,email from $closedShop::sql_tables{"user"} where id="$uid" |; my $sth2 = closedShop::DatabaseQuery($SQL2); my ($name,$email) = $sth2->fetchrow_array(); my $check = "checked"; if ($k != 0) { $check = ""; } print qq| \n |; $k++; } print qq|
    $closedShop::TEXT{'PROC'} $closedShop::TEXT{'ORD'}
    $closedShop::TEXT{'PROC'} $closedShop::TEXT{'DBOUGHT'} $closedShop::TEXT{'NAME'} $closedShop::TEXT{'EMAIL'} $closedShop::TEXT{'TOT'}
    $date_bought $name $email $closedShop::CurrencyMarker $total
    $closedShop::TEXT{'PROCMESG'}


    		 


    |; closedShop::Footer(); } } ############################################################################### # FUNCTION: DisplayIndividualOrder # DESCRIPTION: info ################################################################################ # MODIFICATION HISTORY # 2000-07-24 cbf Created ############################################################################## sub DisplayIndividualOrder { my $id = shift; print qq|
    |; if ($tracking) { my @tmp = split(/~~~/,$closedShop::ShippingCompanies{"$tracking"}); my $trackname = $tmp[0]; my $trackurl = $tmp[1]; if (!$trackname) { $trackname = $tracking; } $trackurl =~ s//$trackno/g; if ($trackurl) { $trackurl = qq|$closedShop::TEXT{'PCK_TRK'} (No. $trackno)|; } else { $trackurl = qq|$closedShop::TEXT{'TRK'} #: $trackno|; } print qq| |; } } ############################################################################### # FUNCTION: DeleteProduct # DESCRIPTION: edit a product ################################################################################ # MODIFICATION HISTORY # 2000-07-24 cbf Created ############################################################################## sub DeleteProduct { if ($query->param("selected") == 2) { my $id = $query->param("id"); $id =~ tr/0-9//cd; if ($id == 0 || !$id) { goto START; } my $SQL = qq| delete from $closedShop::sql_tables{"item"} where id = "$id" |; my $sth = closedShop::DatabaseQuery($SQL); return AdminScreen($closedShop::TEXT{'SUCC_DELP'}); } elsif ($query->param("selected") == 1) { my $cate = $query->param("category"); closedShop::Header(); print qq|
    $closedShop::TEXT{'ORD'} # $id
    $closedShop::TEXT{'BILL_NFO'}
    |; my $SQL = qq| select b_name,b_address,b_city,b_state,b_country, b_zip,b_phone,s_name,s_address,s_city,s_state,s_country, s_zip,s_phone,item_ids,cc_name,cc,cc_num,cc_month,cc_year, amount_gc_used,total,sub_total,ship_total,tax,ip_address, tracking,trackno from $closedShop::sql_tables{"order"} where id="$id" |; my $sth = closedShop::DatabaseQuery($SQL); my ($b_name,$b_address,$b_city,$b_state,$b_country,$b_zip,$b_phone,$s_name,$s_address, $s_city,$s_state,$s_country,$s_zip,$s_phone,$item_ids,$cc_name,$card, $cc_num,$cc_month,$cc_year,$amount_gc_used,$total_cost,$sub_total, $ship_total,$tax_total,$ip_address,$tracking,$trackno) = $sth->fetchrow_array(); print qq| $b_name
    $b_address
    $b_city, $b_state $b_zip
    $b_country
    $b_phone
    IP Address: $ip_address     		$closedShop::TEXT{'SHIP'} $closedShop::TEXT{'NFO'}
    $s_name
    $s_address
    $s_city, $s_state $s_zip
    $s_country
    $s_phone
    $closedShop::TEXT{'PAY_NFO'}
    |; if ($card eq "check") { print qq|$closedShop::TEXT{'PAY_METH'}: Check
    |; } elsif ($card eq "paypal") { print qq|$closedShop::TEXT{'PAY_METH'}: PayPal
    |; } else { print qq| $closedShop::TEXT{'CC'}: $card
    $closedShop::TEXT{'CC'} $closedShop::TEXT{'NAME'}: $cc_name
    $closedShop::TEXT{'CC_NUM'}: $cc_num
    $closedShop::TEXT{'EXP_DATE'}: $cc_month / $cc_year |; } print qq|
    $closedShop::TEXT{'PROD'} $closedShop::TEXT{'NFO'}
    |; my @ary = split(/~/,$item_ids); my $k = 1; foreach (@ary) { my ($iid,$qty,$attr) = split(/\|/,$_); if ($iid eq "gc") { my ($id,$recipient_name,$recipient_email,$gc_amount) = split(/\|/,$_); print qq| |; $k++; next; } $SQL = qq| select name,price,shipping_price,description, category,product_code,reduced_shipping_price from $closedShop::sql_tables{"item"} where id="$iid" |; $sth = closedShop::DatabaseQuery($SQL); my ($name,$price,$ship,$desc,$cat,$code,$rship) = $sth->fetchrow_array(); my $total = sprintf("%.2f",$qty*$price); my $shiptotal = 0; if ($qty > 1 && $rship) { $shiptotal = sprintf("%.2f",$ship+(($qty-1)*$rship)); } else { $shiptotal = sprintf("%.2f",$ship*$qty); } if ($closedShop::ShowShipping ne "N") { $total += sprintf("%.2f",$shiptotal); } my @attr = split(/\?/,$attr); $attr = join("
    ",@attr); print qq| |; if ($closedShop::ShowShipping eq "N") { print qq| |; } else { if ($qty > 1 && $rship) { print qq| |; } else { print qq| |; } } print qq| |; } my $vrate = ($closedShop::TaxRate * 100); print qq| |; if ($amount_gc_used > 0) { print qq| |; } print qq|
    $closedShop::TEXT{'NAME'} Code $closedShop::TEXT{'QTY'} $closedShop::TEXT{'ATT'} $closedShop::TEXT{'PRC'} $closedShop::TEXT{'SHP_PRC'} $closedShop::TEXT{'TOT'}
    $closedShop::TEXT{'GC'} ($closedShop::CurrencyMarker $gc_amount) GC 1   $qty x $closedShop::CurrencyMarker $gc_amount $qty x $closedShop::CurrencyMarker 0.00 $closedShop::CurrencyMarker $gc_amount
    $name $code
    $qty
    		 $attr  $qty x $closedShop::CurrencyMarker $price $closedShop::CurrencyMarker 0.00 1 x $closedShop::CurrencyMarker $ship
    | . eval($qty-1) . qq| x $closedShop::CurrencyMarker $rship    		 $qty x $closedShop::CurrencyMarker $ship $closedShop::CurrencyMarker | . sprintf("%.2f",$total) . qq|
      Sub $closedShop::TEXT{'TOT'}: $closedShop::CurrencyMarker $sub_total
      $closedShop::TEXT{'SHIP'} $closedShop::TEXT{'TOT'}: $closedShop::CurrencyMarker $ship_total
      $closedShop::TEXT{'TAX'} $closedShop::TEXT{'TOT'}: $closedShop::CurrencyMarker $tax_total
      $closedShop::TEXT{'GC'} $closedShop::TEXT{'DED'}: $closedShop::CurrencyMarker -($amount_gc_used)
      Grand $closedShop::TEXT{'TOT'} (amount to charge): $closedShop::CurrencyMarker $total_cost
    $closedShop::TEXT{'TRK'} $closedShop::TEXT{'NFO'}
    $closedShop::TEXT{'SHIP_CO'} $trackname
    $closedShop::TEXT{'PCK_TRK'}: $trackurl
     
    |; my $SQL = qq| select name,price,id,category,product_code from $closedShop::sql_tables{"item"} where category = "$cate" order by name |; my $sth = closedShop::DatabaseQuery($SQL); while (my ($name,$price,$id,$category,$code) = $sth->fetchrow_array()) { print qq| \n |; } print qq|
    $closedShop::TEXT{'DEL_PROD'}
    $closedShop::TEXT{'REM'} $closedShop::TEXT{'CAT'} $closedShop::TEXT{'NAME'} Code/Id $closedShop::TEXT{'PRC'} $closedShop::TEXT{'REM'}
    $closedShop::categories{$category} $name $code $closedShop::CurrencyMarker $price


    |; closedShop::Footer(); } else { START: closedShop::Header(); print qq|
    $closedShop::TEXT{'SELECT'} $closedShop::TEXT{'CAT'}
    $closedShop::TEXT{'CAT'}:
    		 |; closedShop::PrintCategoryList("category",0,"ALL"); print qq|


    |; closedShop::Footer(); } } ############################################################################### # FUNCTION: ChangeVariables # DESCRIPTION: change variables of the program ################################################################################ # MODIFICATION HISTORY # 2000-07-24 cbf Created ############################################################################## sub ChangeVariables { my ($session,$uid) = closedShop::GetSessionCookie(); if ($query->param("selected") == 1) { open(FILE,">$closedShop::varsfile"); foreach ($query->param()) { my @var = $query->param("$_"); my $var = join(",",@var); $var =~ s/~~~/*/g; $var =~ s/\n/
    /g; if ($_ =~ /category/) { next; } print FILE qq|$_~~~$var\n|; } close(FILE); my $k = 1; foreach (sort keys %closedShop::categories) { my $catname = $query->param("category_$_"); my ($intro,$style,$numimages,$status, $name,$children,$parent) = closedShop::GetCategoryInfo($_); if (!$catname || $parent) { next; } my $SQL = qq|update $closedShop::sql_tables{"cat"} set name="$catname" where code="$_"|; my $sth = closedShop::DatabaseQuery($SQL); $k++; } for (; $k < $closedShop::MaxCats; $k++) { my $catname = $query->param("category$k"); if ($catname) { my $short = closedShop::GetNewCategoryCode($catname); my $SQL = qq|insert into $closedShop::sql_tables{"cat"} set name="$catname", code="$short",status="PUBLIC",style="text"|; my $sth = closedShop::DatabaseQuery($SQL); } } return AdminScreen($closedShop::TEXT{'SUCC_VAR'}); } else { closedShop::Header(); print qq|
    $closedShop::TEXT{'INSTALL'} - $closedShop::TEXT{'COMP'} $closedShop::TEXT{'NFO'}
    $closedShop::TEXT{'COMP'} $closedShop::TEXT{'NAME'}:
    $closedShop::TEXT{'COMP'} $closedShop::TEXT{'EMAIL'}:
    $closedShop::TEXT{'COMP'} $closedShop::TEXT{'PHONE'}:
    $closedShop::TEXT{'COMP'} $closedShop::TEXT{'FAX'}:
    $closedShop::TEXT{'COMP'} $closedShop::TEXT{'ADDRESS'}:
    $closedShop::TEXT{'COMP'} $closedShop::TEXT{'CITY'}:
    $closedShop::TEXT{'COMP'} $closedShop::TEXT{'STATE'}: |; closedShop::ListStates("CompanyState",$closedShop::CompanyState); print qq|
    $closedShop::TEXT{'COMP'} $closedShop::TEXT{'ZIP'}:
    $closedShop::TEXT{'COMP'} $closedShop::TEXT{'COUNTRY'}: |; closedShop::ListCountries("CompanyCountry",$closedShop::CompanyCountry); print qq|
    $closedShop::TEXT{'STATE'} $closedShop::TEXT{'TXRATE'}: Example: for 5.07\% enter .0507
    $closedShop::TEXT{'COUNTRY'} $closedShop::TEXT{'TXRATE'}:
    If left blank, will not appear
    $closedShop::TEXT{'INTNATL'} $closedShop::TEXT{'TXRATE'}:
    If left blank, will not appear
    $closedShop::TEXT{'CURRMRK'}:
    $closedShop::TEXT{'MINAM'} $closedShop::CurrencyMarker
    $closedShop::TEXT{'SELECT'} $closedShop::TEXT{'ACCEPT'} $closedShop::TEXT{'CCS'}: |; my ($mcheck,$vcheck,$dcheck,$acheck,$dicheck,$ccheck,$pcheck); if ($closedShop::AcceptedCards{"check"}) { $ccheck = "checked"; } if ($closedShop::AcceptedCards{"mastercard"}) { $mcheck = "checked"; } if ($closedShop::AcceptedCards{"visa"}) { $vcheck = "checked"; } if ($closedShop::AcceptedCards{"discover"}) { $dcheck = "checked"; } if ($closedShop::AcceptedCards{"amex"}) { $acheck = "checked"; } if ($closedShop::AcceptedCards{"diner"}) { $dicheck = "checked"; } if ($closedShop::AcceptedCards{"paypal"}) { $pcheck = "checked"; } print qq| PayPal
    Checks
    Mastercard
    Visa
    Discover
    American Express
    Diner's Club
    $closedShop::TEXT{'CRE_CAT'} |; my $j = 1; foreach (sort keys %closedShop::categories) { my ($intro,$style,$numimages,$status,$name, $children,$parent) = closedShop::GetCategoryInfo($_); if (!$parent) { print qq|Category $j:
    \n|; $j++; } } for (; $j < $closedShop::MaxCats; $j++) { print qq|$closedShop::TEXT{'CAT'} $j:
    \n|; } print qq|
    $closedShop::TEXT{'SHW_SHPP'}: |; my ($yescheck,$nocheck) = ""; if ($closedShop::ShowShipping eq "N") { $nocheck = "checked"; } else { $yescheck = "checked"; } print qq| $closedShop::TEXT{'YES'}
    $closedShop::TEXT{'NO'}
    $closedShop::TEXT{'SHW_TAX'}: |; if ($closedShop::ShowTax eq "N") { $nocheck = "checked"; } else { $yescheck = "checked"; } print qq| $closedShop::TEXT{'YES'}
    $closedShop::TEXT{'NO'}
    $closedShop::TEXT{'ENAB_INV'} |; if ($closedShop::EnableInventory eq "Y") { $yescheck = "checked"; } else { $nocheck = "checked"; } print qq| $closedShop::TEXT{'ENABLE'}
    $closedShop::TEXT{'DISABLE'}
    $closedShop::TEXT{'FIN_MESG'}
     


    $closedShop::TEXT{'INSTALL'} - PayPal Payment
    PayPal $closedShop::TEXT{'EMAIL'}
    $closedShop::TEXT{'PP_MESG2'}
    |; my ($ebaycheckyes,$ebaycheckno) = (); if ($closedShop::EbayAuction eq "Y") { $ebaycheckyes = "checked"; } elsif ($closedShop::EbayAuction eq "N") { $ebaycheckno = "checked"; } print qq|
    $closedShop::TEXT{'INSTALL'} - Ebay Auctions
    $closedShop::TEXT{'ENABLE'} Ebay Auctions $closedShop::TEXT{'ENABLE'}
    $closedShop::TEXT{'DISABLE'}
    Ebay Username
    Ebay $closedShop::TEXT{'PASS'}
     
    |; if ($uid == 1) { print qq|

    $closedShop::TEXT{'INSTALL'} - SQL $closedShop::TEXT{'DB'} $closedShop::TEXT{'NFO'}
    $closedShop::TEXT{'DB'} $closedShop::TEXT{'NAME'}:
    $closedShop::TEXT{'DB'} Username:
    $closedShop::TEXT{'DB'} $closedShop::TEXT{'PASS'}:
    $closedShop::TEXT{'DB'} Location
    Only change if you know what you are doing:
    $closedShop::TEXT{'DB'} Table Names: Admin $closedShop::TEXT{'TBL'}:
    Item $closedShop::TEXT{'TBL'}:
    Order $closedShop::TEXT{'TBL'}:
    User $closedShop::TEXT{'TBL'}:
    Gift Certificate $closedShop::TEXT{'TBL'}:
    Categories $closedShop::TEXT{'TBL'}:
    Ebay $closedShop::TEXT{'TBL'}:
     


    $closedShop::TEXT{'INSTALL'} - Server Specifics
    IP Access:
    $closedShop::TEXT{'IP_MESG'}
    Examples 192.168.0.1
    $closedShop::TEXT{'DEF_LANG'}:
    Website URL:
    No Trailing Slash
    URL to closedShop Folder:
    No Trailing Slash
    URL to Continue Shopping Link:
    (If blank, will return to search page)
    To make it go to the last page put:
    javascript:history.go(-1);

    No Trailing Slash
    URL to Final link after completed order:
    (If blank, will return to homepage of website)
    No Trailing Slash
    Server Path to Image Folder:
    No Trailing Slash
    SECURE Server Path to Image Folder:
    No Trailing Slash
    Optional
    URL to Image Folder:
    No Trailing Slash
    URL to SECURE Image Folder:
    No Trailing Slash
    Path to Header File:
    Path to Footer File:
    SECURE Path to Header File
    Optional
    SECURE Path to Footer File
    Optional
    Item Template Filename
    Category Template Filename
    Mail Program:
     


    |; } else { print qq| |; } print qq|
    $closedShop::TEXT{'INSTALL'} - $closedShop::TEXT{'STYLE'}
    $closedShop::TEXT{'TBL'} Top Colors:
    $closedShop::TEXT{'TBL'} Main Colors:
    $closedShop::TEXT{'TBL'} Width:
    $closedShop::TEXT{'TBL'} Border Style:
    $closedShop::TEXT{'TBL'} Border Spacing:
    $closedShop::TEXT{'TBL'} Background Image:
    URL of image
    Main $closedShop::TEXT{'FONT'} Face:
    Main $closedShop::TEXT{'FONT'} Color:
    Main $closedShop::TEXT{'FONT'} Size:
    Main $closedShop::TEXT{'FONT'} Style:
    Main $closedShop::TEXT{'FONT'} Variant:
    Header $closedShop::TEXT{'FONT'} Face:
    Header $closedShop::TEXT{'FONT'} Color:
    Header $closedShop::TEXT{'FONT'} Size:
    Header $closedShop::TEXT{'FONT'} Style:
    Header $closedShop::TEXT{'FONT'} Variant:
     


    |; if($uid == 1) { print qq|
    $closedShop::TEXT{'INSTALL'} - Filenames
    URL for Admin.pl:
    URL for Cart.pl:
    URL for User.pl:
    URL for Item.pl:
     


    |; } else { print qq| |; } print qq|
    |; closedShop::Footer(); } } ############################################################################### # FUNCTION: Login # DESCRIPTION: The user will log in, sending the username and password ################################################################################ # MODIFICATION HISTORY # 2000-07-24 cbf Created ############################################################################## sub Login { my $username = closedShop::ValidateInput($query->param('username')); my $password = closedShop::ValidateInput($query->param('password')); my $SQL = qq| select id from $closedShop::sql_tables{"admin"} where username = "$username" and password = "$password" |; my $sth = closedShop::DatabaseQuery($SQL); my ($uid) = $sth->fetchrow_array(); if (!$uid) { return LoginScreen($closedShop::TEXT{'BAD_EM'}); } else { LoginTheAdmin($uid); } } ################################################################################ # FUNCTION: AdminScreen # DESCRIPTION: Displays the admin screen ################################################################################ # MODIFICATION HISTORY # 2000-07-25 cbf created ################################################################################ sub AdminScreen { my $message = shift; closedShop::Header($message); $message = "" if ($message eq "nohttp"); my $mtime = (stat("ebay.status"))[9]; my $now = time(); my $ebay = ""; if (($now - $mtime) < 720) { open(FILE,"ebay.status"); my @ebay = ; $ebay = join("",@ebay) . "

    "; close(FILE); } my $date = localtime; print qq|
    $closedShop::TEXT{'ADM_MESG'}

    $ebay $message
    |; my $k = 0; my @act = keys %actions; my $totalactions = $#act-1; foreach (sort keys %actions) { unless ($_ eq "AdminScreen" || $_ eq "PrintEbaySubCategory") { my $colspan = qq|colspan="1" align="center"|; if ($k == $totalactions && ($k % 2) == 0) { $colspan = qq|colspan="2" align="center"|; } if (($k % 2) == 0) { print qq||; } print qq| |; if (($k % 2) == 1) { print qq||; } $k++; } } if (($k % 2) == 0) { print qq||; } print qq|
    Administration Options
     
    |; closedShop::Footer(); } ################################################################################ # FUNCTION: LoginScreen # DESCRIPTION: login screen for admin ################################################################################ # MODIFICATION HISTORY # 2000-05-19 cbf Validated input, cleaned up sql statements ################################################################################ sub LoginScreen { my $mesg = shift; closedShop::Header(); print qq|
    $mesg
    $closedShop::TEXT{'LOGIN'}
    Username:
    $closedShop::TEXT{'PASS'}:

    |; closedShop::Footer(); } ################################################################################ # FUNCTION: LoginTheAdmin # DESCRIPTION: process screen ################################################################################ # MODIFICATION HISTORY # 2000-05-19 cbf Validated input, cleaned up sql statements ################################################################################ sub LoginTheAdmin { my $uid = shift; my $session = closedShop::CreateSession(); my $SQL = qq| update $closedShop::sql_tables{"admin"} set session="$session" where id = "$uid" |; my $sth = closedShop::DatabaseQuery($SQL); closedShop::SetSessionCookie($session,$uid); AdminScreen("nohttp"); }