bookswap
eAuction User
Offline
I love Perl
Posts: 40
|
Here is what accountea asks to be put into auction.pl.....
Find these lines in auction.pl
#-#############################################
# Main Program
# You do not need to edit anything below this
# line.
After them, add:
require "accountea.pl";
Then at the top of the 'elsif' section,
find this line:
if ($form{'action'} eq 'new') { &new; }
After it, add the following:
#-#############################################
# AccountEA. By Stuart Jones.
#
elsif ($form{'action'} eq 'account_login') { &account_login; }
elsif ($form{'action'} eq 'account_view') { &account_view; }
elsif ($form{'action'} eq 'account_admin') { &account_admin; }
elsif ($form{'action'} eq 'view_admin') { &view_admin; }
elsif ($form{'action'} eq 'user_credit') { &user_credit; }
elsif ($form{'action'} eq 'procpostal') { &procpostal; }
elsif ($form{'action'} eq 'postal_login') { &postal_login; }
elsif ($form{'action'} eq 'paypal_login') { &postal_login("paypal"); }
#
#-#############################################
#########################################
# Create Users Account Upon Registration
By default the script will create a users
account when they first incur a charge.
For some of the following functions to
work you will have to create a users
account upon registration. This can be
done by adding this line to procreg
&accountcreate ($form{'ALIAS'});
Best to put it after this line:
&sendemail($form{'EMAIL'}, $config{'admin_address'}, 'Auction Password', "PLEASE DO NOT REPLY TO THIS E-MAIL.\r\n\r\nThank you for registering to use the online auctions at $config{'sitename'}!\r\n\r\nYour new password is: $newpass\r\nYour alias (as you entered it) is: $form{'ALIAS'}\r\n\r\nThank you for visiting!");
#########################################
# Auction Closing Charges
#
# These should be placed imediately
# after this line in sub closeit
&sendemail($lastbid[1], $firstbid[1], "Auction Close: $title", "Congratulations! You are the winner of auction number $item.\r\nYour winning bid was \$$lastbid[2].\r\n\r\nPlease contact the seller to make arrangements for payment and shipping:\r\n\r\n$firstbid[4]\r\n$firstbid[5]\r\n$firstbid[6]\r\n$firstbid[1]\r\n\r\nThanks for using $config{'sitename'}!");
#########################################
# Apply a Fixed Fee (in this case -1.00)
# for auction close provided the reserve
# price has been met.
&proctransaction ($firstbid[0], 2, "$title Closed","No. $item Close Price $lastbid[2] Reserve Met","-1.00");
I would like to implement this into the eAuction.pl script, but I can't get it to work. Could someone please help me with this?
|
Home
Pages: 
Accounting (Read 2903 times)
